{- This file was auto-generated from tensorflow/core/protobuf/struct.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Tensorflow.Core.Protobuf.Struct (
        BoundedTensorSpecProto(), DictValue(), DictValue'FieldsEntry(),
        ListValue(), NamedTupleValue(), NoneValue(), PairValue(),
        StructuredValue(), StructuredValue'Kind(..),
        _StructuredValue'NoneValue, _StructuredValue'Float64Value,
        _StructuredValue'Int64Value, _StructuredValue'StringValue,
        _StructuredValue'BoolValue, _StructuredValue'TensorShapeValue,
        _StructuredValue'TensorDtypeValue,
        _StructuredValue'TensorSpecValue, _StructuredValue'TypeSpecValue,
        _StructuredValue'BoundedTensorSpecValue,
        _StructuredValue'ListValue, _StructuredValue'TupleValue,
        _StructuredValue'DictValue, _StructuredValue'NamedTupleValue,
        TensorSpecProto(), TupleValue(), TypeSpecProto(),
        TypeSpecProto'TypeSpecClass(..), TypeSpecProto'TypeSpecClass(),
        TypeSpecProto'TypeSpecClass'UnrecognizedValue
    ) 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.Protobuf.Struct_Fields.name' @:: Lens' BoundedTensorSpecProto Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.shape' @:: Lens' BoundedTensorSpecProto Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'shape' @:: Lens' BoundedTensorSpecProto (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.dtype' @:: Lens' BoundedTensorSpecProto Proto.Tensorflow.Core.Framework.Types.DataType@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.minimum' @:: Lens' BoundedTensorSpecProto Proto.Tensorflow.Core.Framework.Tensor.TensorProto@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'minimum' @:: Lens' BoundedTensorSpecProto (Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maximum' @:: Lens' BoundedTensorSpecProto Proto.Tensorflow.Core.Framework.Tensor.TensorProto@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'maximum' @:: Lens' BoundedTensorSpecProto (Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto)@ -}
data BoundedTensorSpecProto
  = BoundedTensorSpecProto'_constructor {BoundedTensorSpecProto -> Text
_BoundedTensorSpecProto'name :: !Data.Text.Text,
                                         BoundedTensorSpecProto -> Maybe TensorShapeProto
_BoundedTensorSpecProto'shape :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto),
                                         BoundedTensorSpecProto -> DataType
_BoundedTensorSpecProto'dtype :: !Proto.Tensorflow.Core.Framework.Types.DataType,
                                         BoundedTensorSpecProto -> Maybe TensorProto
_BoundedTensorSpecProto'minimum :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto),
                                         BoundedTensorSpecProto -> Maybe TensorProto
_BoundedTensorSpecProto'maximum :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto),
                                         BoundedTensorSpecProto -> FieldSet
_BoundedTensorSpecProto'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
(BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool)
-> (BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool)
-> Eq BoundedTensorSpecProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
$c/= :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
== :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
$c== :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
Prelude.Eq, Eq BoundedTensorSpecProto
Eq BoundedTensorSpecProto =>
(BoundedTensorSpecProto -> BoundedTensorSpecProto -> Ordering)
-> (BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool)
-> (BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool)
-> (BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool)
-> (BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool)
-> (BoundedTensorSpecProto
    -> BoundedTensorSpecProto -> BoundedTensorSpecProto)
-> (BoundedTensorSpecProto
    -> BoundedTensorSpecProto -> BoundedTensorSpecProto)
-> Ord BoundedTensorSpecProto
BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
BoundedTensorSpecProto -> BoundedTensorSpecProto -> Ordering
BoundedTensorSpecProto
-> BoundedTensorSpecProto -> BoundedTensorSpecProto
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 :: BoundedTensorSpecProto
-> BoundedTensorSpecProto -> BoundedTensorSpecProto
$cmin :: BoundedTensorSpecProto
-> BoundedTensorSpecProto -> BoundedTensorSpecProto
max :: BoundedTensorSpecProto
-> BoundedTensorSpecProto -> BoundedTensorSpecProto
$cmax :: BoundedTensorSpecProto
-> BoundedTensorSpecProto -> BoundedTensorSpecProto
>= :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
$c>= :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
> :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
$c> :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
<= :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
$c<= :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
< :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
$c< :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Bool
compare :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Ordering
$ccompare :: BoundedTensorSpecProto -> BoundedTensorSpecProto -> Ordering
$cp1Ord :: Eq BoundedTensorSpecProto
Prelude.Ord)
instance Prelude.Show BoundedTensorSpecProto where
  showsPrec :: Int -> BoundedTensorSpecProto -> ShowS
showsPrec _ __x :: BoundedTensorSpecProto
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (BoundedTensorSpecProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BoundedTensorSpecProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField BoundedTensorSpecProto "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text)
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
fieldOf _
    = ((Text -> f Text)
 -> BoundedTensorSpecProto -> f BoundedTensorSpecProto)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BoundedTensorSpecProto -> Text)
-> (BoundedTensorSpecProto -> Text -> BoundedTensorSpecProto)
-> Lens BoundedTensorSpecProto BoundedTensorSpecProto Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BoundedTensorSpecProto -> Text
_BoundedTensorSpecProto'name
           (\ x__ :: BoundedTensorSpecProto
x__ y__ :: Text
y__ -> BoundedTensorSpecProto
x__ {_BoundedTensorSpecProto'name :: Text
_BoundedTensorSpecProto'name = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BoundedTensorSpecProto "shape" Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto where
  fieldOf :: Proxy# "shape"
-> (TensorShapeProto -> f TensorShapeProto)
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
fieldOf _
    = ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
 -> BoundedTensorSpecProto -> f BoundedTensorSpecProto)
-> ((TensorShapeProto -> f TensorShapeProto)
    -> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (TensorShapeProto -> f TensorShapeProto)
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BoundedTensorSpecProto -> Maybe TensorShapeProto)
-> (BoundedTensorSpecProto
    -> Maybe TensorShapeProto -> BoundedTensorSpecProto)
-> Lens
     BoundedTensorSpecProto
     BoundedTensorSpecProto
     (Maybe TensorShapeProto)
     (Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BoundedTensorSpecProto -> Maybe TensorShapeProto
_BoundedTensorSpecProto'shape
           (\ x__ :: BoundedTensorSpecProto
x__ y__ :: Maybe TensorShapeProto
y__ -> BoundedTensorSpecProto
x__ {_BoundedTensorSpecProto'shape :: Maybe TensorShapeProto
_BoundedTensorSpecProto'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 BoundedTensorSpecProto "maybe'shape" (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) where
  fieldOf :: Proxy# "maybe'shape"
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
fieldOf _
    = ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
 -> BoundedTensorSpecProto -> f BoundedTensorSpecProto)
-> ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
    -> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BoundedTensorSpecProto -> Maybe TensorShapeProto)
-> (BoundedTensorSpecProto
    -> Maybe TensorShapeProto -> BoundedTensorSpecProto)
-> Lens
     BoundedTensorSpecProto
     BoundedTensorSpecProto
     (Maybe TensorShapeProto)
     (Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BoundedTensorSpecProto -> Maybe TensorShapeProto
_BoundedTensorSpecProto'shape
           (\ x__ :: BoundedTensorSpecProto
x__ y__ :: Maybe TensorShapeProto
y__ -> BoundedTensorSpecProto
x__ {_BoundedTensorSpecProto'shape :: Maybe TensorShapeProto
_BoundedTensorSpecProto'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 BoundedTensorSpecProto "dtype" Proto.Tensorflow.Core.Framework.Types.DataType where
  fieldOf :: Proxy# "dtype"
-> (DataType -> f DataType)
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
fieldOf _
    = ((DataType -> f DataType)
 -> BoundedTensorSpecProto -> f BoundedTensorSpecProto)
-> ((DataType -> f DataType) -> DataType -> f DataType)
-> (DataType -> f DataType)
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BoundedTensorSpecProto -> DataType)
-> (BoundedTensorSpecProto -> DataType -> BoundedTensorSpecProto)
-> Lens
     BoundedTensorSpecProto BoundedTensorSpecProto DataType DataType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BoundedTensorSpecProto -> DataType
_BoundedTensorSpecProto'dtype
           (\ x__ :: BoundedTensorSpecProto
x__ y__ :: DataType
y__ -> BoundedTensorSpecProto
x__ {_BoundedTensorSpecProto'dtype :: DataType
_BoundedTensorSpecProto'dtype = DataType
y__}))
        (DataType -> f DataType) -> DataType -> f DataType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BoundedTensorSpecProto "minimum" Proto.Tensorflow.Core.Framework.Tensor.TensorProto where
  fieldOf :: Proxy# "minimum"
-> (TensorProto -> f TensorProto)
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
fieldOf _
    = ((Maybe TensorProto -> f (Maybe TensorProto))
 -> BoundedTensorSpecProto -> f BoundedTensorSpecProto)
-> ((TensorProto -> f TensorProto)
    -> Maybe TensorProto -> f (Maybe TensorProto))
-> (TensorProto -> f TensorProto)
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BoundedTensorSpecProto -> Maybe TensorProto)
-> (BoundedTensorSpecProto
    -> Maybe TensorProto -> BoundedTensorSpecProto)
-> Lens
     BoundedTensorSpecProto
     BoundedTensorSpecProto
     (Maybe TensorProto)
     (Maybe TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BoundedTensorSpecProto -> Maybe TensorProto
_BoundedTensorSpecProto'minimum
           (\ x__ :: BoundedTensorSpecProto
x__ y__ :: Maybe TensorProto
y__ -> BoundedTensorSpecProto
x__ {_BoundedTensorSpecProto'minimum :: Maybe TensorProto
_BoundedTensorSpecProto'minimum = 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 BoundedTensorSpecProto "maybe'minimum" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto) where
  fieldOf :: Proxy# "maybe'minimum"
-> (Maybe TensorProto -> f (Maybe TensorProto))
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
fieldOf _
    = ((Maybe TensorProto -> f (Maybe TensorProto))
 -> BoundedTensorSpecProto -> f BoundedTensorSpecProto)
-> ((Maybe TensorProto -> f (Maybe TensorProto))
    -> Maybe TensorProto -> f (Maybe TensorProto))
-> (Maybe TensorProto -> f (Maybe TensorProto))
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BoundedTensorSpecProto -> Maybe TensorProto)
-> (BoundedTensorSpecProto
    -> Maybe TensorProto -> BoundedTensorSpecProto)
-> Lens
     BoundedTensorSpecProto
     BoundedTensorSpecProto
     (Maybe TensorProto)
     (Maybe TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BoundedTensorSpecProto -> Maybe TensorProto
_BoundedTensorSpecProto'minimum
           (\ x__ :: BoundedTensorSpecProto
x__ y__ :: Maybe TensorProto
y__ -> BoundedTensorSpecProto
x__ {_BoundedTensorSpecProto'minimum :: Maybe TensorProto
_BoundedTensorSpecProto'minimum = Maybe TensorProto
y__}))
        (Maybe TensorProto -> f (Maybe TensorProto))
-> Maybe TensorProto -> f (Maybe TensorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BoundedTensorSpecProto "maximum" Proto.Tensorflow.Core.Framework.Tensor.TensorProto where
  fieldOf :: Proxy# "maximum"
-> (TensorProto -> f TensorProto)
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
fieldOf _
    = ((Maybe TensorProto -> f (Maybe TensorProto))
 -> BoundedTensorSpecProto -> f BoundedTensorSpecProto)
-> ((TensorProto -> f TensorProto)
    -> Maybe TensorProto -> f (Maybe TensorProto))
-> (TensorProto -> f TensorProto)
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BoundedTensorSpecProto -> Maybe TensorProto)
-> (BoundedTensorSpecProto
    -> Maybe TensorProto -> BoundedTensorSpecProto)
-> Lens
     BoundedTensorSpecProto
     BoundedTensorSpecProto
     (Maybe TensorProto)
     (Maybe TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BoundedTensorSpecProto -> Maybe TensorProto
_BoundedTensorSpecProto'maximum
           (\ x__ :: BoundedTensorSpecProto
x__ y__ :: Maybe TensorProto
y__ -> BoundedTensorSpecProto
x__ {_BoundedTensorSpecProto'maximum :: Maybe TensorProto
_BoundedTensorSpecProto'maximum = 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 BoundedTensorSpecProto "maybe'maximum" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto) where
  fieldOf :: Proxy# "maybe'maximum"
-> (Maybe TensorProto -> f (Maybe TensorProto))
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
fieldOf _
    = ((Maybe TensorProto -> f (Maybe TensorProto))
 -> BoundedTensorSpecProto -> f BoundedTensorSpecProto)
-> ((Maybe TensorProto -> f (Maybe TensorProto))
    -> Maybe TensorProto -> f (Maybe TensorProto))
-> (Maybe TensorProto -> f (Maybe TensorProto))
-> BoundedTensorSpecProto
-> f BoundedTensorSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BoundedTensorSpecProto -> Maybe TensorProto)
-> (BoundedTensorSpecProto
    -> Maybe TensorProto -> BoundedTensorSpecProto)
-> Lens
     BoundedTensorSpecProto
     BoundedTensorSpecProto
     (Maybe TensorProto)
     (Maybe TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BoundedTensorSpecProto -> Maybe TensorProto
_BoundedTensorSpecProto'maximum
           (\ x__ :: BoundedTensorSpecProto
x__ y__ :: Maybe TensorProto
y__ -> BoundedTensorSpecProto
x__ {_BoundedTensorSpecProto'maximum :: Maybe TensorProto
_BoundedTensorSpecProto'maximum = Maybe TensorProto
y__}))
        (Maybe TensorProto -> f (Maybe TensorProto))
-> Maybe TensorProto -> f (Maybe TensorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BoundedTensorSpecProto where
  messageName :: Proxy BoundedTensorSpecProto -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.BoundedTensorSpecProto"
  packedMessageDescriptor :: Proxy BoundedTensorSpecProto -> ByteString
packedMessageDescriptor _
    = "\n\
      \\SYNBoundedTensorSpecProto\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC22\n\
      \\ENQshape\CAN\STX \SOH(\v2\FS.tensorflow.TensorShapeProtoR\ENQshape\DC2*\n\
      \\ENQdtype\CAN\ETX \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\DC21\n\
      \\aminimum\CAN\EOT \SOH(\v2\ETB.tensorflow.TensorProtoR\aminimum\DC21\n\
      \\amaximum\CAN\ENQ \SOH(\v2\ETB.tensorflow.TensorProtoR\amaximum"
  packedFileDescriptor :: Proxy BoundedTensorSpecProto -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BoundedTensorSpecProto)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor BoundedTensorSpecProto
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BoundedTensorSpecProto Text
-> FieldDescriptor BoundedTensorSpecProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BoundedTensorSpecProto BoundedTensorSpecProto Text Text
-> FieldAccessor BoundedTensorSpecProto Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor BoundedTensorSpecProto
        shape__field_descriptor :: FieldDescriptor BoundedTensorSpecProto
shape__field_descriptor
          = String
-> FieldTypeDescriptor TensorShapeProto
-> FieldAccessor BoundedTensorSpecProto TensorShapeProto
-> FieldDescriptor BoundedTensorSpecProto
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
  BoundedTensorSpecProto
  BoundedTensorSpecProto
  (Maybe TensorShapeProto)
  (Maybe TensorShapeProto)
-> FieldAccessor BoundedTensorSpecProto 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 BoundedTensorSpecProto
        dtype__field_descriptor :: FieldDescriptor BoundedTensorSpecProto
dtype__field_descriptor
          = String
-> FieldTypeDescriptor DataType
-> FieldAccessor BoundedTensorSpecProto DataType
-> FieldDescriptor BoundedTensorSpecProto
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
     BoundedTensorSpecProto BoundedTensorSpecProto DataType DataType
-> FieldAccessor BoundedTensorSpecProto 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 BoundedTensorSpecProto
        minimum__field_descriptor :: FieldDescriptor BoundedTensorSpecProto
minimum__field_descriptor
          = String
-> FieldTypeDescriptor TensorProto
-> FieldAccessor BoundedTensorSpecProto TensorProto
-> FieldDescriptor BoundedTensorSpecProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "minimum"
              (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
  BoundedTensorSpecProto
  BoundedTensorSpecProto
  (Maybe TensorProto)
  (Maybe TensorProto)
-> FieldAccessor BoundedTensorSpecProto TensorProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'minimum" a, Functor f) =>
(a -> f a) -> s -> 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'minimum")) ::
              Data.ProtoLens.FieldDescriptor BoundedTensorSpecProto
        maximum__field_descriptor :: FieldDescriptor BoundedTensorSpecProto
maximum__field_descriptor
          = String
-> FieldTypeDescriptor TensorProto
-> FieldAccessor BoundedTensorSpecProto TensorProto
-> FieldDescriptor BoundedTensorSpecProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "maximum"
              (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
  BoundedTensorSpecProto
  BoundedTensorSpecProto
  (Maybe TensorProto)
  (Maybe TensorProto)
-> FieldAccessor BoundedTensorSpecProto TensorProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'maximum" a, Functor f) =>
(a -> f a) -> s -> 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'maximum")) ::
              Data.ProtoLens.FieldDescriptor BoundedTensorSpecProto
      in
        [(Tag, FieldDescriptor BoundedTensorSpecProto)]
-> Map Tag (FieldDescriptor BoundedTensorSpecProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor BoundedTensorSpecProto
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor BoundedTensorSpecProto
shape__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor BoundedTensorSpecProto
dtype__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor BoundedTensorSpecProto
minimum__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor BoundedTensorSpecProto
maximum__field_descriptor)]
  unknownFields :: LensLike' f BoundedTensorSpecProto FieldSet
unknownFields
    = (BoundedTensorSpecProto -> FieldSet)
-> (BoundedTensorSpecProto -> FieldSet -> BoundedTensorSpecProto)
-> Lens' BoundedTensorSpecProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BoundedTensorSpecProto -> FieldSet
_BoundedTensorSpecProto'_unknownFields
        (\ x__ :: BoundedTensorSpecProto
x__ y__ :: FieldSet
y__ -> BoundedTensorSpecProto
x__ {_BoundedTensorSpecProto'_unknownFields :: FieldSet
_BoundedTensorSpecProto'_unknownFields = FieldSet
y__})
  defMessage :: BoundedTensorSpecProto
defMessage
    = $WBoundedTensorSpecProto'_constructor :: Text
-> Maybe TensorShapeProto
-> DataType
-> Maybe TensorProto
-> Maybe TensorProto
-> FieldSet
-> BoundedTensorSpecProto
BoundedTensorSpecProto'_constructor
        {_BoundedTensorSpecProto'name :: Text
_BoundedTensorSpecProto'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BoundedTensorSpecProto'shape :: Maybe TensorShapeProto
_BoundedTensorSpecProto'shape = Maybe TensorShapeProto
forall a. Maybe a
Prelude.Nothing,
         _BoundedTensorSpecProto'dtype :: DataType
_BoundedTensorSpecProto'dtype = DataType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BoundedTensorSpecProto'minimum :: Maybe TensorProto
_BoundedTensorSpecProto'minimum = Maybe TensorProto
forall a. Maybe a
Prelude.Nothing,
         _BoundedTensorSpecProto'maximum :: Maybe TensorProto
_BoundedTensorSpecProto'maximum = Maybe TensorProto
forall a. Maybe a
Prelude.Nothing,
         _BoundedTensorSpecProto'_unknownFields :: FieldSet
_BoundedTensorSpecProto'_unknownFields = []}
  parseMessage :: Parser BoundedTensorSpecProto
parseMessage
    = let
        loop ::
          BoundedTensorSpecProto
          -> Data.ProtoLens.Encoding.Bytes.Parser BoundedTensorSpecProto
        loop :: BoundedTensorSpecProto -> Parser BoundedTensorSpecProto
loop x :: BoundedTensorSpecProto
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]))))
                      BoundedTensorSpecProto -> Parser BoundedTensorSpecProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  BoundedTensorSpecProto BoundedTensorSpecProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> BoundedTensorSpecProto
-> BoundedTensorSpecProto
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
  BoundedTensorSpecProto BoundedTensorSpecProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) BoundedTensorSpecProto
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))
                                       "name"
                                BoundedTensorSpecProto -> Parser BoundedTensorSpecProto
loop (Setter BoundedTensorSpecProto BoundedTensorSpecProto Text Text
-> Text -> BoundedTensorSpecProto -> BoundedTensorSpecProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y BoundedTensorSpecProto
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"
                                BoundedTensorSpecProto -> Parser BoundedTensorSpecProto
loop (Setter
  BoundedTensorSpecProto
  BoundedTensorSpecProto
  TensorShapeProto
  TensorShapeProto
-> TensorShapeProto
-> BoundedTensorSpecProto
-> BoundedTensorSpecProto
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 BoundedTensorSpecProto
x)
                        24
                          -> 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"
                                BoundedTensorSpecProto -> Parser BoundedTensorSpecProto
loop (Setter
  BoundedTensorSpecProto BoundedTensorSpecProto DataType DataType
-> DataType -> BoundedTensorSpecProto -> BoundedTensorSpecProto
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 BoundedTensorSpecProto
x)
                        34
                          -> 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)
                                       "minimum"
                                BoundedTensorSpecProto -> Parser BoundedTensorSpecProto
loop (Setter
  BoundedTensorSpecProto
  BoundedTensorSpecProto
  TensorProto
  TensorProto
-> TensorProto -> BoundedTensorSpecProto -> BoundedTensorSpecProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "minimum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"minimum") TensorProto
y BoundedTensorSpecProto
x)
                        42
                          -> 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)
                                       "maximum"
                                BoundedTensorSpecProto -> Parser BoundedTensorSpecProto
loop (Setter
  BoundedTensorSpecProto
  BoundedTensorSpecProto
  TensorProto
  TensorProto
-> TensorProto -> BoundedTensorSpecProto -> BoundedTensorSpecProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "maximum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maximum") TensorProto
y BoundedTensorSpecProto
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                BoundedTensorSpecProto -> Parser BoundedTensorSpecProto
loop
                                  (Setter
  BoundedTensorSpecProto BoundedTensorSpecProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> BoundedTensorSpecProto
-> BoundedTensorSpecProto
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
  BoundedTensorSpecProto BoundedTensorSpecProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) BoundedTensorSpecProto
x)
      in
        Parser BoundedTensorSpecProto
-> String -> Parser BoundedTensorSpecProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do BoundedTensorSpecProto -> Parser BoundedTensorSpecProto
loop BoundedTensorSpecProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "BoundedTensorSpecProto"
  buildMessage :: BoundedTensorSpecProto -> Builder
buildMessage
    = \ _x :: BoundedTensorSpecProto
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text BoundedTensorSpecProto BoundedTensorSpecProto Text Text
-> BoundedTensorSpecProto -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") BoundedTensorSpecProto
_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 TensorShapeProto)
  BoundedTensorSpecProto
  BoundedTensorSpecProto
  (Maybe TensorShapeProto)
  (Maybe TensorShapeProto)
-> BoundedTensorSpecProto -> 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") BoundedTensorSpecProto
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: TensorShapeProto
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (TensorShapeProto -> ByteString) -> TensorShapeProto -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             TensorShapeProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             TensorShapeProto
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: DataType
_v = FoldLike
  DataType
  BoundedTensorSpecProto
  BoundedTensorSpecProto
  DataType
  DataType
-> BoundedTensorSpecProto -> 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") BoundedTensorSpecProto
_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 24)
                            ((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 TensorProto)
  BoundedTensorSpecProto
  BoundedTensorSpecProto
  (Maybe TensorProto)
  (Maybe TensorProto)
-> BoundedTensorSpecProto -> 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'minimum" a, Functor f) =>
(a -> f a) -> s -> 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'minimum") BoundedTensorSpecProto
_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 34)
                                ((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.<>)
                         (case
                              FoldLike
  (Maybe TensorProto)
  BoundedTensorSpecProto
  BoundedTensorSpecProto
  (Maybe TensorProto)
  (Maybe TensorProto)
-> BoundedTensorSpecProto -> 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'maximum" a, Functor f) =>
(a -> f a) -> s -> 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'maximum") BoundedTensorSpecProto
_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 42)
                                   ((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))
                         (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                            (FoldLike
  FieldSet
  BoundedTensorSpecProto
  BoundedTensorSpecProto
  FieldSet
  FieldSet
-> BoundedTensorSpecProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  BoundedTensorSpecProto
  BoundedTensorSpecProto
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields BoundedTensorSpecProto
_x))))))
instance Control.DeepSeq.NFData BoundedTensorSpecProto where
  rnf :: BoundedTensorSpecProto -> ()
rnf
    = \ x__ :: BoundedTensorSpecProto
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BoundedTensorSpecProto -> FieldSet
_BoundedTensorSpecProto'_unknownFields BoundedTensorSpecProto
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (BoundedTensorSpecProto -> Text
_BoundedTensorSpecProto'name BoundedTensorSpecProto
x__)
                (Maybe TensorShapeProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (BoundedTensorSpecProto -> Maybe TensorShapeProto
_BoundedTensorSpecProto'shape BoundedTensorSpecProto
x__)
                   (DataType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (BoundedTensorSpecProto -> DataType
_BoundedTensorSpecProto'dtype BoundedTensorSpecProto
x__)
                      (Maybe TensorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (BoundedTensorSpecProto -> Maybe TensorProto
_BoundedTensorSpecProto'minimum BoundedTensorSpecProto
x__)
                         (Maybe TensorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (BoundedTensorSpecProto -> Maybe TensorProto
_BoundedTensorSpecProto'maximum BoundedTensorSpecProto
x__) ())))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.fields' @:: Lens' DictValue (Data.Map.Map Data.Text.Text StructuredValue)@ -}
data DictValue
  = DictValue'_constructor {DictValue -> Map Text StructuredValue
_DictValue'fields :: !(Data.Map.Map Data.Text.Text StructuredValue),
                            DictValue -> FieldSet
_DictValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DictValue -> DictValue -> Bool
(DictValue -> DictValue -> Bool)
-> (DictValue -> DictValue -> Bool) -> Eq DictValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DictValue -> DictValue -> Bool
$c/= :: DictValue -> DictValue -> Bool
== :: DictValue -> DictValue -> Bool
$c== :: DictValue -> DictValue -> Bool
Prelude.Eq, Eq DictValue
Eq DictValue =>
(DictValue -> DictValue -> Ordering)
-> (DictValue -> DictValue -> Bool)
-> (DictValue -> DictValue -> Bool)
-> (DictValue -> DictValue -> Bool)
-> (DictValue -> DictValue -> Bool)
-> (DictValue -> DictValue -> DictValue)
-> (DictValue -> DictValue -> DictValue)
-> Ord DictValue
DictValue -> DictValue -> Bool
DictValue -> DictValue -> Ordering
DictValue -> DictValue -> DictValue
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 :: DictValue -> DictValue -> DictValue
$cmin :: DictValue -> DictValue -> DictValue
max :: DictValue -> DictValue -> DictValue
$cmax :: DictValue -> DictValue -> DictValue
>= :: DictValue -> DictValue -> Bool
$c>= :: DictValue -> DictValue -> Bool
> :: DictValue -> DictValue -> Bool
$c> :: DictValue -> DictValue -> Bool
<= :: DictValue -> DictValue -> Bool
$c<= :: DictValue -> DictValue -> Bool
< :: DictValue -> DictValue -> Bool
$c< :: DictValue -> DictValue -> Bool
compare :: DictValue -> DictValue -> Ordering
$ccompare :: DictValue -> DictValue -> Ordering
$cp1Ord :: Eq DictValue
Prelude.Ord)
instance Prelude.Show DictValue where
  showsPrec :: Int -> DictValue -> ShowS
showsPrec _ __x :: DictValue
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (DictValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DictValue
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DictValue "fields" (Data.Map.Map Data.Text.Text StructuredValue) where
  fieldOf :: Proxy# "fields"
-> (Map Text StructuredValue -> f (Map Text StructuredValue))
-> DictValue
-> f DictValue
fieldOf _
    = ((Map Text StructuredValue -> f (Map Text StructuredValue))
 -> DictValue -> f DictValue)
-> ((Map Text StructuredValue -> f (Map Text StructuredValue))
    -> Map Text StructuredValue -> f (Map Text StructuredValue))
-> (Map Text StructuredValue -> f (Map Text StructuredValue))
-> DictValue
-> f DictValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DictValue -> Map Text StructuredValue)
-> (DictValue -> Map Text StructuredValue -> DictValue)
-> Lens
     DictValue
     DictValue
     (Map Text StructuredValue)
     (Map Text StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DictValue -> Map Text StructuredValue
_DictValue'fields (\ x__ :: DictValue
x__ y__ :: Map Text StructuredValue
y__ -> DictValue
x__ {_DictValue'fields :: Map Text StructuredValue
_DictValue'fields = Map Text StructuredValue
y__}))
        (Map Text StructuredValue -> f (Map Text StructuredValue))
-> Map Text StructuredValue -> f (Map Text StructuredValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DictValue where
  messageName :: Proxy DictValue -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.DictValue"
  packedMessageDescriptor :: Proxy DictValue -> ByteString
packedMessageDescriptor _
    = "\n\
      \\tDictValue\DC29\n\
      \\ACKfields\CAN\SOH \ETX(\v2!.tensorflow.DictValue.FieldsEntryR\ACKfields\SUBV\n\
      \\vFieldsEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC21\n\
      \\ENQvalue\CAN\STX \SOH(\v2\ESC.tensorflow.StructuredValueR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy DictValue -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DictValue)
fieldsByTag
    = let
        fields__field_descriptor :: FieldDescriptor DictValue
fields__field_descriptor
          = String
-> FieldTypeDescriptor DictValue'FieldsEntry
-> FieldAccessor DictValue DictValue'FieldsEntry
-> FieldDescriptor DictValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "fields"
              (MessageOrGroup -> FieldTypeDescriptor DictValue'FieldsEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor DictValue'FieldsEntry)
              (Lens' DictValue'FieldsEntry Text
-> Lens' DictValue'FieldsEntry StructuredValue
-> Lens
     DictValue
     DictValue
     (Map Text StructuredValue)
     (Map Text StructuredValue)
-> FieldAccessor DictValue DictValue'FieldsEntry
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 "fields" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fields")) ::
              Data.ProtoLens.FieldDescriptor DictValue
      in
        [(Tag, FieldDescriptor DictValue)]
-> Map Tag (FieldDescriptor DictValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor DictValue
fields__field_descriptor)]
  unknownFields :: LensLike' f DictValue FieldSet
unknownFields
    = (DictValue -> FieldSet)
-> (DictValue -> FieldSet -> DictValue) -> Lens' DictValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DictValue -> FieldSet
_DictValue'_unknownFields
        (\ x__ :: DictValue
x__ y__ :: FieldSet
y__ -> DictValue
x__ {_DictValue'_unknownFields :: FieldSet
_DictValue'_unknownFields = FieldSet
y__})
  defMessage :: DictValue
defMessage
    = $WDictValue'_constructor :: Map Text StructuredValue -> FieldSet -> DictValue
DictValue'_constructor
        {_DictValue'fields :: Map Text StructuredValue
_DictValue'fields = Map Text StructuredValue
forall k a. Map k a
Data.Map.empty,
         _DictValue'_unknownFields :: FieldSet
_DictValue'_unknownFields = []}
  parseMessage :: Parser DictValue
parseMessage
    = let
        loop :: DictValue -> Data.ProtoLens.Encoding.Bytes.Parser DictValue
        loop :: DictValue -> Parser DictValue
loop x :: DictValue
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]))))
                      DictValue -> Parser DictValue
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter DictValue DictValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DictValue -> DictValue
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 DictValue DictValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) DictValue
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !(DictValue'FieldsEntry
entry :: DictValue'FieldsEntry) <- Parser DictValue'FieldsEntry
-> String -> Parser DictValue'FieldsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                           Int -> Parser DictValue'FieldsEntry -> Parser DictValue'FieldsEntry
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 DictValue'FieldsEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                                                       "fields"
                                (let
                                   key :: Text
key = FoldLike Text DictValue'FieldsEntry DictValue'FieldsEntry Text Text
-> DictValue'FieldsEntry -> 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") DictValue'FieldsEntry
entry
                                   value :: StructuredValue
value
                                     = FoldLike
  StructuredValue
  DictValue'FieldsEntry
  DictValue'FieldsEntry
  StructuredValue
  StructuredValue
-> DictValue'FieldsEntry -> StructuredValue
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") DictValue'FieldsEntry
entry
                                 in
                                   DictValue -> Parser DictValue
loop
                                     (Setter
  DictValue
  DictValue
  (Map Text StructuredValue)
  (Map Text StructuredValue)
-> (Map Text StructuredValue -> Map Text StructuredValue)
-> DictValue
-> DictValue
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                        (forall s a (f :: * -> *).
(HasField s "fields" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fields")
                                        (\ !Map Text StructuredValue
t -> Text
-> StructuredValue
-> Map Text StructuredValue
-> Map Text StructuredValue
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key StructuredValue
value Map Text StructuredValue
t)
                                        DictValue
x))
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                DictValue -> Parser DictValue
loop
                                  (Setter DictValue DictValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DictValue -> DictValue
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 DictValue DictValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DictValue
x)
      in
        Parser DictValue -> String -> Parser DictValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DictValue -> Parser DictValue
loop DictValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "DictValue"
  buildMessage :: DictValue -> Builder
buildMessage
    = \ _x :: DictValue
_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, StructuredValue) -> Builder)
-> [(Text, StructuredValue)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                   (\ _v :: (Text, StructuredValue)
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                           ((ByteString -> Builder)
-> (DictValue'FieldsEntry -> ByteString)
-> DictValue'FieldsEntry
-> 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))
                              DictValue'FieldsEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              (Setter DictValue'FieldsEntry DictValue'FieldsEntry Text Text
-> Text -> DictValue'FieldsEntry -> DictValue'FieldsEntry
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, StructuredValue) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, StructuredValue)
_v)
                                 (Setter
  DictValue'FieldsEntry
  DictValue'FieldsEntry
  StructuredValue
  StructuredValue
-> StructuredValue
-> DictValue'FieldsEntry
-> DictValue'FieldsEntry
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, StructuredValue) -> StructuredValue
forall a b. (a, b) -> b
Prelude.snd (Text, StructuredValue)
_v)
                                    (DictValue'FieldsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: DictValue'FieldsEntry)))))
                   (Map Text StructuredValue -> [(Text, StructuredValue)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                      (FoldLike
  (Map Text StructuredValue)
  DictValue
  DictValue
  (Map Text StructuredValue)
  (Map Text StructuredValue)
-> DictValue -> Map Text StructuredValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "fields" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fields") DictValue
_x))))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet DictValue DictValue FieldSet FieldSet
-> DictValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet DictValue DictValue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DictValue
_x))
instance Control.DeepSeq.NFData DictValue where
  rnf :: DictValue -> ()
rnf
    = \ x__ :: DictValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DictValue -> FieldSet
_DictValue'_unknownFields DictValue
x__)
             (Map Text StructuredValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DictValue -> Map Text StructuredValue
_DictValue'fields DictValue
x__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.key' @:: Lens' DictValue'FieldsEntry Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.value' @:: Lens' DictValue'FieldsEntry StructuredValue@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'value' @:: Lens' DictValue'FieldsEntry (Prelude.Maybe StructuredValue)@ -}
data DictValue'FieldsEntry
  = DictValue'FieldsEntry'_constructor {DictValue'FieldsEntry -> Text
_DictValue'FieldsEntry'key :: !Data.Text.Text,
                                        DictValue'FieldsEntry -> Maybe StructuredValue
_DictValue'FieldsEntry'value :: !(Prelude.Maybe StructuredValue),
                                        DictValue'FieldsEntry -> FieldSet
_DictValue'FieldsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
(DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool)
-> (DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool)
-> Eq DictValue'FieldsEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
$c/= :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
== :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
$c== :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
Prelude.Eq, Eq DictValue'FieldsEntry
Eq DictValue'FieldsEntry =>
(DictValue'FieldsEntry -> DictValue'FieldsEntry -> Ordering)
-> (DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool)
-> (DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool)
-> (DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool)
-> (DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool)
-> (DictValue'FieldsEntry
    -> DictValue'FieldsEntry -> DictValue'FieldsEntry)
-> (DictValue'FieldsEntry
    -> DictValue'FieldsEntry -> DictValue'FieldsEntry)
-> Ord DictValue'FieldsEntry
DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
DictValue'FieldsEntry -> DictValue'FieldsEntry -> Ordering
DictValue'FieldsEntry
-> DictValue'FieldsEntry -> DictValue'FieldsEntry
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 :: DictValue'FieldsEntry
-> DictValue'FieldsEntry -> DictValue'FieldsEntry
$cmin :: DictValue'FieldsEntry
-> DictValue'FieldsEntry -> DictValue'FieldsEntry
max :: DictValue'FieldsEntry
-> DictValue'FieldsEntry -> DictValue'FieldsEntry
$cmax :: DictValue'FieldsEntry
-> DictValue'FieldsEntry -> DictValue'FieldsEntry
>= :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
$c>= :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
> :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
$c> :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
<= :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
$c<= :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
< :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
$c< :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Bool
compare :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Ordering
$ccompare :: DictValue'FieldsEntry -> DictValue'FieldsEntry -> Ordering
$cp1Ord :: Eq DictValue'FieldsEntry
Prelude.Ord)
instance Prelude.Show DictValue'FieldsEntry where
  showsPrec :: Int -> DictValue'FieldsEntry -> ShowS
showsPrec _ __x :: DictValue'FieldsEntry
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (DictValue'FieldsEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DictValue'FieldsEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DictValue'FieldsEntry "key" Data.Text.Text where
  fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> DictValue'FieldsEntry
-> f DictValue'FieldsEntry
fieldOf _
    = ((Text -> f Text)
 -> DictValue'FieldsEntry -> f DictValue'FieldsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DictValue'FieldsEntry
-> f DictValue'FieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DictValue'FieldsEntry -> Text)
-> (DictValue'FieldsEntry -> Text -> DictValue'FieldsEntry)
-> Lens' DictValue'FieldsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DictValue'FieldsEntry -> Text
_DictValue'FieldsEntry'key
           (\ x__ :: DictValue'FieldsEntry
x__ y__ :: Text
y__ -> DictValue'FieldsEntry
x__ {_DictValue'FieldsEntry'key :: Text
_DictValue'FieldsEntry'key = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DictValue'FieldsEntry "value" StructuredValue where
  fieldOf :: Proxy# "value"
-> (StructuredValue -> f StructuredValue)
-> DictValue'FieldsEntry
-> f DictValue'FieldsEntry
fieldOf _
    = ((Maybe StructuredValue -> f (Maybe StructuredValue))
 -> DictValue'FieldsEntry -> f DictValue'FieldsEntry)
-> ((StructuredValue -> f StructuredValue)
    -> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (StructuredValue -> f StructuredValue)
-> DictValue'FieldsEntry
-> f DictValue'FieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DictValue'FieldsEntry -> Maybe StructuredValue)
-> (DictValue'FieldsEntry
    -> Maybe StructuredValue -> DictValue'FieldsEntry)
-> Lens
     DictValue'FieldsEntry
     DictValue'FieldsEntry
     (Maybe StructuredValue)
     (Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DictValue'FieldsEntry -> Maybe StructuredValue
_DictValue'FieldsEntry'value
           (\ x__ :: DictValue'FieldsEntry
x__ y__ :: Maybe StructuredValue
y__ -> DictValue'FieldsEntry
x__ {_DictValue'FieldsEntry'value :: Maybe StructuredValue
_DictValue'FieldsEntry'value = Maybe StructuredValue
y__}))
        (StructuredValue -> Lens' (Maybe StructuredValue) StructuredValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StructuredValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DictValue'FieldsEntry "maybe'value" (Prelude.Maybe StructuredValue) where
  fieldOf :: Proxy# "maybe'value"
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> DictValue'FieldsEntry
-> f DictValue'FieldsEntry
fieldOf _
    = ((Maybe StructuredValue -> f (Maybe StructuredValue))
 -> DictValue'FieldsEntry -> f DictValue'FieldsEntry)
-> ((Maybe StructuredValue -> f (Maybe StructuredValue))
    -> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> DictValue'FieldsEntry
-> f DictValue'FieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DictValue'FieldsEntry -> Maybe StructuredValue)
-> (DictValue'FieldsEntry
    -> Maybe StructuredValue -> DictValue'FieldsEntry)
-> Lens
     DictValue'FieldsEntry
     DictValue'FieldsEntry
     (Maybe StructuredValue)
     (Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DictValue'FieldsEntry -> Maybe StructuredValue
_DictValue'FieldsEntry'value
           (\ x__ :: DictValue'FieldsEntry
x__ y__ :: Maybe StructuredValue
y__ -> DictValue'FieldsEntry
x__ {_DictValue'FieldsEntry'value :: Maybe StructuredValue
_DictValue'FieldsEntry'value = Maybe StructuredValue
y__}))
        (Maybe StructuredValue -> f (Maybe StructuredValue))
-> Maybe StructuredValue -> f (Maybe StructuredValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DictValue'FieldsEntry where
  messageName :: Proxy DictValue'FieldsEntry -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.DictValue.FieldsEntry"
  packedMessageDescriptor :: Proxy DictValue'FieldsEntry -> ByteString
packedMessageDescriptor _
    = "\n\
      \\vFieldsEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC21\n\
      \\ENQvalue\CAN\STX \SOH(\v2\ESC.tensorflow.StructuredValueR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy DictValue'FieldsEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DictValue'FieldsEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor DictValue'FieldsEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DictValue'FieldsEntry Text
-> FieldDescriptor DictValue'FieldsEntry
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' DictValue'FieldsEntry Text
-> FieldAccessor DictValue'FieldsEntry 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 DictValue'FieldsEntry
        value__field_descriptor :: FieldDescriptor DictValue'FieldsEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor StructuredValue
-> FieldAccessor DictValue'FieldsEntry StructuredValue
-> FieldDescriptor DictValue'FieldsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (MessageOrGroup -> FieldTypeDescriptor StructuredValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StructuredValue)
              (Lens
  DictValue'FieldsEntry
  DictValue'FieldsEntry
  (Maybe StructuredValue)
  (Maybe StructuredValue)
-> FieldAccessor DictValue'FieldsEntry StructuredValue
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 DictValue'FieldsEntry
      in
        [(Tag, FieldDescriptor DictValue'FieldsEntry)]
-> Map Tag (FieldDescriptor DictValue'FieldsEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor DictValue'FieldsEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor DictValue'FieldsEntry
value__field_descriptor)]
  unknownFields :: LensLike' f DictValue'FieldsEntry FieldSet
unknownFields
    = (DictValue'FieldsEntry -> FieldSet)
-> (DictValue'FieldsEntry -> FieldSet -> DictValue'FieldsEntry)
-> Lens' DictValue'FieldsEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DictValue'FieldsEntry -> FieldSet
_DictValue'FieldsEntry'_unknownFields
        (\ x__ :: DictValue'FieldsEntry
x__ y__ :: FieldSet
y__ -> DictValue'FieldsEntry
x__ {_DictValue'FieldsEntry'_unknownFields :: FieldSet
_DictValue'FieldsEntry'_unknownFields = FieldSet
y__})
  defMessage :: DictValue'FieldsEntry
defMessage
    = $WDictValue'FieldsEntry'_constructor :: Text -> Maybe StructuredValue -> FieldSet -> DictValue'FieldsEntry
DictValue'FieldsEntry'_constructor
        {_DictValue'FieldsEntry'key :: Text
_DictValue'FieldsEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DictValue'FieldsEntry'value :: Maybe StructuredValue
_DictValue'FieldsEntry'value = Maybe StructuredValue
forall a. Maybe a
Prelude.Nothing,
         _DictValue'FieldsEntry'_unknownFields :: FieldSet
_DictValue'FieldsEntry'_unknownFields = []}
  parseMessage :: Parser DictValue'FieldsEntry
parseMessage
    = let
        loop ::
          DictValue'FieldsEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser DictValue'FieldsEntry
        loop :: DictValue'FieldsEntry -> Parser DictValue'FieldsEntry
loop x :: DictValue'FieldsEntry
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]))))
                      DictValue'FieldsEntry -> Parser DictValue'FieldsEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  DictValue'FieldsEntry DictValue'FieldsEntry FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> DictValue'FieldsEntry
-> DictValue'FieldsEntry
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
  DictValue'FieldsEntry DictValue'FieldsEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) DictValue'FieldsEntry
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"
                                DictValue'FieldsEntry -> Parser DictValue'FieldsEntry
loop (Setter DictValue'FieldsEntry DictValue'FieldsEntry Text Text
-> Text -> DictValue'FieldsEntry -> DictValue'FieldsEntry
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 DictValue'FieldsEntry
x)
                        18
                          -> do StructuredValue
y <- Parser StructuredValue -> String -> Parser StructuredValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser StructuredValue -> Parser StructuredValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser StructuredValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "value"
                                DictValue'FieldsEntry -> Parser DictValue'FieldsEntry
loop (Setter
  DictValue'FieldsEntry
  DictValue'FieldsEntry
  StructuredValue
  StructuredValue
-> StructuredValue
-> DictValue'FieldsEntry
-> DictValue'FieldsEntry
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") StructuredValue
y DictValue'FieldsEntry
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                DictValue'FieldsEntry -> Parser DictValue'FieldsEntry
loop
                                  (Setter
  DictValue'FieldsEntry DictValue'FieldsEntry FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> DictValue'FieldsEntry
-> DictValue'FieldsEntry
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
  DictValue'FieldsEntry DictValue'FieldsEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DictValue'FieldsEntry
x)
      in
        Parser DictValue'FieldsEntry
-> String -> Parser DictValue'FieldsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DictValue'FieldsEntry -> Parser DictValue'FieldsEntry
loop DictValue'FieldsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "FieldsEntry"
  buildMessage :: DictValue'FieldsEntry -> Builder
buildMessage
    = \ _x :: DictValue'FieldsEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text DictValue'FieldsEntry DictValue'FieldsEntry Text Text
-> DictValue'FieldsEntry -> 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") DictValue'FieldsEntry
_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 StructuredValue)
  DictValue'FieldsEntry
  DictValue'FieldsEntry
  (Maybe StructuredValue)
  (Maybe StructuredValue)
-> DictValue'FieldsEntry -> Maybe StructuredValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'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") DictValue'FieldsEntry
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: StructuredValue
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (StructuredValue -> ByteString) -> StructuredValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             StructuredValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             StructuredValue
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  DictValue'FieldsEntry
  DictValue'FieldsEntry
  FieldSet
  FieldSet
-> DictValue'FieldsEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  DictValue'FieldsEntry
  DictValue'FieldsEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DictValue'FieldsEntry
_x)))
instance Control.DeepSeq.NFData DictValue'FieldsEntry where
  rnf :: DictValue'FieldsEntry -> ()
rnf
    = \ x__ :: DictValue'FieldsEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DictValue'FieldsEntry -> FieldSet
_DictValue'FieldsEntry'_unknownFields DictValue'FieldsEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DictValue'FieldsEntry -> Text
_DictValue'FieldsEntry'key DictValue'FieldsEntry
x__)
                (Maybe StructuredValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DictValue'FieldsEntry -> Maybe StructuredValue
_DictValue'FieldsEntry'value DictValue'FieldsEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.values' @:: Lens' ListValue [StructuredValue]@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.vec'values' @:: Lens' ListValue (Data.Vector.Vector StructuredValue)@ -}
data ListValue
  = ListValue'_constructor {ListValue -> Vector StructuredValue
_ListValue'values :: !(Data.Vector.Vector StructuredValue),
                            ListValue -> FieldSet
_ListValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ListValue -> ListValue -> Bool
(ListValue -> ListValue -> Bool)
-> (ListValue -> ListValue -> Bool) -> Eq ListValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListValue -> ListValue -> Bool
$c/= :: ListValue -> ListValue -> Bool
== :: ListValue -> ListValue -> Bool
$c== :: ListValue -> ListValue -> Bool
Prelude.Eq, Eq ListValue
Eq ListValue =>
(ListValue -> ListValue -> Ordering)
-> (ListValue -> ListValue -> Bool)
-> (ListValue -> ListValue -> Bool)
-> (ListValue -> ListValue -> Bool)
-> (ListValue -> ListValue -> Bool)
-> (ListValue -> ListValue -> ListValue)
-> (ListValue -> ListValue -> ListValue)
-> Ord ListValue
ListValue -> ListValue -> Bool
ListValue -> ListValue -> Ordering
ListValue -> ListValue -> ListValue
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 :: ListValue -> ListValue -> ListValue
$cmin :: ListValue -> ListValue -> ListValue
max :: ListValue -> ListValue -> ListValue
$cmax :: ListValue -> ListValue -> ListValue
>= :: ListValue -> ListValue -> Bool
$c>= :: ListValue -> ListValue -> Bool
> :: ListValue -> ListValue -> Bool
$c> :: ListValue -> ListValue -> Bool
<= :: ListValue -> ListValue -> Bool
$c<= :: ListValue -> ListValue -> Bool
< :: ListValue -> ListValue -> Bool
$c< :: ListValue -> ListValue -> Bool
compare :: ListValue -> ListValue -> Ordering
$ccompare :: ListValue -> ListValue -> Ordering
$cp1Ord :: Eq ListValue
Prelude.Ord)
instance Prelude.Show ListValue where
  showsPrec :: Int -> ListValue -> ShowS
showsPrec _ __x :: ListValue
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (ListValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ListValue
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ListValue "values" [StructuredValue] where
  fieldOf :: Proxy# "values"
-> ([StructuredValue] -> f [StructuredValue])
-> ListValue
-> f ListValue
fieldOf _
    = ((Vector StructuredValue -> f (Vector StructuredValue))
 -> ListValue -> f ListValue)
-> (([StructuredValue] -> f [StructuredValue])
    -> Vector StructuredValue -> f (Vector StructuredValue))
-> ([StructuredValue] -> f [StructuredValue])
-> ListValue
-> f ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListValue -> Vector StructuredValue)
-> (ListValue -> Vector StructuredValue -> ListValue)
-> Lens
     ListValue
     ListValue
     (Vector StructuredValue)
     (Vector StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListValue -> Vector StructuredValue
_ListValue'values (\ x__ :: ListValue
x__ y__ :: Vector StructuredValue
y__ -> ListValue
x__ {_ListValue'values :: Vector StructuredValue
_ListValue'values = Vector StructuredValue
y__}))
        ((Vector StructuredValue -> [StructuredValue])
-> (Vector StructuredValue
    -> [StructuredValue] -> Vector StructuredValue)
-> Lens
     (Vector StructuredValue)
     (Vector StructuredValue)
     [StructuredValue]
     [StructuredValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector StructuredValue -> [StructuredValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [StructuredValue]
y__ -> [StructuredValue] -> Vector StructuredValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [StructuredValue]
y__))
instance Data.ProtoLens.Field.HasField ListValue "vec'values" (Data.Vector.Vector StructuredValue) where
  fieldOf :: Proxy# "vec'values"
-> (Vector StructuredValue -> f (Vector StructuredValue))
-> ListValue
-> f ListValue
fieldOf _
    = ((Vector StructuredValue -> f (Vector StructuredValue))
 -> ListValue -> f ListValue)
-> ((Vector StructuredValue -> f (Vector StructuredValue))
    -> Vector StructuredValue -> f (Vector StructuredValue))
-> (Vector StructuredValue -> f (Vector StructuredValue))
-> ListValue
-> f ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListValue -> Vector StructuredValue)
-> (ListValue -> Vector StructuredValue -> ListValue)
-> Lens
     ListValue
     ListValue
     (Vector StructuredValue)
     (Vector StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListValue -> Vector StructuredValue
_ListValue'values (\ x__ :: ListValue
x__ y__ :: Vector StructuredValue
y__ -> ListValue
x__ {_ListValue'values :: Vector StructuredValue
_ListValue'values = Vector StructuredValue
y__}))
        (Vector StructuredValue -> f (Vector StructuredValue))
-> Vector StructuredValue -> f (Vector StructuredValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ListValue where
  messageName :: Proxy ListValue -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.ListValue"
  packedMessageDescriptor :: Proxy ListValue -> ByteString
packedMessageDescriptor _
    = "\n\
      \\tListValue\DC23\n\
      \\ACKvalues\CAN\SOH \ETX(\v2\ESC.tensorflow.StructuredValueR\ACKvalues"
  packedFileDescriptor :: Proxy ListValue -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ListValue)
fieldsByTag
    = let
        values__field_descriptor :: FieldDescriptor ListValue
values__field_descriptor
          = String
-> FieldTypeDescriptor StructuredValue
-> FieldAccessor ListValue StructuredValue
-> FieldDescriptor ListValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "values"
              (MessageOrGroup -> FieldTypeDescriptor StructuredValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StructuredValue)
              (Packing
-> Lens' ListValue [StructuredValue]
-> FieldAccessor ListValue StructuredValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "values" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"values")) ::
              Data.ProtoLens.FieldDescriptor ListValue
      in
        [(Tag, FieldDescriptor ListValue)]
-> Map Tag (FieldDescriptor ListValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ListValue
values__field_descriptor)]
  unknownFields :: LensLike' f ListValue FieldSet
unknownFields
    = (ListValue -> FieldSet)
-> (ListValue -> FieldSet -> ListValue) -> Lens' ListValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ListValue -> FieldSet
_ListValue'_unknownFields
        (\ x__ :: ListValue
x__ y__ :: FieldSet
y__ -> ListValue
x__ {_ListValue'_unknownFields :: FieldSet
_ListValue'_unknownFields = FieldSet
y__})
  defMessage :: ListValue
defMessage
    = $WListValue'_constructor :: Vector StructuredValue -> FieldSet -> ListValue
ListValue'_constructor
        {_ListValue'values :: Vector StructuredValue
_ListValue'values = Vector StructuredValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ListValue'_unknownFields :: FieldSet
_ListValue'_unknownFields = []}
  parseMessage :: Parser ListValue
parseMessage
    = let
        loop ::
          ListValue
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld StructuredValue
             -> Data.ProtoLens.Encoding.Bytes.Parser ListValue
        loop :: ListValue
-> Growing Vector RealWorld StructuredValue -> Parser ListValue
loop x :: ListValue
x mutable'values :: Growing Vector RealWorld StructuredValue
mutable'values
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector StructuredValue
frozen'values <- IO (Vector StructuredValue) -> Parser (Vector StructuredValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) StructuredValue
-> IO (Vector StructuredValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld StructuredValue
Growing Vector (PrimState IO) StructuredValue
mutable'values)
                      (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]))))
                      ListValue -> Parser ListValue
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ListValue ListValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ListValue -> ListValue
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 ListValue ListValue FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ListValue
  ListValue
  (Vector StructuredValue)
  (Vector StructuredValue)
-> Vector StructuredValue -> ListValue -> ListValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'values" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'values") Vector StructuredValue
frozen'values ListValue
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !StructuredValue
y <- Parser StructuredValue -> String -> Parser StructuredValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser StructuredValue -> Parser StructuredValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser StructuredValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "values"
                                Growing Vector RealWorld StructuredValue
v <- IO (Growing Vector RealWorld StructuredValue)
-> Parser (Growing Vector RealWorld StructuredValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) StructuredValue
-> StructuredValue
-> IO (Growing Vector (PrimState IO) StructuredValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld StructuredValue
Growing Vector (PrimState IO) StructuredValue
mutable'values StructuredValue
y)
                                ListValue
-> Growing Vector RealWorld StructuredValue -> Parser ListValue
loop ListValue
x Growing Vector RealWorld StructuredValue
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ListValue
-> Growing Vector RealWorld StructuredValue -> Parser ListValue
loop
                                  (Setter ListValue ListValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ListValue -> ListValue
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 ListValue ListValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ListValue
x)
                                  Growing Vector RealWorld StructuredValue
mutable'values
      in
        Parser ListValue -> String -> Parser ListValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld StructuredValue
mutable'values <- IO (Growing Vector RealWorld StructuredValue)
-> Parser (Growing Vector RealWorld StructuredValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld StructuredValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ListValue
-> Growing Vector RealWorld StructuredValue -> Parser ListValue
loop ListValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld StructuredValue
mutable'values)
          "ListValue"
  buildMessage :: ListValue -> Builder
buildMessage
    = \ _x :: ListValue
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((StructuredValue -> Builder) -> Vector StructuredValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: StructuredValue
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder)
-> (StructuredValue -> ByteString) -> StructuredValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           StructuredValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           StructuredValue
_v))
                (FoldLike
  (Vector StructuredValue)
  ListValue
  ListValue
  (Vector StructuredValue)
  (Vector StructuredValue)
-> ListValue -> Vector StructuredValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'values" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'values") ListValue
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet ListValue ListValue FieldSet FieldSet
-> ListValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ListValue ListValue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ListValue
_x))
instance Control.DeepSeq.NFData ListValue where
  rnf :: ListValue -> ()
rnf
    = \ x__ :: ListValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ListValue -> FieldSet
_ListValue'_unknownFields ListValue
x__)
             (Vector StructuredValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ListValue -> Vector StructuredValue
_ListValue'values ListValue
x__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.name' @:: Lens' NamedTupleValue Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.values' @:: Lens' NamedTupleValue [PairValue]@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.vec'values' @:: Lens' NamedTupleValue (Data.Vector.Vector PairValue)@ -}
data NamedTupleValue
  = NamedTupleValue'_constructor {NamedTupleValue -> Text
_NamedTupleValue'name :: !Data.Text.Text,
                                  NamedTupleValue -> Vector PairValue
_NamedTupleValue'values :: !(Data.Vector.Vector PairValue),
                                  NamedTupleValue -> FieldSet
_NamedTupleValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NamedTupleValue -> NamedTupleValue -> Bool
(NamedTupleValue -> NamedTupleValue -> Bool)
-> (NamedTupleValue -> NamedTupleValue -> Bool)
-> Eq NamedTupleValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: NamedTupleValue -> NamedTupleValue -> Bool
$c/= :: NamedTupleValue -> NamedTupleValue -> Bool
== :: NamedTupleValue -> NamedTupleValue -> Bool
$c== :: NamedTupleValue -> NamedTupleValue -> Bool
Prelude.Eq, Eq NamedTupleValue
Eq NamedTupleValue =>
(NamedTupleValue -> NamedTupleValue -> Ordering)
-> (NamedTupleValue -> NamedTupleValue -> Bool)
-> (NamedTupleValue -> NamedTupleValue -> Bool)
-> (NamedTupleValue -> NamedTupleValue -> Bool)
-> (NamedTupleValue -> NamedTupleValue -> Bool)
-> (NamedTupleValue -> NamedTupleValue -> NamedTupleValue)
-> (NamedTupleValue -> NamedTupleValue -> NamedTupleValue)
-> Ord NamedTupleValue
NamedTupleValue -> NamedTupleValue -> Bool
NamedTupleValue -> NamedTupleValue -> Ordering
NamedTupleValue -> NamedTupleValue -> NamedTupleValue
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 :: NamedTupleValue -> NamedTupleValue -> NamedTupleValue
$cmin :: NamedTupleValue -> NamedTupleValue -> NamedTupleValue
max :: NamedTupleValue -> NamedTupleValue -> NamedTupleValue
$cmax :: NamedTupleValue -> NamedTupleValue -> NamedTupleValue
>= :: NamedTupleValue -> NamedTupleValue -> Bool
$c>= :: NamedTupleValue -> NamedTupleValue -> Bool
> :: NamedTupleValue -> NamedTupleValue -> Bool
$c> :: NamedTupleValue -> NamedTupleValue -> Bool
<= :: NamedTupleValue -> NamedTupleValue -> Bool
$c<= :: NamedTupleValue -> NamedTupleValue -> Bool
< :: NamedTupleValue -> NamedTupleValue -> Bool
$c< :: NamedTupleValue -> NamedTupleValue -> Bool
compare :: NamedTupleValue -> NamedTupleValue -> Ordering
$ccompare :: NamedTupleValue -> NamedTupleValue -> Ordering
$cp1Ord :: Eq NamedTupleValue
Prelude.Ord)
instance Prelude.Show NamedTupleValue where
  showsPrec :: Int -> NamedTupleValue -> ShowS
showsPrec _ __x :: NamedTupleValue
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (NamedTupleValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NamedTupleValue
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField NamedTupleValue "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text) -> NamedTupleValue -> f NamedTupleValue
fieldOf _
    = ((Text -> f Text) -> NamedTupleValue -> f NamedTupleValue)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamedTupleValue
-> f NamedTupleValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamedTupleValue -> Text)
-> (NamedTupleValue -> Text -> NamedTupleValue)
-> Lens NamedTupleValue NamedTupleValue Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamedTupleValue -> Text
_NamedTupleValue'name
           (\ x__ :: NamedTupleValue
x__ y__ :: Text
y__ -> NamedTupleValue
x__ {_NamedTupleValue'name :: Text
_NamedTupleValue'name = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamedTupleValue "values" [PairValue] where
  fieldOf :: Proxy# "values"
-> ([PairValue] -> f [PairValue])
-> NamedTupleValue
-> f NamedTupleValue
fieldOf _
    = ((Vector PairValue -> f (Vector PairValue))
 -> NamedTupleValue -> f NamedTupleValue)
-> (([PairValue] -> f [PairValue])
    -> Vector PairValue -> f (Vector PairValue))
-> ([PairValue] -> f [PairValue])
-> NamedTupleValue
-> f NamedTupleValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamedTupleValue -> Vector PairValue)
-> (NamedTupleValue -> Vector PairValue -> NamedTupleValue)
-> Lens
     NamedTupleValue
     NamedTupleValue
     (Vector PairValue)
     (Vector PairValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamedTupleValue -> Vector PairValue
_NamedTupleValue'values
           (\ x__ :: NamedTupleValue
x__ y__ :: Vector PairValue
y__ -> NamedTupleValue
x__ {_NamedTupleValue'values :: Vector PairValue
_NamedTupleValue'values = Vector PairValue
y__}))
        ((Vector PairValue -> [PairValue])
-> (Vector PairValue -> [PairValue] -> Vector PairValue)
-> Lens
     (Vector PairValue) (Vector PairValue) [PairValue] [PairValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector PairValue -> [PairValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [PairValue]
y__ -> [PairValue] -> Vector PairValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [PairValue]
y__))
instance Data.ProtoLens.Field.HasField NamedTupleValue "vec'values" (Data.Vector.Vector PairValue) where
  fieldOf :: Proxy# "vec'values"
-> (Vector PairValue -> f (Vector PairValue))
-> NamedTupleValue
-> f NamedTupleValue
fieldOf _
    = ((Vector PairValue -> f (Vector PairValue))
 -> NamedTupleValue -> f NamedTupleValue)
-> ((Vector PairValue -> f (Vector PairValue))
    -> Vector PairValue -> f (Vector PairValue))
-> (Vector PairValue -> f (Vector PairValue))
-> NamedTupleValue
-> f NamedTupleValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamedTupleValue -> Vector PairValue)
-> (NamedTupleValue -> Vector PairValue -> NamedTupleValue)
-> Lens
     NamedTupleValue
     NamedTupleValue
     (Vector PairValue)
     (Vector PairValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamedTupleValue -> Vector PairValue
_NamedTupleValue'values
           (\ x__ :: NamedTupleValue
x__ y__ :: Vector PairValue
y__ -> NamedTupleValue
x__ {_NamedTupleValue'values :: Vector PairValue
_NamedTupleValue'values = Vector PairValue
y__}))
        (Vector PairValue -> f (Vector PairValue))
-> Vector PairValue -> f (Vector PairValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NamedTupleValue where
  messageName :: Proxy NamedTupleValue -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.NamedTupleValue"
  packedMessageDescriptor :: Proxy NamedTupleValue -> ByteString
packedMessageDescriptor _
    = "\n\
      \\SINamedTupleValue\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2-\n\
      \\ACKvalues\CAN\STX \ETX(\v2\NAK.tensorflow.PairValueR\ACKvalues"
  packedFileDescriptor :: Proxy NamedTupleValue -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NamedTupleValue)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor NamedTupleValue
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamedTupleValue Text
-> FieldDescriptor NamedTupleValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens NamedTupleValue NamedTupleValue Text Text
-> FieldAccessor NamedTupleValue Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor NamedTupleValue
        values__field_descriptor :: FieldDescriptor NamedTupleValue
values__field_descriptor
          = String
-> FieldTypeDescriptor PairValue
-> FieldAccessor NamedTupleValue PairValue
-> FieldDescriptor NamedTupleValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "values"
              (MessageOrGroup -> FieldTypeDescriptor PairValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PairValue)
              (Packing
-> Lens' NamedTupleValue [PairValue]
-> FieldAccessor NamedTupleValue PairValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "values" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"values")) ::
              Data.ProtoLens.FieldDescriptor NamedTupleValue
      in
        [(Tag, FieldDescriptor NamedTupleValue)]
-> Map Tag (FieldDescriptor NamedTupleValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor NamedTupleValue
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor NamedTupleValue
values__field_descriptor)]
  unknownFields :: LensLike' f NamedTupleValue FieldSet
unknownFields
    = (NamedTupleValue -> FieldSet)
-> (NamedTupleValue -> FieldSet -> NamedTupleValue)
-> Lens' NamedTupleValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NamedTupleValue -> FieldSet
_NamedTupleValue'_unknownFields
        (\ x__ :: NamedTupleValue
x__ y__ :: FieldSet
y__ -> NamedTupleValue
x__ {_NamedTupleValue'_unknownFields :: FieldSet
_NamedTupleValue'_unknownFields = FieldSet
y__})
  defMessage :: NamedTupleValue
defMessage
    = $WNamedTupleValue'_constructor :: Text -> Vector PairValue -> FieldSet -> NamedTupleValue
NamedTupleValue'_constructor
        {_NamedTupleValue'name :: Text
_NamedTupleValue'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamedTupleValue'values :: Vector PairValue
_NamedTupleValue'values = Vector PairValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _NamedTupleValue'_unknownFields :: FieldSet
_NamedTupleValue'_unknownFields = []}
  parseMessage :: Parser NamedTupleValue
parseMessage
    = let
        loop ::
          NamedTupleValue
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PairValue
             -> Data.ProtoLens.Encoding.Bytes.Parser NamedTupleValue
        loop :: NamedTupleValue
-> Growing Vector RealWorld PairValue -> Parser NamedTupleValue
loop x :: NamedTupleValue
x mutable'values :: Growing Vector RealWorld PairValue
mutable'values
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector PairValue
frozen'values <- IO (Vector PairValue) -> Parser (Vector PairValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) PairValue -> IO (Vector PairValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld PairValue
Growing Vector (PrimState IO) PairValue
mutable'values)
                      (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]))))
                      NamedTupleValue -> Parser NamedTupleValue
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter NamedTupleValue NamedTupleValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NamedTupleValue -> NamedTupleValue
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 NamedTupleValue NamedTupleValue FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  NamedTupleValue
  NamedTupleValue
  (Vector PairValue)
  (Vector PairValue)
-> Vector PairValue -> NamedTupleValue -> NamedTupleValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'values" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'values") Vector PairValue
frozen'values NamedTupleValue
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))
                                       "name"
                                NamedTupleValue
-> Growing Vector RealWorld PairValue -> Parser NamedTupleValue
loop
                                  (Setter NamedTupleValue NamedTupleValue Text Text
-> Text -> NamedTupleValue -> NamedTupleValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y NamedTupleValue
x)
                                  Growing Vector RealWorld PairValue
mutable'values
                        18
                          -> do !PairValue
y <- Parser PairValue -> String -> Parser PairValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser PairValue -> Parser PairValue
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 PairValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "values"
                                Growing Vector RealWorld PairValue
v <- IO (Growing Vector RealWorld PairValue)
-> Parser (Growing Vector RealWorld PairValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) PairValue
-> PairValue -> IO (Growing Vector (PrimState IO) PairValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld PairValue
Growing Vector (PrimState IO) PairValue
mutable'values PairValue
y)
                                NamedTupleValue
-> Growing Vector RealWorld PairValue -> Parser NamedTupleValue
loop NamedTupleValue
x Growing Vector RealWorld PairValue
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                NamedTupleValue
-> Growing Vector RealWorld PairValue -> Parser NamedTupleValue
loop
                                  (Setter NamedTupleValue NamedTupleValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NamedTupleValue -> NamedTupleValue
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 NamedTupleValue NamedTupleValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) NamedTupleValue
x)
                                  Growing Vector RealWorld PairValue
mutable'values
      in
        Parser NamedTupleValue -> String -> Parser NamedTupleValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld PairValue
mutable'values <- IO (Growing Vector RealWorld PairValue)
-> Parser (Growing Vector RealWorld PairValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld PairValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              NamedTupleValue
-> Growing Vector RealWorld PairValue -> Parser NamedTupleValue
loop NamedTupleValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld PairValue
mutable'values)
          "NamedTupleValue"
  buildMessage :: NamedTupleValue -> Builder
buildMessage
    = \ _x :: NamedTupleValue
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text NamedTupleValue NamedTupleValue Text Text
-> NamedTupleValue -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") NamedTupleValue
_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.<>)
                ((PairValue -> Builder) -> Vector PairValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ _v :: PairValue
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                           ((ByteString -> Builder)
-> (PairValue -> ByteString) -> PairValue -> 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))
                              PairValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              PairValue
_v))
                   (FoldLike
  (Vector PairValue)
  NamedTupleValue
  NamedTupleValue
  (Vector PairValue)
  (Vector PairValue)
-> NamedTupleValue -> Vector PairValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'values" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'values") NamedTupleValue
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet NamedTupleValue NamedTupleValue FieldSet FieldSet
-> NamedTupleValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet NamedTupleValue NamedTupleValue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields NamedTupleValue
_x)))
instance Control.DeepSeq.NFData NamedTupleValue where
  rnf :: NamedTupleValue -> ()
rnf
    = \ x__ :: NamedTupleValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NamedTupleValue -> FieldSet
_NamedTupleValue'_unknownFields NamedTupleValue
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NamedTupleValue -> Text
_NamedTupleValue'name NamedTupleValue
x__)
                (Vector PairValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (NamedTupleValue -> Vector PairValue
_NamedTupleValue'values NamedTupleValue
x__) ()))
{- | Fields :
      -}
data NoneValue
  = NoneValue'_constructor {NoneValue -> FieldSet
_NoneValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NoneValue -> NoneValue -> Bool
(NoneValue -> NoneValue -> Bool)
-> (NoneValue -> NoneValue -> Bool) -> Eq NoneValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: NoneValue -> NoneValue -> Bool
$c/= :: NoneValue -> NoneValue -> Bool
== :: NoneValue -> NoneValue -> Bool
$c== :: NoneValue -> NoneValue -> Bool
Prelude.Eq, Eq NoneValue
Eq NoneValue =>
(NoneValue -> NoneValue -> Ordering)
-> (NoneValue -> NoneValue -> Bool)
-> (NoneValue -> NoneValue -> Bool)
-> (NoneValue -> NoneValue -> Bool)
-> (NoneValue -> NoneValue -> Bool)
-> (NoneValue -> NoneValue -> NoneValue)
-> (NoneValue -> NoneValue -> NoneValue)
-> Ord NoneValue
NoneValue -> NoneValue -> Bool
NoneValue -> NoneValue -> Ordering
NoneValue -> NoneValue -> NoneValue
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 :: NoneValue -> NoneValue -> NoneValue
$cmin :: NoneValue -> NoneValue -> NoneValue
max :: NoneValue -> NoneValue -> NoneValue
$cmax :: NoneValue -> NoneValue -> NoneValue
>= :: NoneValue -> NoneValue -> Bool
$c>= :: NoneValue -> NoneValue -> Bool
> :: NoneValue -> NoneValue -> Bool
$c> :: NoneValue -> NoneValue -> Bool
<= :: NoneValue -> NoneValue -> Bool
$c<= :: NoneValue -> NoneValue -> Bool
< :: NoneValue -> NoneValue -> Bool
$c< :: NoneValue -> NoneValue -> Bool
compare :: NoneValue -> NoneValue -> Ordering
$ccompare :: NoneValue -> NoneValue -> Ordering
$cp1Ord :: Eq NoneValue
Prelude.Ord)
instance Prelude.Show NoneValue where
  showsPrec :: Int -> NoneValue -> ShowS
showsPrec _ __x :: NoneValue
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (NoneValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NoneValue
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Message NoneValue where
  messageName :: Proxy NoneValue -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.NoneValue"
  packedMessageDescriptor :: Proxy NoneValue -> ByteString
packedMessageDescriptor _
    = "\n\
      \\tNoneValue"
  packedFileDescriptor :: Proxy NoneValue -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NoneValue)
fieldsByTag = let in [(Tag, FieldDescriptor NoneValue)]
-> Map Tag (FieldDescriptor NoneValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: LensLike' f NoneValue FieldSet
unknownFields
    = (NoneValue -> FieldSet)
-> (NoneValue -> FieldSet -> NoneValue) -> Lens' NoneValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NoneValue -> FieldSet
_NoneValue'_unknownFields
        (\ x__ :: NoneValue
x__ y__ :: FieldSet
y__ -> NoneValue
x__ {_NoneValue'_unknownFields :: FieldSet
_NoneValue'_unknownFields = FieldSet
y__})
  defMessage :: NoneValue
defMessage
    = $WNoneValue'_constructor :: FieldSet -> NoneValue
NoneValue'_constructor {_NoneValue'_unknownFields :: FieldSet
_NoneValue'_unknownFields = []}
  parseMessage :: Parser NoneValue
parseMessage
    = let
        loop :: NoneValue -> Data.ProtoLens.Encoding.Bytes.Parser NoneValue
        loop :: NoneValue -> Parser NoneValue
loop x :: NoneValue
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]))))
                      NoneValue -> Parser NoneValue
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter NoneValue NoneValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NoneValue -> NoneValue
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 NoneValue NoneValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) NoneValue
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of {
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                NoneValue -> Parser NoneValue
loop
                                  (Setter NoneValue NoneValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NoneValue -> NoneValue
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 NoneValue NoneValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) NoneValue
x) }
      in
        Parser NoneValue -> String -> Parser NoneValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NoneValue -> Parser NoneValue
loop NoneValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "NoneValue"
  buildMessage :: NoneValue -> Builder
buildMessage
    = \ _x :: NoneValue
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike FieldSet NoneValue NoneValue FieldSet FieldSet
-> NoneValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet NoneValue NoneValue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields NoneValue
_x)
instance Control.DeepSeq.NFData NoneValue where
  rnf :: NoneValue -> ()
rnf
    = \ x__ :: NoneValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (NoneValue -> FieldSet
_NoneValue'_unknownFields NoneValue
x__) ()
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.key' @:: Lens' PairValue Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.value' @:: Lens' PairValue StructuredValue@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'value' @:: Lens' PairValue (Prelude.Maybe StructuredValue)@ -}
data PairValue
  = PairValue'_constructor {PairValue -> Text
_PairValue'key :: !Data.Text.Text,
                            PairValue -> Maybe StructuredValue
_PairValue'value :: !(Prelude.Maybe StructuredValue),
                            PairValue -> FieldSet
_PairValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PairValue -> PairValue -> Bool
(PairValue -> PairValue -> Bool)
-> (PairValue -> PairValue -> Bool) -> Eq PairValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PairValue -> PairValue -> Bool
$c/= :: PairValue -> PairValue -> Bool
== :: PairValue -> PairValue -> Bool
$c== :: PairValue -> PairValue -> Bool
Prelude.Eq, Eq PairValue
Eq PairValue =>
(PairValue -> PairValue -> Ordering)
-> (PairValue -> PairValue -> Bool)
-> (PairValue -> PairValue -> Bool)
-> (PairValue -> PairValue -> Bool)
-> (PairValue -> PairValue -> Bool)
-> (PairValue -> PairValue -> PairValue)
-> (PairValue -> PairValue -> PairValue)
-> Ord PairValue
PairValue -> PairValue -> Bool
PairValue -> PairValue -> Ordering
PairValue -> PairValue -> PairValue
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 :: PairValue -> PairValue -> PairValue
$cmin :: PairValue -> PairValue -> PairValue
max :: PairValue -> PairValue -> PairValue
$cmax :: PairValue -> PairValue -> PairValue
>= :: PairValue -> PairValue -> Bool
$c>= :: PairValue -> PairValue -> Bool
> :: PairValue -> PairValue -> Bool
$c> :: PairValue -> PairValue -> Bool
<= :: PairValue -> PairValue -> Bool
$c<= :: PairValue -> PairValue -> Bool
< :: PairValue -> PairValue -> Bool
$c< :: PairValue -> PairValue -> Bool
compare :: PairValue -> PairValue -> Ordering
$ccompare :: PairValue -> PairValue -> Ordering
$cp1Ord :: Eq PairValue
Prelude.Ord)
instance Prelude.Show PairValue where
  showsPrec :: Int -> PairValue -> ShowS
showsPrec _ __x :: PairValue
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (PairValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PairValue
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField PairValue "key" Data.Text.Text where
  fieldOf :: Proxy# "key" -> (Text -> f Text) -> PairValue -> f PairValue
fieldOf _
    = ((Text -> f Text) -> PairValue -> f PairValue)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> PairValue
-> f PairValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PairValue -> Text)
-> (PairValue -> Text -> PairValue)
-> Lens PairValue PairValue Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PairValue -> Text
_PairValue'key (\ x__ :: PairValue
x__ y__ :: Text
y__ -> PairValue
x__ {_PairValue'key :: Text
_PairValue'key = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PairValue "value" StructuredValue where
  fieldOf :: Proxy# "value"
-> (StructuredValue -> f StructuredValue)
-> PairValue
-> f PairValue
fieldOf _
    = ((Maybe StructuredValue -> f (Maybe StructuredValue))
 -> PairValue -> f PairValue)
-> ((StructuredValue -> f StructuredValue)
    -> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (StructuredValue -> f StructuredValue)
-> PairValue
-> f PairValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PairValue -> Maybe StructuredValue)
-> (PairValue -> Maybe StructuredValue -> PairValue)
-> Lens
     PairValue PairValue (Maybe StructuredValue) (Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PairValue -> Maybe StructuredValue
_PairValue'value (\ x__ :: PairValue
x__ y__ :: Maybe StructuredValue
y__ -> PairValue
x__ {_PairValue'value :: Maybe StructuredValue
_PairValue'value = Maybe StructuredValue
y__}))
        (StructuredValue -> Lens' (Maybe StructuredValue) StructuredValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StructuredValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PairValue "maybe'value" (Prelude.Maybe StructuredValue) where
  fieldOf :: Proxy# "maybe'value"
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> PairValue
-> f PairValue
fieldOf _
    = ((Maybe StructuredValue -> f (Maybe StructuredValue))
 -> PairValue -> f PairValue)
-> ((Maybe StructuredValue -> f (Maybe StructuredValue))
    -> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> PairValue
-> f PairValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PairValue -> Maybe StructuredValue)
-> (PairValue -> Maybe StructuredValue -> PairValue)
-> Lens
     PairValue PairValue (Maybe StructuredValue) (Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PairValue -> Maybe StructuredValue
_PairValue'value (\ x__ :: PairValue
x__ y__ :: Maybe StructuredValue
y__ -> PairValue
x__ {_PairValue'value :: Maybe StructuredValue
_PairValue'value = Maybe StructuredValue
y__}))
        (Maybe StructuredValue -> f (Maybe StructuredValue))
-> Maybe StructuredValue -> f (Maybe StructuredValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PairValue where
  messageName :: Proxy PairValue -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.PairValue"
  packedMessageDescriptor :: Proxy PairValue -> ByteString
packedMessageDescriptor _
    = "\n\
      \\tPairValue\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC21\n\
      \\ENQvalue\CAN\STX \SOH(\v2\ESC.tensorflow.StructuredValueR\ENQvalue"
  packedFileDescriptor :: Proxy PairValue -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PairValue)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor PairValue
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor PairValue Text
-> FieldDescriptor PairValue
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 PairValue PairValue Text Text
-> FieldAccessor PairValue 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 PairValue
        value__field_descriptor :: FieldDescriptor PairValue
value__field_descriptor
          = String
-> FieldTypeDescriptor StructuredValue
-> FieldAccessor PairValue StructuredValue
-> FieldDescriptor PairValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (MessageOrGroup -> FieldTypeDescriptor StructuredValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StructuredValue)
              (Lens
  PairValue PairValue (Maybe StructuredValue) (Maybe StructuredValue)
-> FieldAccessor PairValue StructuredValue
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 PairValue
      in
        [(Tag, FieldDescriptor PairValue)]
-> Map Tag (FieldDescriptor PairValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor PairValue
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor PairValue
value__field_descriptor)]
  unknownFields :: LensLike' f PairValue FieldSet
unknownFields
    = (PairValue -> FieldSet)
-> (PairValue -> FieldSet -> PairValue) -> Lens' PairValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PairValue -> FieldSet
_PairValue'_unknownFields
        (\ x__ :: PairValue
x__ y__ :: FieldSet
y__ -> PairValue
x__ {_PairValue'_unknownFields :: FieldSet
_PairValue'_unknownFields = FieldSet
y__})
  defMessage :: PairValue
defMessage
    = $WPairValue'_constructor :: Text -> Maybe StructuredValue -> FieldSet -> PairValue
PairValue'_constructor
        {_PairValue'key :: Text
_PairValue'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PairValue'value :: Maybe StructuredValue
_PairValue'value = Maybe StructuredValue
forall a. Maybe a
Prelude.Nothing, _PairValue'_unknownFields :: FieldSet
_PairValue'_unknownFields = []}
  parseMessage :: Parser PairValue
parseMessage
    = let
        loop :: PairValue -> Data.ProtoLens.Encoding.Bytes.Parser PairValue
        loop :: PairValue -> Parser PairValue
loop x :: PairValue
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]))))
                      PairValue -> Parser PairValue
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter PairValue PairValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PairValue -> PairValue
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 PairValue PairValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) PairValue
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"
                                PairValue -> Parser PairValue
loop (Setter PairValue PairValue Text Text
-> Text -> PairValue -> PairValue
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 PairValue
x)
                        18
                          -> do StructuredValue
y <- Parser StructuredValue -> String -> Parser StructuredValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser StructuredValue -> Parser StructuredValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser StructuredValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "value"
                                PairValue -> Parser PairValue
loop (Setter PairValue PairValue StructuredValue StructuredValue
-> StructuredValue -> PairValue -> PairValue
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") StructuredValue
y PairValue
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                PairValue -> Parser PairValue
loop
                                  (Setter PairValue PairValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PairValue -> PairValue
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 PairValue PairValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) PairValue
x)
      in
        Parser PairValue -> String -> Parser PairValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do PairValue -> Parser PairValue
loop PairValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "PairValue"
  buildMessage :: PairValue -> Builder
buildMessage
    = \ _x :: PairValue
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text PairValue PairValue Text Text -> PairValue -> 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") PairValue
_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 StructuredValue)
  PairValue
  PairValue
  (Maybe StructuredValue)
  (Maybe StructuredValue)
-> PairValue -> Maybe StructuredValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'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") PairValue
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: StructuredValue
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (StructuredValue -> ByteString) -> StructuredValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             StructuredValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             StructuredValue
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet PairValue PairValue FieldSet FieldSet
-> PairValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet PairValue PairValue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields PairValue
_x)))
instance Control.DeepSeq.NFData PairValue where
  rnf :: PairValue -> ()
rnf
    = \ x__ :: PairValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PairValue -> FieldSet
_PairValue'_unknownFields PairValue
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (PairValue -> Text
_PairValue'key PairValue
x__)
                (Maybe StructuredValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (PairValue -> Maybe StructuredValue
_PairValue'value PairValue
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'kind' @:: Lens' StructuredValue (Prelude.Maybe StructuredValue'Kind)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'noneValue' @:: Lens' StructuredValue (Prelude.Maybe NoneValue)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.noneValue' @:: Lens' StructuredValue NoneValue@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'float64Value' @:: Lens' StructuredValue (Prelude.Maybe Prelude.Double)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.float64Value' @:: Lens' StructuredValue Prelude.Double@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'int64Value' @:: Lens' StructuredValue (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.int64Value' @:: Lens' StructuredValue Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'stringValue' @:: Lens' StructuredValue (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.stringValue' @:: Lens' StructuredValue Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'boolValue' @:: Lens' StructuredValue (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.boolValue' @:: Lens' StructuredValue Prelude.Bool@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'tensorShapeValue' @:: Lens' StructuredValue (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.tensorShapeValue' @:: Lens' StructuredValue Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'tensorDtypeValue' @:: Lens' StructuredValue (Prelude.Maybe Proto.Tensorflow.Core.Framework.Types.DataType)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.tensorDtypeValue' @:: Lens' StructuredValue Proto.Tensorflow.Core.Framework.Types.DataType@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'tensorSpecValue' @:: Lens' StructuredValue (Prelude.Maybe TensorSpecProto)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.tensorSpecValue' @:: Lens' StructuredValue TensorSpecProto@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'typeSpecValue' @:: Lens' StructuredValue (Prelude.Maybe TypeSpecProto)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.typeSpecValue' @:: Lens' StructuredValue TypeSpecProto@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'boundedTensorSpecValue' @:: Lens' StructuredValue (Prelude.Maybe BoundedTensorSpecProto)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.boundedTensorSpecValue' @:: Lens' StructuredValue BoundedTensorSpecProto@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'listValue' @:: Lens' StructuredValue (Prelude.Maybe ListValue)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.listValue' @:: Lens' StructuredValue ListValue@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'tupleValue' @:: Lens' StructuredValue (Prelude.Maybe TupleValue)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.tupleValue' @:: Lens' StructuredValue TupleValue@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'dictValue' @:: Lens' StructuredValue (Prelude.Maybe DictValue)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.dictValue' @:: Lens' StructuredValue DictValue@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'namedTupleValue' @:: Lens' StructuredValue (Prelude.Maybe NamedTupleValue)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.namedTupleValue' @:: Lens' StructuredValue NamedTupleValue@ -}
data StructuredValue
  = StructuredValue'_constructor {StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind :: !(Prelude.Maybe StructuredValue'Kind),
                                  StructuredValue -> FieldSet
_StructuredValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (StructuredValue -> StructuredValue -> Bool
(StructuredValue -> StructuredValue -> Bool)
-> (StructuredValue -> StructuredValue -> Bool)
-> Eq StructuredValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StructuredValue -> StructuredValue -> Bool
$c/= :: StructuredValue -> StructuredValue -> Bool
== :: StructuredValue -> StructuredValue -> Bool
$c== :: StructuredValue -> StructuredValue -> Bool
Prelude.Eq, Eq StructuredValue
Eq StructuredValue =>
(StructuredValue -> StructuredValue -> Ordering)
-> (StructuredValue -> StructuredValue -> Bool)
-> (StructuredValue -> StructuredValue -> Bool)
-> (StructuredValue -> StructuredValue -> Bool)
-> (StructuredValue -> StructuredValue -> Bool)
-> (StructuredValue -> StructuredValue -> StructuredValue)
-> (StructuredValue -> StructuredValue -> StructuredValue)
-> Ord StructuredValue
StructuredValue -> StructuredValue -> Bool
StructuredValue -> StructuredValue -> Ordering
StructuredValue -> StructuredValue -> StructuredValue
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 :: StructuredValue -> StructuredValue -> StructuredValue
$cmin :: StructuredValue -> StructuredValue -> StructuredValue
max :: StructuredValue -> StructuredValue -> StructuredValue
$cmax :: StructuredValue -> StructuredValue -> StructuredValue
>= :: StructuredValue -> StructuredValue -> Bool
$c>= :: StructuredValue -> StructuredValue -> Bool
> :: StructuredValue -> StructuredValue -> Bool
$c> :: StructuredValue -> StructuredValue -> Bool
<= :: StructuredValue -> StructuredValue -> Bool
$c<= :: StructuredValue -> StructuredValue -> Bool
< :: StructuredValue -> StructuredValue -> Bool
$c< :: StructuredValue -> StructuredValue -> Bool
compare :: StructuredValue -> StructuredValue -> Ordering
$ccompare :: StructuredValue -> StructuredValue -> Ordering
$cp1Ord :: Eq StructuredValue
Prelude.Ord)
instance Prelude.Show StructuredValue where
  showsPrec :: Int -> StructuredValue -> ShowS
showsPrec _ __x :: StructuredValue
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (StructuredValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StructuredValue
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data StructuredValue'Kind
  = StructuredValue'NoneValue !NoneValue |
    StructuredValue'Float64Value !Prelude.Double |
    StructuredValue'Int64Value !Data.Int.Int64 |
    StructuredValue'StringValue !Data.Text.Text |
    StructuredValue'BoolValue !Prelude.Bool |
    StructuredValue'TensorShapeValue !Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto |
    StructuredValue'TensorDtypeValue !Proto.Tensorflow.Core.Framework.Types.DataType |
    StructuredValue'TensorSpecValue !TensorSpecProto |
    StructuredValue'TypeSpecValue !TypeSpecProto |
    StructuredValue'BoundedTensorSpecValue !BoundedTensorSpecProto |
    StructuredValue'ListValue !ListValue |
    StructuredValue'TupleValue !TupleValue |
    StructuredValue'DictValue !DictValue |
    StructuredValue'NamedTupleValue !NamedTupleValue
  deriving stock (Int -> StructuredValue'Kind -> ShowS
[StructuredValue'Kind] -> ShowS
StructuredValue'Kind -> String
(Int -> StructuredValue'Kind -> ShowS)
-> (StructuredValue'Kind -> String)
-> ([StructuredValue'Kind] -> ShowS)
-> Show StructuredValue'Kind
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StructuredValue'Kind] -> ShowS
$cshowList :: [StructuredValue'Kind] -> ShowS
show :: StructuredValue'Kind -> String
$cshow :: StructuredValue'Kind -> String
showsPrec :: Int -> StructuredValue'Kind -> ShowS
$cshowsPrec :: Int -> StructuredValue'Kind -> ShowS
Prelude.Show, StructuredValue'Kind -> StructuredValue'Kind -> Bool
(StructuredValue'Kind -> StructuredValue'Kind -> Bool)
-> (StructuredValue'Kind -> StructuredValue'Kind -> Bool)
-> Eq StructuredValue'Kind
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StructuredValue'Kind -> StructuredValue'Kind -> Bool
$c/= :: StructuredValue'Kind -> StructuredValue'Kind -> Bool
== :: StructuredValue'Kind -> StructuredValue'Kind -> Bool
$c== :: StructuredValue'Kind -> StructuredValue'Kind -> Bool
Prelude.Eq, Eq StructuredValue'Kind
Eq StructuredValue'Kind =>
(StructuredValue'Kind -> StructuredValue'Kind -> Ordering)
-> (StructuredValue'Kind -> StructuredValue'Kind -> Bool)
-> (StructuredValue'Kind -> StructuredValue'Kind -> Bool)
-> (StructuredValue'Kind -> StructuredValue'Kind -> Bool)
-> (StructuredValue'Kind -> StructuredValue'Kind -> Bool)
-> (StructuredValue'Kind
    -> StructuredValue'Kind -> StructuredValue'Kind)
-> (StructuredValue'Kind
    -> StructuredValue'Kind -> StructuredValue'Kind)
-> Ord StructuredValue'Kind
StructuredValue'Kind -> StructuredValue'Kind -> Bool
StructuredValue'Kind -> StructuredValue'Kind -> Ordering
StructuredValue'Kind
-> StructuredValue'Kind -> StructuredValue'Kind
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: StructuredValue'Kind
-> StructuredValue'Kind -> StructuredValue'Kind
$cmin :: StructuredValue'Kind
-> StructuredValue'Kind -> StructuredValue'Kind
max :: StructuredValue'Kind
-> StructuredValue'Kind -> StructuredValue'Kind
$cmax :: StructuredValue'Kind
-> StructuredValue'Kind -> StructuredValue'Kind
>= :: StructuredValue'Kind -> StructuredValue'Kind -> Bool
$c>= :: StructuredValue'Kind -> StructuredValue'Kind -> Bool
> :: StructuredValue'Kind -> StructuredValue'Kind -> Bool
$c> :: StructuredValue'Kind -> StructuredValue'Kind -> Bool
<= :: StructuredValue'Kind -> StructuredValue'Kind -> Bool
$c<= :: StructuredValue'Kind -> StructuredValue'Kind -> Bool
< :: StructuredValue'Kind -> StructuredValue'Kind -> Bool
$c< :: StructuredValue'Kind -> StructuredValue'Kind -> Bool
compare :: StructuredValue'Kind -> StructuredValue'Kind -> Ordering
$ccompare :: StructuredValue'Kind -> StructuredValue'Kind -> Ordering
$cp1Ord :: Eq StructuredValue'Kind
Prelude.Ord)
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'kind" (Prelude.Maybe StructuredValue'Kind) where
  fieldOf :: Proxy# "maybe'kind"
-> (Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'noneValue" (Prelude.Maybe NoneValue) where
  fieldOf :: Proxy# "maybe'noneValue"
-> (Maybe NoneValue -> f (Maybe NoneValue))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe NoneValue -> f (Maybe NoneValue))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe NoneValue -> f (Maybe NoneValue))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe NoneValue)
-> (Maybe StructuredValue'Kind
    -> Maybe NoneValue -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe NoneValue)
     (Maybe NoneValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'NoneValue x__val :: NoneValue
x__val))
                     -> NoneValue -> Maybe NoneValue
forall a. a -> Maybe a
Prelude.Just NoneValue
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe NoneValue
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe NoneValue
y__ -> (NoneValue -> StructuredValue'Kind)
-> Maybe NoneValue -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NoneValue -> StructuredValue'Kind
StructuredValue'NoneValue Maybe NoneValue
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "noneValue" NoneValue where
  fieldOf :: Proxy# "noneValue"
-> (NoneValue -> f NoneValue)
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((NoneValue -> f NoneValue)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (NoneValue -> f NoneValue)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe NoneValue -> f (Maybe NoneValue))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((NoneValue -> f NoneValue)
    -> Maybe NoneValue -> f (Maybe NoneValue))
-> (NoneValue -> f NoneValue)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe NoneValue)
-> (Maybe StructuredValue'Kind
    -> Maybe NoneValue -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe NoneValue)
     (Maybe NoneValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'NoneValue x__val :: NoneValue
x__val))
                        -> NoneValue -> Maybe NoneValue
forall a. a -> Maybe a
Prelude.Just NoneValue
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe NoneValue
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe NoneValue
y__ -> (NoneValue -> StructuredValue'Kind)
-> Maybe NoneValue -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NoneValue -> StructuredValue'Kind
StructuredValue'NoneValue Maybe NoneValue
y__))
           (NoneValue -> Lens' (Maybe NoneValue) NoneValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens NoneValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'float64Value" (Prelude.Maybe Prelude.Double) where
  fieldOf :: Proxy# "maybe'float64Value"
-> (Maybe Double -> f (Maybe Double))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe Double -> f (Maybe Double))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe Double -> f (Maybe Double))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe Double)
-> (Maybe StructuredValue'Kind
    -> Maybe Double -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe Double)
     (Maybe Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'Float64Value x__val :: Double
x__val))
                     -> Double -> Maybe Double
forall a. a -> Maybe a
Prelude.Just Double
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe Double
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Double
y__ -> (Double -> StructuredValue'Kind)
-> Maybe Double -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Double -> StructuredValue'Kind
StructuredValue'Float64Value Maybe Double
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "float64Value" Prelude.Double where
  fieldOf :: Proxy# "float64Value"
-> (Double -> f Double) -> StructuredValue -> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Double -> f Double)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Double -> f Double)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe Double -> f (Maybe Double))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((Double -> f Double) -> Maybe Double -> f (Maybe Double))
-> (Double -> f Double)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe Double)
-> (Maybe StructuredValue'Kind
    -> Maybe Double -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe Double)
     (Maybe Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'Float64Value x__val :: Double
x__val))
                        -> Double -> Maybe Double
forall a. a -> Maybe a
Prelude.Just Double
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe Double
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Double
y__ -> (Double -> StructuredValue'Kind)
-> Maybe Double -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Double -> StructuredValue'Kind
StructuredValue'Float64Value Maybe Double
y__))
           (Double -> Lens' (Maybe Double) Double
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'int64Value" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: Proxy# "maybe'int64Value"
-> (Maybe Int64 -> f (Maybe Int64))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe Int64 -> f (Maybe Int64))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe Int64)
-> (Maybe StructuredValue'Kind
    -> Maybe Int64 -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'Int64Value x__val :: Int64
x__val))
                     -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Int64
y__ -> (Int64 -> StructuredValue'Kind)
-> Maybe Int64 -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> StructuredValue'Kind
StructuredValue'Int64Value Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "int64Value" Data.Int.Int64 where
  fieldOf :: Proxy# "int64Value"
-> (Int64 -> f Int64) -> StructuredValue -> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Int64 -> f Int64)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Int64 -> f Int64)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe Int64 -> f (Maybe Int64))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe Int64)
-> (Maybe StructuredValue'Kind
    -> Maybe Int64 -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'Int64Value x__val :: Int64
x__val))
                        -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Int64
y__ -> (Int64 -> StructuredValue'Kind)
-> Maybe Int64 -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> StructuredValue'Kind
StructuredValue'Int64Value Maybe Int64
y__))
           (Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'stringValue" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'stringValue"
-> (Maybe Text -> f (Maybe Text))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe Text -> f (Maybe Text))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe Text -> f (Maybe Text))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe Text)
-> (Maybe StructuredValue'Kind
    -> Maybe Text -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'StringValue x__val :: Text
x__val))
                     -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Text
y__ -> (Text -> StructuredValue'Kind)
-> Maybe Text -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> StructuredValue'Kind
StructuredValue'StringValue Maybe Text
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "stringValue" Data.Text.Text where
  fieldOf :: Proxy# "stringValue"
-> (Text -> f Text) -> StructuredValue -> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Text -> f Text)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Text -> f Text)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe Text -> f (Maybe Text))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe Text)
-> (Maybe StructuredValue'Kind
    -> Maybe Text -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'StringValue x__val :: Text
x__val))
                        -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Text
y__ -> (Text -> StructuredValue'Kind)
-> Maybe Text -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> StructuredValue'Kind
StructuredValue'StringValue Maybe Text
y__))
           (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'boolValue" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'boolValue"
-> (Maybe Bool -> f (Maybe Bool))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe Bool -> f (Maybe Bool))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe Bool -> f (Maybe Bool))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe Bool)
-> (Maybe StructuredValue'Kind
    -> Maybe Bool -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'BoolValue x__val :: Bool
x__val))
                     -> Bool -> Maybe Bool
forall a. a -> Maybe a
Prelude.Just Bool
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe Bool
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Bool
y__ -> (Bool -> StructuredValue'Kind)
-> Maybe Bool -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Bool -> StructuredValue'Kind
StructuredValue'BoolValue Maybe Bool
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "boolValue" Prelude.Bool where
  fieldOf :: Proxy# "boolValue"
-> (Bool -> f Bool) -> StructuredValue -> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Bool -> f Bool)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Bool -> f Bool)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe Bool -> f (Maybe Bool))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe Bool)
-> (Maybe StructuredValue'Kind
    -> Maybe Bool -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'BoolValue x__val :: Bool
x__val))
                        -> Bool -> Maybe Bool
forall a. a -> Maybe a
Prelude.Just Bool
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe Bool
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Bool
y__ -> (Bool -> StructuredValue'Kind)
-> Maybe Bool -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Bool -> StructuredValue'Kind
StructuredValue'BoolValue Maybe Bool
y__))
           (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'tensorShapeValue" (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) where
  fieldOf :: Proxy# "maybe'tensorShapeValue"
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe TensorShapeProto)
-> (Maybe StructuredValue'Kind
    -> Maybe TensorShapeProto -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe TensorShapeProto)
     (Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'TensorShapeValue x__val :: TensorShapeProto
x__val))
                     -> TensorShapeProto -> Maybe TensorShapeProto
forall a. a -> Maybe a
Prelude.Just TensorShapeProto
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe TensorShapeProto
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe TensorShapeProto
y__ -> (TensorShapeProto -> StructuredValue'Kind)
-> Maybe TensorShapeProto -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorShapeProto -> StructuredValue'Kind
StructuredValue'TensorShapeValue Maybe TensorShapeProto
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "tensorShapeValue" Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto where
  fieldOf :: Proxy# "tensorShapeValue"
-> (TensorShapeProto -> f TensorShapeProto)
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((TensorShapeProto -> f TensorShapeProto)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (TensorShapeProto -> f TensorShapeProto)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((TensorShapeProto -> f TensorShapeProto)
    -> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (TensorShapeProto -> f TensorShapeProto)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe TensorShapeProto)
-> (Maybe StructuredValue'Kind
    -> Maybe TensorShapeProto -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe TensorShapeProto)
     (Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'TensorShapeValue x__val :: TensorShapeProto
x__val))
                        -> TensorShapeProto -> Maybe TensorShapeProto
forall a. a -> Maybe a
Prelude.Just TensorShapeProto
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe TensorShapeProto
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe TensorShapeProto
y__ -> (TensorShapeProto -> StructuredValue'Kind)
-> Maybe TensorShapeProto -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorShapeProto -> StructuredValue'Kind
StructuredValue'TensorShapeValue 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 StructuredValue "maybe'tensorDtypeValue" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Types.DataType) where
  fieldOf :: Proxy# "maybe'tensorDtypeValue"
-> (Maybe DataType -> f (Maybe DataType))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe DataType -> f (Maybe DataType))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe DataType -> f (Maybe DataType))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe DataType)
-> (Maybe StructuredValue'Kind
    -> Maybe DataType -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe DataType)
     (Maybe DataType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'TensorDtypeValue x__val :: DataType
x__val))
                     -> DataType -> Maybe DataType
forall a. a -> Maybe a
Prelude.Just DataType
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe DataType
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe DataType
y__ -> (DataType -> StructuredValue'Kind)
-> Maybe DataType -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap DataType -> StructuredValue'Kind
StructuredValue'TensorDtypeValue Maybe DataType
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "tensorDtypeValue" Proto.Tensorflow.Core.Framework.Types.DataType where
  fieldOf :: Proxy# "tensorDtypeValue"
-> (DataType -> f DataType) -> StructuredValue -> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((DataType -> f DataType)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (DataType -> f DataType)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe DataType -> f (Maybe DataType))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((DataType -> f DataType)
    -> Maybe DataType -> f (Maybe DataType))
-> (DataType -> f DataType)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe DataType)
-> (Maybe StructuredValue'Kind
    -> Maybe DataType -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe DataType)
     (Maybe DataType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'TensorDtypeValue x__val :: DataType
x__val))
                        -> DataType -> Maybe DataType
forall a. a -> Maybe a
Prelude.Just DataType
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe DataType
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe DataType
y__ -> (DataType -> StructuredValue'Kind)
-> Maybe DataType -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap DataType -> StructuredValue'Kind
StructuredValue'TensorDtypeValue Maybe DataType
y__))
           (DataType -> Lens' (Maybe DataType) DataType
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens DataType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'tensorSpecValue" (Prelude.Maybe TensorSpecProto) where
  fieldOf :: Proxy# "maybe'tensorSpecValue"
-> (Maybe TensorSpecProto -> f (Maybe TensorSpecProto))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe TensorSpecProto -> f (Maybe TensorSpecProto))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe TensorSpecProto -> f (Maybe TensorSpecProto))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe TensorSpecProto)
-> (Maybe StructuredValue'Kind
    -> Maybe TensorSpecProto -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe TensorSpecProto)
     (Maybe TensorSpecProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'TensorSpecValue x__val :: TensorSpecProto
x__val))
                     -> TensorSpecProto -> Maybe TensorSpecProto
forall a. a -> Maybe a
Prelude.Just TensorSpecProto
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe TensorSpecProto
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe TensorSpecProto
y__ -> (TensorSpecProto -> StructuredValue'Kind)
-> Maybe TensorSpecProto -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorSpecProto -> StructuredValue'Kind
StructuredValue'TensorSpecValue Maybe TensorSpecProto
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "tensorSpecValue" TensorSpecProto where
  fieldOf :: Proxy# "tensorSpecValue"
-> (TensorSpecProto -> f TensorSpecProto)
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((TensorSpecProto -> f TensorSpecProto)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (TensorSpecProto -> f TensorSpecProto)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe TensorSpecProto -> f (Maybe TensorSpecProto))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((TensorSpecProto -> f TensorSpecProto)
    -> Maybe TensorSpecProto -> f (Maybe TensorSpecProto))
-> (TensorSpecProto -> f TensorSpecProto)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe TensorSpecProto)
-> (Maybe StructuredValue'Kind
    -> Maybe TensorSpecProto -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe TensorSpecProto)
     (Maybe TensorSpecProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'TensorSpecValue x__val :: TensorSpecProto
x__val))
                        -> TensorSpecProto -> Maybe TensorSpecProto
forall a. a -> Maybe a
Prelude.Just TensorSpecProto
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe TensorSpecProto
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe TensorSpecProto
y__ -> (TensorSpecProto -> StructuredValue'Kind)
-> Maybe TensorSpecProto -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorSpecProto -> StructuredValue'Kind
StructuredValue'TensorSpecValue Maybe TensorSpecProto
y__))
           (TensorSpecProto -> Lens' (Maybe TensorSpecProto) TensorSpecProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorSpecProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'typeSpecValue" (Prelude.Maybe TypeSpecProto) where
  fieldOf :: Proxy# "maybe'typeSpecValue"
-> (Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe TypeSpecProto)
-> (Maybe StructuredValue'Kind
    -> Maybe TypeSpecProto -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe TypeSpecProto)
     (Maybe TypeSpecProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'TypeSpecValue x__val :: TypeSpecProto
x__val))
                     -> TypeSpecProto -> Maybe TypeSpecProto
forall a. a -> Maybe a
Prelude.Just TypeSpecProto
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe TypeSpecProto
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe TypeSpecProto
y__ -> (TypeSpecProto -> StructuredValue'Kind)
-> Maybe TypeSpecProto -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TypeSpecProto -> StructuredValue'Kind
StructuredValue'TypeSpecValue Maybe TypeSpecProto
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "typeSpecValue" TypeSpecProto where
  fieldOf :: Proxy# "typeSpecValue"
-> (TypeSpecProto -> f TypeSpecProto)
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((TypeSpecProto -> f TypeSpecProto)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (TypeSpecProto -> f TypeSpecProto)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((TypeSpecProto -> f TypeSpecProto)
    -> Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
-> (TypeSpecProto -> f TypeSpecProto)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe TypeSpecProto)
-> (Maybe StructuredValue'Kind
    -> Maybe TypeSpecProto -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe TypeSpecProto)
     (Maybe TypeSpecProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'TypeSpecValue x__val :: TypeSpecProto
x__val))
                        -> TypeSpecProto -> Maybe TypeSpecProto
forall a. a -> Maybe a
Prelude.Just TypeSpecProto
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe TypeSpecProto
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe TypeSpecProto
y__ -> (TypeSpecProto -> StructuredValue'Kind)
-> Maybe TypeSpecProto -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TypeSpecProto -> StructuredValue'Kind
StructuredValue'TypeSpecValue Maybe TypeSpecProto
y__))
           (TypeSpecProto -> Lens' (Maybe TypeSpecProto) TypeSpecProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TypeSpecProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'boundedTensorSpecValue" (Prelude.Maybe BoundedTensorSpecProto) where
  fieldOf :: Proxy# "maybe'boundedTensorSpecValue"
-> (Maybe BoundedTensorSpecProto
    -> f (Maybe BoundedTensorSpecProto))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe BoundedTensorSpecProto
     -> f (Maybe BoundedTensorSpecProto))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe BoundedTensorSpecProto
    -> f (Maybe BoundedTensorSpecProto))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe BoundedTensorSpecProto)
-> (Maybe StructuredValue'Kind
    -> Maybe BoundedTensorSpecProto -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe BoundedTensorSpecProto)
     (Maybe BoundedTensorSpecProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'BoundedTensorSpecValue x__val :: BoundedTensorSpecProto
x__val))
                     -> BoundedTensorSpecProto -> Maybe BoundedTensorSpecProto
forall a. a -> Maybe a
Prelude.Just BoundedTensorSpecProto
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe BoundedTensorSpecProto
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe BoundedTensorSpecProto
y__
              -> (BoundedTensorSpecProto -> StructuredValue'Kind)
-> Maybe BoundedTensorSpecProto -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap BoundedTensorSpecProto -> StructuredValue'Kind
StructuredValue'BoundedTensorSpecValue Maybe BoundedTensorSpecProto
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "boundedTensorSpecValue" BoundedTensorSpecProto where
  fieldOf :: Proxy# "boundedTensorSpecValue"
-> (BoundedTensorSpecProto -> f BoundedTensorSpecProto)
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((BoundedTensorSpecProto -> f BoundedTensorSpecProto)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (BoundedTensorSpecProto -> f BoundedTensorSpecProto)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe BoundedTensorSpecProto -> f (Maybe BoundedTensorSpecProto))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((BoundedTensorSpecProto -> f BoundedTensorSpecProto)
    -> Maybe BoundedTensorSpecProto
    -> f (Maybe BoundedTensorSpecProto))
-> (BoundedTensorSpecProto -> f BoundedTensorSpecProto)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe BoundedTensorSpecProto)
-> (Maybe StructuredValue'Kind
    -> Maybe BoundedTensorSpecProto -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe BoundedTensorSpecProto)
     (Maybe BoundedTensorSpecProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'BoundedTensorSpecValue x__val :: BoundedTensorSpecProto
x__val))
                        -> BoundedTensorSpecProto -> Maybe BoundedTensorSpecProto
forall a. a -> Maybe a
Prelude.Just BoundedTensorSpecProto
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe BoundedTensorSpecProto
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe BoundedTensorSpecProto
y__
                 -> (BoundedTensorSpecProto -> StructuredValue'Kind)
-> Maybe BoundedTensorSpecProto -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap BoundedTensorSpecProto -> StructuredValue'Kind
StructuredValue'BoundedTensorSpecValue Maybe BoundedTensorSpecProto
y__))
           (BoundedTensorSpecProto
-> Lens' (Maybe BoundedTensorSpecProto) BoundedTensorSpecProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens BoundedTensorSpecProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'listValue" (Prelude.Maybe ListValue) where
  fieldOf :: Proxy# "maybe'listValue"
-> (Maybe ListValue -> f (Maybe ListValue))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe ListValue -> f (Maybe ListValue))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe ListValue -> f (Maybe ListValue))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe ListValue)
-> (Maybe StructuredValue'Kind
    -> Maybe ListValue -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe ListValue)
     (Maybe ListValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'ListValue x__val :: ListValue
x__val))
                     -> ListValue -> Maybe ListValue
forall a. a -> Maybe a
Prelude.Just ListValue
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe ListValue
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe ListValue
y__ -> (ListValue -> StructuredValue'Kind)
-> Maybe ListValue -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ListValue -> StructuredValue'Kind
StructuredValue'ListValue Maybe ListValue
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "listValue" ListValue where
  fieldOf :: Proxy# "listValue"
-> (ListValue -> f ListValue)
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((ListValue -> f ListValue)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (ListValue -> f ListValue)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe ListValue -> f (Maybe ListValue))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((ListValue -> f ListValue)
    -> Maybe ListValue -> f (Maybe ListValue))
-> (ListValue -> f ListValue)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe ListValue)
-> (Maybe StructuredValue'Kind
    -> Maybe ListValue -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe ListValue)
     (Maybe ListValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'ListValue x__val :: ListValue
x__val))
                        -> ListValue -> Maybe ListValue
forall a. a -> Maybe a
Prelude.Just ListValue
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe ListValue
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe ListValue
y__ -> (ListValue -> StructuredValue'Kind)
-> Maybe ListValue -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ListValue -> StructuredValue'Kind
StructuredValue'ListValue Maybe ListValue
y__))
           (ListValue -> Lens' (Maybe ListValue) ListValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ListValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'tupleValue" (Prelude.Maybe TupleValue) where
  fieldOf :: Proxy# "maybe'tupleValue"
-> (Maybe TupleValue -> f (Maybe TupleValue))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe TupleValue -> f (Maybe TupleValue))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe TupleValue -> f (Maybe TupleValue))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe TupleValue)
-> (Maybe StructuredValue'Kind
    -> Maybe TupleValue -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe TupleValue)
     (Maybe TupleValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'TupleValue x__val :: TupleValue
x__val))
                     -> TupleValue -> Maybe TupleValue
forall a. a -> Maybe a
Prelude.Just TupleValue
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe TupleValue
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe TupleValue
y__ -> (TupleValue -> StructuredValue'Kind)
-> Maybe TupleValue -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TupleValue -> StructuredValue'Kind
StructuredValue'TupleValue Maybe TupleValue
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "tupleValue" TupleValue where
  fieldOf :: Proxy# "tupleValue"
-> (TupleValue -> f TupleValue)
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((TupleValue -> f TupleValue)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (TupleValue -> f TupleValue)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe TupleValue -> f (Maybe TupleValue))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((TupleValue -> f TupleValue)
    -> Maybe TupleValue -> f (Maybe TupleValue))
-> (TupleValue -> f TupleValue)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe TupleValue)
-> (Maybe StructuredValue'Kind
    -> Maybe TupleValue -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe TupleValue)
     (Maybe TupleValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'TupleValue x__val :: TupleValue
x__val))
                        -> TupleValue -> Maybe TupleValue
forall a. a -> Maybe a
Prelude.Just TupleValue
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe TupleValue
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe TupleValue
y__ -> (TupleValue -> StructuredValue'Kind)
-> Maybe TupleValue -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TupleValue -> StructuredValue'Kind
StructuredValue'TupleValue Maybe TupleValue
y__))
           (TupleValue -> Lens' (Maybe TupleValue) TupleValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TupleValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'dictValue" (Prelude.Maybe DictValue) where
  fieldOf :: Proxy# "maybe'dictValue"
-> (Maybe DictValue -> f (Maybe DictValue))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe DictValue -> f (Maybe DictValue))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe DictValue -> f (Maybe DictValue))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe DictValue)
-> (Maybe StructuredValue'Kind
    -> Maybe DictValue -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe DictValue)
     (Maybe DictValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'DictValue x__val :: DictValue
x__val))
                     -> DictValue -> Maybe DictValue
forall a. a -> Maybe a
Prelude.Just DictValue
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe DictValue
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe DictValue
y__ -> (DictValue -> StructuredValue'Kind)
-> Maybe DictValue -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap DictValue -> StructuredValue'Kind
StructuredValue'DictValue Maybe DictValue
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "dictValue" DictValue where
  fieldOf :: Proxy# "dictValue"
-> (DictValue -> f DictValue)
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((DictValue -> f DictValue)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (DictValue -> f DictValue)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe DictValue -> f (Maybe DictValue))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((DictValue -> f DictValue)
    -> Maybe DictValue -> f (Maybe DictValue))
-> (DictValue -> f DictValue)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe DictValue)
-> (Maybe StructuredValue'Kind
    -> Maybe DictValue -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe DictValue)
     (Maybe DictValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'DictValue x__val :: DictValue
x__val))
                        -> DictValue -> Maybe DictValue
forall a. a -> Maybe a
Prelude.Just DictValue
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe DictValue
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe DictValue
y__ -> (DictValue -> StructuredValue'Kind)
-> Maybe DictValue -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap DictValue -> StructuredValue'Kind
StructuredValue'DictValue Maybe DictValue
y__))
           (DictValue -> Lens' (Maybe DictValue) DictValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens DictValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField StructuredValue "maybe'namedTupleValue" (Prelude.Maybe NamedTupleValue) where
  fieldOf :: Proxy# "maybe'namedTupleValue"
-> (Maybe NamedTupleValue -> f (Maybe NamedTupleValue))
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((Maybe NamedTupleValue -> f (Maybe NamedTupleValue))
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (Maybe NamedTupleValue -> f (Maybe NamedTupleValue))
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        ((Maybe StructuredValue'Kind -> Maybe NamedTupleValue)
-> (Maybe StructuredValue'Kind
    -> Maybe NamedTupleValue -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe NamedTupleValue)
     (Maybe NamedTupleValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe StructuredValue'Kind
x__
              -> case Maybe StructuredValue'Kind
x__ of
                   (Prelude.Just (StructuredValue'NamedTupleValue x__val :: NamedTupleValue
x__val))
                     -> NamedTupleValue -> Maybe NamedTupleValue
forall a. a -> Maybe a
Prelude.Just NamedTupleValue
x__val
                   _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe NamedTupleValue
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe NamedTupleValue
y__ -> (NamedTupleValue -> StructuredValue'Kind)
-> Maybe NamedTupleValue -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NamedTupleValue -> StructuredValue'Kind
StructuredValue'NamedTupleValue Maybe NamedTupleValue
y__))
instance Data.ProtoLens.Field.HasField StructuredValue "namedTupleValue" NamedTupleValue where
  fieldOf :: Proxy# "namedTupleValue"
-> (NamedTupleValue -> f NamedTupleValue)
-> StructuredValue
-> f StructuredValue
fieldOf _
    = ((Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
 -> StructuredValue -> f StructuredValue)
-> ((NamedTupleValue -> f NamedTupleValue)
    -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> (NamedTupleValue -> f NamedTupleValue)
-> StructuredValue
-> f StructuredValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StructuredValue -> Maybe StructuredValue'Kind)
-> (StructuredValue
    -> Maybe StructuredValue'Kind -> StructuredValue)
-> Lens
     StructuredValue
     StructuredValue
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind
           (\ x__ :: StructuredValue
x__ y__ :: Maybe StructuredValue'Kind
y__ -> StructuredValue
x__ {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
y__}))
        (((Maybe NamedTupleValue -> f (Maybe NamedTupleValue))
 -> Maybe StructuredValue'Kind -> f (Maybe StructuredValue'Kind))
-> ((NamedTupleValue -> f NamedTupleValue)
    -> Maybe NamedTupleValue -> f (Maybe NamedTupleValue))
-> (NamedTupleValue -> f NamedTupleValue)
-> Maybe StructuredValue'Kind
-> f (Maybe StructuredValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StructuredValue'Kind -> Maybe NamedTupleValue)
-> (Maybe StructuredValue'Kind
    -> Maybe NamedTupleValue -> Maybe StructuredValue'Kind)
-> Lens
     (Maybe StructuredValue'Kind)
     (Maybe StructuredValue'Kind)
     (Maybe NamedTupleValue)
     (Maybe NamedTupleValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe StructuredValue'Kind
x__
                 -> case Maybe StructuredValue'Kind
x__ of
                      (Prelude.Just (StructuredValue'NamedTupleValue x__val :: NamedTupleValue
x__val))
                        -> NamedTupleValue -> Maybe NamedTupleValue
forall a. a -> Maybe a
Prelude.Just NamedTupleValue
x__val
                      _otherwise :: Maybe StructuredValue'Kind
_otherwise -> Maybe NamedTupleValue
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe NamedTupleValue
y__ -> (NamedTupleValue -> StructuredValue'Kind)
-> Maybe NamedTupleValue -> Maybe StructuredValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NamedTupleValue -> StructuredValue'Kind
StructuredValue'NamedTupleValue Maybe NamedTupleValue
y__))
           (NamedTupleValue -> Lens' (Maybe NamedTupleValue) NamedTupleValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens NamedTupleValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message StructuredValue where
  messageName :: Proxy StructuredValue -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.StructuredValue"
  packedMessageDescriptor :: Proxy StructuredValue -> ByteString
packedMessageDescriptor _
    = "\n\
      \\SIStructuredValue\DC26\n\
      \\n\
      \none_value\CAN\SOH \SOH(\v2\NAK.tensorflow.NoneValueH\NULR\tnoneValue\DC2%\n\
      \\rfloat64_value\CAN\v \SOH(\SOHH\NULR\ffloat64Value\DC2!\n\
      \\vint64_value\CAN\f \SOH(\DC2H\NULR\n\
      \int64Value\DC2#\n\
      \\fstring_value\CAN\r \SOH(\tH\NULR\vstringValue\DC2\US\n\
      \\n\
      \bool_value\CAN\SO \SOH(\bH\NULR\tboolValue\DC2L\n\
      \\DC2tensor_shape_value\CAN\US \SOH(\v2\FS.tensorflow.TensorShapeProtoH\NULR\DLEtensorShapeValue\DC2D\n\
      \\DC2tensor_dtype_value\CAN  \SOH(\SO2\DC4.tensorflow.DataTypeH\NULR\DLEtensorDtypeValue\DC2I\n\
      \\DC1tensor_spec_value\CAN! \SOH(\v2\ESC.tensorflow.TensorSpecProtoH\NULR\SItensorSpecValue\DC2C\n\
      \\SItype_spec_value\CAN\" \SOH(\v2\EM.tensorflow.TypeSpecProtoH\NULR\rtypeSpecValue\DC2_\n\
      \\EMbounded_tensor_spec_value\CAN# \SOH(\v2\".tensorflow.BoundedTensorSpecProtoH\NULR\SYNboundedTensorSpecValue\DC26\n\
      \\n\
      \list_value\CAN3 \SOH(\v2\NAK.tensorflow.ListValueH\NULR\tlistValue\DC29\n\
      \\vtuple_value\CAN4 \SOH(\v2\SYN.tensorflow.TupleValueH\NULR\n\
      \tupleValue\DC26\n\
      \\n\
      \dict_value\CAN5 \SOH(\v2\NAK.tensorflow.DictValueH\NULR\tdictValue\DC2I\n\
      \\DC1named_tuple_value\CAN6 \SOH(\v2\ESC.tensorflow.NamedTupleValueH\NULR\SInamedTupleValueB\ACK\n\
      \\EOTkind"
  packedFileDescriptor :: Proxy StructuredValue -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor StructuredValue)
fieldsByTag
    = let
        noneValue__field_descriptor :: FieldDescriptor StructuredValue
noneValue__field_descriptor
          = String
-> FieldTypeDescriptor NoneValue
-> FieldAccessor StructuredValue NoneValue
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "none_value"
              (MessageOrGroup -> FieldTypeDescriptor NoneValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NoneValue)
              (Lens' StructuredValue (Maybe NoneValue)
-> FieldAccessor StructuredValue NoneValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'noneValue" a, Functor f) =>
(a -> f a) -> s -> 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'noneValue")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        float64Value__field_descriptor :: FieldDescriptor StructuredValue
float64Value__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor StructuredValue Double
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "float64_value"
              (ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
              (Lens' StructuredValue (Maybe Double)
-> FieldAccessor StructuredValue Double
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'float64Value" a, Functor f) =>
(a -> f a) -> s -> 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'float64Value")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        int64Value__field_descriptor :: FieldDescriptor StructuredValue
int64Value__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor StructuredValue Int64
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "int64_value"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.SInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (Lens' StructuredValue (Maybe Int64)
-> FieldAccessor StructuredValue Int64
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'int64Value" a, Functor f) =>
(a -> f a) -> s -> 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'int64Value")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        stringValue__field_descriptor :: FieldDescriptor StructuredValue
stringValue__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor StructuredValue Text
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "string_value"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens' StructuredValue (Maybe Text)
-> FieldAccessor StructuredValue Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'stringValue" a, Functor f) =>
(a -> f a) -> s -> 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'stringValue")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        boolValue__field_descriptor :: FieldDescriptor StructuredValue
boolValue__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor StructuredValue Bool
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "bool_value"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens' StructuredValue (Maybe Bool)
-> FieldAccessor StructuredValue Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'boolValue" a, Functor f) =>
(a -> f a) -> s -> 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'boolValue")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        tensorShapeValue__field_descriptor :: FieldDescriptor StructuredValue
tensorShapeValue__field_descriptor
          = String
-> FieldTypeDescriptor TensorShapeProto
-> FieldAccessor StructuredValue TensorShapeProto
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "tensor_shape_value"
              (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' StructuredValue (Maybe TensorShapeProto)
-> FieldAccessor StructuredValue TensorShapeProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'tensorShapeValue" a, Functor f) =>
(a -> f a) -> s -> 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'tensorShapeValue")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        tensorDtypeValue__field_descriptor :: FieldDescriptor StructuredValue
tensorDtypeValue__field_descriptor
          = String
-> FieldTypeDescriptor DataType
-> FieldAccessor StructuredValue DataType
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "tensor_dtype_value"
              (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)
              (Lens' StructuredValue (Maybe DataType)
-> FieldAccessor StructuredValue DataType
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'tensorDtypeValue" a, Functor f) =>
(a -> f a) -> s -> 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'tensorDtypeValue")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        tensorSpecValue__field_descriptor :: FieldDescriptor StructuredValue
tensorSpecValue__field_descriptor
          = String
-> FieldTypeDescriptor TensorSpecProto
-> FieldAccessor StructuredValue TensorSpecProto
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "tensor_spec_value"
              (MessageOrGroup -> FieldTypeDescriptor TensorSpecProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TensorSpecProto)
              (Lens' StructuredValue (Maybe TensorSpecProto)
-> FieldAccessor StructuredValue TensorSpecProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'tensorSpecValue" a, Functor f) =>
(a -> f a) -> s -> 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'tensorSpecValue")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        typeSpecValue__field_descriptor :: FieldDescriptor StructuredValue
typeSpecValue__field_descriptor
          = String
-> FieldTypeDescriptor TypeSpecProto
-> FieldAccessor StructuredValue TypeSpecProto
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "type_spec_value"
              (MessageOrGroup -> FieldTypeDescriptor TypeSpecProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TypeSpecProto)
              (Lens' StructuredValue (Maybe TypeSpecProto)
-> FieldAccessor StructuredValue TypeSpecProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'typeSpecValue" a, Functor f) =>
(a -> f a) -> s -> 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'typeSpecValue")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        boundedTensorSpecValue__field_descriptor :: FieldDescriptor StructuredValue
boundedTensorSpecValue__field_descriptor
          = String
-> FieldTypeDescriptor BoundedTensorSpecProto
-> FieldAccessor StructuredValue BoundedTensorSpecProto
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "bounded_tensor_spec_value"
              (MessageOrGroup -> FieldTypeDescriptor BoundedTensorSpecProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BoundedTensorSpecProto)
              (Lens' StructuredValue (Maybe BoundedTensorSpecProto)
-> FieldAccessor StructuredValue BoundedTensorSpecProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'boundedTensorSpecValue" a, Functor f) =>
(a -> f a) -> s -> 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'boundedTensorSpecValue")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        listValue__field_descriptor :: FieldDescriptor StructuredValue
listValue__field_descriptor
          = String
-> FieldTypeDescriptor ListValue
-> FieldAccessor StructuredValue ListValue
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "list_value"
              (MessageOrGroup -> FieldTypeDescriptor ListValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ListValue)
              (Lens' StructuredValue (Maybe ListValue)
-> FieldAccessor StructuredValue ListValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'listValue" a, Functor f) =>
(a -> f a) -> s -> 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'listValue")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        tupleValue__field_descriptor :: FieldDescriptor StructuredValue
tupleValue__field_descriptor
          = String
-> FieldTypeDescriptor TupleValue
-> FieldAccessor StructuredValue TupleValue
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "tuple_value"
              (MessageOrGroup -> FieldTypeDescriptor TupleValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TupleValue)
              (Lens' StructuredValue (Maybe TupleValue)
-> FieldAccessor StructuredValue TupleValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'tupleValue" a, Functor f) =>
(a -> f a) -> s -> 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'tupleValue")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        dictValue__field_descriptor :: FieldDescriptor StructuredValue
dictValue__field_descriptor
          = String
-> FieldTypeDescriptor DictValue
-> FieldAccessor StructuredValue DictValue
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "dict_value"
              (MessageOrGroup -> FieldTypeDescriptor DictValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor DictValue)
              (Lens' StructuredValue (Maybe DictValue)
-> FieldAccessor StructuredValue DictValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'dictValue" a, Functor f) =>
(a -> f a) -> s -> 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'dictValue")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
        namedTupleValue__field_descriptor :: FieldDescriptor StructuredValue
namedTupleValue__field_descriptor
          = String
-> FieldTypeDescriptor NamedTupleValue
-> FieldAccessor StructuredValue NamedTupleValue
-> FieldDescriptor StructuredValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "named_tuple_value"
              (MessageOrGroup -> FieldTypeDescriptor NamedTupleValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NamedTupleValue)
              (Lens' StructuredValue (Maybe NamedTupleValue)
-> FieldAccessor StructuredValue NamedTupleValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'namedTupleValue" a, Functor f) =>
(a -> f a) -> s -> 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'namedTupleValue")) ::
              Data.ProtoLens.FieldDescriptor StructuredValue
      in
        [(Tag, FieldDescriptor StructuredValue)]
-> Map Tag (FieldDescriptor StructuredValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor StructuredValue
noneValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 11, FieldDescriptor StructuredValue
float64Value__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 12, FieldDescriptor StructuredValue
int64Value__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 13, FieldDescriptor StructuredValue
stringValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 14, FieldDescriptor StructuredValue
boolValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 31, FieldDescriptor StructuredValue
tensorShapeValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 32, FieldDescriptor StructuredValue
tensorDtypeValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 33, FieldDescriptor StructuredValue
tensorSpecValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 34, FieldDescriptor StructuredValue
typeSpecValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 35, FieldDescriptor StructuredValue
boundedTensorSpecValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 51, FieldDescriptor StructuredValue
listValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 52, FieldDescriptor StructuredValue
tupleValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 53, FieldDescriptor StructuredValue
dictValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 54, FieldDescriptor StructuredValue
namedTupleValue__field_descriptor)]
  unknownFields :: LensLike' f StructuredValue FieldSet
unknownFields
    = (StructuredValue -> FieldSet)
-> (StructuredValue -> FieldSet -> StructuredValue)
-> Lens' StructuredValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        StructuredValue -> FieldSet
_StructuredValue'_unknownFields
        (\ x__ :: StructuredValue
x__ y__ :: FieldSet
y__ -> StructuredValue
x__ {_StructuredValue'_unknownFields :: FieldSet
_StructuredValue'_unknownFields = FieldSet
y__})
  defMessage :: StructuredValue
defMessage
    = $WStructuredValue'_constructor :: Maybe StructuredValue'Kind -> FieldSet -> StructuredValue
StructuredValue'_constructor
        {_StructuredValue'kind :: Maybe StructuredValue'Kind
_StructuredValue'kind = Maybe StructuredValue'Kind
forall a. Maybe a
Prelude.Nothing,
         _StructuredValue'_unknownFields :: FieldSet
_StructuredValue'_unknownFields = []}
  parseMessage :: Parser StructuredValue
parseMessage
    = let
        loop ::
          StructuredValue
          -> Data.ProtoLens.Encoding.Bytes.Parser StructuredValue
        loop :: StructuredValue -> Parser StructuredValue
loop x :: StructuredValue
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]))))
                      StructuredValue -> Parser StructuredValue
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter StructuredValue StructuredValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> StructuredValue -> StructuredValue
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 StructuredValue StructuredValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) StructuredValue
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do NoneValue
y <- Parser NoneValue -> String -> Parser NoneValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser NoneValue -> Parser NoneValue
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 NoneValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "none_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter StructuredValue StructuredValue NoneValue NoneValue
-> NoneValue -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "noneValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"noneValue") NoneValue
y StructuredValue
x)
                        89
                          -> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       "float64_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter StructuredValue StructuredValue Double Double
-> Double -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "float64Value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"float64Value") Double
y StructuredValue
x)
                        96
                          -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
Data.ProtoLens.Encoding.Bytes.wordToSignedInt64
                                          ((Word64 -> Word64) -> Parser Word64 -> Parser Word64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       "int64_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter StructuredValue StructuredValue Int64 Int64
-> Int64 -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "int64Value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"int64Value") Int64
y StructuredValue
x)
                        106
                          -> 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))
                                       "string_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter StructuredValue StructuredValue Text Text
-> Text -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stringValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stringValue") Text
y StructuredValue
x)
                        112
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "bool_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter StructuredValue StructuredValue Bool Bool
-> Bool -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "boolValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"boolValue") Bool
y StructuredValue
x)
                        250
                          -> do TensorShapeProto
y <- Parser TensorShapeProto -> String -> Parser TensorShapeProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TensorShapeProto -> Parser TensorShapeProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TensorShapeProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "tensor_shape_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter
  StructuredValue StructuredValue TensorShapeProto TensorShapeProto
-> TensorShapeProto -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "tensorShapeValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorShapeValue") TensorShapeProto
y StructuredValue
x)
                        256
                          -> 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))
                                       "tensor_dtype_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter StructuredValue StructuredValue DataType DataType
-> DataType -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "tensorDtypeValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorDtypeValue") DataType
y StructuredValue
x)
                        266
                          -> do TensorSpecProto
y <- Parser TensorSpecProto -> String -> Parser TensorSpecProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TensorSpecProto -> Parser TensorSpecProto
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 TensorSpecProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "tensor_spec_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter
  StructuredValue StructuredValue TensorSpecProto TensorSpecProto
-> TensorSpecProto -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "tensorSpecValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorSpecValue") TensorSpecProto
y StructuredValue
x)
                        274
                          -> do TypeSpecProto
y <- Parser TypeSpecProto -> String -> Parser TypeSpecProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TypeSpecProto -> Parser TypeSpecProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TypeSpecProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "type_spec_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter StructuredValue StructuredValue TypeSpecProto TypeSpecProto
-> TypeSpecProto -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "typeSpecValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeSpecValue") TypeSpecProto
y StructuredValue
x)
                        282
                          -> do BoundedTensorSpecProto
y <- Parser BoundedTensorSpecProto
-> String -> Parser BoundedTensorSpecProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser BoundedTensorSpecProto -> Parser BoundedTensorSpecProto
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 BoundedTensorSpecProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "bounded_tensor_spec_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter
  StructuredValue
  StructuredValue
  BoundedTensorSpecProto
  BoundedTensorSpecProto
-> BoundedTensorSpecProto -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "boundedTensorSpecValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"boundedTensorSpecValue") BoundedTensorSpecProto
y StructuredValue
x)
                        410
                          -> do ListValue
y <- Parser ListValue -> String -> Parser ListValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ListValue -> Parser ListValue
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 ListValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "list_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter StructuredValue StructuredValue ListValue ListValue
-> ListValue -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "listValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"listValue") ListValue
y StructuredValue
x)
                        418
                          -> do TupleValue
y <- Parser TupleValue -> String -> Parser TupleValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TupleValue -> Parser TupleValue
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 TupleValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "tuple_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter StructuredValue StructuredValue TupleValue TupleValue
-> TupleValue -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "tupleValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tupleValue") TupleValue
y StructuredValue
x)
                        426
                          -> do DictValue
y <- Parser DictValue -> String -> Parser DictValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser DictValue -> Parser DictValue
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 DictValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "dict_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter StructuredValue StructuredValue DictValue DictValue
-> DictValue -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "dictValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dictValue") DictValue
y StructuredValue
x)
                        434
                          -> do NamedTupleValue
y <- Parser NamedTupleValue -> String -> Parser NamedTupleValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser NamedTupleValue -> Parser NamedTupleValue
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 NamedTupleValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "named_tuple_value"
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter
  StructuredValue StructuredValue NamedTupleValue NamedTupleValue
-> NamedTupleValue -> StructuredValue -> StructuredValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "namedTupleValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"namedTupleValue") NamedTupleValue
y StructuredValue
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                StructuredValue -> Parser StructuredValue
loop
                                  (Setter StructuredValue StructuredValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> StructuredValue -> StructuredValue
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 StructuredValue StructuredValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) StructuredValue
x)
      in
        Parser StructuredValue -> String -> Parser StructuredValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do StructuredValue -> Parser StructuredValue
loop StructuredValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "StructuredValue"
  buildMessage :: StructuredValue -> Builder
buildMessage
    = \ _x :: StructuredValue
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe StructuredValue'Kind)
  StructuredValue
  StructuredValue
  (Maybe StructuredValue'Kind)
  (Maybe StructuredValue'Kind)
-> StructuredValue -> Maybe StructuredValue'Kind
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'kind" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'kind") StructuredValue
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (StructuredValue'NoneValue v :: NoneValue
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder)
-> (NoneValue -> ByteString) -> NoneValue -> 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))
                          NoneValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          NoneValue
v)
                (Prelude.Just (StructuredValue'Float64Value v :: Double
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 89)
                       ((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
                          Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord
                          Double
v)
                (Prelude.Just (StructuredValue'Int64Value v :: Int64
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 96)
                       ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          ((Word64 -> Builder) -> (Word64 -> Word64) -> Word64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                          Int64 -> Word64
Data.ProtoLens.Encoding.Bytes.signedInt64ToWord
                          Int64
v)
                (Prelude.Just (StructuredValue'StringValue v :: Text
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 106)
                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                          Text
v)
                (Prelude.Just (StructuredValue'BoolValue v :: Bool
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 112)
                       ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                          (\ b :: Bool
b -> if Bool
b then 1 else 0)
                          Bool
v)
                (Prelude.Just (StructuredValue'TensorShapeValue v :: TensorShapeProto
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 250)
                       ((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)
                (Prelude.Just (StructuredValue'TensorDtypeValue v :: DataType
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 256)
                       ((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)
                (Prelude.Just (StructuredValue'TensorSpecValue v :: TensorSpecProto
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 266)
                       ((ByteString -> Builder)
-> (TensorSpecProto -> ByteString) -> TensorSpecProto -> 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))
                          TensorSpecProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          TensorSpecProto
v)
                (Prelude.Just (StructuredValue'TypeSpecValue v :: TypeSpecProto
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 274)
                       ((ByteString -> Builder)
-> (TypeSpecProto -> ByteString) -> TypeSpecProto -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          TypeSpecProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          TypeSpecProto
v)
                (Prelude.Just (StructuredValue'BoundedTensorSpecValue v :: BoundedTensorSpecProto
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 282)
                       ((ByteString -> Builder)
-> (BoundedTensorSpecProto -> ByteString)
-> BoundedTensorSpecProto
-> 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))
                          BoundedTensorSpecProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          BoundedTensorSpecProto
v)
                (Prelude.Just (StructuredValue'ListValue v :: ListValue
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 410)
                       ((ByteString -> Builder)
-> (ListValue -> ByteString) -> ListValue -> 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))
                          ListValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          ListValue
v)
                (Prelude.Just (StructuredValue'TupleValue v :: TupleValue
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 418)
                       ((ByteString -> Builder)
-> (TupleValue -> ByteString) -> TupleValue -> 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))
                          TupleValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          TupleValue
v)
                (Prelude.Just (StructuredValue'DictValue v :: DictValue
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 426)
                       ((ByteString -> Builder)
-> (DictValue -> ByteString) -> DictValue -> 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))
                          DictValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          DictValue
v)
                (Prelude.Just (StructuredValue'NamedTupleValue v :: NamedTupleValue
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 434)
                       ((ByteString -> Builder)
-> (NamedTupleValue -> ByteString) -> NamedTupleValue -> 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))
                          NamedTupleValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          NamedTupleValue
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet StructuredValue StructuredValue FieldSet FieldSet
-> StructuredValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet StructuredValue StructuredValue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields StructuredValue
_x))
instance Control.DeepSeq.NFData StructuredValue where
  rnf :: StructuredValue -> ()
rnf
    = \ x__ :: StructuredValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (StructuredValue -> FieldSet
_StructuredValue'_unknownFields StructuredValue
x__)
             (Maybe StructuredValue'Kind -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (StructuredValue -> Maybe StructuredValue'Kind
_StructuredValue'kind StructuredValue
x__) ())
instance Control.DeepSeq.NFData StructuredValue'Kind where
  rnf :: StructuredValue'Kind -> ()
rnf (StructuredValue'NoneValue x__ :: NoneValue
x__) = NoneValue -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf NoneValue
x__
  rnf (StructuredValue'Float64Value x__ :: Double
x__) = Double -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Double
x__
  rnf (StructuredValue'Int64Value x__ :: Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
  rnf (StructuredValue'StringValue x__ :: Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
  rnf (StructuredValue'BoolValue x__ :: Bool
x__) = Bool -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Bool
x__
  rnf (StructuredValue'TensorShapeValue x__ :: TensorShapeProto
x__)
    = TensorShapeProto -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TensorShapeProto
x__
  rnf (StructuredValue'TensorDtypeValue x__ :: DataType
x__)
    = DataType -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf DataType
x__
  rnf (StructuredValue'TensorSpecValue x__ :: TensorSpecProto
x__) = TensorSpecProto -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TensorSpecProto
x__
  rnf (StructuredValue'TypeSpecValue x__ :: TypeSpecProto
x__) = TypeSpecProto -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TypeSpecProto
x__
  rnf (StructuredValue'BoundedTensorSpecValue x__ :: BoundedTensorSpecProto
x__)
    = BoundedTensorSpecProto -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf BoundedTensorSpecProto
x__
  rnf (StructuredValue'ListValue x__ :: ListValue
x__) = ListValue -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ListValue
x__
  rnf (StructuredValue'TupleValue x__ :: TupleValue
x__) = TupleValue -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TupleValue
x__
  rnf (StructuredValue'DictValue x__ :: DictValue
x__) = DictValue -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf DictValue
x__
  rnf (StructuredValue'NamedTupleValue x__ :: NamedTupleValue
x__) = NamedTupleValue -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf NamedTupleValue
x__
_StructuredValue'NoneValue ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind NoneValue
_StructuredValue'NoneValue :: p NoneValue (f NoneValue)
-> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'NoneValue
  = (NoneValue -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe NoneValue)
-> Prism
     StructuredValue'Kind StructuredValue'Kind NoneValue NoneValue
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      NoneValue -> StructuredValue'Kind
StructuredValue'NoneValue
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'NoneValue p__val :: NoneValue
p__val) -> NoneValue -> Maybe NoneValue
forall a. a -> Maybe a
Prelude.Just NoneValue
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe NoneValue
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'Float64Value ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind Prelude.Double
_StructuredValue'Float64Value :: p Double (f Double)
-> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'Float64Value
  = (Double -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe Double)
-> Prism StructuredValue'Kind StructuredValue'Kind Double Double
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Double -> StructuredValue'Kind
StructuredValue'Float64Value
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'Float64Value p__val :: Double
p__val) -> Double -> Maybe Double
forall a. a -> Maybe a
Prelude.Just Double
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe Double
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'Int64Value ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind Data.Int.Int64
_StructuredValue'Int64Value :: p Int64 (f Int64)
-> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'Int64Value
  = (Int64 -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe Int64)
-> Prism StructuredValue'Kind StructuredValue'Kind Int64 Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> StructuredValue'Kind
StructuredValue'Int64Value
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'Int64Value p__val :: Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'StringValue ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind Data.Text.Text
_StructuredValue'StringValue :: p Text (f Text) -> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'StringValue
  = (Text -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe Text)
-> Prism StructuredValue'Kind StructuredValue'Kind Text Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> StructuredValue'Kind
StructuredValue'StringValue
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'StringValue p__val :: Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'BoolValue ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind Prelude.Bool
_StructuredValue'BoolValue :: p Bool (f Bool) -> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'BoolValue
  = (Bool -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe Bool)
-> Prism StructuredValue'Kind StructuredValue'Kind Bool Bool
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Bool -> StructuredValue'Kind
StructuredValue'BoolValue
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'BoolValue p__val :: Bool
p__val) -> Bool -> Maybe Bool
forall a. a -> Maybe a
Prelude.Just Bool
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe Bool
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'TensorShapeValue ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto
_StructuredValue'TensorShapeValue :: p TensorShapeProto (f TensorShapeProto)
-> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'TensorShapeValue
  = (TensorShapeProto -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe TensorShapeProto)
-> Prism
     StructuredValue'Kind
     StructuredValue'Kind
     TensorShapeProto
     TensorShapeProto
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      TensorShapeProto -> StructuredValue'Kind
StructuredValue'TensorShapeValue
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'TensorShapeValue p__val :: TensorShapeProto
p__val) -> TensorShapeProto -> Maybe TensorShapeProto
forall a. a -> Maybe a
Prelude.Just TensorShapeProto
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe TensorShapeProto
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'TensorDtypeValue ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind Proto.Tensorflow.Core.Framework.Types.DataType
_StructuredValue'TensorDtypeValue :: p DataType (f DataType)
-> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'TensorDtypeValue
  = (DataType -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe DataType)
-> Prism
     StructuredValue'Kind StructuredValue'Kind DataType DataType
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      DataType -> StructuredValue'Kind
StructuredValue'TensorDtypeValue
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'TensorDtypeValue p__val :: DataType
p__val) -> DataType -> Maybe DataType
forall a. a -> Maybe a
Prelude.Just DataType
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe DataType
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'TensorSpecValue ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind TensorSpecProto
_StructuredValue'TensorSpecValue :: p TensorSpecProto (f TensorSpecProto)
-> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'TensorSpecValue
  = (TensorSpecProto -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe TensorSpecProto)
-> Prism
     StructuredValue'Kind
     StructuredValue'Kind
     TensorSpecProto
     TensorSpecProto
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      TensorSpecProto -> StructuredValue'Kind
StructuredValue'TensorSpecValue
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'TensorSpecValue p__val :: TensorSpecProto
p__val) -> TensorSpecProto -> Maybe TensorSpecProto
forall a. a -> Maybe a
Prelude.Just TensorSpecProto
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe TensorSpecProto
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'TypeSpecValue ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind TypeSpecProto
_StructuredValue'TypeSpecValue :: p TypeSpecProto (f TypeSpecProto)
-> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'TypeSpecValue
  = (TypeSpecProto -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe TypeSpecProto)
-> Prism
     StructuredValue'Kind
     StructuredValue'Kind
     TypeSpecProto
     TypeSpecProto
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      TypeSpecProto -> StructuredValue'Kind
StructuredValue'TypeSpecValue
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'TypeSpecValue p__val :: TypeSpecProto
p__val) -> TypeSpecProto -> Maybe TypeSpecProto
forall a. a -> Maybe a
Prelude.Just TypeSpecProto
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe TypeSpecProto
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'BoundedTensorSpecValue ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind BoundedTensorSpecProto
_StructuredValue'BoundedTensorSpecValue :: p BoundedTensorSpecProto (f BoundedTensorSpecProto)
-> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'BoundedTensorSpecValue
  = (BoundedTensorSpecProto -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe BoundedTensorSpecProto)
-> Prism
     StructuredValue'Kind
     StructuredValue'Kind
     BoundedTensorSpecProto
     BoundedTensorSpecProto
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      BoundedTensorSpecProto -> StructuredValue'Kind
StructuredValue'BoundedTensorSpecValue
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'BoundedTensorSpecValue p__val :: BoundedTensorSpecProto
p__val)
                -> BoundedTensorSpecProto -> Maybe BoundedTensorSpecProto
forall a. a -> Maybe a
Prelude.Just BoundedTensorSpecProto
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe BoundedTensorSpecProto
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'ListValue ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind ListValue
_StructuredValue'ListValue :: p ListValue (f ListValue)
-> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'ListValue
  = (ListValue -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe ListValue)
-> Prism
     StructuredValue'Kind StructuredValue'Kind ListValue ListValue
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ListValue -> StructuredValue'Kind
StructuredValue'ListValue
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'ListValue p__val :: ListValue
p__val) -> ListValue -> Maybe ListValue
forall a. a -> Maybe a
Prelude.Just ListValue
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe ListValue
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'TupleValue ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind TupleValue
_StructuredValue'TupleValue :: p TupleValue (f TupleValue)
-> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'TupleValue
  = (TupleValue -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe TupleValue)
-> Prism
     StructuredValue'Kind StructuredValue'Kind TupleValue TupleValue
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      TupleValue -> StructuredValue'Kind
StructuredValue'TupleValue
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'TupleValue p__val :: TupleValue
p__val) -> TupleValue -> Maybe TupleValue
forall a. a -> Maybe a
Prelude.Just TupleValue
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe TupleValue
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'DictValue ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind DictValue
_StructuredValue'DictValue :: p DictValue (f DictValue)
-> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'DictValue
  = (DictValue -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe DictValue)
-> Prism
     StructuredValue'Kind StructuredValue'Kind DictValue DictValue
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      DictValue -> StructuredValue'Kind
StructuredValue'DictValue
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'DictValue p__val :: DictValue
p__val) -> DictValue -> Maybe DictValue
forall a. a -> Maybe a
Prelude.Just DictValue
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe DictValue
forall a. Maybe a
Prelude.Nothing)
_StructuredValue'NamedTupleValue ::
  Data.ProtoLens.Prism.Prism' StructuredValue'Kind NamedTupleValue
_StructuredValue'NamedTupleValue :: p NamedTupleValue (f NamedTupleValue)
-> p StructuredValue'Kind (f StructuredValue'Kind)
_StructuredValue'NamedTupleValue
  = (NamedTupleValue -> StructuredValue'Kind)
-> (StructuredValue'Kind -> Maybe NamedTupleValue)
-> Prism
     StructuredValue'Kind
     StructuredValue'Kind
     NamedTupleValue
     NamedTupleValue
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      NamedTupleValue -> StructuredValue'Kind
StructuredValue'NamedTupleValue
      (\ p__ :: StructuredValue'Kind
p__
         -> case StructuredValue'Kind
p__ of
              (StructuredValue'NamedTupleValue p__val :: NamedTupleValue
p__val) -> NamedTupleValue -> Maybe NamedTupleValue
forall a. a -> Maybe a
Prelude.Just NamedTupleValue
p__val
              _otherwise :: StructuredValue'Kind
_otherwise -> Maybe NamedTupleValue
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.name' @:: Lens' TensorSpecProto Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.shape' @:: Lens' TensorSpecProto Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'shape' @:: Lens' TensorSpecProto (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.dtype' @:: Lens' TensorSpecProto Proto.Tensorflow.Core.Framework.Types.DataType@ -}
data TensorSpecProto
  = TensorSpecProto'_constructor {TensorSpecProto -> Text
_TensorSpecProto'name :: !Data.Text.Text,
                                  TensorSpecProto -> Maybe TensorShapeProto
_TensorSpecProto'shape :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto),
                                  TensorSpecProto -> DataType
_TensorSpecProto'dtype :: !Proto.Tensorflow.Core.Framework.Types.DataType,
                                  TensorSpecProto -> FieldSet
_TensorSpecProto'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TensorSpecProto -> TensorSpecProto -> Bool
(TensorSpecProto -> TensorSpecProto -> Bool)
-> (TensorSpecProto -> TensorSpecProto -> Bool)
-> Eq TensorSpecProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TensorSpecProto -> TensorSpecProto -> Bool
$c/= :: TensorSpecProto -> TensorSpecProto -> Bool
== :: TensorSpecProto -> TensorSpecProto -> Bool
$c== :: TensorSpecProto -> TensorSpecProto -> Bool
Prelude.Eq, Eq TensorSpecProto
Eq TensorSpecProto =>
(TensorSpecProto -> TensorSpecProto -> Ordering)
-> (TensorSpecProto -> TensorSpecProto -> Bool)
-> (TensorSpecProto -> TensorSpecProto -> Bool)
-> (TensorSpecProto -> TensorSpecProto -> Bool)
-> (TensorSpecProto -> TensorSpecProto -> Bool)
-> (TensorSpecProto -> TensorSpecProto -> TensorSpecProto)
-> (TensorSpecProto -> TensorSpecProto -> TensorSpecProto)
-> Ord TensorSpecProto
TensorSpecProto -> TensorSpecProto -> Bool
TensorSpecProto -> TensorSpecProto -> Ordering
TensorSpecProto -> TensorSpecProto -> TensorSpecProto
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 :: TensorSpecProto -> TensorSpecProto -> TensorSpecProto
$cmin :: TensorSpecProto -> TensorSpecProto -> TensorSpecProto
max :: TensorSpecProto -> TensorSpecProto -> TensorSpecProto
$cmax :: TensorSpecProto -> TensorSpecProto -> TensorSpecProto
>= :: TensorSpecProto -> TensorSpecProto -> Bool
$c>= :: TensorSpecProto -> TensorSpecProto -> Bool
> :: TensorSpecProto -> TensorSpecProto -> Bool
$c> :: TensorSpecProto -> TensorSpecProto -> Bool
<= :: TensorSpecProto -> TensorSpecProto -> Bool
$c<= :: TensorSpecProto -> TensorSpecProto -> Bool
< :: TensorSpecProto -> TensorSpecProto -> Bool
$c< :: TensorSpecProto -> TensorSpecProto -> Bool
compare :: TensorSpecProto -> TensorSpecProto -> Ordering
$ccompare :: TensorSpecProto -> TensorSpecProto -> Ordering
$cp1Ord :: Eq TensorSpecProto
Prelude.Ord)
instance Prelude.Show TensorSpecProto where
  showsPrec :: Int -> TensorSpecProto -> ShowS
showsPrec _ __x :: TensorSpecProto
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (TensorSpecProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TensorSpecProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TensorSpecProto "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text) -> TensorSpecProto -> f TensorSpecProto
fieldOf _
    = ((Text -> f Text) -> TensorSpecProto -> f TensorSpecProto)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TensorSpecProto
-> f TensorSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TensorSpecProto -> Text)
-> (TensorSpecProto -> Text -> TensorSpecProto)
-> Lens TensorSpecProto TensorSpecProto Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TensorSpecProto -> Text
_TensorSpecProto'name
           (\ x__ :: TensorSpecProto
x__ y__ :: Text
y__ -> TensorSpecProto
x__ {_TensorSpecProto'name :: Text
_TensorSpecProto'name = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorSpecProto "shape" Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto where
  fieldOf :: Proxy# "shape"
-> (TensorShapeProto -> f TensorShapeProto)
-> TensorSpecProto
-> f TensorSpecProto
fieldOf _
    = ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
 -> TensorSpecProto -> f TensorSpecProto)
-> ((TensorShapeProto -> f TensorShapeProto)
    -> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (TensorShapeProto -> f TensorShapeProto)
-> TensorSpecProto
-> f TensorSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TensorSpecProto -> Maybe TensorShapeProto)
-> (TensorSpecProto -> Maybe TensorShapeProto -> TensorSpecProto)
-> Lens
     TensorSpecProto
     TensorSpecProto
     (Maybe TensorShapeProto)
     (Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TensorSpecProto -> Maybe TensorShapeProto
_TensorSpecProto'shape
           (\ x__ :: TensorSpecProto
x__ y__ :: Maybe TensorShapeProto
y__ -> TensorSpecProto
x__ {_TensorSpecProto'shape :: Maybe TensorShapeProto
_TensorSpecProto'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 TensorSpecProto "maybe'shape" (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) where
  fieldOf :: Proxy# "maybe'shape"
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> TensorSpecProto
-> f TensorSpecProto
fieldOf _
    = ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
 -> TensorSpecProto -> f TensorSpecProto)
-> ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
    -> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> TensorSpecProto
-> f TensorSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TensorSpecProto -> Maybe TensorShapeProto)
-> (TensorSpecProto -> Maybe TensorShapeProto -> TensorSpecProto)
-> Lens
     TensorSpecProto
     TensorSpecProto
     (Maybe TensorShapeProto)
     (Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TensorSpecProto -> Maybe TensorShapeProto
_TensorSpecProto'shape
           (\ x__ :: TensorSpecProto
x__ y__ :: Maybe TensorShapeProto
y__ -> TensorSpecProto
x__ {_TensorSpecProto'shape :: Maybe TensorShapeProto
_TensorSpecProto'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 TensorSpecProto "dtype" Proto.Tensorflow.Core.Framework.Types.DataType where
  fieldOf :: Proxy# "dtype"
-> (DataType -> f DataType) -> TensorSpecProto -> f TensorSpecProto
fieldOf _
    = ((DataType -> f DataType) -> TensorSpecProto -> f TensorSpecProto)
-> ((DataType -> f DataType) -> DataType -> f DataType)
-> (DataType -> f DataType)
-> TensorSpecProto
-> f TensorSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TensorSpecProto -> DataType)
-> (TensorSpecProto -> DataType -> TensorSpecProto)
-> Lens TensorSpecProto TensorSpecProto DataType DataType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TensorSpecProto -> DataType
_TensorSpecProto'dtype
           (\ x__ :: TensorSpecProto
x__ y__ :: DataType
y__ -> TensorSpecProto
x__ {_TensorSpecProto'dtype :: DataType
_TensorSpecProto'dtype = DataType
y__}))
        (DataType -> f DataType) -> DataType -> f DataType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TensorSpecProto where
  messageName :: Proxy TensorSpecProto -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.TensorSpecProto"
  packedMessageDescriptor :: Proxy TensorSpecProto -> ByteString
packedMessageDescriptor _
    = "\n\
      \\SITensorSpecProto\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC22\n\
      \\ENQshape\CAN\STX \SOH(\v2\FS.tensorflow.TensorShapeProtoR\ENQshape\DC2*\n\
      \\ENQdtype\CAN\ETX \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype"
  packedFileDescriptor :: Proxy TensorSpecProto -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TensorSpecProto)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor TensorSpecProto
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor TensorSpecProto Text
-> FieldDescriptor TensorSpecProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens TensorSpecProto TensorSpecProto Text Text
-> FieldAccessor TensorSpecProto Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor TensorSpecProto
        shape__field_descriptor :: FieldDescriptor TensorSpecProto
shape__field_descriptor
          = String
-> FieldTypeDescriptor TensorShapeProto
-> FieldAccessor TensorSpecProto TensorShapeProto
-> FieldDescriptor TensorSpecProto
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
  TensorSpecProto
  TensorSpecProto
  (Maybe TensorShapeProto)
  (Maybe TensorShapeProto)
-> FieldAccessor TensorSpecProto 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 TensorSpecProto
        dtype__field_descriptor :: FieldDescriptor TensorSpecProto
dtype__field_descriptor
          = String
-> FieldTypeDescriptor DataType
-> FieldAccessor TensorSpecProto DataType
-> FieldDescriptor TensorSpecProto
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 TensorSpecProto TensorSpecProto DataType DataType
-> FieldAccessor TensorSpecProto 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 TensorSpecProto
      in
        [(Tag, FieldDescriptor TensorSpecProto)]
-> Map Tag (FieldDescriptor TensorSpecProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TensorSpecProto
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor TensorSpecProto
shape__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor TensorSpecProto
dtype__field_descriptor)]
  unknownFields :: LensLike' f TensorSpecProto FieldSet
unknownFields
    = (TensorSpecProto -> FieldSet)
-> (TensorSpecProto -> FieldSet -> TensorSpecProto)
-> Lens' TensorSpecProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TensorSpecProto -> FieldSet
_TensorSpecProto'_unknownFields
        (\ x__ :: TensorSpecProto
x__ y__ :: FieldSet
y__ -> TensorSpecProto
x__ {_TensorSpecProto'_unknownFields :: FieldSet
_TensorSpecProto'_unknownFields = FieldSet
y__})
  defMessage :: TensorSpecProto
defMessage
    = $WTensorSpecProto'_constructor :: Text
-> Maybe TensorShapeProto
-> DataType
-> FieldSet
-> TensorSpecProto
TensorSpecProto'_constructor
        {_TensorSpecProto'name :: Text
_TensorSpecProto'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TensorSpecProto'shape :: Maybe TensorShapeProto
_TensorSpecProto'shape = Maybe TensorShapeProto
forall a. Maybe a
Prelude.Nothing,
         _TensorSpecProto'dtype :: DataType
_TensorSpecProto'dtype = DataType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TensorSpecProto'_unknownFields :: FieldSet
_TensorSpecProto'_unknownFields = []}
  parseMessage :: Parser TensorSpecProto
parseMessage
    = let
        loop ::
          TensorSpecProto
          -> Data.ProtoLens.Encoding.Bytes.Parser TensorSpecProto
        loop :: TensorSpecProto -> Parser TensorSpecProto
loop x :: TensorSpecProto
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]))))
                      TensorSpecProto -> Parser TensorSpecProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TensorSpecProto TensorSpecProto FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TensorSpecProto -> TensorSpecProto
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 TensorSpecProto TensorSpecProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TensorSpecProto
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))
                                       "name"
                                TensorSpecProto -> Parser TensorSpecProto
loop (Setter TensorSpecProto TensorSpecProto Text Text
-> Text -> TensorSpecProto -> TensorSpecProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y TensorSpecProto
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"
                                TensorSpecProto -> Parser TensorSpecProto
loop (Setter
  TensorSpecProto TensorSpecProto TensorShapeProto TensorShapeProto
-> TensorShapeProto -> TensorSpecProto -> TensorSpecProto
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 TensorSpecProto
x)
                        24
                          -> 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"
                                TensorSpecProto -> Parser TensorSpecProto
loop (Setter TensorSpecProto TensorSpecProto DataType DataType
-> DataType -> TensorSpecProto -> TensorSpecProto
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 TensorSpecProto
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TensorSpecProto -> Parser TensorSpecProto
loop
                                  (Setter TensorSpecProto TensorSpecProto FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TensorSpecProto -> TensorSpecProto
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 TensorSpecProto TensorSpecProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TensorSpecProto
x)
      in
        Parser TensorSpecProto -> String -> Parser TensorSpecProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do TensorSpecProto -> Parser TensorSpecProto
loop TensorSpecProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "TensorSpecProto"
  buildMessage :: TensorSpecProto -> Builder
buildMessage
    = \ _x :: TensorSpecProto
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text TensorSpecProto TensorSpecProto Text Text
-> TensorSpecProto -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") TensorSpecProto
_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 TensorShapeProto)
  TensorSpecProto
  TensorSpecProto
  (Maybe TensorShapeProto)
  (Maybe TensorShapeProto)
-> TensorSpecProto -> 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") TensorSpecProto
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: TensorShapeProto
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (TensorShapeProto -> ByteString) -> TensorShapeProto -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             TensorShapeProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             TensorShapeProto
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: DataType
_v = FoldLike DataType TensorSpecProto TensorSpecProto DataType DataType
-> TensorSpecProto -> 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") TensorSpecProto
_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 24)
                            ((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))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet TensorSpecProto TensorSpecProto FieldSet FieldSet
-> TensorSpecProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TensorSpecProto TensorSpecProto FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TensorSpecProto
_x))))
instance Control.DeepSeq.NFData TensorSpecProto where
  rnf :: TensorSpecProto -> ()
rnf
    = \ x__ :: TensorSpecProto
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TensorSpecProto -> FieldSet
_TensorSpecProto'_unknownFields TensorSpecProto
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TensorSpecProto -> Text
_TensorSpecProto'name TensorSpecProto
x__)
                (Maybe TensorShapeProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (TensorSpecProto -> Maybe TensorShapeProto
_TensorSpecProto'shape TensorSpecProto
x__)
                   (DataType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TensorSpecProto -> DataType
_TensorSpecProto'dtype TensorSpecProto
x__) ())))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.values' @:: Lens' TupleValue [StructuredValue]@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.vec'values' @:: Lens' TupleValue (Data.Vector.Vector StructuredValue)@ -}
data TupleValue
  = TupleValue'_constructor {TupleValue -> Vector StructuredValue
_TupleValue'values :: !(Data.Vector.Vector StructuredValue),
                             TupleValue -> FieldSet
_TupleValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TupleValue -> TupleValue -> Bool
(TupleValue -> TupleValue -> Bool)
-> (TupleValue -> TupleValue -> Bool) -> Eq TupleValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TupleValue -> TupleValue -> Bool
$c/= :: TupleValue -> TupleValue -> Bool
== :: TupleValue -> TupleValue -> Bool
$c== :: TupleValue -> TupleValue -> Bool
Prelude.Eq, Eq TupleValue
Eq TupleValue =>
(TupleValue -> TupleValue -> Ordering)
-> (TupleValue -> TupleValue -> Bool)
-> (TupleValue -> TupleValue -> Bool)
-> (TupleValue -> TupleValue -> Bool)
-> (TupleValue -> TupleValue -> Bool)
-> (TupleValue -> TupleValue -> TupleValue)
-> (TupleValue -> TupleValue -> TupleValue)
-> Ord TupleValue
TupleValue -> TupleValue -> Bool
TupleValue -> TupleValue -> Ordering
TupleValue -> TupleValue -> TupleValue
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 :: TupleValue -> TupleValue -> TupleValue
$cmin :: TupleValue -> TupleValue -> TupleValue
max :: TupleValue -> TupleValue -> TupleValue
$cmax :: TupleValue -> TupleValue -> TupleValue
>= :: TupleValue -> TupleValue -> Bool
$c>= :: TupleValue -> TupleValue -> Bool
> :: TupleValue -> TupleValue -> Bool
$c> :: TupleValue -> TupleValue -> Bool
<= :: TupleValue -> TupleValue -> Bool
$c<= :: TupleValue -> TupleValue -> Bool
< :: TupleValue -> TupleValue -> Bool
$c< :: TupleValue -> TupleValue -> Bool
compare :: TupleValue -> TupleValue -> Ordering
$ccompare :: TupleValue -> TupleValue -> Ordering
$cp1Ord :: Eq TupleValue
Prelude.Ord)
instance Prelude.Show TupleValue where
  showsPrec :: Int -> TupleValue -> ShowS
showsPrec _ __x :: TupleValue
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (TupleValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TupleValue
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TupleValue "values" [StructuredValue] where
  fieldOf :: Proxy# "values"
-> ([StructuredValue] -> f [StructuredValue])
-> TupleValue
-> f TupleValue
fieldOf _
    = ((Vector StructuredValue -> f (Vector StructuredValue))
 -> TupleValue -> f TupleValue)
-> (([StructuredValue] -> f [StructuredValue])
    -> Vector StructuredValue -> f (Vector StructuredValue))
-> ([StructuredValue] -> f [StructuredValue])
-> TupleValue
-> f TupleValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TupleValue -> Vector StructuredValue)
-> (TupleValue -> Vector StructuredValue -> TupleValue)
-> Lens
     TupleValue
     TupleValue
     (Vector StructuredValue)
     (Vector StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TupleValue -> Vector StructuredValue
_TupleValue'values (\ x__ :: TupleValue
x__ y__ :: Vector StructuredValue
y__ -> TupleValue
x__ {_TupleValue'values :: Vector StructuredValue
_TupleValue'values = Vector StructuredValue
y__}))
        ((Vector StructuredValue -> [StructuredValue])
-> (Vector StructuredValue
    -> [StructuredValue] -> Vector StructuredValue)
-> Lens
     (Vector StructuredValue)
     (Vector StructuredValue)
     [StructuredValue]
     [StructuredValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector StructuredValue -> [StructuredValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [StructuredValue]
y__ -> [StructuredValue] -> Vector StructuredValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [StructuredValue]
y__))
instance Data.ProtoLens.Field.HasField TupleValue "vec'values" (Data.Vector.Vector StructuredValue) where
  fieldOf :: Proxy# "vec'values"
-> (Vector StructuredValue -> f (Vector StructuredValue))
-> TupleValue
-> f TupleValue
fieldOf _
    = ((Vector StructuredValue -> f (Vector StructuredValue))
 -> TupleValue -> f TupleValue)
-> ((Vector StructuredValue -> f (Vector StructuredValue))
    -> Vector StructuredValue -> f (Vector StructuredValue))
-> (Vector StructuredValue -> f (Vector StructuredValue))
-> TupleValue
-> f TupleValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TupleValue -> Vector StructuredValue)
-> (TupleValue -> Vector StructuredValue -> TupleValue)
-> Lens
     TupleValue
     TupleValue
     (Vector StructuredValue)
     (Vector StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TupleValue -> Vector StructuredValue
_TupleValue'values (\ x__ :: TupleValue
x__ y__ :: Vector StructuredValue
y__ -> TupleValue
x__ {_TupleValue'values :: Vector StructuredValue
_TupleValue'values = Vector StructuredValue
y__}))
        (Vector StructuredValue -> f (Vector StructuredValue))
-> Vector StructuredValue -> f (Vector StructuredValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TupleValue where
  messageName :: Proxy TupleValue -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.TupleValue"
  packedMessageDescriptor :: Proxy TupleValue -> ByteString
packedMessageDescriptor _
    = "\n\
      \\n\
      \TupleValue\DC23\n\
      \\ACKvalues\CAN\SOH \ETX(\v2\ESC.tensorflow.StructuredValueR\ACKvalues"
  packedFileDescriptor :: Proxy TupleValue -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TupleValue)
fieldsByTag
    = let
        values__field_descriptor :: FieldDescriptor TupleValue
values__field_descriptor
          = String
-> FieldTypeDescriptor StructuredValue
-> FieldAccessor TupleValue StructuredValue
-> FieldDescriptor TupleValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "values"
              (MessageOrGroup -> FieldTypeDescriptor StructuredValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StructuredValue)
              (Packing
-> Lens' TupleValue [StructuredValue]
-> FieldAccessor TupleValue StructuredValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "values" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"values")) ::
              Data.ProtoLens.FieldDescriptor TupleValue
      in
        [(Tag, FieldDescriptor TupleValue)]
-> Map Tag (FieldDescriptor TupleValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TupleValue
values__field_descriptor)]
  unknownFields :: LensLike' f TupleValue FieldSet
unknownFields
    = (TupleValue -> FieldSet)
-> (TupleValue -> FieldSet -> TupleValue)
-> Lens' TupleValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TupleValue -> FieldSet
_TupleValue'_unknownFields
        (\ x__ :: TupleValue
x__ y__ :: FieldSet
y__ -> TupleValue
x__ {_TupleValue'_unknownFields :: FieldSet
_TupleValue'_unknownFields = FieldSet
y__})
  defMessage :: TupleValue
defMessage
    = $WTupleValue'_constructor :: Vector StructuredValue -> FieldSet -> TupleValue
TupleValue'_constructor
        {_TupleValue'values :: Vector StructuredValue
_TupleValue'values = Vector StructuredValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _TupleValue'_unknownFields :: FieldSet
_TupleValue'_unknownFields = []}
  parseMessage :: Parser TupleValue
parseMessage
    = let
        loop ::
          TupleValue
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld StructuredValue
             -> Data.ProtoLens.Encoding.Bytes.Parser TupleValue
        loop :: TupleValue
-> Growing Vector RealWorld StructuredValue -> Parser TupleValue
loop x :: TupleValue
x mutable'values :: Growing Vector RealWorld StructuredValue
mutable'values
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector StructuredValue
frozen'values <- IO (Vector StructuredValue) -> Parser (Vector StructuredValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) StructuredValue
-> IO (Vector StructuredValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld StructuredValue
Growing Vector (PrimState IO) StructuredValue
mutable'values)
                      (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]))))
                      TupleValue -> Parser TupleValue
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TupleValue TupleValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TupleValue -> TupleValue
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 TupleValue TupleValue FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  TupleValue
  TupleValue
  (Vector StructuredValue)
  (Vector StructuredValue)
-> Vector StructuredValue -> TupleValue -> TupleValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'values" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'values") Vector StructuredValue
frozen'values TupleValue
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !StructuredValue
y <- Parser StructuredValue -> String -> Parser StructuredValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser StructuredValue -> Parser StructuredValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser StructuredValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "values"
                                Growing Vector RealWorld StructuredValue
v <- IO (Growing Vector RealWorld StructuredValue)
-> Parser (Growing Vector RealWorld StructuredValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) StructuredValue
-> StructuredValue
-> IO (Growing Vector (PrimState IO) StructuredValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld StructuredValue
Growing Vector (PrimState IO) StructuredValue
mutable'values StructuredValue
y)
                                TupleValue
-> Growing Vector RealWorld StructuredValue -> Parser TupleValue
loop TupleValue
x Growing Vector RealWorld StructuredValue
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TupleValue
-> Growing Vector RealWorld StructuredValue -> Parser TupleValue
loop
                                  (Setter TupleValue TupleValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TupleValue -> TupleValue
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 TupleValue TupleValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TupleValue
x)
                                  Growing Vector RealWorld StructuredValue
mutable'values
      in
        Parser TupleValue -> String -> Parser TupleValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld StructuredValue
mutable'values <- IO (Growing Vector RealWorld StructuredValue)
-> Parser (Growing Vector RealWorld StructuredValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld StructuredValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              TupleValue
-> Growing Vector RealWorld StructuredValue -> Parser TupleValue
loop TupleValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld StructuredValue
mutable'values)
          "TupleValue"
  buildMessage :: TupleValue -> Builder
buildMessage
    = \ _x :: TupleValue
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((StructuredValue -> Builder) -> Vector StructuredValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: StructuredValue
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder)
-> (StructuredValue -> ByteString) -> StructuredValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           StructuredValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           StructuredValue
_v))
                (FoldLike
  (Vector StructuredValue)
  TupleValue
  TupleValue
  (Vector StructuredValue)
  (Vector StructuredValue)
-> TupleValue -> Vector StructuredValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'values" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'values") TupleValue
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet TupleValue TupleValue FieldSet FieldSet
-> TupleValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TupleValue TupleValue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TupleValue
_x))
instance Control.DeepSeq.NFData TupleValue where
  rnf :: TupleValue -> ()
rnf
    = \ x__ :: TupleValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TupleValue -> FieldSet
_TupleValue'_unknownFields TupleValue
x__)
             (Vector StructuredValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TupleValue -> Vector StructuredValue
_TupleValue'values TupleValue
x__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.typeSpecClass' @:: Lens' TypeSpecProto TypeSpecProto'TypeSpecClass@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.typeState' @:: Lens' TypeSpecProto StructuredValue@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.maybe'typeState' @:: Lens' TypeSpecProto (Prelude.Maybe StructuredValue)@
         * 'Proto.Tensorflow.Core.Protobuf.Struct_Fields.typeSpecClassName' @:: Lens' TypeSpecProto Data.Text.Text@ -}
data TypeSpecProto
  = TypeSpecProto'_constructor {TypeSpecProto -> TypeSpecProto'TypeSpecClass
_TypeSpecProto'typeSpecClass :: !TypeSpecProto'TypeSpecClass,
                                TypeSpecProto -> Maybe StructuredValue
_TypeSpecProto'typeState :: !(Prelude.Maybe StructuredValue),
                                TypeSpecProto -> Text
_TypeSpecProto'typeSpecClassName :: !Data.Text.Text,
                                TypeSpecProto -> FieldSet
_TypeSpecProto'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TypeSpecProto -> TypeSpecProto -> Bool
(TypeSpecProto -> TypeSpecProto -> Bool)
-> (TypeSpecProto -> TypeSpecProto -> Bool) -> Eq TypeSpecProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TypeSpecProto -> TypeSpecProto -> Bool
$c/= :: TypeSpecProto -> TypeSpecProto -> Bool
== :: TypeSpecProto -> TypeSpecProto -> Bool
$c== :: TypeSpecProto -> TypeSpecProto -> Bool
Prelude.Eq, Eq TypeSpecProto
Eq TypeSpecProto =>
(TypeSpecProto -> TypeSpecProto -> Ordering)
-> (TypeSpecProto -> TypeSpecProto -> Bool)
-> (TypeSpecProto -> TypeSpecProto -> Bool)
-> (TypeSpecProto -> TypeSpecProto -> Bool)
-> (TypeSpecProto -> TypeSpecProto -> Bool)
-> (TypeSpecProto -> TypeSpecProto -> TypeSpecProto)
-> (TypeSpecProto -> TypeSpecProto -> TypeSpecProto)
-> Ord TypeSpecProto
TypeSpecProto -> TypeSpecProto -> Bool
TypeSpecProto -> TypeSpecProto -> Ordering
TypeSpecProto -> TypeSpecProto -> TypeSpecProto
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 :: TypeSpecProto -> TypeSpecProto -> TypeSpecProto
$cmin :: TypeSpecProto -> TypeSpecProto -> TypeSpecProto
max :: TypeSpecProto -> TypeSpecProto -> TypeSpecProto
$cmax :: TypeSpecProto -> TypeSpecProto -> TypeSpecProto
>= :: TypeSpecProto -> TypeSpecProto -> Bool
$c>= :: TypeSpecProto -> TypeSpecProto -> Bool
> :: TypeSpecProto -> TypeSpecProto -> Bool
$c> :: TypeSpecProto -> TypeSpecProto -> Bool
<= :: TypeSpecProto -> TypeSpecProto -> Bool
$c<= :: TypeSpecProto -> TypeSpecProto -> Bool
< :: TypeSpecProto -> TypeSpecProto -> Bool
$c< :: TypeSpecProto -> TypeSpecProto -> Bool
compare :: TypeSpecProto -> TypeSpecProto -> Ordering
$ccompare :: TypeSpecProto -> TypeSpecProto -> Ordering
$cp1Ord :: Eq TypeSpecProto
Prelude.Ord)
instance Prelude.Show TypeSpecProto where
  showsPrec :: Int -> TypeSpecProto -> ShowS
showsPrec _ __x :: TypeSpecProto
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (TypeSpecProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TypeSpecProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TypeSpecProto "typeSpecClass" TypeSpecProto'TypeSpecClass where
  fieldOf :: Proxy# "typeSpecClass"
-> (TypeSpecProto'TypeSpecClass -> f TypeSpecProto'TypeSpecClass)
-> TypeSpecProto
-> f TypeSpecProto
fieldOf _
    = ((TypeSpecProto'TypeSpecClass -> f TypeSpecProto'TypeSpecClass)
 -> TypeSpecProto -> f TypeSpecProto)
-> ((TypeSpecProto'TypeSpecClass -> f TypeSpecProto'TypeSpecClass)
    -> TypeSpecProto'TypeSpecClass -> f TypeSpecProto'TypeSpecClass)
-> (TypeSpecProto'TypeSpecClass -> f TypeSpecProto'TypeSpecClass)
-> TypeSpecProto
-> f TypeSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TypeSpecProto -> TypeSpecProto'TypeSpecClass)
-> (TypeSpecProto -> TypeSpecProto'TypeSpecClass -> TypeSpecProto)
-> Lens
     TypeSpecProto
     TypeSpecProto
     TypeSpecProto'TypeSpecClass
     TypeSpecProto'TypeSpecClass
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TypeSpecProto -> TypeSpecProto'TypeSpecClass
_TypeSpecProto'typeSpecClass
           (\ x__ :: TypeSpecProto
x__ y__ :: TypeSpecProto'TypeSpecClass
y__ -> TypeSpecProto
x__ {_TypeSpecProto'typeSpecClass :: TypeSpecProto'TypeSpecClass
_TypeSpecProto'typeSpecClass = TypeSpecProto'TypeSpecClass
y__}))
        (TypeSpecProto'TypeSpecClass -> f TypeSpecProto'TypeSpecClass)
-> TypeSpecProto'TypeSpecClass -> f TypeSpecProto'TypeSpecClass
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TypeSpecProto "typeState" StructuredValue where
  fieldOf :: Proxy# "typeState"
-> (StructuredValue -> f StructuredValue)
-> TypeSpecProto
-> f TypeSpecProto
fieldOf _
    = ((Maybe StructuredValue -> f (Maybe StructuredValue))
 -> TypeSpecProto -> f TypeSpecProto)
-> ((StructuredValue -> f StructuredValue)
    -> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (StructuredValue -> f StructuredValue)
-> TypeSpecProto
-> f TypeSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TypeSpecProto -> Maybe StructuredValue)
-> (TypeSpecProto -> Maybe StructuredValue -> TypeSpecProto)
-> Lens
     TypeSpecProto
     TypeSpecProto
     (Maybe StructuredValue)
     (Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TypeSpecProto -> Maybe StructuredValue
_TypeSpecProto'typeState
           (\ x__ :: TypeSpecProto
x__ y__ :: Maybe StructuredValue
y__ -> TypeSpecProto
x__ {_TypeSpecProto'typeState :: Maybe StructuredValue
_TypeSpecProto'typeState = Maybe StructuredValue
y__}))
        (StructuredValue -> Lens' (Maybe StructuredValue) StructuredValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StructuredValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TypeSpecProto "maybe'typeState" (Prelude.Maybe StructuredValue) where
  fieldOf :: Proxy# "maybe'typeState"
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> TypeSpecProto
-> f TypeSpecProto
fieldOf _
    = ((Maybe StructuredValue -> f (Maybe StructuredValue))
 -> TypeSpecProto -> f TypeSpecProto)
-> ((Maybe StructuredValue -> f (Maybe StructuredValue))
    -> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> TypeSpecProto
-> f TypeSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TypeSpecProto -> Maybe StructuredValue)
-> (TypeSpecProto -> Maybe StructuredValue -> TypeSpecProto)
-> Lens
     TypeSpecProto
     TypeSpecProto
     (Maybe StructuredValue)
     (Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TypeSpecProto -> Maybe StructuredValue
_TypeSpecProto'typeState
           (\ x__ :: TypeSpecProto
x__ y__ :: Maybe StructuredValue
y__ -> TypeSpecProto
x__ {_TypeSpecProto'typeState :: Maybe StructuredValue
_TypeSpecProto'typeState = Maybe StructuredValue
y__}))
        (Maybe StructuredValue -> f (Maybe StructuredValue))
-> Maybe StructuredValue -> f (Maybe StructuredValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TypeSpecProto "typeSpecClassName" Data.Text.Text where
  fieldOf :: Proxy# "typeSpecClassName"
-> (Text -> f Text) -> TypeSpecProto -> f TypeSpecProto
fieldOf _
    = ((Text -> f Text) -> TypeSpecProto -> f TypeSpecProto)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TypeSpecProto
-> f TypeSpecProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TypeSpecProto -> Text)
-> (TypeSpecProto -> Text -> TypeSpecProto)
-> Lens TypeSpecProto TypeSpecProto Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TypeSpecProto -> Text
_TypeSpecProto'typeSpecClassName
           (\ x__ :: TypeSpecProto
x__ y__ :: Text
y__ -> TypeSpecProto
x__ {_TypeSpecProto'typeSpecClassName :: Text
_TypeSpecProto'typeSpecClassName = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TypeSpecProto where
  messageName :: Proxy TypeSpecProto -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.TypeSpecProto"
  packedMessageDescriptor :: Proxy TypeSpecProto -> ByteString
packedMessageDescriptor _
    = "\n\
      \\rTypeSpecProto\DC2O\n\
      \\SItype_spec_class\CAN\SOH \SOH(\SO2'.tensorflow.TypeSpecProto.TypeSpecClassR\rtypeSpecClass\DC2:\n\
      \\n\
      \type_state\CAN\STX \SOH(\v2\ESC.tensorflow.StructuredValueR\ttypeState\DC2/\n\
      \\DC4type_spec_class_name\CAN\ETX \SOH(\tR\DC1typeSpecClassName\"\255\SOH\n\
      \\rTypeSpecClass\DC2\v\n\
      \\aUNKNOWN\DLE\NUL\DC2\SYN\n\
      \\DC2SPARSE_TENSOR_SPEC\DLE\SOH\DC2\ETB\n\
      \\DC3INDEXED_SLICES_SPEC\DLE\STX\DC2\SYN\n\
      \\DC2RAGGED_TENSOR_SPEC\DLE\ETX\DC2\NAK\n\
      \\DC1TENSOR_ARRAY_SPEC\DLE\EOT\DC2\NAK\n\
      \\DC1DATA_DATASET_SPEC\DLE\ENQ\DC2\SYN\n\
      \\DC2DATA_ITERATOR_SPEC\DLE\ACK\DC2\DC1\n\
      \\rOPTIONAL_SPEC\DLE\a\DC2\DC4\n\
      \\DLEPER_REPLICA_SPEC\DLE\b\DC2\DC1\n\
      \\rVARIABLE_SPEC\DLE\t\DC2\SYN\n\
      \\DC2ROW_PARTITION_SPEC\DLE\n"
  packedFileDescriptor :: Proxy TypeSpecProto -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TypeSpecProto)
fieldsByTag
    = let
        typeSpecClass__field_descriptor :: FieldDescriptor TypeSpecProto
typeSpecClass__field_descriptor
          = String
-> FieldTypeDescriptor TypeSpecProto'TypeSpecClass
-> FieldAccessor TypeSpecProto TypeSpecProto'TypeSpecClass
-> FieldDescriptor TypeSpecProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "type_spec_class"
              (ScalarField TypeSpecProto'TypeSpecClass
-> FieldTypeDescriptor TypeSpecProto'TypeSpecClass
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField TypeSpecProto'TypeSpecClass
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor TypeSpecProto'TypeSpecClass)
              (WireDefault TypeSpecProto'TypeSpecClass
-> Lens
     TypeSpecProto
     TypeSpecProto
     TypeSpecProto'TypeSpecClass
     TypeSpecProto'TypeSpecClass
-> FieldAccessor TypeSpecProto TypeSpecProto'TypeSpecClass
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault TypeSpecProto'TypeSpecClass
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "typeSpecClass" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeSpecClass")) ::
              Data.ProtoLens.FieldDescriptor TypeSpecProto
        typeState__field_descriptor :: FieldDescriptor TypeSpecProto
typeState__field_descriptor
          = String
-> FieldTypeDescriptor StructuredValue
-> FieldAccessor TypeSpecProto StructuredValue
-> FieldDescriptor TypeSpecProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "type_state"
              (MessageOrGroup -> FieldTypeDescriptor StructuredValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StructuredValue)
              (Lens
  TypeSpecProto
  TypeSpecProto
  (Maybe StructuredValue)
  (Maybe StructuredValue)
-> FieldAccessor TypeSpecProto StructuredValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'typeState" a, Functor f) =>
(a -> f a) -> s -> 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'typeState")) ::
              Data.ProtoLens.FieldDescriptor TypeSpecProto
        typeSpecClassName__field_descriptor :: FieldDescriptor TypeSpecProto
typeSpecClassName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor TypeSpecProto Text
-> FieldDescriptor TypeSpecProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "type_spec_class_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 TypeSpecProto TypeSpecProto Text Text
-> FieldAccessor TypeSpecProto 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 "typeSpecClassName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeSpecClassName")) ::
              Data.ProtoLens.FieldDescriptor TypeSpecProto
      in
        [(Tag, FieldDescriptor TypeSpecProto)]
-> Map Tag (FieldDescriptor TypeSpecProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TypeSpecProto
typeSpecClass__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor TypeSpecProto
typeState__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor TypeSpecProto
typeSpecClassName__field_descriptor)]
  unknownFields :: LensLike' f TypeSpecProto FieldSet
unknownFields
    = (TypeSpecProto -> FieldSet)
-> (TypeSpecProto -> FieldSet -> TypeSpecProto)
-> Lens' TypeSpecProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TypeSpecProto -> FieldSet
_TypeSpecProto'_unknownFields
        (\ x__ :: TypeSpecProto
x__ y__ :: FieldSet
y__ -> TypeSpecProto
x__ {_TypeSpecProto'_unknownFields :: FieldSet
_TypeSpecProto'_unknownFields = FieldSet
y__})
  defMessage :: TypeSpecProto
defMessage
    = $WTypeSpecProto'_constructor :: TypeSpecProto'TypeSpecClass
-> Maybe StructuredValue -> Text -> FieldSet -> TypeSpecProto
TypeSpecProto'_constructor
        {_TypeSpecProto'typeSpecClass :: TypeSpecProto'TypeSpecClass
_TypeSpecProto'typeSpecClass = TypeSpecProto'TypeSpecClass
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TypeSpecProto'typeState :: Maybe StructuredValue
_TypeSpecProto'typeState = Maybe StructuredValue
forall a. Maybe a
Prelude.Nothing,
         _TypeSpecProto'typeSpecClassName :: Text
_TypeSpecProto'typeSpecClassName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TypeSpecProto'_unknownFields :: FieldSet
_TypeSpecProto'_unknownFields = []}
  parseMessage :: Parser TypeSpecProto
parseMessage
    = let
        loop ::
          TypeSpecProto -> Data.ProtoLens.Encoding.Bytes.Parser TypeSpecProto
        loop :: TypeSpecProto -> Parser TypeSpecProto
loop x :: TypeSpecProto
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]))))
                      TypeSpecProto -> Parser TypeSpecProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TypeSpecProto TypeSpecProto FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TypeSpecProto -> TypeSpecProto
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 TypeSpecProto TypeSpecProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TypeSpecProto
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do TypeSpecProto'TypeSpecClass
y <- Parser TypeSpecProto'TypeSpecClass
-> String -> Parser TypeSpecProto'TypeSpecClass
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> TypeSpecProto'TypeSpecClass)
-> Parser Int -> Parser TypeSpecProto'TypeSpecClass
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> TypeSpecProto'TypeSpecClass
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))
                                       "type_spec_class"
                                TypeSpecProto -> Parser TypeSpecProto
loop
                                  (Setter
  TypeSpecProto
  TypeSpecProto
  TypeSpecProto'TypeSpecClass
  TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> TypeSpecProto -> TypeSpecProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "typeSpecClass" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeSpecClass") TypeSpecProto'TypeSpecClass
y TypeSpecProto
x)
                        18
                          -> do StructuredValue
y <- Parser StructuredValue -> String -> Parser StructuredValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser StructuredValue -> Parser StructuredValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser StructuredValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "type_state"
                                TypeSpecProto -> Parser TypeSpecProto
loop
                                  (Setter TypeSpecProto TypeSpecProto StructuredValue StructuredValue
-> StructuredValue -> TypeSpecProto -> TypeSpecProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "typeState" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeState") StructuredValue
y TypeSpecProto
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))
                                       "type_spec_class_name"
                                TypeSpecProto -> Parser TypeSpecProto
loop
                                  (Setter TypeSpecProto TypeSpecProto Text Text
-> Text -> TypeSpecProto -> TypeSpecProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "typeSpecClassName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeSpecClassName") Text
y TypeSpecProto
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TypeSpecProto -> Parser TypeSpecProto
loop
                                  (Setter TypeSpecProto TypeSpecProto FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TypeSpecProto -> TypeSpecProto
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 TypeSpecProto TypeSpecProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TypeSpecProto
x)
      in
        Parser TypeSpecProto -> String -> Parser TypeSpecProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do TypeSpecProto -> Parser TypeSpecProto
loop TypeSpecProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "TypeSpecProto"
  buildMessage :: TypeSpecProto -> Builder
buildMessage
    = \ _x :: TypeSpecProto
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: TypeSpecProto'TypeSpecClass
_v
                  = FoldLike
  TypeSpecProto'TypeSpecClass
  TypeSpecProto
  TypeSpecProto
  TypeSpecProto'TypeSpecClass
  TypeSpecProto'TypeSpecClass
-> TypeSpecProto -> TypeSpecProto'TypeSpecClass
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall s a (f :: * -> *).
(HasField s "typeSpecClass" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeSpecClass") TypeSpecProto
_x
              in
                if TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) TypeSpecProto'TypeSpecClass
_v TypeSpecProto'TypeSpecClass
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)
-> (TypeSpecProto'TypeSpecClass -> Int)
-> TypeSpecProto'TypeSpecClass
-> 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)
                         TypeSpecProto'TypeSpecClass -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
                         TypeSpecProto'TypeSpecClass
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe StructuredValue)
  TypeSpecProto
  TypeSpecProto
  (Maybe StructuredValue)
  (Maybe StructuredValue)
-> TypeSpecProto -> Maybe StructuredValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall s a (f :: * -> *).
(HasField s "maybe'typeState" a, Functor f) =>
(a -> f a) -> s -> 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'typeState") TypeSpecProto
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: StructuredValue
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (StructuredValue -> ByteString) -> StructuredValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             StructuredValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             StructuredValue
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Text
_v
                        = FoldLike Text TypeSpecProto TypeSpecProto Text Text
-> TypeSpecProto -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                            (forall s a (f :: * -> *).
(HasField s "typeSpecClassName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeSpecClassName") TypeSpecProto
_x
                    in
                      if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                            ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               (\ bs :: ByteString
bs
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                          (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                       (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                               Text -> ByteString
Data.Text.Encoding.encodeUtf8
                               Text
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet TypeSpecProto TypeSpecProto FieldSet FieldSet
-> TypeSpecProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TypeSpecProto TypeSpecProto FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TypeSpecProto
_x))))
instance Control.DeepSeq.NFData TypeSpecProto where
  rnf :: TypeSpecProto -> ()
rnf
    = \ x__ :: TypeSpecProto
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TypeSpecProto -> FieldSet
_TypeSpecProto'_unknownFields TypeSpecProto
x__)
             (TypeSpecProto'TypeSpecClass -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TypeSpecProto -> TypeSpecProto'TypeSpecClass
_TypeSpecProto'typeSpecClass TypeSpecProto
x__)
                (Maybe StructuredValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (TypeSpecProto -> Maybe StructuredValue
_TypeSpecProto'typeState TypeSpecProto
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (TypeSpecProto -> Text
_TypeSpecProto'typeSpecClassName TypeSpecProto
x__) ())))
newtype TypeSpecProto'TypeSpecClass'UnrecognizedValue
  = TypeSpecProto'TypeSpecClass'UnrecognizedValue Data.Int.Int32
  deriving stock (TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
(TypeSpecProto'TypeSpecClass'UnrecognizedValue
 -> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool)
-> (TypeSpecProto'TypeSpecClass'UnrecognizedValue
    -> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool)
-> Eq TypeSpecProto'TypeSpecClass'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
$c/= :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
== :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
$c== :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
Prelude.Eq, Eq TypeSpecProto'TypeSpecClass'UnrecognizedValue
Eq TypeSpecProto'TypeSpecClass'UnrecognizedValue =>
(TypeSpecProto'TypeSpecClass'UnrecognizedValue
 -> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Ordering)
-> (TypeSpecProto'TypeSpecClass'UnrecognizedValue
    -> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool)
-> (TypeSpecProto'TypeSpecClass'UnrecognizedValue
    -> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool)
-> (TypeSpecProto'TypeSpecClass'UnrecognizedValue
    -> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool)
-> (TypeSpecProto'TypeSpecClass'UnrecognizedValue
    -> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool)
-> (TypeSpecProto'TypeSpecClass'UnrecognizedValue
    -> TypeSpecProto'TypeSpecClass'UnrecognizedValue
    -> TypeSpecProto'TypeSpecClass'UnrecognizedValue)
-> (TypeSpecProto'TypeSpecClass'UnrecognizedValue
    -> TypeSpecProto'TypeSpecClass'UnrecognizedValue
    -> TypeSpecProto'TypeSpecClass'UnrecognizedValue)
-> Ord TypeSpecProto'TypeSpecClass'UnrecognizedValue
TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Ordering
TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue
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 :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue
$cmin :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue
max :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue
$cmax :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue
>= :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
$c>= :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
> :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
$c> :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
<= :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
$c<= :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
< :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
$c< :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Bool
compare :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Ordering
$ccompare :: TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> Ordering
$cp1Ord :: Eq TypeSpecProto'TypeSpecClass'UnrecognizedValue
Prelude.Ord, Int -> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> ShowS
[TypeSpecProto'TypeSpecClass'UnrecognizedValue] -> ShowS
TypeSpecProto'TypeSpecClass'UnrecognizedValue -> String
(Int -> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> ShowS)
-> (TypeSpecProto'TypeSpecClass'UnrecognizedValue -> String)
-> ([TypeSpecProto'TypeSpecClass'UnrecognizedValue] -> ShowS)
-> Show TypeSpecProto'TypeSpecClass'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TypeSpecProto'TypeSpecClass'UnrecognizedValue] -> ShowS
$cshowList :: [TypeSpecProto'TypeSpecClass'UnrecognizedValue] -> ShowS
show :: TypeSpecProto'TypeSpecClass'UnrecognizedValue -> String
$cshow :: TypeSpecProto'TypeSpecClass'UnrecognizedValue -> String
showsPrec :: Int -> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> ShowS
$cshowsPrec :: Int -> TypeSpecProto'TypeSpecClass'UnrecognizedValue -> ShowS
Prelude.Show)
data TypeSpecProto'TypeSpecClass
  = TypeSpecProto'UNKNOWN |
    TypeSpecProto'SPARSE_TENSOR_SPEC |
    TypeSpecProto'INDEXED_SLICES_SPEC |
    TypeSpecProto'RAGGED_TENSOR_SPEC |
    TypeSpecProto'TENSOR_ARRAY_SPEC |
    TypeSpecProto'DATA_DATASET_SPEC |
    TypeSpecProto'DATA_ITERATOR_SPEC |
    TypeSpecProto'OPTIONAL_SPEC |
    TypeSpecProto'PER_REPLICA_SPEC |
    TypeSpecProto'VARIABLE_SPEC |
    TypeSpecProto'ROW_PARTITION_SPEC |
    TypeSpecProto'TypeSpecClass'Unrecognized !TypeSpecProto'TypeSpecClass'UnrecognizedValue
  deriving stock (Int -> TypeSpecProto'TypeSpecClass -> ShowS
[TypeSpecProto'TypeSpecClass] -> ShowS
TypeSpecProto'TypeSpecClass -> String
(Int -> TypeSpecProto'TypeSpecClass -> ShowS)
-> (TypeSpecProto'TypeSpecClass -> String)
-> ([TypeSpecProto'TypeSpecClass] -> ShowS)
-> Show TypeSpecProto'TypeSpecClass
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TypeSpecProto'TypeSpecClass] -> ShowS
$cshowList :: [TypeSpecProto'TypeSpecClass] -> ShowS
show :: TypeSpecProto'TypeSpecClass -> String
$cshow :: TypeSpecProto'TypeSpecClass -> String
showsPrec :: Int -> TypeSpecProto'TypeSpecClass -> ShowS
$cshowsPrec :: Int -> TypeSpecProto'TypeSpecClass -> ShowS
Prelude.Show, TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
(TypeSpecProto'TypeSpecClass
 -> TypeSpecProto'TypeSpecClass -> Bool)
-> (TypeSpecProto'TypeSpecClass
    -> TypeSpecProto'TypeSpecClass -> Bool)
-> Eq TypeSpecProto'TypeSpecClass
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
$c/= :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
== :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
$c== :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
Prelude.Eq, Eq TypeSpecProto'TypeSpecClass
Eq TypeSpecProto'TypeSpecClass =>
(TypeSpecProto'TypeSpecClass
 -> TypeSpecProto'TypeSpecClass -> Ordering)
-> (TypeSpecProto'TypeSpecClass
    -> TypeSpecProto'TypeSpecClass -> Bool)
-> (TypeSpecProto'TypeSpecClass
    -> TypeSpecProto'TypeSpecClass -> Bool)
-> (TypeSpecProto'TypeSpecClass
    -> TypeSpecProto'TypeSpecClass -> Bool)
-> (TypeSpecProto'TypeSpecClass
    -> TypeSpecProto'TypeSpecClass -> Bool)
-> (TypeSpecProto'TypeSpecClass
    -> TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass)
-> (TypeSpecProto'TypeSpecClass
    -> TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass)
-> Ord TypeSpecProto'TypeSpecClass
TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> Ordering
TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass
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 :: TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass
$cmin :: TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass
max :: TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass
$cmax :: TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass
>= :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
$c>= :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
> :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
$c> :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
<= :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
$c<= :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
< :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
$c< :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass -> Bool
compare :: TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> Ordering
$ccompare :: TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> Ordering
$cp1Ord :: Eq TypeSpecProto'TypeSpecClass
Prelude.Ord)
instance Data.ProtoLens.MessageEnum TypeSpecProto'TypeSpecClass where
  maybeToEnum :: Int -> Maybe TypeSpecProto'TypeSpecClass
maybeToEnum 0 = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'UNKNOWN
  maybeToEnum 1 = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'SPARSE_TENSOR_SPEC
  maybeToEnum 2 = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'INDEXED_SLICES_SPEC
  maybeToEnum 3 = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'RAGGED_TENSOR_SPEC
  maybeToEnum 4 = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'TENSOR_ARRAY_SPEC
  maybeToEnum 5 = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'DATA_DATASET_SPEC
  maybeToEnum 6 = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'DATA_ITERATOR_SPEC
  maybeToEnum 7 = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'OPTIONAL_SPEC
  maybeToEnum 8 = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'PER_REPLICA_SPEC
  maybeToEnum 9 = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'VARIABLE_SPEC
  maybeToEnum 10 = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'ROW_PARTITION_SPEC
  maybeToEnum k :: Int
k
    = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just
        (TypeSpecProto'TypeSpecClass'UnrecognizedValue
-> TypeSpecProto'TypeSpecClass
TypeSpecProto'TypeSpecClass'Unrecognized
           (Int32 -> TypeSpecProto'TypeSpecClass'UnrecognizedValue
TypeSpecProto'TypeSpecClass'UnrecognizedValue
              (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: TypeSpecProto'TypeSpecClass -> String
showEnum TypeSpecProto'UNKNOWN = "UNKNOWN"
  showEnum TypeSpecProto'SPARSE_TENSOR_SPEC = "SPARSE_TENSOR_SPEC"
  showEnum TypeSpecProto'INDEXED_SLICES_SPEC = "INDEXED_SLICES_SPEC"
  showEnum TypeSpecProto'RAGGED_TENSOR_SPEC = "RAGGED_TENSOR_SPEC"
  showEnum TypeSpecProto'TENSOR_ARRAY_SPEC = "TENSOR_ARRAY_SPEC"
  showEnum TypeSpecProto'DATA_DATASET_SPEC = "DATA_DATASET_SPEC"
  showEnum TypeSpecProto'DATA_ITERATOR_SPEC = "DATA_ITERATOR_SPEC"
  showEnum TypeSpecProto'OPTIONAL_SPEC = "OPTIONAL_SPEC"
  showEnum TypeSpecProto'PER_REPLICA_SPEC = "PER_REPLICA_SPEC"
  showEnum TypeSpecProto'VARIABLE_SPEC = "VARIABLE_SPEC"
  showEnum TypeSpecProto'ROW_PARTITION_SPEC = "ROW_PARTITION_SPEC"
  showEnum
    (TypeSpecProto'TypeSpecClass'Unrecognized (TypeSpecProto'TypeSpecClass'UnrecognizedValue k :: Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe TypeSpecProto'TypeSpecClass
readEnum k :: String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "UNKNOWN" = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'UNKNOWN
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "SPARSE_TENSOR_SPEC"
    = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'SPARSE_TENSOR_SPEC
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "INDEXED_SLICES_SPEC"
    = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'INDEXED_SLICES_SPEC
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "RAGGED_TENSOR_SPEC"
    = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'RAGGED_TENSOR_SPEC
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TENSOR_ARRAY_SPEC"
    = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'TENSOR_ARRAY_SPEC
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "DATA_DATASET_SPEC"
    = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'DATA_DATASET_SPEC
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "DATA_ITERATOR_SPEC"
    = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'DATA_ITERATOR_SPEC
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "OPTIONAL_SPEC"
    = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'OPTIONAL_SPEC
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "PER_REPLICA_SPEC"
    = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'PER_REPLICA_SPEC
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "VARIABLE_SPEC"
    = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'VARIABLE_SPEC
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "ROW_PARTITION_SPEC"
    = TypeSpecProto'TypeSpecClass -> Maybe TypeSpecProto'TypeSpecClass
forall a. a -> Maybe a
Prelude.Just TypeSpecProto'TypeSpecClass
TypeSpecProto'ROW_PARTITION_SPEC
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe TypeSpecProto'TypeSpecClass)
-> Maybe TypeSpecProto'TypeSpecClass
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe TypeSpecProto'TypeSpecClass
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded TypeSpecProto'TypeSpecClass where
  minBound :: TypeSpecProto'TypeSpecClass
minBound = TypeSpecProto'TypeSpecClass
TypeSpecProto'UNKNOWN
  maxBound :: TypeSpecProto'TypeSpecClass
maxBound = TypeSpecProto'TypeSpecClass
TypeSpecProto'ROW_PARTITION_SPEC
instance Prelude.Enum TypeSpecProto'TypeSpecClass where
  toEnum :: Int -> TypeSpecProto'TypeSpecClass
toEnum k__ :: Int
k__
    = TypeSpecProto'TypeSpecClass
-> (TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass)
-> Maybe TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> TypeSpecProto'TypeSpecClass
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              "toEnum: unknown value for enum TypeSpecClass: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass
forall a. a -> a
Prelude.id
        (Int -> Maybe TypeSpecProto'TypeSpecClass
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: TypeSpecProto'TypeSpecClass -> Int
fromEnum TypeSpecProto'UNKNOWN = 0
  fromEnum TypeSpecProto'SPARSE_TENSOR_SPEC = 1
  fromEnum TypeSpecProto'INDEXED_SLICES_SPEC = 2
  fromEnum TypeSpecProto'RAGGED_TENSOR_SPEC = 3
  fromEnum TypeSpecProto'TENSOR_ARRAY_SPEC = 4
  fromEnum TypeSpecProto'DATA_DATASET_SPEC = 5
  fromEnum TypeSpecProto'DATA_ITERATOR_SPEC = 6
  fromEnum TypeSpecProto'OPTIONAL_SPEC = 7
  fromEnum TypeSpecProto'PER_REPLICA_SPEC = 8
  fromEnum TypeSpecProto'VARIABLE_SPEC = 9
  fromEnum TypeSpecProto'ROW_PARTITION_SPEC = 10
  fromEnum
    (TypeSpecProto'TypeSpecClass'Unrecognized (TypeSpecProto'TypeSpecClass'UnrecognizedValue k :: Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass
succ TypeSpecProto'ROW_PARTITION_SPEC
    = String -> TypeSpecProto'TypeSpecClass
forall a. HasCallStack => String -> a
Prelude.error
        "TypeSpecProto'TypeSpecClass.succ: bad argument TypeSpecProto'ROW_PARTITION_SPEC. This value would be out of bounds."
  succ TypeSpecProto'UNKNOWN = TypeSpecProto'TypeSpecClass
TypeSpecProto'SPARSE_TENSOR_SPEC
  succ TypeSpecProto'SPARSE_TENSOR_SPEC
    = TypeSpecProto'TypeSpecClass
TypeSpecProto'INDEXED_SLICES_SPEC
  succ TypeSpecProto'INDEXED_SLICES_SPEC
    = TypeSpecProto'TypeSpecClass
TypeSpecProto'RAGGED_TENSOR_SPEC
  succ TypeSpecProto'RAGGED_TENSOR_SPEC
    = TypeSpecProto'TypeSpecClass
TypeSpecProto'TENSOR_ARRAY_SPEC
  succ TypeSpecProto'TENSOR_ARRAY_SPEC
    = TypeSpecProto'TypeSpecClass
TypeSpecProto'DATA_DATASET_SPEC
  succ TypeSpecProto'DATA_DATASET_SPEC
    = TypeSpecProto'TypeSpecClass
TypeSpecProto'DATA_ITERATOR_SPEC
  succ TypeSpecProto'DATA_ITERATOR_SPEC = TypeSpecProto'TypeSpecClass
TypeSpecProto'OPTIONAL_SPEC
  succ TypeSpecProto'OPTIONAL_SPEC = TypeSpecProto'TypeSpecClass
TypeSpecProto'PER_REPLICA_SPEC
  succ TypeSpecProto'PER_REPLICA_SPEC = TypeSpecProto'TypeSpecClass
TypeSpecProto'VARIABLE_SPEC
  succ TypeSpecProto'VARIABLE_SPEC = TypeSpecProto'TypeSpecClass
TypeSpecProto'ROW_PARTITION_SPEC
  succ (TypeSpecProto'TypeSpecClass'Unrecognized _)
    = String -> TypeSpecProto'TypeSpecClass
forall a. HasCallStack => String -> a
Prelude.error
        "TypeSpecProto'TypeSpecClass.succ: bad argument: unrecognized value"
  pred :: TypeSpecProto'TypeSpecClass -> TypeSpecProto'TypeSpecClass
pred TypeSpecProto'UNKNOWN
    = String -> TypeSpecProto'TypeSpecClass
forall a. HasCallStack => String -> a
Prelude.error
        "TypeSpecProto'TypeSpecClass.pred: bad argument TypeSpecProto'UNKNOWN. This value would be out of bounds."
  pred TypeSpecProto'SPARSE_TENSOR_SPEC = TypeSpecProto'TypeSpecClass
TypeSpecProto'UNKNOWN
  pred TypeSpecProto'INDEXED_SLICES_SPEC
    = TypeSpecProto'TypeSpecClass
TypeSpecProto'SPARSE_TENSOR_SPEC
  pred TypeSpecProto'RAGGED_TENSOR_SPEC
    = TypeSpecProto'TypeSpecClass
TypeSpecProto'INDEXED_SLICES_SPEC
  pred TypeSpecProto'TENSOR_ARRAY_SPEC
    = TypeSpecProto'TypeSpecClass
TypeSpecProto'RAGGED_TENSOR_SPEC
  pred TypeSpecProto'DATA_DATASET_SPEC
    = TypeSpecProto'TypeSpecClass
TypeSpecProto'TENSOR_ARRAY_SPEC
  pred TypeSpecProto'DATA_ITERATOR_SPEC
    = TypeSpecProto'TypeSpecClass
TypeSpecProto'DATA_DATASET_SPEC
  pred TypeSpecProto'OPTIONAL_SPEC = TypeSpecProto'TypeSpecClass
TypeSpecProto'DATA_ITERATOR_SPEC
  pred TypeSpecProto'PER_REPLICA_SPEC = TypeSpecProto'TypeSpecClass
TypeSpecProto'OPTIONAL_SPEC
  pred TypeSpecProto'VARIABLE_SPEC = TypeSpecProto'TypeSpecClass
TypeSpecProto'PER_REPLICA_SPEC
  pred TypeSpecProto'ROW_PARTITION_SPEC = TypeSpecProto'TypeSpecClass
TypeSpecProto'VARIABLE_SPEC
  pred (TypeSpecProto'TypeSpecClass'Unrecognized _)
    = String -> TypeSpecProto'TypeSpecClass
forall a. HasCallStack => String -> a
Prelude.error
        "TypeSpecProto'TypeSpecClass.pred: bad argument: unrecognized value"
  enumFrom :: TypeSpecProto'TypeSpecClass -> [TypeSpecProto'TypeSpecClass]
enumFrom = TypeSpecProto'TypeSpecClass -> [TypeSpecProto'TypeSpecClass]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> [TypeSpecProto'TypeSpecClass]
enumFromTo = TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> [TypeSpecProto'TypeSpecClass]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> [TypeSpecProto'TypeSpecClass]
enumFromThen = TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass -> [TypeSpecProto'TypeSpecClass]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass
-> [TypeSpecProto'TypeSpecClass]
enumFromThenTo = TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass
-> TypeSpecProto'TypeSpecClass
-> [TypeSpecProto'TypeSpecClass]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault TypeSpecProto'TypeSpecClass where
  fieldDefault :: TypeSpecProto'TypeSpecClass
fieldDefault = TypeSpecProto'TypeSpecClass
TypeSpecProto'UNKNOWN
instance Control.DeepSeq.NFData TypeSpecProto'TypeSpecClass where
  rnf :: TypeSpecProto'TypeSpecClass -> ()
rnf x__ :: TypeSpecProto'TypeSpecClass
x__ = TypeSpecProto'TypeSpecClass -> () -> ()
forall a b. a -> b -> b
Prelude.seq TypeSpecProto'TypeSpecClass
x__ ()
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = "\n\
    \%tensorflow/core/protobuf/struct.proto\DC2\n\
    \tensorflow\SUB&tensorflow/core/framework/tensor.proto\SUB,tensorflow/core/framework/tensor_shape.proto\SUB%tensorflow/core/framework/types.proto\"\220\ACK\n\
    \\SIStructuredValue\DC26\n\
    \\n\
    \none_value\CAN\SOH \SOH(\v2\NAK.tensorflow.NoneValueH\NULR\tnoneValue\DC2%\n\
    \\rfloat64_value\CAN\v \SOH(\SOHH\NULR\ffloat64Value\DC2!\n\
    \\vint64_value\CAN\f \SOH(\DC2H\NULR\n\
    \int64Value\DC2#\n\
    \\fstring_value\CAN\r \SOH(\tH\NULR\vstringValue\DC2\US\n\
    \\n\
    \bool_value\CAN\SO \SOH(\bH\NULR\tboolValue\DC2L\n\
    \\DC2tensor_shape_value\CAN\US \SOH(\v2\FS.tensorflow.TensorShapeProtoH\NULR\DLEtensorShapeValue\DC2D\n\
    \\DC2tensor_dtype_value\CAN  \SOH(\SO2\DC4.tensorflow.DataTypeH\NULR\DLEtensorDtypeValue\DC2I\n\
    \\DC1tensor_spec_value\CAN! \SOH(\v2\ESC.tensorflow.TensorSpecProtoH\NULR\SItensorSpecValue\DC2C\n\
    \\SItype_spec_value\CAN\" \SOH(\v2\EM.tensorflow.TypeSpecProtoH\NULR\rtypeSpecValue\DC2_\n\
    \\EMbounded_tensor_spec_value\CAN# \SOH(\v2\".tensorflow.BoundedTensorSpecProtoH\NULR\SYNboundedTensorSpecValue\DC26\n\
    \\n\
    \list_value\CAN3 \SOH(\v2\NAK.tensorflow.ListValueH\NULR\tlistValue\DC29\n\
    \\vtuple_value\CAN4 \SOH(\v2\SYN.tensorflow.TupleValueH\NULR\n\
    \tupleValue\DC26\n\
    \\n\
    \dict_value\CAN5 \SOH(\v2\NAK.tensorflow.DictValueH\NULR\tdictValue\DC2I\n\
    \\DC1named_tuple_value\CAN6 \SOH(\v2\ESC.tensorflow.NamedTupleValueH\NULR\SInamedTupleValueB\ACK\n\
    \\EOTkind\"\v\n\
    \\tNoneValue\"@\n\
    \\tListValue\DC23\n\
    \\ACKvalues\CAN\SOH \ETX(\v2\ESC.tensorflow.StructuredValueR\ACKvalues\"A\n\
    \\n\
    \TupleValue\DC23\n\
    \\ACKvalues\CAN\SOH \ETX(\v2\ESC.tensorflow.StructuredValueR\ACKvalues\"\158\SOH\n\
    \\tDictValue\DC29\n\
    \\ACKfields\CAN\SOH \ETX(\v2!.tensorflow.DictValue.FieldsEntryR\ACKfields\SUBV\n\
    \\vFieldsEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC21\n\
    \\ENQvalue\CAN\STX \SOH(\v2\ESC.tensorflow.StructuredValueR\ENQvalue:\STX8\SOH\"P\n\
    \\tPairValue\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC21\n\
    \\ENQvalue\CAN\STX \SOH(\v2\ESC.tensorflow.StructuredValueR\ENQvalue\"T\n\
    \\SINamedTupleValue\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2-\n\
    \\ACKvalues\CAN\STX \ETX(\v2\NAK.tensorflow.PairValueR\ACKvalues\"\133\SOH\n\
    \\SITensorSpecProto\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC22\n\
    \\ENQshape\CAN\STX \SOH(\v2\FS.tensorflow.TensorShapeProtoR\ENQshape\DC2*\n\
    \\ENQdtype\CAN\ETX \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\"\242\SOH\n\
    \\SYNBoundedTensorSpecProto\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC22\n\
    \\ENQshape\CAN\STX \SOH(\v2\FS.tensorflow.TensorShapeProtoR\ENQshape\DC2*\n\
    \\ENQdtype\CAN\ETX \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\DC21\n\
    \\aminimum\CAN\EOT \SOH(\v2\ETB.tensorflow.TensorProtoR\aminimum\DC21\n\
    \\amaximum\CAN\ENQ \SOH(\v2\ETB.tensorflow.TensorProtoR\amaximum\"\207\ETX\n\
    \\rTypeSpecProto\DC2O\n\
    \\SItype_spec_class\CAN\SOH \SOH(\SO2'.tensorflow.TypeSpecProto.TypeSpecClassR\rtypeSpecClass\DC2:\n\
    \\n\
    \type_state\CAN\STX \SOH(\v2\ESC.tensorflow.StructuredValueR\ttypeState\DC2/\n\
    \\DC4type_spec_class_name\CAN\ETX \SOH(\tR\DC1typeSpecClassName\"\255\SOH\n\
    \\rTypeSpecClass\DC2\v\n\
    \\aUNKNOWN\DLE\NUL\DC2\SYN\n\
    \\DC2SPARSE_TENSOR_SPEC\DLE\SOH\DC2\ETB\n\
    \\DC3INDEXED_SLICES_SPEC\DLE\STX\DC2\SYN\n\
    \\DC2RAGGED_TENSOR_SPEC\DLE\ETX\DC2\NAK\n\
    \\DC1TENSOR_ARRAY_SPEC\DLE\EOT\DC2\NAK\n\
    \\DC1DATA_DATASET_SPEC\DLE\ENQ\DC2\SYN\n\
    \\DC2DATA_ITERATOR_SPEC\DLE\ACK\DC2\DC1\n\
    \\rOPTIONAL_SPEC\DLE\a\DC2\DC4\n\
    \\DLEPER_REPLICA_SPEC\DLE\b\DC2\DC1\n\
    \\rVARIABLE_SPEC\DLE\t\DC2\SYN\n\
    \\DC2ROW_PARTITION_SPEC\DLE\n\
    \BJZHgithub.com/tensorflow/tensorflow/tensorflow/go/core/core_protos_go_protoJ\164\&0\n\
    \\a\DC2\ENQ\NUL\NUL\149\SOH\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\STX\NUL\DC3\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\EOT\NUL0\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX\ENQ\NUL6\n\
    \\t\n\
    \\STX\ETX\STX\DC2\ETX\ACK\NUL/\n\
    \\b\n\
    \\SOH\b\DC2\ETX\b\NUL_\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\b\NUL_\n\
    \\150\v\n\
    \\STX\EOT\NUL\DC2\EOT\"\NULK\SOH\SUB\137\v `StructuredValue` represents a dynamically typed value representing various\n\
    \ data structures that are inspired by Python data structures typically used in\n\
    \ TensorFlow functions as inputs and outputs.\n\
    \\n\
    \ For example when saving a Layer there may be a `training` argument. If the\n\
    \ user passes a boolean True/False, that switches between two concrete\n\
    \ TensorFlow functions. In order to switch between them in the same way after\n\
    \ loading the SavedModel, we need to represent \"True\" and \"False\".\n\
    \\n\
    \ A more advanced example might be a function which takes a list of\n\
    \ dictionaries mapping from strings to Tensors. In order to map from\n\
    \ user-specified arguments `[{\"a\": tf.constant(1.)}, {\"q\": tf.constant(3.)}]`\n\
    \ after load to the right saved TensorFlow function, we need to represent the\n\
    \ nested structure and the strings, recording that we have a trace for anything\n\
    \ matching `[{\"a\": tf.TensorSpec(None, tf.float32)}, {\"q\": tf.TensorSpec([],\n\
    \ tf.float64)}]` as an example.\n\
    \\n\
    \ Likewise functions may return nested structures of Tensors, for example\n\
    \ returning a dictionary mapping from strings to Tensors. In order for the\n\
    \ loaded function to return the same structure we need to serialize it.\n\
    \\n\
    \ This is an ergonomic aid for working with loaded SavedModels, not a promise\n\
    \ to serialize all possible function signatures. For example we do not expect\n\
    \ to pickle generic Python objects, and ideally we'd stay language-agnostic.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\"\b\ETB\n\
    \\"\n\
    \\EOT\EOT\NUL\b\NUL\DC2\EOT$\STXJ\ETX\SUB\DC4 The kind of value.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX$\b\f\n\
    \\US\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX&\EOT\GS\SUB\DC2 Represents None.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX&\EOT\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX&\SO\CAN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX&\ESC\FS\n\
    \U\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX)\EOT\RS\SUBH Represents a double-precision floating-point value (a Python `float`).\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX)\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX)\v\CAN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX)\ESC\GS\n\
    \\145\SOH\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX,\EOT\FS\SUB\131\SOH Represents a signed integer value, limited to 64 bits.\n\
    \ Larger values from Python's arbitrary-precision integers are unsupported.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX,\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX,\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX,\EM\ESC\n\
    \\146\ETX\n\
    \\EOT\EOT\NUL\STX\ETX\DC2\ETX3\EOT\GS\SUB\132\ETX Represents a string of Unicode characters stored in a Python `str`.\n\
    \ In Python 3, this is exactly what type `str` is.\n\
    \ In Python 2, this is the UTF-8 encoding of the characters.\n\
    \ For strings with ASCII characters only (as often used in TensorFlow code)\n\
    \ there is effectively no difference between the language versions.\n\
    \ The obsolescent `unicode` type of Python 2 is not supported here.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX3\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX3\v\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX3\SUB\FS\n\
    \*\n\
    \\EOT\EOT\NUL\STX\EOT\DC2\ETX5\EOT\EM\SUB\GS Represents a boolean value.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ENQ\DC2\ETX5\EOT\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX5\t\DC3\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX5\SYN\CAN\n\
    \(\n\
    \\EOT\EOT\NUL\STX\ENQ\DC2\ETX8\EOT8\SUB\ESC Represents a TensorShape.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ACK\DC2\ETX8\EOT\US\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETX8 2\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETX857\n\
    \2\n\
    \\EOT\EOT\NUL\STX\ACK\DC2\ETX:\EOT0\SUB% Represents an enum value for dtype.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ACK\ACK\DC2\ETX:\EOT\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ACK\SOH\DC2\ETX:\CAN*\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ACK\ETX\DC2\ETX:-/\n\
    \4\n\
    \\EOT\EOT\NUL\STX\a\DC2\ETX<\EOT+\SUB' Represents a value for tf.TensorSpec.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\a\ACK\DC2\ETX<\EOT\DC3\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\a\SOH\DC2\ETX<\DC4%\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\a\ETX\DC2\ETX<(*\n\
    \2\n\
    \\EOT\EOT\NUL\STX\b\DC2\ETX>\EOT'\SUB% Represents a value for tf.TypeSpec.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\b\ACK\DC2\ETX>\EOT\DC1\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\b\SOH\DC2\ETX>\DC2!\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\b\ETX\DC2\ETX>$&\n\
    \;\n\
    \\EOT\EOT\NUL\STX\t\DC2\ETX@\EOT:\SUB. Represents a value for tf.BoundedTensorSpec.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\t\ACK\DC2\ETX@\EOT\SUB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\t\SOH\DC2\ETX@\ESC4\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\t\ETX\DC2\ETX@79\n\
    \,\n\
    \\EOT\EOT\NUL\STX\n\
    \\DC2\ETXC\EOT\RS\SUB\US Represents a list of `Value`.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\n\
    \\ACK\DC2\ETXC\EOT\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\n\
    \\SOH\DC2\ETXC\SO\CAN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\n\
    \\ETX\DC2\ETXC\ESC\GS\n\
    \-\n\
    \\EOT\EOT\NUL\STX\v\DC2\ETXE\EOT \SUB  Represents a tuple of `Value`.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\v\ACK\DC2\ETXE\EOT\SO\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\v\SOH\DC2\ETXE\SI\SUB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\v\ETX\DC2\ETXE\GS\US\n\
    \)\n\
    \\EOT\EOT\NUL\STX\f\DC2\ETXG\EOT\RS\SUB\FS Represents a dict `Value`.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\f\ACK\DC2\ETXG\EOT\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\f\SOH\DC2\ETXG\SO\CAN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\f\ETX\DC2\ETXG\ESC\GS\n\
    \.\n\
    \\EOT\EOT\NUL\STX\r\DC2\ETXI\EOT+\SUB! Represents Python's namedtuple.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\r\ACK\DC2\ETXI\EOT\DC3\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\r\SOH\DC2\ETXI\DC4%\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\r\ETX\DC2\ETXI(*\n\
    \\GS\n\
    \\STX\EOT\SOH\DC2\ETXN\NUL\DC4\SUB\DC2 Represents None.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETXN\b\DC1\n\
    \'\n\
    \\STX\EOT\STX\DC2\EOTQ\NULS\SOH\SUB\ESC Represents a Python list.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETXQ\b\DC1\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETXR\STX&\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\EOT\DC2\ETXR\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETXR\v\SUB\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXR\ESC!\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXR$%\n\
    \(\n\
    \\STX\EOT\ETX\DC2\EOTV\NULX\SOH\SUB\FS Represents a Python tuple.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETXV\b\DC2\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETXW\STX&\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\EOT\DC2\ETXW\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETXW\v\SUB\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETXW\ESC!\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETXW$%\n\
    \{\n\
    \\STX\EOT\EOT\DC2\EOT\\\NUL^\SOH\SUBo Represents a Python dict keyed by `str`.\n\
    \ The comment on Unicode from Value.string_value applies analogously.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\EOT\SOH\DC2\ETX\\\b\DC1\n\
    \\v\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\ETX]\STX*\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX]\STX\RS\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX]\US%\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX]()\n\
    \-\n\
    \\STX\EOT\ENQ\DC2\EOTa\NULd\SOH\SUB! Represents a (key, value) pair.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETXa\b\DC1\n\
    \\v\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\ETXb\STX\DC1\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETXb\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXb\t\f\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXb\SI\DLE\n\
    \\v\n\
    \\EOT\EOT\ENQ\STX\SOH\DC2\ETXc\STX\FS\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETXc\STX\DC1\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETXc\DC2\ETB\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETXc\SUB\ESC\n\
    \-\n\
    \\STX\EOT\ACK\DC2\EOTg\NULj\SOH\SUB! Represents Python's namedtuple.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETXg\b\ETB\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETXh\STX\DC2\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETXh\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXh\t\r\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXh\DLE\DC1\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\SOH\DC2\ETXi\STX \n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\EOT\DC2\ETXi\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETXi\v\DC4\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETXi\NAK\ESC\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETXi\RS\US\n\
    \4\n\
    \\STX\EOT\a\DC2\EOTm\NULq\SOH\SUB( A protobuf to represent tf.TensorSpec.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\a\SOH\DC2\ETXm\b\ETB\n\
    \\v\n\
    \\EOT\EOT\a\STX\NUL\DC2\ETXn\STX\DC2\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETXn\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXn\t\r\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXn\DLE\DC1\n\
    \\v\n\
    \\EOT\EOT\a\STX\SOH\DC2\ETXo\STX(\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ACK\DC2\ETXo\STX\GS\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXo\RS#\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXo&'\n\
    \\v\n\
    \\EOT\EOT\a\STX\STX\DC2\ETXp\STX \n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\ACK\DC2\ETXp\STX\NAK\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\SOH\DC2\ETXp\SYN\ESC\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\ETX\DC2\ETXp\RS\US\n\
    \;\n\
    \\STX\EOT\b\DC2\EOTt\NULz\SOH\SUB/ A protobuf to represent tf.BoundedTensorSpec.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\b\SOH\DC2\ETXt\b\RS\n\
    \\v\n\
    \\EOT\EOT\b\STX\NUL\DC2\ETXu\STX\DC2\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ENQ\DC2\ETXu\STX\b\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXu\t\r\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXu\DLE\DC1\n\
    \\v\n\
    \\EOT\EOT\b\STX\SOH\DC2\ETXv\STX(\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ACK\DC2\ETXv\STX\GS\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXv\RS#\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXv&'\n\
    \\v\n\
    \\EOT\EOT\b\STX\STX\DC2\ETXw\STX \n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\ACK\DC2\ETXw\STX\NAK\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\SOH\DC2\ETXw\SYN\ESC\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\ETX\DC2\ETXw\RS\US\n\
    \\v\n\
    \\EOT\EOT\b\STX\ETX\DC2\ETXx\STX%\n\
    \\f\n\
    \\ENQ\EOT\b\STX\ETX\ACK\DC2\ETXx\STX\CAN\n\
    \\f\n\
    \\ENQ\EOT\b\STX\ETX\SOH\DC2\ETXx\EM \n\
    \\f\n\
    \\ENQ\EOT\b\STX\ETX\ETX\DC2\ETXx#$\n\
    \\v\n\
    \\EOT\EOT\b\STX\EOT\DC2\ETXy\STX%\n\
    \\f\n\
    \\ENQ\EOT\b\STX\EOT\ACK\DC2\ETXy\STX\CAN\n\
    \\f\n\
    \\ENQ\EOT\b\STX\EOT\SOH\DC2\ETXy\EM \n\
    \\f\n\
    \\ENQ\EOT\b\STX\EOT\ETX\DC2\ETXy#$\n\
    \'\n\
    \\STX\EOT\t\DC2\ENQ}\NUL\149\SOH\SOH\SUB\SUB Represents a tf.TypeSpec\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\t\SOH\DC2\ETX}\b\NAK\n\
    \\r\n\
    \\EOT\EOT\t\EOT\NUL\DC2\ENQ~\STX\138\SOH\ETX\n\
    \\f\n\
    \\ENQ\EOT\t\EOT\NUL\SOH\DC2\ETX~\a\DC4\n\
    \\r\n\
    \\ACK\EOT\t\EOT\NUL\STX\NUL\DC2\ETX\DEL\EOT\DLE\n\
    \\SO\n\
    \\a\EOT\t\EOT\NUL\STX\NUL\SOH\DC2\ETX\DEL\EOT\v\n\
    \\SO\n\
    \\a\EOT\t\EOT\NUL\STX\NUL\STX\DC2\ETX\DEL\SO\SI\n\
    \%\n\
    \\ACK\EOT\t\EOT\NUL\STX\SOH\DC2\EOT\128\SOH\EOT\ESC\"\NAK tf.SparseTensorSpec\n\
    \\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\SOH\SOH\DC2\EOT\128\SOH\EOT\SYN\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\SOH\STX\DC2\EOT\128\SOH\EM\SUB\n\
    \&\n\
    \\ACK\EOT\t\EOT\NUL\STX\STX\DC2\EOT\129\SOH\EOT\FS\"\SYN tf.IndexedSlicesSpec\n\
    \\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\STX\SOH\DC2\EOT\129\SOH\EOT\ETB\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\STX\STX\DC2\EOT\129\SOH\SUB\ESC\n\
    \%\n\
    \\ACK\EOT\t\EOT\NUL\STX\ETX\DC2\EOT\130\SOH\EOT\ESC\"\NAK tf.RaggedTensorSpec\n\
    \\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\ETX\SOH\DC2\EOT\130\SOH\EOT\SYN\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\ETX\STX\DC2\EOT\130\SOH\EM\SUB\n\
    \$\n\
    \\ACK\EOT\t\EOT\NUL\STX\EOT\DC2\EOT\131\SOH\EOT\SUB\"\DC4 tf.TensorArraySpec\n\
    \\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\EOT\SOH\DC2\EOT\131\SOH\EOT\NAK\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\EOT\STX\DC2\EOT\131\SOH\CAN\EM\n\
    \%\n\
    \\ACK\EOT\t\EOT\NUL\STX\ENQ\DC2\EOT\132\SOH\EOT\SUB\"\NAK tf.data.DatasetSpec\n\
    \\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\ENQ\SOH\DC2\EOT\132\SOH\EOT\NAK\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\ENQ\STX\DC2\EOT\132\SOH\CAN\EM\n\
    \<\n\
    \\ACK\EOT\t\EOT\NUL\STX\ACK\DC2\EOT\133\SOH\EOT\ESC\", IteratorSpec from data/ops/iterator_ops.py\n\
    \\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\ACK\SOH\DC2\EOT\133\SOH\EOT\SYN\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\ACK\STX\DC2\EOT\133\SOH\EM\SUB\n\
    \!\n\
    \\ACK\EOT\t\EOT\NUL\STX\a\DC2\EOT\134\SOH\EOT\SYN\"\DC1 tf.OptionalSpec\n\
    \\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\a\SOH\DC2\EOT\134\SOH\EOT\DC1\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\a\STX\DC2\EOT\134\SOH\DC4\NAK\n\
    \:\n\
    \\ACK\EOT\t\EOT\NUL\STX\b\DC2\EOT\135\SOH\EOT\EM\"* PerReplicaSpec from distribute/values.py\n\
    \\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\b\SOH\DC2\EOT\135\SOH\EOT\DC4\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\b\STX\DC2\EOT\135\SOH\ETB\CAN\n\
    \!\n\
    \\ACK\EOT\t\EOT\NUL\STX\t\DC2\EOT\136\SOH\EOT\SYN\"\DC1 tf.VariableSpec\n\
    \\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\t\SOH\DC2\EOT\136\SOH\EOT\DC1\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\t\STX\DC2\EOT\136\SOH\DC4\NAK\n\
    \?\n\
    \\ACK\EOT\t\EOT\NUL\STX\n\
    \\DC2\EOT\137\SOH\EOT\FS\"/ RowPartitionSpec from ragged/row_partition.py\n\
    \\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\n\
    \\SOH\DC2\EOT\137\SOH\EOT\SYN\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\n\
    \\STX\DC2\EOT\137\SOH\EM\ESC\n\
    \\f\n\
    \\EOT\EOT\t\STX\NUL\DC2\EOT\139\SOH\STX$\n\
    \\r\n\
    \\ENQ\EOT\t\STX\NUL\ACK\DC2\EOT\139\SOH\STX\SI\n\
    \\r\n\
    \\ENQ\EOT\t\STX\NUL\SOH\DC2\EOT\139\SOH\DLE\US\n\
    \\r\n\
    \\ENQ\EOT\t\STX\NUL\ETX\DC2\EOT\139\SOH\"#\n\
    \<\n\
    \\EOT\EOT\t\STX\SOH\DC2\EOT\142\SOH\STX!\SUB. The value returned by TypeSpec._serialize().\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\SOH\ACK\DC2\EOT\142\SOH\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT\t\STX\SOH\SOH\DC2\EOT\142\SOH\DC2\FS\n\
    \\r\n\
    \\ENQ\EOT\t\STX\SOH\ETX\DC2\EOT\142\SOH\US \n\
    \\178\STX\n\
    \\EOT\EOT\t\STX\STX\DC2\EOT\148\SOH\STX\"\SUB\163\STX This is currently redundant with the type_spec_class enum, and is only\n\
    \ used for error reporting.  In particular, if you use an older binary to\n\
    \ load a newer model, and the model uses a TypeSpecClass that the older\n\
    \ binary doesn't support, then this lets us display a useful error message.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\STX\ENQ\DC2\EOT\148\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\t\STX\STX\SOH\DC2\EOT\148\SOH\t\GS\n\
    \\r\n\
    \\ENQ\EOT\t\STX\STX\ETX\DC2\EOT\148\SOH !b\ACKproto3"