{- This file was auto-generated from tensorflow/core/protobuf/meta_graph.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.MetaGraph (
        AssetFileDef(), CollectionDef(), CollectionDef'Kind(..),
        _CollectionDef'NodeList', _CollectionDef'BytesList',
        _CollectionDef'Int64List', _CollectionDef'FloatList',
        _CollectionDef'AnyList', CollectionDef'AnyList(),
        CollectionDef'BytesList(), CollectionDef'FloatList(),
        CollectionDef'Int64List(), CollectionDef'NodeList(),
        MetaGraphDef(), MetaGraphDef'CollectionDefEntry(),
        MetaGraphDef'MetaInfoDef(),
        MetaGraphDef'MetaInfoDef'FunctionAliasesEntry(),
        MetaGraphDef'SignatureDefEntry(), SignatureDef(),
        SignatureDef'InputsEntry(), SignatureDef'OutputsEntry(),
        TensorInfo(), TensorInfo'Encoding(..), _TensorInfo'Name,
        _TensorInfo'CooSparse', _TensorInfo'CompositeTensor',
        TensorInfo'CompositeTensor(), TensorInfo'CooSparse()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.Any
import qualified Proto.Tensorflow.Core.Framework.Graph
import qualified Proto.Tensorflow.Core.Framework.OpDef
import qualified Proto.Tensorflow.Core.Framework.TensorShape
import qualified Proto.Tensorflow.Core.Framework.Types
import qualified Proto.Tensorflow.Core.Protobuf.SavedObjectGraph
import qualified Proto.Tensorflow.Core.Protobuf.Saver
import qualified Proto.Tensorflow.Core.Protobuf.Struct
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.tensorInfo' @:: Lens' AssetFileDef TensorInfo@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'tensorInfo' @:: Lens' AssetFileDef (Prelude.Maybe TensorInfo)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.filename' @:: Lens' AssetFileDef Data.Text.Text@ -}
data AssetFileDef
  = AssetFileDef'_constructor {AssetFileDef -> Maybe TensorInfo
_AssetFileDef'tensorInfo :: !(Prelude.Maybe TensorInfo),
                               AssetFileDef -> Text
_AssetFileDef'filename :: !Data.Text.Text,
                               AssetFileDef -> FieldSet
_AssetFileDef'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AssetFileDef -> AssetFileDef -> Bool
(AssetFileDef -> AssetFileDef -> Bool)
-> (AssetFileDef -> AssetFileDef -> Bool) -> Eq AssetFileDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AssetFileDef -> AssetFileDef -> Bool
$c/= :: AssetFileDef -> AssetFileDef -> Bool
== :: AssetFileDef -> AssetFileDef -> Bool
$c== :: AssetFileDef -> AssetFileDef -> Bool
Prelude.Eq, Eq AssetFileDef
Eq AssetFileDef =>
(AssetFileDef -> AssetFileDef -> Ordering)
-> (AssetFileDef -> AssetFileDef -> Bool)
-> (AssetFileDef -> AssetFileDef -> Bool)
-> (AssetFileDef -> AssetFileDef -> Bool)
-> (AssetFileDef -> AssetFileDef -> Bool)
-> (AssetFileDef -> AssetFileDef -> AssetFileDef)
-> (AssetFileDef -> AssetFileDef -> AssetFileDef)
-> Ord AssetFileDef
AssetFileDef -> AssetFileDef -> Bool
AssetFileDef -> AssetFileDef -> Ordering
AssetFileDef -> AssetFileDef -> AssetFileDef
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: AssetFileDef -> AssetFileDef -> AssetFileDef
$cmin :: AssetFileDef -> AssetFileDef -> AssetFileDef
max :: AssetFileDef -> AssetFileDef -> AssetFileDef
$cmax :: AssetFileDef -> AssetFileDef -> AssetFileDef
>= :: AssetFileDef -> AssetFileDef -> Bool
$c>= :: AssetFileDef -> AssetFileDef -> Bool
> :: AssetFileDef -> AssetFileDef -> Bool
$c> :: AssetFileDef -> AssetFileDef -> Bool
<= :: AssetFileDef -> AssetFileDef -> Bool
$c<= :: AssetFileDef -> AssetFileDef -> Bool
< :: AssetFileDef -> AssetFileDef -> Bool
$c< :: AssetFileDef -> AssetFileDef -> Bool
compare :: AssetFileDef -> AssetFileDef -> Ordering
$ccompare :: AssetFileDef -> AssetFileDef -> Ordering
$cp1Ord :: Eq AssetFileDef
Prelude.Ord)
instance Prelude.Show AssetFileDef where
  showsPrec :: Int -> AssetFileDef -> ShowS
showsPrec _ __x :: AssetFileDef
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (AssetFileDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AssetFileDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField AssetFileDef "tensorInfo" TensorInfo where
  fieldOf :: Proxy# "tensorInfo"
-> (TensorInfo -> f TensorInfo) -> AssetFileDef -> f AssetFileDef
fieldOf _
    = ((Maybe TensorInfo -> f (Maybe TensorInfo))
 -> AssetFileDef -> f AssetFileDef)
-> ((TensorInfo -> f TensorInfo)
    -> Maybe TensorInfo -> f (Maybe TensorInfo))
-> (TensorInfo -> f TensorInfo)
-> AssetFileDef
-> f AssetFileDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AssetFileDef -> Maybe TensorInfo)
-> (AssetFileDef -> Maybe TensorInfo -> AssetFileDef)
-> Lens
     AssetFileDef AssetFileDef (Maybe TensorInfo) (Maybe TensorInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AssetFileDef -> Maybe TensorInfo
_AssetFileDef'tensorInfo
           (\ x__ :: AssetFileDef
x__ y__ :: Maybe TensorInfo
y__ -> AssetFileDef
x__ {_AssetFileDef'tensorInfo :: Maybe TensorInfo
_AssetFileDef'tensorInfo = Maybe TensorInfo
y__}))
        (TensorInfo -> Lens' (Maybe TensorInfo) TensorInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AssetFileDef "maybe'tensorInfo" (Prelude.Maybe TensorInfo) where
  fieldOf :: Proxy# "maybe'tensorInfo"
-> (Maybe TensorInfo -> f (Maybe TensorInfo))
-> AssetFileDef
-> f AssetFileDef
fieldOf _
    = ((Maybe TensorInfo -> f (Maybe TensorInfo))
 -> AssetFileDef -> f AssetFileDef)
-> ((Maybe TensorInfo -> f (Maybe TensorInfo))
    -> Maybe TensorInfo -> f (Maybe TensorInfo))
-> (Maybe TensorInfo -> f (Maybe TensorInfo))
-> AssetFileDef
-> f AssetFileDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AssetFileDef -> Maybe TensorInfo)
-> (AssetFileDef -> Maybe TensorInfo -> AssetFileDef)
-> Lens
     AssetFileDef AssetFileDef (Maybe TensorInfo) (Maybe TensorInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AssetFileDef -> Maybe TensorInfo
_AssetFileDef'tensorInfo
           (\ x__ :: AssetFileDef
x__ y__ :: Maybe TensorInfo
y__ -> AssetFileDef
x__ {_AssetFileDef'tensorInfo :: Maybe TensorInfo
_AssetFileDef'tensorInfo = Maybe TensorInfo
y__}))
        (Maybe TensorInfo -> f (Maybe TensorInfo))
-> Maybe TensorInfo -> f (Maybe TensorInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AssetFileDef "filename" Data.Text.Text where
  fieldOf :: Proxy# "filename"
-> (Text -> f Text) -> AssetFileDef -> f AssetFileDef
fieldOf _
    = ((Text -> f Text) -> AssetFileDef -> f AssetFileDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AssetFileDef
-> f AssetFileDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AssetFileDef -> Text)
-> (AssetFileDef -> Text -> AssetFileDef)
-> Lens AssetFileDef AssetFileDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AssetFileDef -> Text
_AssetFileDef'filename
           (\ x__ :: AssetFileDef
x__ y__ :: Text
y__ -> AssetFileDef
x__ {_AssetFileDef'filename :: Text
_AssetFileDef'filename = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AssetFileDef where
  messageName :: Proxy AssetFileDef -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.AssetFileDef"
  packedMessageDescriptor :: Proxy AssetFileDef -> ByteString
packedMessageDescriptor _
    = "\n\
      \\fAssetFileDef\DC27\n\
      \\vtensor_info\CAN\SOH \SOH(\v2\SYN.tensorflow.TensorInfoR\n\
      \tensorInfo\DC2\SUB\n\
      \\bfilename\CAN\STX \SOH(\tR\bfilename"
  packedFileDescriptor :: Proxy AssetFileDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AssetFileDef)
fieldsByTag
    = let
        tensorInfo__field_descriptor :: FieldDescriptor AssetFileDef
tensorInfo__field_descriptor
          = String
-> FieldTypeDescriptor TensorInfo
-> FieldAccessor AssetFileDef TensorInfo
-> FieldDescriptor AssetFileDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "tensor_info"
              (MessageOrGroup -> FieldTypeDescriptor TensorInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TensorInfo)
              (Lens
  AssetFileDef AssetFileDef (Maybe TensorInfo) (Maybe TensorInfo)
-> FieldAccessor AssetFileDef TensorInfo
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'tensorInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'tensorInfo")) ::
              Data.ProtoLens.FieldDescriptor AssetFileDef
        filename__field_descriptor :: FieldDescriptor AssetFileDef
filename__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AssetFileDef Text
-> FieldDescriptor AssetFileDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "filename"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AssetFileDef AssetFileDef Text Text
-> FieldAccessor AssetFileDef Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "filename" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filename")) ::
              Data.ProtoLens.FieldDescriptor AssetFileDef
      in
        [(Tag, FieldDescriptor AssetFileDef)]
-> Map Tag (FieldDescriptor AssetFileDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor AssetFileDef
tensorInfo__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor AssetFileDef
filename__field_descriptor)]
  unknownFields :: LensLike' f AssetFileDef FieldSet
unknownFields
    = (AssetFileDef -> FieldSet)
-> (AssetFileDef -> FieldSet -> AssetFileDef)
-> Lens' AssetFileDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AssetFileDef -> FieldSet
_AssetFileDef'_unknownFields
        (\ x__ :: AssetFileDef
x__ y__ :: FieldSet
y__ -> AssetFileDef
x__ {_AssetFileDef'_unknownFields :: FieldSet
_AssetFileDef'_unknownFields = FieldSet
y__})
  defMessage :: AssetFileDef
defMessage
    = $WAssetFileDef'_constructor :: Maybe TensorInfo -> Text -> FieldSet -> AssetFileDef
AssetFileDef'_constructor
        {_AssetFileDef'tensorInfo :: Maybe TensorInfo
_AssetFileDef'tensorInfo = Maybe TensorInfo
forall a. Maybe a
Prelude.Nothing,
         _AssetFileDef'filename :: Text
_AssetFileDef'filename = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AssetFileDef'_unknownFields :: FieldSet
_AssetFileDef'_unknownFields = []}
  parseMessage :: Parser AssetFileDef
parseMessage
    = let
        loop ::
          AssetFileDef -> Data.ProtoLens.Encoding.Bytes.Parser AssetFileDef
        loop :: AssetFileDef -> Parser AssetFileDef
loop x :: AssetFileDef
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      AssetFileDef -> Parser AssetFileDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter AssetFileDef AssetFileDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AssetFileDef -> AssetFileDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter AssetFileDef AssetFileDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AssetFileDef
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do TensorInfo
y <- Parser TensorInfo -> String -> Parser TensorInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TensorInfo -> Parser TensorInfo
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TensorInfo
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "tensor_info"
                                AssetFileDef -> Parser AssetFileDef
loop
                                  (Setter AssetFileDef AssetFileDef TensorInfo TensorInfo
-> TensorInfo -> AssetFileDef -> AssetFileDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "tensorInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorInfo") TensorInfo
y AssetFileDef
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "filename"
                                AssetFileDef -> Parser AssetFileDef
loop
                                  (Setter AssetFileDef AssetFileDef Text Text
-> Text -> AssetFileDef -> AssetFileDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "filename" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filename") Text
y AssetFileDef
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                AssetFileDef -> Parser AssetFileDef
loop
                                  (Setter AssetFileDef AssetFileDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AssetFileDef -> AssetFileDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter AssetFileDef AssetFileDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AssetFileDef
x)
      in
        Parser AssetFileDef -> String -> Parser AssetFileDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AssetFileDef -> Parser AssetFileDef
loop AssetFileDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "AssetFileDef"
  buildMessage :: AssetFileDef -> Builder
buildMessage
    = \ _x :: AssetFileDef
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe TensorInfo)
  AssetFileDef
  AssetFileDef
  (Maybe TensorInfo)
  (Maybe TensorInfo)
-> AssetFileDef -> Maybe TensorInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall s a (f :: * -> *).
(HasField s "maybe'tensorInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'tensorInfo") AssetFileDef
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: TensorInfo
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder)
-> (TensorInfo -> ByteString) -> TensorInfo -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          TensorInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          TensorInfo
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text AssetFileDef AssetFileDef Text Text
-> AssetFileDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "filename" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filename") AssetFileDef
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ bs :: ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                            Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet AssetFileDef AssetFileDef FieldSet FieldSet
-> AssetFileDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AssetFileDef AssetFileDef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields AssetFileDef
_x)))
instance Control.DeepSeq.NFData AssetFileDef where
  rnf :: AssetFileDef -> ()
rnf
    = \ x__ :: AssetFileDef
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AssetFileDef -> FieldSet
_AssetFileDef'_unknownFields AssetFileDef
x__)
             (Maybe TensorInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AssetFileDef -> Maybe TensorInfo
_AssetFileDef'tensorInfo AssetFileDef
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AssetFileDef -> Text
_AssetFileDef'filename AssetFileDef
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'kind' @:: Lens' CollectionDef (Prelude.Maybe CollectionDef'Kind)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'nodeList' @:: Lens' CollectionDef (Prelude.Maybe CollectionDef'NodeList)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.nodeList' @:: Lens' CollectionDef CollectionDef'NodeList@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'bytesList' @:: Lens' CollectionDef (Prelude.Maybe CollectionDef'BytesList)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.bytesList' @:: Lens' CollectionDef CollectionDef'BytesList@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'int64List' @:: Lens' CollectionDef (Prelude.Maybe CollectionDef'Int64List)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.int64List' @:: Lens' CollectionDef CollectionDef'Int64List@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'floatList' @:: Lens' CollectionDef (Prelude.Maybe CollectionDef'FloatList)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.floatList' @:: Lens' CollectionDef CollectionDef'FloatList@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'anyList' @:: Lens' CollectionDef (Prelude.Maybe CollectionDef'AnyList)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.anyList' @:: Lens' CollectionDef CollectionDef'AnyList@ -}
data CollectionDef
  = CollectionDef'_constructor {CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind :: !(Prelude.Maybe CollectionDef'Kind),
                                CollectionDef -> FieldSet
_CollectionDef'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CollectionDef -> CollectionDef -> Bool
(CollectionDef -> CollectionDef -> Bool)
-> (CollectionDef -> CollectionDef -> Bool) -> Eq CollectionDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef -> CollectionDef -> Bool
$c/= :: CollectionDef -> CollectionDef -> Bool
== :: CollectionDef -> CollectionDef -> Bool
$c== :: CollectionDef -> CollectionDef -> Bool
Prelude.Eq, Eq CollectionDef
Eq CollectionDef =>
(CollectionDef -> CollectionDef -> Ordering)
-> (CollectionDef -> CollectionDef -> Bool)
-> (CollectionDef -> CollectionDef -> Bool)
-> (CollectionDef -> CollectionDef -> Bool)
-> (CollectionDef -> CollectionDef -> Bool)
-> (CollectionDef -> CollectionDef -> CollectionDef)
-> (CollectionDef -> CollectionDef -> CollectionDef)
-> Ord CollectionDef
CollectionDef -> CollectionDef -> Bool
CollectionDef -> CollectionDef -> Ordering
CollectionDef -> CollectionDef -> CollectionDef
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CollectionDef -> CollectionDef -> CollectionDef
$cmin :: CollectionDef -> CollectionDef -> CollectionDef
max :: CollectionDef -> CollectionDef -> CollectionDef
$cmax :: CollectionDef -> CollectionDef -> CollectionDef
>= :: CollectionDef -> CollectionDef -> Bool
$c>= :: CollectionDef -> CollectionDef -> Bool
> :: CollectionDef -> CollectionDef -> Bool
$c> :: CollectionDef -> CollectionDef -> Bool
<= :: CollectionDef -> CollectionDef -> Bool
$c<= :: CollectionDef -> CollectionDef -> Bool
< :: CollectionDef -> CollectionDef -> Bool
$c< :: CollectionDef -> CollectionDef -> Bool
compare :: CollectionDef -> CollectionDef -> Ordering
$ccompare :: CollectionDef -> CollectionDef -> Ordering
$cp1Ord :: Eq CollectionDef
Prelude.Ord)
instance Prelude.Show CollectionDef where
  showsPrec :: Int -> CollectionDef -> ShowS
showsPrec _ __x :: CollectionDef
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (CollectionDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CollectionDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data CollectionDef'Kind
  = CollectionDef'NodeList' !CollectionDef'NodeList |
    CollectionDef'BytesList' !CollectionDef'BytesList |
    CollectionDef'Int64List' !CollectionDef'Int64List |
    CollectionDef'FloatList' !CollectionDef'FloatList |
    CollectionDef'AnyList' !CollectionDef'AnyList
  deriving stock (Int -> CollectionDef'Kind -> ShowS
[CollectionDef'Kind] -> ShowS
CollectionDef'Kind -> String
(Int -> CollectionDef'Kind -> ShowS)
-> (CollectionDef'Kind -> String)
-> ([CollectionDef'Kind] -> ShowS)
-> Show CollectionDef'Kind
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CollectionDef'Kind] -> ShowS
$cshowList :: [CollectionDef'Kind] -> ShowS
show :: CollectionDef'Kind -> String
$cshow :: CollectionDef'Kind -> String
showsPrec :: Int -> CollectionDef'Kind -> ShowS
$cshowsPrec :: Int -> CollectionDef'Kind -> ShowS
Prelude.Show, CollectionDef'Kind -> CollectionDef'Kind -> Bool
(CollectionDef'Kind -> CollectionDef'Kind -> Bool)
-> (CollectionDef'Kind -> CollectionDef'Kind -> Bool)
-> Eq CollectionDef'Kind
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
$c/= :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
== :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
$c== :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
Prelude.Eq, Eq CollectionDef'Kind
Eq CollectionDef'Kind =>
(CollectionDef'Kind -> CollectionDef'Kind -> Ordering)
-> (CollectionDef'Kind -> CollectionDef'Kind -> Bool)
-> (CollectionDef'Kind -> CollectionDef'Kind -> Bool)
-> (CollectionDef'Kind -> CollectionDef'Kind -> Bool)
-> (CollectionDef'Kind -> CollectionDef'Kind -> Bool)
-> (CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind)
-> (CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind)
-> Ord CollectionDef'Kind
CollectionDef'Kind -> CollectionDef'Kind -> Bool
CollectionDef'Kind -> CollectionDef'Kind -> Ordering
CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind
$cmin :: CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind
max :: CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind
$cmax :: CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind
>= :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
$c>= :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
> :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
$c> :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
<= :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
$c<= :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
< :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
$c< :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
compare :: CollectionDef'Kind -> CollectionDef'Kind -> Ordering
$ccompare :: CollectionDef'Kind -> CollectionDef'Kind -> Ordering
$cp1Ord :: Eq CollectionDef'Kind
Prelude.Ord)
instance Data.ProtoLens.Field.HasField CollectionDef "maybe'kind" (Prelude.Maybe CollectionDef'Kind) where
  fieldOf :: Proxy# "maybe'kind"
-> (Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef
-> f CollectionDef
fieldOf _
    = ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
 -> CollectionDef -> f CollectionDef)
-> ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
    -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
     CollectionDef
     CollectionDef
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
        (Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CollectionDef "maybe'nodeList" (Prelude.Maybe CollectionDef'NodeList) where
  fieldOf :: Proxy# "maybe'nodeList"
-> (Maybe CollectionDef'NodeList
    -> f (Maybe CollectionDef'NodeList))
-> CollectionDef
-> f CollectionDef
fieldOf _
    = ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
 -> CollectionDef -> f CollectionDef)
-> ((Maybe CollectionDef'NodeList
     -> f (Maybe CollectionDef'NodeList))
    -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (Maybe CollectionDef'NodeList
    -> f (Maybe CollectionDef'NodeList))
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
     CollectionDef
     CollectionDef
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
        ((Maybe CollectionDef'Kind -> Maybe CollectionDef'NodeList)
-> (Maybe CollectionDef'Kind
    -> Maybe CollectionDef'NodeList -> Maybe CollectionDef'Kind)
-> Lens
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'NodeList)
     (Maybe CollectionDef'NodeList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe CollectionDef'Kind
x__
              -> case Maybe CollectionDef'Kind
x__ of
                   (Prelude.Just (CollectionDef'NodeList' x__val :: CollectionDef'NodeList
x__val))
                     -> CollectionDef'NodeList -> Maybe CollectionDef'NodeList
forall a. a -> Maybe a
Prelude.Just CollectionDef'NodeList
x__val
                   _otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'NodeList
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe CollectionDef'NodeList
y__ -> (CollectionDef'NodeList -> CollectionDef'Kind)
-> Maybe CollectionDef'NodeList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'NodeList -> CollectionDef'Kind
CollectionDef'NodeList' Maybe CollectionDef'NodeList
y__))
instance Data.ProtoLens.Field.HasField CollectionDef "nodeList" CollectionDef'NodeList where
  fieldOf :: Proxy# "nodeList"
-> (CollectionDef'NodeList -> f CollectionDef'NodeList)
-> CollectionDef
-> f CollectionDef
fieldOf _
    = ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
 -> CollectionDef -> f CollectionDef)
-> ((CollectionDef'NodeList -> f CollectionDef'NodeList)
    -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (CollectionDef'NodeList -> f CollectionDef'NodeList)
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
     CollectionDef
     CollectionDef
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
        (((Maybe CollectionDef'NodeList -> f (Maybe CollectionDef'NodeList))
 -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> ((CollectionDef'NodeList -> f CollectionDef'NodeList)
    -> Maybe CollectionDef'NodeList
    -> f (Maybe CollectionDef'NodeList))
-> (CollectionDef'NodeList -> f CollectionDef'NodeList)
-> Maybe CollectionDef'Kind
-> f (Maybe CollectionDef'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CollectionDef'Kind -> Maybe CollectionDef'NodeList)
-> (Maybe CollectionDef'Kind
    -> Maybe CollectionDef'NodeList -> Maybe CollectionDef'Kind)
-> Lens
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'NodeList)
     (Maybe CollectionDef'NodeList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe CollectionDef'Kind
x__
                 -> case Maybe CollectionDef'Kind
x__ of
                      (Prelude.Just (CollectionDef'NodeList' x__val :: CollectionDef'NodeList
x__val))
                        -> CollectionDef'NodeList -> Maybe CollectionDef'NodeList
forall a. a -> Maybe a
Prelude.Just CollectionDef'NodeList
x__val
                      _otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'NodeList
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe CollectionDef'NodeList
y__ -> (CollectionDef'NodeList -> CollectionDef'Kind)
-> Maybe CollectionDef'NodeList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'NodeList -> CollectionDef'Kind
CollectionDef'NodeList' Maybe CollectionDef'NodeList
y__))
           (CollectionDef'NodeList
-> Lens' (Maybe CollectionDef'NodeList) CollectionDef'NodeList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CollectionDef'NodeList
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CollectionDef "maybe'bytesList" (Prelude.Maybe CollectionDef'BytesList) where
  fieldOf :: Proxy# "maybe'bytesList"
-> (Maybe CollectionDef'BytesList
    -> f (Maybe CollectionDef'BytesList))
-> CollectionDef
-> f CollectionDef
fieldOf _
    = ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
 -> CollectionDef -> f CollectionDef)
-> ((Maybe CollectionDef'BytesList
     -> f (Maybe CollectionDef'BytesList))
    -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (Maybe CollectionDef'BytesList
    -> f (Maybe CollectionDef'BytesList))
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
     CollectionDef
     CollectionDef
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
        ((Maybe CollectionDef'Kind -> Maybe CollectionDef'BytesList)
-> (Maybe CollectionDef'Kind
    -> Maybe CollectionDef'BytesList -> Maybe CollectionDef'Kind)
-> Lens
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'BytesList)
     (Maybe CollectionDef'BytesList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe CollectionDef'Kind
x__
              -> case Maybe CollectionDef'Kind
x__ of
                   (Prelude.Just (CollectionDef'BytesList' x__val :: CollectionDef'BytesList
x__val))
                     -> CollectionDef'BytesList -> Maybe CollectionDef'BytesList
forall a. a -> Maybe a
Prelude.Just CollectionDef'BytesList
x__val
                   _otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'BytesList
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe CollectionDef'BytesList
y__ -> (CollectionDef'BytesList -> CollectionDef'Kind)
-> Maybe CollectionDef'BytesList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'BytesList -> CollectionDef'Kind
CollectionDef'BytesList' Maybe CollectionDef'BytesList
y__))
instance Data.ProtoLens.Field.HasField CollectionDef "bytesList" CollectionDef'BytesList where
  fieldOf :: Proxy# "bytesList"
-> (CollectionDef'BytesList -> f CollectionDef'BytesList)
-> CollectionDef
-> f CollectionDef
fieldOf _
    = ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
 -> CollectionDef -> f CollectionDef)
-> ((CollectionDef'BytesList -> f CollectionDef'BytesList)
    -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (CollectionDef'BytesList -> f CollectionDef'BytesList)
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
     CollectionDef
     CollectionDef
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
        (((Maybe CollectionDef'BytesList
  -> f (Maybe CollectionDef'BytesList))
 -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> ((CollectionDef'BytesList -> f CollectionDef'BytesList)
    -> Maybe CollectionDef'BytesList
    -> f (Maybe CollectionDef'BytesList))
-> (CollectionDef'BytesList -> f CollectionDef'BytesList)
-> Maybe CollectionDef'Kind
-> f (Maybe CollectionDef'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CollectionDef'Kind -> Maybe CollectionDef'BytesList)
-> (Maybe CollectionDef'Kind
    -> Maybe CollectionDef'BytesList -> Maybe CollectionDef'Kind)
-> Lens
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'BytesList)
     (Maybe CollectionDef'BytesList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe CollectionDef'Kind
x__
                 -> case Maybe CollectionDef'Kind
x__ of
                      (Prelude.Just (CollectionDef'BytesList' x__val :: CollectionDef'BytesList
x__val))
                        -> CollectionDef'BytesList -> Maybe CollectionDef'BytesList
forall a. a -> Maybe a
Prelude.Just CollectionDef'BytesList
x__val
                      _otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'BytesList
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe CollectionDef'BytesList
y__ -> (CollectionDef'BytesList -> CollectionDef'Kind)
-> Maybe CollectionDef'BytesList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'BytesList -> CollectionDef'Kind
CollectionDef'BytesList' Maybe CollectionDef'BytesList
y__))
           (CollectionDef'BytesList
-> Lens' (Maybe CollectionDef'BytesList) CollectionDef'BytesList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CollectionDef'BytesList
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CollectionDef "maybe'int64List" (Prelude.Maybe CollectionDef'Int64List) where
  fieldOf :: Proxy# "maybe'int64List"
-> (Maybe CollectionDef'Int64List
    -> f (Maybe CollectionDef'Int64List))
-> CollectionDef
-> f CollectionDef
fieldOf _
    = ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
 -> CollectionDef -> f CollectionDef)
-> ((Maybe CollectionDef'Int64List
     -> f (Maybe CollectionDef'Int64List))
    -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (Maybe CollectionDef'Int64List
    -> f (Maybe CollectionDef'Int64List))
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
     CollectionDef
     CollectionDef
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
        ((Maybe CollectionDef'Kind -> Maybe CollectionDef'Int64List)
-> (Maybe CollectionDef'Kind
    -> Maybe CollectionDef'Int64List -> Maybe CollectionDef'Kind)
-> Lens
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Int64List)
     (Maybe CollectionDef'Int64List)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe CollectionDef'Kind
x__
              -> case Maybe CollectionDef'Kind
x__ of
                   (Prelude.Just (CollectionDef'Int64List' x__val :: CollectionDef'Int64List
x__val))
                     -> CollectionDef'Int64List -> Maybe CollectionDef'Int64List
forall a. a -> Maybe a
Prelude.Just CollectionDef'Int64List
x__val
                   _otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'Int64List
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe CollectionDef'Int64List
y__ -> (CollectionDef'Int64List -> CollectionDef'Kind)
-> Maybe CollectionDef'Int64List -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'Int64List -> CollectionDef'Kind
CollectionDef'Int64List' Maybe CollectionDef'Int64List
y__))
instance Data.ProtoLens.Field.HasField CollectionDef "int64List" CollectionDef'Int64List where
  fieldOf :: Proxy# "int64List"
-> (CollectionDef'Int64List -> f CollectionDef'Int64List)
-> CollectionDef
-> f CollectionDef
fieldOf _
    = ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
 -> CollectionDef -> f CollectionDef)
-> ((CollectionDef'Int64List -> f CollectionDef'Int64List)
    -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (CollectionDef'Int64List -> f CollectionDef'Int64List)
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
     CollectionDef
     CollectionDef
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
        (((Maybe CollectionDef'Int64List
  -> f (Maybe CollectionDef'Int64List))
 -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> ((CollectionDef'Int64List -> f CollectionDef'Int64List)
    -> Maybe CollectionDef'Int64List
    -> f (Maybe CollectionDef'Int64List))
-> (CollectionDef'Int64List -> f CollectionDef'Int64List)
-> Maybe CollectionDef'Kind
-> f (Maybe CollectionDef'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CollectionDef'Kind -> Maybe CollectionDef'Int64List)
-> (Maybe CollectionDef'Kind
    -> Maybe CollectionDef'Int64List -> Maybe CollectionDef'Kind)
-> Lens
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Int64List)
     (Maybe CollectionDef'Int64List)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe CollectionDef'Kind
x__
                 -> case Maybe CollectionDef'Kind
x__ of
                      (Prelude.Just (CollectionDef'Int64List' x__val :: CollectionDef'Int64List
x__val))
                        -> CollectionDef'Int64List -> Maybe CollectionDef'Int64List
forall a. a -> Maybe a
Prelude.Just CollectionDef'Int64List
x__val
                      _otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'Int64List
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe CollectionDef'Int64List
y__ -> (CollectionDef'Int64List -> CollectionDef'Kind)
-> Maybe CollectionDef'Int64List -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'Int64List -> CollectionDef'Kind
CollectionDef'Int64List' Maybe CollectionDef'Int64List
y__))
           (CollectionDef'Int64List
-> Lens' (Maybe CollectionDef'Int64List) CollectionDef'Int64List
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CollectionDef'Int64List
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CollectionDef "maybe'floatList" (Prelude.Maybe CollectionDef'FloatList) where
  fieldOf :: Proxy# "maybe'floatList"
-> (Maybe CollectionDef'FloatList
    -> f (Maybe CollectionDef'FloatList))
-> CollectionDef
-> f CollectionDef
fieldOf _
    = ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
 -> CollectionDef -> f CollectionDef)
-> ((Maybe CollectionDef'FloatList
     -> f (Maybe CollectionDef'FloatList))
    -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (Maybe CollectionDef'FloatList
    -> f (Maybe CollectionDef'FloatList))
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
     CollectionDef
     CollectionDef
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
        ((Maybe CollectionDef'Kind -> Maybe CollectionDef'FloatList)
-> (Maybe CollectionDef'Kind
    -> Maybe CollectionDef'FloatList -> Maybe CollectionDef'Kind)
-> Lens
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'FloatList)
     (Maybe CollectionDef'FloatList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe CollectionDef'Kind
x__
              -> case Maybe CollectionDef'Kind
x__ of
                   (Prelude.Just (CollectionDef'FloatList' x__val :: CollectionDef'FloatList
x__val))
                     -> CollectionDef'FloatList -> Maybe CollectionDef'FloatList
forall a. a -> Maybe a
Prelude.Just CollectionDef'FloatList
x__val
                   _otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'FloatList
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe CollectionDef'FloatList
y__ -> (CollectionDef'FloatList -> CollectionDef'Kind)
-> Maybe CollectionDef'FloatList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'FloatList -> CollectionDef'Kind
CollectionDef'FloatList' Maybe CollectionDef'FloatList
y__))
instance Data.ProtoLens.Field.HasField CollectionDef "floatList" CollectionDef'FloatList where
  fieldOf :: Proxy# "floatList"
-> (CollectionDef'FloatList -> f CollectionDef'FloatList)
-> CollectionDef
-> f CollectionDef
fieldOf _
    = ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
 -> CollectionDef -> f CollectionDef)
-> ((CollectionDef'FloatList -> f CollectionDef'FloatList)
    -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (CollectionDef'FloatList -> f CollectionDef'FloatList)
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
     CollectionDef
     CollectionDef
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
        (((Maybe CollectionDef'FloatList
  -> f (Maybe CollectionDef'FloatList))
 -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> ((CollectionDef'FloatList -> f CollectionDef'FloatList)
    -> Maybe CollectionDef'FloatList
    -> f (Maybe CollectionDef'FloatList))
-> (CollectionDef'FloatList -> f CollectionDef'FloatList)
-> Maybe CollectionDef'Kind
-> f (Maybe CollectionDef'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CollectionDef'Kind -> Maybe CollectionDef'FloatList)
-> (Maybe CollectionDef'Kind
    -> Maybe CollectionDef'FloatList -> Maybe CollectionDef'Kind)
-> Lens
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'FloatList)
     (Maybe CollectionDef'FloatList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe CollectionDef'Kind
x__
                 -> case Maybe CollectionDef'Kind
x__ of
                      (Prelude.Just (CollectionDef'FloatList' x__val :: CollectionDef'FloatList
x__val))
                        -> CollectionDef'FloatList -> Maybe CollectionDef'FloatList
forall a. a -> Maybe a
Prelude.Just CollectionDef'FloatList
x__val
                      _otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'FloatList
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe CollectionDef'FloatList
y__ -> (CollectionDef'FloatList -> CollectionDef'Kind)
-> Maybe CollectionDef'FloatList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'FloatList -> CollectionDef'Kind
CollectionDef'FloatList' Maybe CollectionDef'FloatList
y__))
           (CollectionDef'FloatList
-> Lens' (Maybe CollectionDef'FloatList) CollectionDef'FloatList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CollectionDef'FloatList
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CollectionDef "maybe'anyList" (Prelude.Maybe CollectionDef'AnyList) where
  fieldOf :: Proxy# "maybe'anyList"
-> (Maybe CollectionDef'AnyList -> f (Maybe CollectionDef'AnyList))
-> CollectionDef
-> f CollectionDef
fieldOf _
    = ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
 -> CollectionDef -> f CollectionDef)
-> ((Maybe CollectionDef'AnyList
     -> f (Maybe CollectionDef'AnyList))
    -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (Maybe CollectionDef'AnyList -> f (Maybe CollectionDef'AnyList))
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
     CollectionDef
     CollectionDef
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
        ((Maybe CollectionDef'Kind -> Maybe CollectionDef'AnyList)
-> (Maybe CollectionDef'Kind
    -> Maybe CollectionDef'AnyList -> Maybe CollectionDef'Kind)
-> Lens
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'AnyList)
     (Maybe CollectionDef'AnyList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe CollectionDef'Kind
x__
              -> case Maybe CollectionDef'Kind
x__ of
                   (Prelude.Just (CollectionDef'AnyList' x__val :: CollectionDef'AnyList
x__val))
                     -> CollectionDef'AnyList -> Maybe CollectionDef'AnyList
forall a. a -> Maybe a
Prelude.Just CollectionDef'AnyList
x__val
                   _otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'AnyList
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe CollectionDef'AnyList
y__ -> (CollectionDef'AnyList -> CollectionDef'Kind)
-> Maybe CollectionDef'AnyList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'AnyList -> CollectionDef'Kind
CollectionDef'AnyList' Maybe CollectionDef'AnyList
y__))
instance Data.ProtoLens.Field.HasField CollectionDef "anyList" CollectionDef'AnyList where
  fieldOf :: Proxy# "anyList"
-> (CollectionDef'AnyList -> f CollectionDef'AnyList)
-> CollectionDef
-> f CollectionDef
fieldOf _
    = ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
 -> CollectionDef -> f CollectionDef)
-> ((CollectionDef'AnyList -> f CollectionDef'AnyList)
    -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (CollectionDef'AnyList -> f CollectionDef'AnyList)
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
     CollectionDef
     CollectionDef
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
        (((Maybe CollectionDef'AnyList -> f (Maybe CollectionDef'AnyList))
 -> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> ((CollectionDef'AnyList -> f CollectionDef'AnyList)
    -> Maybe CollectionDef'AnyList -> f (Maybe CollectionDef'AnyList))
-> (CollectionDef'AnyList -> f CollectionDef'AnyList)
-> Maybe CollectionDef'Kind
-> f (Maybe CollectionDef'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CollectionDef'Kind -> Maybe CollectionDef'AnyList)
-> (Maybe CollectionDef'Kind
    -> Maybe CollectionDef'AnyList -> Maybe CollectionDef'Kind)
-> Lens
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'Kind)
     (Maybe CollectionDef'AnyList)
     (Maybe CollectionDef'AnyList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe CollectionDef'Kind
x__
                 -> case Maybe CollectionDef'Kind
x__ of
                      (Prelude.Just (CollectionDef'AnyList' x__val :: CollectionDef'AnyList
x__val))
                        -> CollectionDef'AnyList -> Maybe CollectionDef'AnyList
forall a. a -> Maybe a
Prelude.Just CollectionDef'AnyList
x__val
                      _otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'AnyList
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe CollectionDef'AnyList
y__ -> (CollectionDef'AnyList -> CollectionDef'Kind)
-> Maybe CollectionDef'AnyList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'AnyList -> CollectionDef'Kind
CollectionDef'AnyList' Maybe CollectionDef'AnyList
y__))
           (CollectionDef'AnyList
-> Lens' (Maybe CollectionDef'AnyList) CollectionDef'AnyList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CollectionDef'AnyList
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message CollectionDef where
  messageName :: Proxy CollectionDef -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CollectionDef"
  packedMessageDescriptor :: Proxy CollectionDef -> ByteString
packedMessageDescriptor _
    = "\n\
      \\rCollectionDef\DC2A\n\
      \\tnode_list\CAN\SOH \SOH(\v2\".tensorflow.CollectionDef.NodeListH\NULR\bnodeList\DC2D\n\
      \\n\
      \bytes_list\CAN\STX \SOH(\v2#.tensorflow.CollectionDef.BytesListH\NULR\tbytesList\DC2D\n\
      \\n\
      \int64_list\CAN\ETX \SOH(\v2#.tensorflow.CollectionDef.Int64ListH\NULR\tint64List\DC2D\n\
      \\n\
      \float_list\CAN\EOT \SOH(\v2#.tensorflow.CollectionDef.FloatListH\NULR\tfloatList\DC2>\n\
      \\bany_list\CAN\ENQ \SOH(\v2!.tensorflow.CollectionDef.AnyListH\NULR\aanyList\SUB \n\
      \\bNodeList\DC2\DC4\n\
      \\ENQvalue\CAN\SOH \ETX(\tR\ENQvalue\SUB!\n\
      \\tBytesList\DC2\DC4\n\
      \\ENQvalue\CAN\SOH \ETX(\fR\ENQvalue\SUB%\n\
      \\tInt64List\DC2\CAN\n\
      \\ENQvalue\CAN\SOH \ETX(\ETXR\ENQvalueB\STX\DLE\SOH\SUB%\n\
      \\tFloatList\DC2\CAN\n\
      \\ENQvalue\CAN\SOH \ETX(\STXR\ENQvalueB\STX\DLE\SOH\SUB5\n\
      \\aAnyList\DC2*\n\
      \\ENQvalue\CAN\SOH \ETX(\v2\DC4.google.protobuf.AnyR\ENQvalueB\ACK\n\
      \\EOTkind"
  packedFileDescriptor :: Proxy CollectionDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CollectionDef)
fieldsByTag
    = let
        nodeList__field_descriptor :: FieldDescriptor CollectionDef
nodeList__field_descriptor
          = String
-> FieldTypeDescriptor CollectionDef'NodeList
-> FieldAccessor CollectionDef CollectionDef'NodeList
-> FieldDescriptor CollectionDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "node_list"
              (MessageOrGroup -> FieldTypeDescriptor CollectionDef'NodeList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CollectionDef'NodeList)
              (Lens' CollectionDef (Maybe CollectionDef'NodeList)
-> FieldAccessor CollectionDef CollectionDef'NodeList
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'nodeList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nodeList")) ::
              Data.ProtoLens.FieldDescriptor CollectionDef
        bytesList__field_descriptor :: FieldDescriptor CollectionDef
bytesList__field_descriptor
          = String
-> FieldTypeDescriptor CollectionDef'BytesList
-> FieldAccessor CollectionDef CollectionDef'BytesList
-> FieldDescriptor CollectionDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "bytes_list"
              (MessageOrGroup -> FieldTypeDescriptor CollectionDef'BytesList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CollectionDef'BytesList)
              (Lens' CollectionDef (Maybe CollectionDef'BytesList)
-> FieldAccessor CollectionDef CollectionDef'BytesList
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'bytesList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'bytesList")) ::
              Data.ProtoLens.FieldDescriptor CollectionDef
        int64List__field_descriptor :: FieldDescriptor CollectionDef
int64List__field_descriptor
          = String
-> FieldTypeDescriptor CollectionDef'Int64List
-> FieldAccessor CollectionDef CollectionDef'Int64List
-> FieldDescriptor CollectionDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "int64_list"
              (MessageOrGroup -> FieldTypeDescriptor CollectionDef'Int64List
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CollectionDef'Int64List)
              (Lens' CollectionDef (Maybe CollectionDef'Int64List)
-> FieldAccessor CollectionDef CollectionDef'Int64List
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'int64List" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'int64List")) ::
              Data.ProtoLens.FieldDescriptor CollectionDef
        floatList__field_descriptor :: FieldDescriptor CollectionDef
floatList__field_descriptor
          = String
-> FieldTypeDescriptor CollectionDef'FloatList
-> FieldAccessor CollectionDef CollectionDef'FloatList
-> FieldDescriptor CollectionDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "float_list"
              (MessageOrGroup -> FieldTypeDescriptor CollectionDef'FloatList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CollectionDef'FloatList)
              (Lens' CollectionDef (Maybe CollectionDef'FloatList)
-> FieldAccessor CollectionDef CollectionDef'FloatList
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'floatList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'floatList")) ::
              Data.ProtoLens.FieldDescriptor CollectionDef
        anyList__field_descriptor :: FieldDescriptor CollectionDef
anyList__field_descriptor
          = String
-> FieldTypeDescriptor CollectionDef'AnyList
-> FieldAccessor CollectionDef CollectionDef'AnyList
-> FieldDescriptor CollectionDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "any_list"
              (MessageOrGroup -> FieldTypeDescriptor CollectionDef'AnyList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CollectionDef'AnyList)
              (Lens' CollectionDef (Maybe CollectionDef'AnyList)
-> FieldAccessor CollectionDef CollectionDef'AnyList
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'anyList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'anyList")) ::
              Data.ProtoLens.FieldDescriptor CollectionDef
      in
        [(Tag, FieldDescriptor CollectionDef)]
-> Map Tag (FieldDescriptor CollectionDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CollectionDef
nodeList__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor CollectionDef
bytesList__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor CollectionDef
int64List__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor CollectionDef
floatList__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor CollectionDef
anyList__field_descriptor)]
  unknownFields :: LensLike' f CollectionDef FieldSet
unknownFields
    = (CollectionDef -> FieldSet)
-> (CollectionDef -> FieldSet -> CollectionDef)
-> Lens' CollectionDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CollectionDef -> FieldSet
_CollectionDef'_unknownFields
        (\ x__ :: CollectionDef
x__ y__ :: FieldSet
y__ -> CollectionDef
x__ {_CollectionDef'_unknownFields :: FieldSet
_CollectionDef'_unknownFields = FieldSet
y__})
  defMessage :: CollectionDef
defMessage
    = $WCollectionDef'_constructor :: Maybe CollectionDef'Kind -> FieldSet -> CollectionDef
CollectionDef'_constructor
        {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
forall a. Maybe a
Prelude.Nothing,
         _CollectionDef'_unknownFields :: FieldSet
_CollectionDef'_unknownFields = []}
  parseMessage :: Parser CollectionDef
parseMessage
    = let
        loop ::
          CollectionDef -> Data.ProtoLens.Encoding.Bytes.Parser CollectionDef
        loop :: CollectionDef -> Parser CollectionDef
loop x :: CollectionDef
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      CollectionDef -> Parser CollectionDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter CollectionDef CollectionDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CollectionDef -> CollectionDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter CollectionDef CollectionDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) CollectionDef
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do CollectionDef'NodeList
y <- Parser CollectionDef'NodeList
-> String -> Parser CollectionDef'NodeList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser CollectionDef'NodeList -> Parser CollectionDef'NodeList
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser CollectionDef'NodeList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "node_list"
                                CollectionDef -> Parser CollectionDef
loop
                                  (Setter
  CollectionDef
  CollectionDef
  CollectionDef'NodeList
  CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef -> CollectionDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "nodeList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeList") CollectionDef'NodeList
y CollectionDef
x)
                        18
                          -> do CollectionDef'BytesList
y <- Parser CollectionDef'BytesList
-> String -> Parser CollectionDef'BytesList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser CollectionDef'BytesList -> Parser CollectionDef'BytesList
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser CollectionDef'BytesList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "bytes_list"
                                CollectionDef -> Parser CollectionDef
loop
                                  (Setter
  CollectionDef
  CollectionDef
  CollectionDef'BytesList
  CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef -> CollectionDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "bytesList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bytesList") CollectionDef'BytesList
y CollectionDef
x)
                        26
                          -> do CollectionDef'Int64List
y <- Parser CollectionDef'Int64List
-> String -> Parser CollectionDef'Int64List
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser CollectionDef'Int64List -> Parser CollectionDef'Int64List
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser CollectionDef'Int64List
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "int64_list"
                                CollectionDef -> Parser CollectionDef
loop
                                  (Setter
  CollectionDef
  CollectionDef
  CollectionDef'Int64List
  CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef -> CollectionDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "int64List" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"int64List") CollectionDef'Int64List
y CollectionDef
x)
                        34
                          -> do CollectionDef'FloatList
y <- Parser CollectionDef'FloatList
-> String -> Parser CollectionDef'FloatList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser CollectionDef'FloatList -> Parser CollectionDef'FloatList
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser CollectionDef'FloatList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "float_list"
                                CollectionDef -> Parser CollectionDef
loop
                                  (Setter
  CollectionDef
  CollectionDef
  CollectionDef'FloatList
  CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef -> CollectionDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "floatList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"floatList") CollectionDef'FloatList
y CollectionDef
x)
                        42
                          -> do CollectionDef'AnyList
y <- Parser CollectionDef'AnyList
-> String -> Parser CollectionDef'AnyList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser CollectionDef'AnyList -> Parser CollectionDef'AnyList
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser CollectionDef'AnyList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "any_list"
                                CollectionDef -> Parser CollectionDef
loop (Setter
  CollectionDef
  CollectionDef
  CollectionDef'AnyList
  CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef -> CollectionDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "anyList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"anyList") CollectionDef'AnyList
y CollectionDef
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                CollectionDef -> Parser CollectionDef
loop
                                  (Setter CollectionDef CollectionDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CollectionDef -> CollectionDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter CollectionDef CollectionDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CollectionDef
x)
      in
        Parser CollectionDef -> String -> Parser CollectionDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CollectionDef -> Parser CollectionDef
loop CollectionDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "CollectionDef"
  buildMessage :: CollectionDef -> Builder
buildMessage
    = \ _x :: CollectionDef
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe CollectionDef'Kind)
  CollectionDef
  CollectionDef
  (Maybe CollectionDef'Kind)
  (Maybe CollectionDef'Kind)
-> CollectionDef -> Maybe CollectionDef'Kind
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'kind" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'kind") CollectionDef
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (CollectionDef'NodeList' v :: CollectionDef'NodeList
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder)
-> (CollectionDef'NodeList -> ByteString)
-> CollectionDef'NodeList
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          CollectionDef'NodeList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          CollectionDef'NodeList
v)
                (Prelude.Just (CollectionDef'BytesList' v :: CollectionDef'BytesList
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                       ((ByteString -> Builder)
-> (CollectionDef'BytesList -> ByteString)
-> CollectionDef'BytesList
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          CollectionDef'BytesList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          CollectionDef'BytesList
v)
                (Prelude.Just (CollectionDef'Int64List' v :: CollectionDef'Int64List
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                       ((ByteString -> Builder)
-> (CollectionDef'Int64List -> ByteString)
-> CollectionDef'Int64List
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          CollectionDef'Int64List -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          CollectionDef'Int64List
v)
                (Prelude.Just (CollectionDef'FloatList' v :: CollectionDef'FloatList
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
                       ((ByteString -> Builder)
-> (CollectionDef'FloatList -> ByteString)
-> CollectionDef'FloatList
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          CollectionDef'FloatList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          CollectionDef'FloatList
v)
                (Prelude.Just (CollectionDef'AnyList' v :: CollectionDef'AnyList
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
                       ((ByteString -> Builder)
-> (CollectionDef'AnyList -> ByteString)
-> CollectionDef'AnyList
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          CollectionDef'AnyList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          CollectionDef'AnyList
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet CollectionDef CollectionDef FieldSet FieldSet
-> CollectionDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CollectionDef CollectionDef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CollectionDef
_x))
instance Control.DeepSeq.NFData CollectionDef where
  rnf :: CollectionDef -> ()
rnf
    = \ x__ :: CollectionDef
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CollectionDef -> FieldSet
_CollectionDef'_unknownFields CollectionDef
x__)
             (Maybe CollectionDef'Kind -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind CollectionDef
x__) ())
instance Control.DeepSeq.NFData CollectionDef'Kind where
  rnf :: CollectionDef'Kind -> ()
rnf (CollectionDef'NodeList' x__ :: CollectionDef'NodeList
x__) = CollectionDef'NodeList -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CollectionDef'NodeList
x__
  rnf (CollectionDef'BytesList' x__ :: CollectionDef'BytesList
x__) = CollectionDef'BytesList -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CollectionDef'BytesList
x__
  rnf (CollectionDef'Int64List' x__ :: CollectionDef'Int64List
x__) = CollectionDef'Int64List -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CollectionDef'Int64List
x__
  rnf (CollectionDef'FloatList' x__ :: CollectionDef'FloatList
x__) = CollectionDef'FloatList -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CollectionDef'FloatList
x__
  rnf (CollectionDef'AnyList' x__ :: CollectionDef'AnyList
x__) = CollectionDef'AnyList -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CollectionDef'AnyList
x__
_CollectionDef'NodeList' ::
  Data.ProtoLens.Prism.Prism' CollectionDef'Kind CollectionDef'NodeList
_CollectionDef'NodeList' :: p CollectionDef'NodeList (f CollectionDef'NodeList)
-> p CollectionDef'Kind (f CollectionDef'Kind)
_CollectionDef'NodeList'
  = (CollectionDef'NodeList -> CollectionDef'Kind)
-> (CollectionDef'Kind -> Maybe CollectionDef'NodeList)
-> Prism
     CollectionDef'Kind
     CollectionDef'Kind
     CollectionDef'NodeList
     CollectionDef'NodeList
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      CollectionDef'NodeList -> CollectionDef'Kind
CollectionDef'NodeList'
      (\ p__ :: CollectionDef'Kind
p__
         -> case CollectionDef'Kind
p__ of
              (CollectionDef'NodeList' p__val :: CollectionDef'NodeList
p__val) -> CollectionDef'NodeList -> Maybe CollectionDef'NodeList
forall a. a -> Maybe a
Prelude.Just CollectionDef'NodeList
p__val
              _otherwise :: CollectionDef'Kind
_otherwise -> Maybe CollectionDef'NodeList
forall a. Maybe a
Prelude.Nothing)
_CollectionDef'BytesList' ::
  Data.ProtoLens.Prism.Prism' CollectionDef'Kind CollectionDef'BytesList
_CollectionDef'BytesList' :: p CollectionDef'BytesList (f CollectionDef'BytesList)
-> p CollectionDef'Kind (f CollectionDef'Kind)
_CollectionDef'BytesList'
  = (CollectionDef'BytesList -> CollectionDef'Kind)
-> (CollectionDef'Kind -> Maybe CollectionDef'BytesList)
-> Prism
     CollectionDef'Kind
     CollectionDef'Kind
     CollectionDef'BytesList
     CollectionDef'BytesList
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      CollectionDef'BytesList -> CollectionDef'Kind
CollectionDef'BytesList'
      (\ p__ :: CollectionDef'Kind
p__
         -> case CollectionDef'Kind
p__ of
              (CollectionDef'BytesList' p__val :: CollectionDef'BytesList
p__val) -> CollectionDef'BytesList -> Maybe CollectionDef'BytesList
forall a. a -> Maybe a
Prelude.Just CollectionDef'BytesList
p__val
              _otherwise :: CollectionDef'Kind
_otherwise -> Maybe CollectionDef'BytesList
forall a. Maybe a
Prelude.Nothing)
_CollectionDef'Int64List' ::
  Data.ProtoLens.Prism.Prism' CollectionDef'Kind CollectionDef'Int64List
_CollectionDef'Int64List' :: p CollectionDef'Int64List (f CollectionDef'Int64List)
-> p CollectionDef'Kind (f CollectionDef'Kind)
_CollectionDef'Int64List'
  = (CollectionDef'Int64List -> CollectionDef'Kind)
-> (CollectionDef'Kind -> Maybe CollectionDef'Int64List)
-> Prism
     CollectionDef'Kind
     CollectionDef'Kind
     CollectionDef'Int64List
     CollectionDef'Int64List
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      CollectionDef'Int64List -> CollectionDef'Kind
CollectionDef'Int64List'
      (\ p__ :: CollectionDef'Kind
p__
         -> case CollectionDef'Kind
p__ of
              (CollectionDef'Int64List' p__val :: CollectionDef'Int64List
p__val) -> CollectionDef'Int64List -> Maybe CollectionDef'Int64List
forall a. a -> Maybe a
Prelude.Just CollectionDef'Int64List
p__val
              _otherwise :: CollectionDef'Kind
_otherwise -> Maybe CollectionDef'Int64List
forall a. Maybe a
Prelude.Nothing)
_CollectionDef'FloatList' ::
  Data.ProtoLens.Prism.Prism' CollectionDef'Kind CollectionDef'FloatList
_CollectionDef'FloatList' :: p CollectionDef'FloatList (f CollectionDef'FloatList)
-> p CollectionDef'Kind (f CollectionDef'Kind)
_CollectionDef'FloatList'
  = (CollectionDef'FloatList -> CollectionDef'Kind)
-> (CollectionDef'Kind -> Maybe CollectionDef'FloatList)
-> Prism
     CollectionDef'Kind
     CollectionDef'Kind
     CollectionDef'FloatList
     CollectionDef'FloatList
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      CollectionDef'FloatList -> CollectionDef'Kind
CollectionDef'FloatList'
      (\ p__ :: CollectionDef'Kind
p__
         -> case CollectionDef'Kind
p__ of
              (CollectionDef'FloatList' p__val :: CollectionDef'FloatList
p__val) -> CollectionDef'FloatList -> Maybe CollectionDef'FloatList
forall a. a -> Maybe a
Prelude.Just CollectionDef'FloatList
p__val
              _otherwise :: CollectionDef'Kind
_otherwise -> Maybe CollectionDef'FloatList
forall a. Maybe a
Prelude.Nothing)
_CollectionDef'AnyList' ::
  Data.ProtoLens.Prism.Prism' CollectionDef'Kind CollectionDef'AnyList
_CollectionDef'AnyList' :: p CollectionDef'AnyList (f CollectionDef'AnyList)
-> p CollectionDef'Kind (f CollectionDef'Kind)
_CollectionDef'AnyList'
  = (CollectionDef'AnyList -> CollectionDef'Kind)
-> (CollectionDef'Kind -> Maybe CollectionDef'AnyList)
-> Prism
     CollectionDef'Kind
     CollectionDef'Kind
     CollectionDef'AnyList
     CollectionDef'AnyList
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      CollectionDef'AnyList -> CollectionDef'Kind
CollectionDef'AnyList'
      (\ p__ :: CollectionDef'Kind
p__
         -> case CollectionDef'Kind
p__ of
              (CollectionDef'AnyList' p__val :: CollectionDef'AnyList
p__val) -> CollectionDef'AnyList -> Maybe CollectionDef'AnyList
forall a. a -> Maybe a
Prelude.Just CollectionDef'AnyList
p__val
              _otherwise :: CollectionDef'Kind
_otherwise -> Maybe CollectionDef'AnyList
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.value' @:: Lens' CollectionDef'AnyList [Proto.Google.Protobuf.Any.Any]@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.vec'value' @:: Lens' CollectionDef'AnyList (Data.Vector.Vector Proto.Google.Protobuf.Any.Any)@ -}
data CollectionDef'AnyList
  = CollectionDef'AnyList'_constructor {CollectionDef'AnyList -> Vector Any
_CollectionDef'AnyList'value :: !(Data.Vector.Vector Proto.Google.Protobuf.Any.Any),
                                        CollectionDef'AnyList -> FieldSet
_CollectionDef'AnyList'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
(CollectionDef'AnyList -> CollectionDef'AnyList -> Bool)
-> (CollectionDef'AnyList -> CollectionDef'AnyList -> Bool)
-> Eq CollectionDef'AnyList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
$c/= :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
== :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
$c== :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
Prelude.Eq, Eq CollectionDef'AnyList
Eq CollectionDef'AnyList =>
(CollectionDef'AnyList -> CollectionDef'AnyList -> Ordering)
-> (CollectionDef'AnyList -> CollectionDef'AnyList -> Bool)
-> (CollectionDef'AnyList -> CollectionDef'AnyList -> Bool)
-> (CollectionDef'AnyList -> CollectionDef'AnyList -> Bool)
-> (CollectionDef'AnyList -> CollectionDef'AnyList -> Bool)
-> (CollectionDef'AnyList
    -> CollectionDef'AnyList -> CollectionDef'AnyList)
-> (CollectionDef'AnyList
    -> CollectionDef'AnyList -> CollectionDef'AnyList)
-> Ord CollectionDef'AnyList
CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
CollectionDef'AnyList -> CollectionDef'AnyList -> Ordering
CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef'AnyList
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef'AnyList
$cmin :: CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef'AnyList
max :: CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef'AnyList
$cmax :: CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef'AnyList
>= :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
$c>= :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
> :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
$c> :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
<= :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
$c<= :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
< :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
$c< :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
compare :: CollectionDef'AnyList -> CollectionDef'AnyList -> Ordering
$ccompare :: CollectionDef'AnyList -> CollectionDef'AnyList -> Ordering
$cp1Ord :: Eq CollectionDef'AnyList
Prelude.Ord)
instance Prelude.Show CollectionDef'AnyList where
  showsPrec :: Int -> CollectionDef'AnyList -> ShowS
showsPrec _ __x :: CollectionDef'AnyList
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (CollectionDef'AnyList -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CollectionDef'AnyList
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CollectionDef'AnyList "value" [Proto.Google.Protobuf.Any.Any] where
  fieldOf :: Proxy# "value"
-> ([Any] -> f [Any])
-> CollectionDef'AnyList
-> f CollectionDef'AnyList
fieldOf _
    = ((Vector Any -> f (Vector Any))
 -> CollectionDef'AnyList -> f CollectionDef'AnyList)
-> (([Any] -> f [Any]) -> Vector Any -> f (Vector Any))
-> ([Any] -> f [Any])
-> CollectionDef'AnyList
-> f CollectionDef'AnyList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef'AnyList -> Vector Any)
-> (CollectionDef'AnyList -> Vector Any -> CollectionDef'AnyList)
-> Lens
     CollectionDef'AnyList
     CollectionDef'AnyList
     (Vector Any)
     (Vector Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef'AnyList -> Vector Any
_CollectionDef'AnyList'value
           (\ x__ :: CollectionDef'AnyList
x__ y__ :: Vector Any
y__ -> CollectionDef'AnyList
x__ {_CollectionDef'AnyList'value :: Vector Any
_CollectionDef'AnyList'value = Vector Any
y__}))
        ((Vector Any -> [Any])
-> (Vector Any -> [Any] -> Vector Any)
-> Lens (Vector Any) (Vector Any) [Any] [Any]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Any -> [Any]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Any]
y__ -> [Any] -> Vector Any
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Any]
y__))
instance Data.ProtoLens.Field.HasField CollectionDef'AnyList "vec'value" (Data.Vector.Vector Proto.Google.Protobuf.Any.Any) where
  fieldOf :: Proxy# "vec'value"
-> (Vector Any -> f (Vector Any))
-> CollectionDef'AnyList
-> f CollectionDef'AnyList
fieldOf _
    = ((Vector Any -> f (Vector Any))
 -> CollectionDef'AnyList -> f CollectionDef'AnyList)
-> ((Vector Any -> f (Vector Any)) -> Vector Any -> f (Vector Any))
-> (Vector Any -> f (Vector Any))
-> CollectionDef'AnyList
-> f CollectionDef'AnyList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef'AnyList -> Vector Any)
-> (CollectionDef'AnyList -> Vector Any -> CollectionDef'AnyList)
-> Lens
     CollectionDef'AnyList
     CollectionDef'AnyList
     (Vector Any)
     (Vector Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef'AnyList -> Vector Any
_CollectionDef'AnyList'value
           (\ x__ :: CollectionDef'AnyList
x__ y__ :: Vector Any
y__ -> CollectionDef'AnyList
x__ {_CollectionDef'AnyList'value :: Vector Any
_CollectionDef'AnyList'value = Vector Any
y__}))
        (Vector Any -> f (Vector Any)) -> Vector Any -> f (Vector Any)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CollectionDef'AnyList where
  messageName :: Proxy CollectionDef'AnyList -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CollectionDef.AnyList"
  packedMessageDescriptor :: Proxy CollectionDef'AnyList -> ByteString
packedMessageDescriptor _
    = "\n\
      \\aAnyList\DC2*\n\
      \\ENQvalue\CAN\SOH \ETX(\v2\DC4.google.protobuf.AnyR\ENQvalue"
  packedFileDescriptor :: Proxy CollectionDef'AnyList -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CollectionDef'AnyList)
fieldsByTag
    = let
        value__field_descriptor :: FieldDescriptor CollectionDef'AnyList
value__field_descriptor
          = String
-> FieldTypeDescriptor Any
-> FieldAccessor CollectionDef'AnyList Any
-> FieldDescriptor CollectionDef'AnyList
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (MessageOrGroup -> FieldTypeDescriptor Any
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any)
              (Packing
-> Lens' CollectionDef'AnyList [Any]
-> FieldAccessor CollectionDef'AnyList Any
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor CollectionDef'AnyList
      in
        [(Tag, FieldDescriptor CollectionDef'AnyList)]
-> Map Tag (FieldDescriptor CollectionDef'AnyList)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CollectionDef'AnyList
value__field_descriptor)]
  unknownFields :: LensLike' f CollectionDef'AnyList FieldSet
unknownFields
    = (CollectionDef'AnyList -> FieldSet)
-> (CollectionDef'AnyList -> FieldSet -> CollectionDef'AnyList)
-> Lens' CollectionDef'AnyList FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CollectionDef'AnyList -> FieldSet
_CollectionDef'AnyList'_unknownFields
        (\ x__ :: CollectionDef'AnyList
x__ y__ :: FieldSet
y__ -> CollectionDef'AnyList
x__ {_CollectionDef'AnyList'_unknownFields :: FieldSet
_CollectionDef'AnyList'_unknownFields = FieldSet
y__})
  defMessage :: CollectionDef'AnyList
defMessage
    = $WCollectionDef'AnyList'_constructor :: Vector Any -> FieldSet -> CollectionDef'AnyList
CollectionDef'AnyList'_constructor
        {_CollectionDef'AnyList'value :: Vector Any
_CollectionDef'AnyList'value = Vector Any
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _CollectionDef'AnyList'_unknownFields :: FieldSet
_CollectionDef'AnyList'_unknownFields = []}
  parseMessage :: Parser CollectionDef'AnyList
parseMessage
    = let
        loop ::
          CollectionDef'AnyList
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Google.Protobuf.Any.Any
             -> Data.ProtoLens.Encoding.Bytes.Parser CollectionDef'AnyList
        loop :: CollectionDef'AnyList
-> Growing Vector RealWorld Any -> Parser CollectionDef'AnyList
loop x :: CollectionDef'AnyList
x mutable'value :: Growing Vector RealWorld Any
mutable'value
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Any
frozen'value <- IO (Vector Any) -> Parser (Vector Any)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) Any -> IO (Vector Any)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Any
Growing Vector (PrimState IO) Any
mutable'value)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      CollectionDef'AnyList -> Parser CollectionDef'AnyList
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  CollectionDef'AnyList CollectionDef'AnyList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'AnyList
-> CollectionDef'AnyList
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  CollectionDef'AnyList CollectionDef'AnyList FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  CollectionDef'AnyList
  CollectionDef'AnyList
  (Vector Any)
  (Vector Any)
-> Vector Any -> CollectionDef'AnyList -> CollectionDef'AnyList
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") Vector Any
frozen'value CollectionDef'AnyList
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !Any
y <- Parser Any -> String -> Parser Any
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Any -> Parser Any
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Any
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "value"
                                Growing Vector RealWorld Any
v <- IO (Growing Vector RealWorld Any)
-> Parser (Growing Vector RealWorld Any)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Any
-> Any -> IO (Growing Vector (PrimState IO) Any)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Any
Growing Vector (PrimState IO) Any
mutable'value Any
y)
                                CollectionDef'AnyList
-> Growing Vector RealWorld Any -> Parser CollectionDef'AnyList
loop CollectionDef'AnyList
x Growing Vector RealWorld Any
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                CollectionDef'AnyList
-> Growing Vector RealWorld Any -> Parser CollectionDef'AnyList
loop
                                  (Setter
  CollectionDef'AnyList CollectionDef'AnyList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'AnyList
-> CollectionDef'AnyList
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  CollectionDef'AnyList CollectionDef'AnyList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CollectionDef'AnyList
x)
                                  Growing Vector RealWorld Any
mutable'value
      in
        Parser CollectionDef'AnyList
-> String -> Parser CollectionDef'AnyList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Any
mutable'value <- IO (Growing Vector RealWorld Any)
-> Parser (Growing Vector RealWorld Any)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld Any)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              CollectionDef'AnyList
-> Growing Vector RealWorld Any -> Parser CollectionDef'AnyList
loop CollectionDef'AnyList
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Any
mutable'value)
          "AnyList"
  buildMessage :: CollectionDef'AnyList -> Builder
buildMessage
    = \ _x :: CollectionDef'AnyList
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((Any -> Builder) -> Vector Any -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: Any
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder) -> (Any -> ByteString) -> Any -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           Any -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           Any
_v))
                (FoldLike
  (Vector Any)
  CollectionDef'AnyList
  CollectionDef'AnyList
  (Vector Any)
  (Vector Any)
-> CollectionDef'AnyList -> Vector Any
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") CollectionDef'AnyList
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  CollectionDef'AnyList
  CollectionDef'AnyList
  FieldSet
  FieldSet
-> CollectionDef'AnyList -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  CollectionDef'AnyList
  CollectionDef'AnyList
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CollectionDef'AnyList
_x))
instance Control.DeepSeq.NFData CollectionDef'AnyList where
  rnf :: CollectionDef'AnyList -> ()
rnf
    = \ x__ :: CollectionDef'AnyList
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CollectionDef'AnyList -> FieldSet
_CollectionDef'AnyList'_unknownFields CollectionDef'AnyList
x__)
             (Vector Any -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CollectionDef'AnyList -> Vector Any
_CollectionDef'AnyList'value CollectionDef'AnyList
x__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.value' @:: Lens' CollectionDef'BytesList [Data.ByteString.ByteString]@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.vec'value' @:: Lens' CollectionDef'BytesList (Data.Vector.Vector Data.ByteString.ByteString)@ -}
data CollectionDef'BytesList
  = CollectionDef'BytesList'_constructor {CollectionDef'BytesList -> Vector ByteString
_CollectionDef'BytesList'value :: !(Data.Vector.Vector Data.ByteString.ByteString),
                                          CollectionDef'BytesList -> FieldSet
_CollectionDef'BytesList'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
(CollectionDef'BytesList -> CollectionDef'BytesList -> Bool)
-> (CollectionDef'BytesList -> CollectionDef'BytesList -> Bool)
-> Eq CollectionDef'BytesList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
$c/= :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
== :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
$c== :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
Prelude.Eq, Eq CollectionDef'BytesList
Eq CollectionDef'BytesList =>
(CollectionDef'BytesList -> CollectionDef'BytesList -> Ordering)
-> (CollectionDef'BytesList -> CollectionDef'BytesList -> Bool)
-> (CollectionDef'BytesList -> CollectionDef'BytesList -> Bool)
-> (CollectionDef'BytesList -> CollectionDef'BytesList -> Bool)
-> (CollectionDef'BytesList -> CollectionDef'BytesList -> Bool)
-> (CollectionDef'BytesList
    -> CollectionDef'BytesList -> CollectionDef'BytesList)
-> (CollectionDef'BytesList
    -> CollectionDef'BytesList -> CollectionDef'BytesList)
-> Ord CollectionDef'BytesList
CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
CollectionDef'BytesList -> CollectionDef'BytesList -> Ordering
CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef'BytesList
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef'BytesList
$cmin :: CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef'BytesList
max :: CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef'BytesList
$cmax :: CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef'BytesList
>= :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
$c>= :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
> :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
$c> :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
<= :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
$c<= :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
< :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
$c< :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
compare :: CollectionDef'BytesList -> CollectionDef'BytesList -> Ordering
$ccompare :: CollectionDef'BytesList -> CollectionDef'BytesList -> Ordering
$cp1Ord :: Eq CollectionDef'BytesList
Prelude.Ord)
instance Prelude.Show CollectionDef'BytesList where
  showsPrec :: Int -> CollectionDef'BytesList -> ShowS
showsPrec _ __x :: CollectionDef'BytesList
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (CollectionDef'BytesList -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CollectionDef'BytesList
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CollectionDef'BytesList "value" [Data.ByteString.ByteString] where
  fieldOf :: Proxy# "value"
-> ([ByteString] -> f [ByteString])
-> CollectionDef'BytesList
-> f CollectionDef'BytesList
fieldOf _
    = ((Vector ByteString -> f (Vector ByteString))
 -> CollectionDef'BytesList -> f CollectionDef'BytesList)
-> (([ByteString] -> f [ByteString])
    -> Vector ByteString -> f (Vector ByteString))
-> ([ByteString] -> f [ByteString])
-> CollectionDef'BytesList
-> f CollectionDef'BytesList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef'BytesList -> Vector ByteString)
-> (CollectionDef'BytesList
    -> Vector ByteString -> CollectionDef'BytesList)
-> Lens
     CollectionDef'BytesList
     CollectionDef'BytesList
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef'BytesList -> Vector ByteString
_CollectionDef'BytesList'value
           (\ x__ :: CollectionDef'BytesList
x__ y__ :: Vector ByteString
y__ -> CollectionDef'BytesList
x__ {_CollectionDef'BytesList'value :: Vector ByteString
_CollectionDef'BytesList'value = Vector ByteString
y__}))
        ((Vector ByteString -> [ByteString])
-> (Vector ByteString -> [ByteString] -> Vector ByteString)
-> Lens
     (Vector ByteString) (Vector ByteString) [ByteString] [ByteString]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ByteString -> [ByteString]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [ByteString]
y__ -> [ByteString] -> Vector ByteString
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ByteString]
y__))
instance Data.ProtoLens.Field.HasField CollectionDef'BytesList "vec'value" (Data.Vector.Vector Data.ByteString.ByteString) where
  fieldOf :: Proxy# "vec'value"
-> (Vector ByteString -> f (Vector ByteString))
-> CollectionDef'BytesList
-> f CollectionDef'BytesList
fieldOf _
    = ((Vector ByteString -> f (Vector ByteString))
 -> CollectionDef'BytesList -> f CollectionDef'BytesList)
-> ((Vector ByteString -> f (Vector ByteString))
    -> Vector ByteString -> f (Vector ByteString))
-> (Vector ByteString -> f (Vector ByteString))
-> CollectionDef'BytesList
-> f CollectionDef'BytesList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef'BytesList -> Vector ByteString)
-> (CollectionDef'BytesList
    -> Vector ByteString -> CollectionDef'BytesList)
-> Lens
     CollectionDef'BytesList
     CollectionDef'BytesList
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef'BytesList -> Vector ByteString
_CollectionDef'BytesList'value
           (\ x__ :: CollectionDef'BytesList
x__ y__ :: Vector ByteString
y__ -> CollectionDef'BytesList
x__ {_CollectionDef'BytesList'value :: Vector ByteString
_CollectionDef'BytesList'value = Vector ByteString
y__}))
        (Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CollectionDef'BytesList where
  messageName :: Proxy CollectionDef'BytesList -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CollectionDef.BytesList"
  packedMessageDescriptor :: Proxy CollectionDef'BytesList -> ByteString
packedMessageDescriptor _
    = "\n\
      \\tBytesList\DC2\DC4\n\
      \\ENQvalue\CAN\SOH \ETX(\fR\ENQvalue"
  packedFileDescriptor :: Proxy CollectionDef'BytesList -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CollectionDef'BytesList)
fieldsByTag
    = let
        value__field_descriptor :: FieldDescriptor CollectionDef'BytesList
value__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor CollectionDef'BytesList ByteString
-> FieldDescriptor CollectionDef'BytesList
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Packing
-> Lens' CollectionDef'BytesList [ByteString]
-> FieldAccessor CollectionDef'BytesList ByteString
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor CollectionDef'BytesList
      in
        [(Tag, FieldDescriptor CollectionDef'BytesList)]
-> Map Tag (FieldDescriptor CollectionDef'BytesList)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CollectionDef'BytesList
value__field_descriptor)]
  unknownFields :: LensLike' f CollectionDef'BytesList FieldSet
unknownFields
    = (CollectionDef'BytesList -> FieldSet)
-> (CollectionDef'BytesList -> FieldSet -> CollectionDef'BytesList)
-> Lens' CollectionDef'BytesList FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CollectionDef'BytesList -> FieldSet
_CollectionDef'BytesList'_unknownFields
        (\ x__ :: CollectionDef'BytesList
x__ y__ :: FieldSet
y__ -> CollectionDef'BytesList
x__ {_CollectionDef'BytesList'_unknownFields :: FieldSet
_CollectionDef'BytesList'_unknownFields = FieldSet
y__})
  defMessage :: CollectionDef'BytesList
defMessage
    = $WCollectionDef'BytesList'_constructor :: Vector ByteString -> FieldSet -> CollectionDef'BytesList
CollectionDef'BytesList'_constructor
        {_CollectionDef'BytesList'value :: Vector ByteString
_CollectionDef'BytesList'value = Vector ByteString
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _CollectionDef'BytesList'_unknownFields :: FieldSet
_CollectionDef'BytesList'_unknownFields = []}
  parseMessage :: Parser CollectionDef'BytesList
parseMessage
    = let
        loop ::
          CollectionDef'BytesList
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString
             -> Data.ProtoLens.Encoding.Bytes.Parser CollectionDef'BytesList
        loop :: CollectionDef'BytesList
-> Growing Vector RealWorld ByteString
-> Parser CollectionDef'BytesList
loop x :: CollectionDef'BytesList
x mutable'value :: Growing Vector RealWorld ByteString
mutable'value
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector ByteString
frozen'value <- IO (Vector ByteString) -> Parser (Vector ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) ByteString -> IO (Vector ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld ByteString
Growing Vector (PrimState IO) ByteString
mutable'value)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      CollectionDef'BytesList -> Parser CollectionDef'BytesList
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  CollectionDef'BytesList CollectionDef'BytesList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'BytesList
-> CollectionDef'BytesList
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  CollectionDef'BytesList CollectionDef'BytesList FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  CollectionDef'BytesList
  CollectionDef'BytesList
  (Vector ByteString)
  (Vector ByteString)
-> Vector ByteString
-> CollectionDef'BytesList
-> CollectionDef'BytesList
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") Vector ByteString
frozen'value CollectionDef'BytesList
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                        "value"
                                Growing Vector RealWorld ByteString
v <- IO (Growing Vector RealWorld ByteString)
-> Parser (Growing Vector RealWorld ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) ByteString
-> ByteString -> IO (Growing Vector (PrimState IO) ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld ByteString
Growing Vector (PrimState IO) ByteString
mutable'value ByteString
y)
                                CollectionDef'BytesList
-> Growing Vector RealWorld ByteString
-> Parser CollectionDef'BytesList
loop CollectionDef'BytesList
x Growing Vector RealWorld ByteString
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                CollectionDef'BytesList
-> Growing Vector RealWorld ByteString
-> Parser CollectionDef'BytesList
loop
                                  (Setter
  CollectionDef'BytesList CollectionDef'BytesList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'BytesList
-> CollectionDef'BytesList
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  CollectionDef'BytesList CollectionDef'BytesList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CollectionDef'BytesList
x)
                                  Growing Vector RealWorld ByteString
mutable'value
      in
        Parser CollectionDef'BytesList
-> String -> Parser CollectionDef'BytesList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld ByteString
mutable'value <- IO (Growing Vector RealWorld ByteString)
-> Parser (Growing Vector RealWorld ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              CollectionDef'BytesList
-> Growing Vector RealWorld ByteString
-> Parser CollectionDef'BytesList
loop CollectionDef'BytesList
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld ByteString
mutable'value)
          "BytesList"
  buildMessage :: CollectionDef'BytesList -> Builder
buildMessage
    = \ _x :: CollectionDef'BytesList
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((ByteString -> Builder) -> Vector ByteString -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: ByteString
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           ByteString
_v))
                (FoldLike
  (Vector ByteString)
  CollectionDef'BytesList
  CollectionDef'BytesList
  (Vector ByteString)
  (Vector ByteString)
-> CollectionDef'BytesList -> Vector ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") CollectionDef'BytesList
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  CollectionDef'BytesList
  CollectionDef'BytesList
  FieldSet
  FieldSet
-> CollectionDef'BytesList -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  CollectionDef'BytesList
  CollectionDef'BytesList
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CollectionDef'BytesList
_x))
instance Control.DeepSeq.NFData CollectionDef'BytesList where
  rnf :: CollectionDef'BytesList -> ()
rnf
    = \ x__ :: CollectionDef'BytesList
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CollectionDef'BytesList -> FieldSet
_CollectionDef'BytesList'_unknownFields CollectionDef'BytesList
x__)
             (Vector ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CollectionDef'BytesList -> Vector ByteString
_CollectionDef'BytesList'value CollectionDef'BytesList
x__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.value' @:: Lens' CollectionDef'FloatList [Prelude.Float]@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.vec'value' @:: Lens' CollectionDef'FloatList (Data.Vector.Unboxed.Vector Prelude.Float)@ -}
data CollectionDef'FloatList
  = CollectionDef'FloatList'_constructor {CollectionDef'FloatList -> Vector Float
_CollectionDef'FloatList'value :: !(Data.Vector.Unboxed.Vector Prelude.Float),
                                          CollectionDef'FloatList -> FieldSet
_CollectionDef'FloatList'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
(CollectionDef'FloatList -> CollectionDef'FloatList -> Bool)
-> (CollectionDef'FloatList -> CollectionDef'FloatList -> Bool)
-> Eq CollectionDef'FloatList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
$c/= :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
== :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
$c== :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
Prelude.Eq, Eq CollectionDef'FloatList
Eq CollectionDef'FloatList =>
(CollectionDef'FloatList -> CollectionDef'FloatList -> Ordering)
-> (CollectionDef'FloatList -> CollectionDef'FloatList -> Bool)
-> (CollectionDef'FloatList -> CollectionDef'FloatList -> Bool)
-> (CollectionDef'FloatList -> CollectionDef'FloatList -> Bool)
-> (CollectionDef'FloatList -> CollectionDef'FloatList -> Bool)
-> (CollectionDef'FloatList
    -> CollectionDef'FloatList -> CollectionDef'FloatList)
-> (CollectionDef'FloatList
    -> CollectionDef'FloatList -> CollectionDef'FloatList)
-> Ord CollectionDef'FloatList
CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
CollectionDef'FloatList -> CollectionDef'FloatList -> Ordering
CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef'FloatList
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef'FloatList
$cmin :: CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef'FloatList
max :: CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef'FloatList
$cmax :: CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef'FloatList
>= :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
$c>= :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
> :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
$c> :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
<= :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
$c<= :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
< :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
$c< :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
compare :: CollectionDef'FloatList -> CollectionDef'FloatList -> Ordering
$ccompare :: CollectionDef'FloatList -> CollectionDef'FloatList -> Ordering
$cp1Ord :: Eq CollectionDef'FloatList
Prelude.Ord)
instance Prelude.Show CollectionDef'FloatList where
  showsPrec :: Int -> CollectionDef'FloatList -> ShowS
showsPrec _ __x :: CollectionDef'FloatList
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (CollectionDef'FloatList -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CollectionDef'FloatList
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CollectionDef'FloatList "value" [Prelude.Float] where
  fieldOf :: Proxy# "value"
-> ([Float] -> f [Float])
-> CollectionDef'FloatList
-> f CollectionDef'FloatList
fieldOf _
    = ((Vector Float -> f (Vector Float))
 -> CollectionDef'FloatList -> f CollectionDef'FloatList)
-> (([Float] -> f [Float]) -> Vector Float -> f (Vector Float))
-> ([Float] -> f [Float])
-> CollectionDef'FloatList
-> f CollectionDef'FloatList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef'FloatList -> Vector Float)
-> (CollectionDef'FloatList
    -> Vector Float -> CollectionDef'FloatList)
-> Lens
     CollectionDef'FloatList
     CollectionDef'FloatList
     (Vector Float)
     (Vector Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef'FloatList -> Vector Float
_CollectionDef'FloatList'value
           (\ x__ :: CollectionDef'FloatList
x__ y__ :: Vector Float
y__ -> CollectionDef'FloatList
x__ {_CollectionDef'FloatList'value :: Vector Float
_CollectionDef'FloatList'value = Vector Float
y__}))
        ((Vector Float -> [Float])
-> (Vector Float -> [Float] -> Vector Float)
-> Lens (Vector Float) (Vector Float) [Float] [Float]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Float -> [Float]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Float]
y__ -> [Float] -> Vector Float
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Float]
y__))
instance Data.ProtoLens.Field.HasField CollectionDef'FloatList "vec'value" (Data.Vector.Unboxed.Vector Prelude.Float) where
  fieldOf :: Proxy# "vec'value"
-> (Vector Float -> f (Vector Float))
-> CollectionDef'FloatList
-> f CollectionDef'FloatList
fieldOf _
    = ((Vector Float -> f (Vector Float))
 -> CollectionDef'FloatList -> f CollectionDef'FloatList)
-> ((Vector Float -> f (Vector Float))
    -> Vector Float -> f (Vector Float))
-> (Vector Float -> f (Vector Float))
-> CollectionDef'FloatList
-> f CollectionDef'FloatList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef'FloatList -> Vector Float)
-> (CollectionDef'FloatList
    -> Vector Float -> CollectionDef'FloatList)
-> Lens
     CollectionDef'FloatList
     CollectionDef'FloatList
     (Vector Float)
     (Vector Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef'FloatList -> Vector Float
_CollectionDef'FloatList'value
           (\ x__ :: CollectionDef'FloatList
x__ y__ :: Vector Float
y__ -> CollectionDef'FloatList
x__ {_CollectionDef'FloatList'value :: Vector Float
_CollectionDef'FloatList'value = Vector Float
y__}))
        (Vector Float -> f (Vector Float))
-> Vector Float -> f (Vector Float)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CollectionDef'FloatList where
  messageName :: Proxy CollectionDef'FloatList -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CollectionDef.FloatList"
  packedMessageDescriptor :: Proxy CollectionDef'FloatList -> ByteString
packedMessageDescriptor _
    = "\n\
      \\tFloatList\DC2\CAN\n\
      \\ENQvalue\CAN\SOH \ETX(\STXR\ENQvalueB\STX\DLE\SOH"
  packedFileDescriptor :: Proxy CollectionDef'FloatList -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CollectionDef'FloatList)
fieldsByTag
    = let
        value__field_descriptor :: FieldDescriptor CollectionDef'FloatList
value__field_descriptor
          = String
-> FieldTypeDescriptor Float
-> FieldAccessor CollectionDef'FloatList Float
-> FieldDescriptor CollectionDef'FloatList
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (ScalarField Float -> FieldTypeDescriptor Float
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Float
Data.ProtoLens.FloatField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Float)
              (Packing
-> Lens' CollectionDef'FloatList [Float]
-> FieldAccessor CollectionDef'FloatList Float
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor CollectionDef'FloatList
      in
        [(Tag, FieldDescriptor CollectionDef'FloatList)]
-> Map Tag (FieldDescriptor CollectionDef'FloatList)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CollectionDef'FloatList
value__field_descriptor)]
  unknownFields :: LensLike' f CollectionDef'FloatList FieldSet
unknownFields
    = (CollectionDef'FloatList -> FieldSet)
-> (CollectionDef'FloatList -> FieldSet -> CollectionDef'FloatList)
-> Lens' CollectionDef'FloatList FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CollectionDef'FloatList -> FieldSet
_CollectionDef'FloatList'_unknownFields
        (\ x__ :: CollectionDef'FloatList
x__ y__ :: FieldSet
y__ -> CollectionDef'FloatList
x__ {_CollectionDef'FloatList'_unknownFields :: FieldSet
_CollectionDef'FloatList'_unknownFields = FieldSet
y__})
  defMessage :: CollectionDef'FloatList
defMessage
    = $WCollectionDef'FloatList'_constructor :: Vector Float -> FieldSet -> CollectionDef'FloatList
CollectionDef'FloatList'_constructor
        {_CollectionDef'FloatList'value :: Vector Float
_CollectionDef'FloatList'value = Vector Float
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _CollectionDef'FloatList'_unknownFields :: FieldSet
_CollectionDef'FloatList'_unknownFields = []}
  parseMessage :: Parser CollectionDef'FloatList
parseMessage
    = let
        loop ::
          CollectionDef'FloatList
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Float
             -> Data.ProtoLens.Encoding.Bytes.Parser CollectionDef'FloatList
        loop :: CollectionDef'FloatList
-> Growing Vector RealWorld Float -> Parser CollectionDef'FloatList
loop x :: CollectionDef'FloatList
x mutable'value :: Growing Vector RealWorld Float
mutable'value
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Float
frozen'value <- IO (Vector Float) -> Parser (Vector Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) Float -> IO (Vector Float)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Float
Growing Vector (PrimState IO) Float
mutable'value)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      CollectionDef'FloatList -> Parser CollectionDef'FloatList
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  CollectionDef'FloatList CollectionDef'FloatList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'FloatList
-> CollectionDef'FloatList
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  CollectionDef'FloatList CollectionDef'FloatList FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  CollectionDef'FloatList
  CollectionDef'FloatList
  (Vector Float)
  (Vector Float)
-> Vector Float
-> CollectionDef'FloatList
-> CollectionDef'FloatList
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") Vector Float
frozen'value CollectionDef'FloatList
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        13
                          -> do !Float
y <- Parser Float -> String -> Parser Float
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Word32 -> Float) -> Parser Word32 -> Parser Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Word32 -> Float
Data.ProtoLens.Encoding.Bytes.wordToFloat
                                           Parser Word32
Data.ProtoLens.Encoding.Bytes.getFixed32)
                                        "value"
                                Growing Vector RealWorld Float
v <- IO (Growing Vector RealWorld Float)
-> Parser (Growing Vector RealWorld Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Float
-> Float -> IO (Growing Vector (PrimState IO) Float)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Float
Growing Vector (PrimState IO) Float
mutable'value Float
y)
                                CollectionDef'FloatList
-> Growing Vector RealWorld Float -> Parser CollectionDef'FloatList
loop CollectionDef'FloatList
x Growing Vector RealWorld Float
v
                        10
                          -> do Growing Vector RealWorld Float
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Int
-> Parser (Growing Vector RealWorld Float)
-> Parser (Growing Vector RealWorld Float)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                          ((let
                                              ploop :: Growing v RealWorld Float -> Parser (Growing v RealWorld Float)
ploop qs :: Growing v RealWorld Float
qs
                                                = do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if Bool
packedEnd then
                                                         Growing v RealWorld Float -> Parser (Growing v RealWorld Float)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Float
qs
                                                     else
                                                         do !Float
q <- Parser Float -> String -> Parser Float
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    ((Word32 -> Float) -> Parser Word32 -> Parser Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                                                       Word32 -> Float
Data.ProtoLens.Encoding.Bytes.wordToFloat
                                                                       Parser Word32
Data.ProtoLens.Encoding.Bytes.getFixed32)
                                                                    "value"
                                                            Growing v RealWorld Float
qs' <- IO (Growing v RealWorld Float)
-> Parser (Growing v RealWorld Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Growing v (PrimState IO) Float
-> Float -> IO (Growing v (PrimState IO) Float)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                                                        Growing v RealWorld Float
Growing v (PrimState IO) Float
qs Float
q)
                                                            Growing v RealWorld Float -> Parser (Growing v RealWorld Float)
ploop Growing v RealWorld Float
qs'
                                            in forall (v :: * -> *).
Vector v Float =>
Growing v RealWorld Float -> Parser (Growing v RealWorld Float)
ploop)
                                             Growing Vector RealWorld Float
mutable'value)
                                CollectionDef'FloatList
-> Growing Vector RealWorld Float -> Parser CollectionDef'FloatList
loop CollectionDef'FloatList
x Growing Vector RealWorld Float
y
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                CollectionDef'FloatList
-> Growing Vector RealWorld Float -> Parser CollectionDef'FloatList
loop
                                  (Setter
  CollectionDef'FloatList CollectionDef'FloatList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'FloatList
-> CollectionDef'FloatList
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  CollectionDef'FloatList CollectionDef'FloatList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CollectionDef'FloatList
x)
                                  Growing Vector RealWorld Float
mutable'value
      in
        Parser CollectionDef'FloatList
-> String -> Parser CollectionDef'FloatList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Float
mutable'value <- IO (Growing Vector RealWorld Float)
-> Parser (Growing Vector RealWorld Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld Float)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              CollectionDef'FloatList
-> Growing Vector RealWorld Float -> Parser CollectionDef'FloatList
loop CollectionDef'FloatList
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Float
mutable'value)
          "FloatList"
  buildMessage :: CollectionDef'FloatList -> Builder
buildMessage
    = \ _x :: CollectionDef'FloatList
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                p :: Vector Float
p = FoldLike
  (Vector Float)
  CollectionDef'FloatList
  CollectionDef'FloatList
  (Vector Float)
  (Vector Float)
-> CollectionDef'FloatList -> Vector Float
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") CollectionDef'FloatList
_x
              in
                if Vector Float -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Float
p then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                      ((\ bs :: ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                            ((Float -> Builder) -> Vector Float -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               ((Word32 -> Builder) -> (Float -> Word32) -> Float -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  Word32 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed32
                                  Float -> Word32
Data.ProtoLens.Encoding.Bytes.floatToWord)
                               Vector Float
p))))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  CollectionDef'FloatList
  CollectionDef'FloatList
  FieldSet
  FieldSet
-> CollectionDef'FloatList -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  CollectionDef'FloatList
  CollectionDef'FloatList
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CollectionDef'FloatList
_x))
instance Control.DeepSeq.NFData CollectionDef'FloatList where
  rnf :: CollectionDef'FloatList -> ()
rnf
    = \ x__ :: CollectionDef'FloatList
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CollectionDef'FloatList -> FieldSet
_CollectionDef'FloatList'_unknownFields CollectionDef'FloatList
x__)
             (Vector Float -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CollectionDef'FloatList -> Vector Float
_CollectionDef'FloatList'value CollectionDef'FloatList
x__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.value' @:: Lens' CollectionDef'Int64List [Data.Int.Int64]@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.vec'value' @:: Lens' CollectionDef'Int64List (Data.Vector.Unboxed.Vector Data.Int.Int64)@ -}
data CollectionDef'Int64List
  = CollectionDef'Int64List'_constructor {CollectionDef'Int64List -> Vector Int64
_CollectionDef'Int64List'value :: !(Data.Vector.Unboxed.Vector Data.Int.Int64),
                                          CollectionDef'Int64List -> FieldSet
_CollectionDef'Int64List'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
(CollectionDef'Int64List -> CollectionDef'Int64List -> Bool)
-> (CollectionDef'Int64List -> CollectionDef'Int64List -> Bool)
-> Eq CollectionDef'Int64List
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
$c/= :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
== :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
$c== :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
Prelude.Eq, Eq CollectionDef'Int64List
Eq CollectionDef'Int64List =>
(CollectionDef'Int64List -> CollectionDef'Int64List -> Ordering)
-> (CollectionDef'Int64List -> CollectionDef'Int64List -> Bool)
-> (CollectionDef'Int64List -> CollectionDef'Int64List -> Bool)
-> (CollectionDef'Int64List -> CollectionDef'Int64List -> Bool)
-> (CollectionDef'Int64List -> CollectionDef'Int64List -> Bool)
-> (CollectionDef'Int64List
    -> CollectionDef'Int64List -> CollectionDef'Int64List)
-> (CollectionDef'Int64List
    -> CollectionDef'Int64List -> CollectionDef'Int64List)
-> Ord CollectionDef'Int64List
CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
CollectionDef'Int64List -> CollectionDef'Int64List -> Ordering
CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef'Int64List
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef'Int64List
$cmin :: CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef'Int64List
max :: CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef'Int64List
$cmax :: CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef'Int64List
>= :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
$c>= :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
> :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
$c> :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
<= :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
$c<= :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
< :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
$c< :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
compare :: CollectionDef'Int64List -> CollectionDef'Int64List -> Ordering
$ccompare :: CollectionDef'Int64List -> CollectionDef'Int64List -> Ordering
$cp1Ord :: Eq CollectionDef'Int64List
Prelude.Ord)
instance Prelude.Show CollectionDef'Int64List where
  showsPrec :: Int -> CollectionDef'Int64List -> ShowS
showsPrec _ __x :: CollectionDef'Int64List
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (CollectionDef'Int64List -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CollectionDef'Int64List
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CollectionDef'Int64List "value" [Data.Int.Int64] where
  fieldOf :: Proxy# "value"
-> ([Int64] -> f [Int64])
-> CollectionDef'Int64List
-> f CollectionDef'Int64List
fieldOf _
    = ((Vector Int64 -> f (Vector Int64))
 -> CollectionDef'Int64List -> f CollectionDef'Int64List)
-> (([Int64] -> f [Int64]) -> Vector Int64 -> f (Vector Int64))
-> ([Int64] -> f [Int64])
-> CollectionDef'Int64List
-> f CollectionDef'Int64List
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef'Int64List -> Vector Int64)
-> (CollectionDef'Int64List
    -> Vector Int64 -> CollectionDef'Int64List)
-> Lens
     CollectionDef'Int64List
     CollectionDef'Int64List
     (Vector Int64)
     (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef'Int64List -> Vector Int64
_CollectionDef'Int64List'value
           (\ x__ :: CollectionDef'Int64List
x__ y__ :: Vector Int64
y__ -> CollectionDef'Int64List
x__ {_CollectionDef'Int64List'value :: Vector Int64
_CollectionDef'Int64List'value = Vector Int64
y__}))
        ((Vector Int64 -> [Int64])
-> (Vector Int64 -> [Int64] -> Vector Int64)
-> Lens (Vector Int64) (Vector Int64) [Int64] [Int64]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Int64 -> [Int64]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Int64]
y__ -> [Int64] -> Vector Int64
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int64]
y__))
instance Data.ProtoLens.Field.HasField CollectionDef'Int64List "vec'value" (Data.Vector.Unboxed.Vector Data.Int.Int64) where
  fieldOf :: Proxy# "vec'value"
-> (Vector Int64 -> f (Vector Int64))
-> CollectionDef'Int64List
-> f CollectionDef'Int64List
fieldOf _
    = ((Vector Int64 -> f (Vector Int64))
 -> CollectionDef'Int64List -> f CollectionDef'Int64List)
-> ((Vector Int64 -> f (Vector Int64))
    -> Vector Int64 -> f (Vector Int64))
-> (Vector Int64 -> f (Vector Int64))
-> CollectionDef'Int64List
-> f CollectionDef'Int64List
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef'Int64List -> Vector Int64)
-> (CollectionDef'Int64List
    -> Vector Int64 -> CollectionDef'Int64List)
-> Lens
     CollectionDef'Int64List
     CollectionDef'Int64List
     (Vector Int64)
     (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef'Int64List -> Vector Int64
_CollectionDef'Int64List'value
           (\ x__ :: CollectionDef'Int64List
x__ y__ :: Vector Int64
y__ -> CollectionDef'Int64List
x__ {_CollectionDef'Int64List'value :: Vector Int64
_CollectionDef'Int64List'value = Vector Int64
y__}))
        (Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CollectionDef'Int64List where
  messageName :: Proxy CollectionDef'Int64List -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CollectionDef.Int64List"
  packedMessageDescriptor :: Proxy CollectionDef'Int64List -> ByteString
packedMessageDescriptor _
    = "\n\
      \\tInt64List\DC2\CAN\n\
      \\ENQvalue\CAN\SOH \ETX(\ETXR\ENQvalueB\STX\DLE\SOH"
  packedFileDescriptor :: Proxy CollectionDef'Int64List -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CollectionDef'Int64List)
fieldsByTag
    = let
        value__field_descriptor :: FieldDescriptor CollectionDef'Int64List
value__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor CollectionDef'Int64List Int64
-> FieldDescriptor CollectionDef'Int64List
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (Packing
-> Lens' CollectionDef'Int64List [Int64]
-> FieldAccessor CollectionDef'Int64List Int64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor CollectionDef'Int64List
      in
        [(Tag, FieldDescriptor CollectionDef'Int64List)]
-> Map Tag (FieldDescriptor CollectionDef'Int64List)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CollectionDef'Int64List
value__field_descriptor)]
  unknownFields :: LensLike' f CollectionDef'Int64List FieldSet
unknownFields
    = (CollectionDef'Int64List -> FieldSet)
-> (CollectionDef'Int64List -> FieldSet -> CollectionDef'Int64List)
-> Lens' CollectionDef'Int64List FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CollectionDef'Int64List -> FieldSet
_CollectionDef'Int64List'_unknownFields
        (\ x__ :: CollectionDef'Int64List
x__ y__ :: FieldSet
y__ -> CollectionDef'Int64List
x__ {_CollectionDef'Int64List'_unknownFields :: FieldSet
_CollectionDef'Int64List'_unknownFields = FieldSet
y__})
  defMessage :: CollectionDef'Int64List
defMessage
    = $WCollectionDef'Int64List'_constructor :: Vector Int64 -> FieldSet -> CollectionDef'Int64List
CollectionDef'Int64List'_constructor
        {_CollectionDef'Int64List'value :: Vector Int64
_CollectionDef'Int64List'value = Vector Int64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _CollectionDef'Int64List'_unknownFields :: FieldSet
_CollectionDef'Int64List'_unknownFields = []}
  parseMessage :: Parser CollectionDef'Int64List
parseMessage
    = let
        loop ::
          CollectionDef'Int64List
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int64
             -> Data.ProtoLens.Encoding.Bytes.Parser CollectionDef'Int64List
        loop :: CollectionDef'Int64List
-> Growing Vector RealWorld Int64 -> Parser CollectionDef'Int64List
loop x :: CollectionDef'Int64List
x mutable'value :: Growing Vector RealWorld Int64
mutable'value
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Int64
frozen'value <- IO (Vector Int64) -> Parser (Vector Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) Int64 -> IO (Vector Int64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Int64
Growing Vector (PrimState IO) Int64
mutable'value)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      CollectionDef'Int64List -> Parser CollectionDef'Int64List
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  CollectionDef'Int64List CollectionDef'Int64List FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'Int64List
-> CollectionDef'Int64List
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  CollectionDef'Int64List CollectionDef'Int64List FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  CollectionDef'Int64List
  CollectionDef'Int64List
  (Vector Int64)
  (Vector Int64)
-> Vector Int64
-> CollectionDef'Int64List
-> CollectionDef'Int64List
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") Vector Int64
frozen'value CollectionDef'Int64List
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do !Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                           Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                        "value"
                                Growing Vector RealWorld Int64
v <- IO (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Int64
-> Int64 -> IO (Growing Vector (PrimState IO) Int64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Int64
Growing Vector (PrimState IO) Int64
mutable'value Int64
y)
                                CollectionDef'Int64List
-> Growing Vector RealWorld Int64 -> Parser CollectionDef'Int64List
loop CollectionDef'Int64List
x Growing Vector RealWorld Int64
v
                        10
                          -> do Growing Vector RealWorld Int64
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Int
-> Parser (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                          ((let
                                              ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop qs :: Growing v RealWorld a
qs
                                                = do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if Bool
packedEnd then
                                                         Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
                                                     else
                                                         do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    ((Word64 -> a) -> Parser Word64 -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                                                       Word64 -> a
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                                                    "value"
                                                            Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                                                        Growing v RealWorld a
Growing v (PrimState IO) a
qs a
q)
                                                            Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
                                            in forall a (v :: * -> *).
(Num a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
                                             Growing Vector RealWorld Int64
mutable'value)
                                CollectionDef'Int64List
-> Growing Vector RealWorld Int64 -> Parser CollectionDef'Int64List
loop CollectionDef'Int64List
x Growing Vector RealWorld Int64
y
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                CollectionDef'Int64List
-> Growing Vector RealWorld Int64 -> Parser CollectionDef'Int64List
loop
                                  (Setter
  CollectionDef'Int64List CollectionDef'Int64List FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'Int64List
-> CollectionDef'Int64List
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  CollectionDef'Int64List CollectionDef'Int64List FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CollectionDef'Int64List
x)
                                  Growing Vector RealWorld Int64
mutable'value
      in
        Parser CollectionDef'Int64List
-> String -> Parser CollectionDef'Int64List
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Int64
mutable'value <- IO (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld Int64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              CollectionDef'Int64List
-> Growing Vector RealWorld Int64 -> Parser CollectionDef'Int64List
loop CollectionDef'Int64List
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Int64
mutable'value)
          "Int64List"
  buildMessage :: CollectionDef'Int64List -> Builder
buildMessage
    = \ _x :: CollectionDef'Int64List
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                p :: Vector Int64
p = FoldLike
  (Vector Int64)
  CollectionDef'Int64List
  CollectionDef'Int64List
  (Vector Int64)
  (Vector Int64)
-> CollectionDef'Int64List -> Vector Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") CollectionDef'Int64List
_x
              in
                if Vector Int64 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int64
p then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                      ((\ bs :: ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                            ((Int64 -> Builder) -> Vector Int64 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                               Vector Int64
p))))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  CollectionDef'Int64List
  CollectionDef'Int64List
  FieldSet
  FieldSet
-> CollectionDef'Int64List -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  CollectionDef'Int64List
  CollectionDef'Int64List
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CollectionDef'Int64List
_x))
instance Control.DeepSeq.NFData CollectionDef'Int64List where
  rnf :: CollectionDef'Int64List -> ()
rnf
    = \ x__ :: CollectionDef'Int64List
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CollectionDef'Int64List -> FieldSet
_CollectionDef'Int64List'_unknownFields CollectionDef'Int64List
x__)
             (Vector Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CollectionDef'Int64List -> Vector Int64
_CollectionDef'Int64List'value CollectionDef'Int64List
x__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.value' @:: Lens' CollectionDef'NodeList [Data.Text.Text]@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.vec'value' @:: Lens' CollectionDef'NodeList (Data.Vector.Vector Data.Text.Text)@ -}
data CollectionDef'NodeList
  = CollectionDef'NodeList'_constructor {CollectionDef'NodeList -> Vector Text
_CollectionDef'NodeList'value :: !(Data.Vector.Vector Data.Text.Text),
                                         CollectionDef'NodeList -> FieldSet
_CollectionDef'NodeList'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
(CollectionDef'NodeList -> CollectionDef'NodeList -> Bool)
-> (CollectionDef'NodeList -> CollectionDef'NodeList -> Bool)
-> Eq CollectionDef'NodeList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
$c/= :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
== :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
$c== :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
Prelude.Eq, Eq CollectionDef'NodeList
Eq CollectionDef'NodeList =>
(CollectionDef'NodeList -> CollectionDef'NodeList -> Ordering)
-> (CollectionDef'NodeList -> CollectionDef'NodeList -> Bool)
-> (CollectionDef'NodeList -> CollectionDef'NodeList -> Bool)
-> (CollectionDef'NodeList -> CollectionDef'NodeList -> Bool)
-> (CollectionDef'NodeList -> CollectionDef'NodeList -> Bool)
-> (CollectionDef'NodeList
    -> CollectionDef'NodeList -> CollectionDef'NodeList)
-> (CollectionDef'NodeList
    -> CollectionDef'NodeList -> CollectionDef'NodeList)
-> Ord CollectionDef'NodeList
CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
CollectionDef'NodeList -> CollectionDef'NodeList -> Ordering
CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef'NodeList
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef'NodeList
$cmin :: CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef'NodeList
max :: CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef'NodeList
$cmax :: CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef'NodeList
>= :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
$c>= :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
> :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
$c> :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
<= :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
$c<= :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
< :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
$c< :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
compare :: CollectionDef'NodeList -> CollectionDef'NodeList -> Ordering
$ccompare :: CollectionDef'NodeList -> CollectionDef'NodeList -> Ordering
$cp1Ord :: Eq CollectionDef'NodeList
Prelude.Ord)
instance Prelude.Show CollectionDef'NodeList where
  showsPrec :: Int -> CollectionDef'NodeList -> ShowS
showsPrec _ __x :: CollectionDef'NodeList
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (CollectionDef'NodeList -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CollectionDef'NodeList
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CollectionDef'NodeList "value" [Data.Text.Text] where
  fieldOf :: Proxy# "value"
-> ([Text] -> f [Text])
-> CollectionDef'NodeList
-> f CollectionDef'NodeList
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> CollectionDef'NodeList -> f CollectionDef'NodeList)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> CollectionDef'NodeList
-> f CollectionDef'NodeList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef'NodeList -> Vector Text)
-> (CollectionDef'NodeList
    -> Vector Text -> CollectionDef'NodeList)
-> Lens
     CollectionDef'NodeList
     CollectionDef'NodeList
     (Vector Text)
     (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef'NodeList -> Vector Text
_CollectionDef'NodeList'value
           (\ x__ :: CollectionDef'NodeList
x__ y__ :: Vector Text
y__ -> CollectionDef'NodeList
x__ {_CollectionDef'NodeList'value :: Vector Text
_CollectionDef'NodeList'value = Vector Text
y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField CollectionDef'NodeList "vec'value" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: Proxy# "vec'value"
-> (Vector Text -> f (Vector Text))
-> CollectionDef'NodeList
-> f CollectionDef'NodeList
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> CollectionDef'NodeList -> f CollectionDef'NodeList)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> CollectionDef'NodeList
-> f CollectionDef'NodeList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CollectionDef'NodeList -> Vector Text)
-> (CollectionDef'NodeList
    -> Vector Text -> CollectionDef'NodeList)
-> Lens
     CollectionDef'NodeList
     CollectionDef'NodeList
     (Vector Text)
     (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CollectionDef'NodeList -> Vector Text
_CollectionDef'NodeList'value
           (\ x__ :: CollectionDef'NodeList
x__ y__ :: Vector Text
y__ -> CollectionDef'NodeList
x__ {_CollectionDef'NodeList'value :: Vector Text
_CollectionDef'NodeList'value = Vector Text
y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CollectionDef'NodeList where
  messageName :: Proxy CollectionDef'NodeList -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CollectionDef.NodeList"
  packedMessageDescriptor :: Proxy CollectionDef'NodeList -> ByteString
packedMessageDescriptor _
    = "\n\
      \\bNodeList\DC2\DC4\n\
      \\ENQvalue\CAN\SOH \ETX(\tR\ENQvalue"
  packedFileDescriptor :: Proxy CollectionDef'NodeList -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CollectionDef'NodeList)
fieldsByTag
    = let
        value__field_descriptor :: FieldDescriptor CollectionDef'NodeList
value__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor CollectionDef'NodeList Text
-> FieldDescriptor CollectionDef'NodeList
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' CollectionDef'NodeList [Text]
-> FieldAccessor CollectionDef'NodeList Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor CollectionDef'NodeList
      in
        [(Tag, FieldDescriptor CollectionDef'NodeList)]
-> Map Tag (FieldDescriptor CollectionDef'NodeList)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CollectionDef'NodeList
value__field_descriptor)]
  unknownFields :: LensLike' f CollectionDef'NodeList FieldSet
unknownFields
    = (CollectionDef'NodeList -> FieldSet)
-> (CollectionDef'NodeList -> FieldSet -> CollectionDef'NodeList)
-> Lens' CollectionDef'NodeList FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CollectionDef'NodeList -> FieldSet
_CollectionDef'NodeList'_unknownFields
        (\ x__ :: CollectionDef'NodeList
x__ y__ :: FieldSet
y__ -> CollectionDef'NodeList
x__ {_CollectionDef'NodeList'_unknownFields :: FieldSet
_CollectionDef'NodeList'_unknownFields = FieldSet
y__})
  defMessage :: CollectionDef'NodeList
defMessage
    = $WCollectionDef'NodeList'_constructor :: Vector Text -> FieldSet -> CollectionDef'NodeList
CollectionDef'NodeList'_constructor
        {_CollectionDef'NodeList'value :: Vector Text
_CollectionDef'NodeList'value = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _CollectionDef'NodeList'_unknownFields :: FieldSet
_CollectionDef'NodeList'_unknownFields = []}
  parseMessage :: Parser CollectionDef'NodeList
parseMessage
    = let
        loop ::
          CollectionDef'NodeList
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Bytes.Parser CollectionDef'NodeList
        loop :: CollectionDef'NodeList
-> Growing Vector RealWorld Text -> Parser CollectionDef'NodeList
loop x :: CollectionDef'NodeList
x mutable'value :: Growing Vector RealWorld Text
mutable'value
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Text
frozen'value <- IO (Vector Text) -> Parser (Vector Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) Text -> IO (Vector Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'value)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      CollectionDef'NodeList -> Parser CollectionDef'NodeList
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  CollectionDef'NodeList CollectionDef'NodeList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'NodeList
-> CollectionDef'NodeList
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  CollectionDef'NodeList CollectionDef'NodeList FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  CollectionDef'NodeList
  CollectionDef'NodeList
  (Vector Text)
  (Vector Text)
-> Vector Text -> CollectionDef'NodeList -> CollectionDef'NodeList
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") Vector Text
frozen'value CollectionDef'NodeList
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                        Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                            Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                              (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                 (Prelude.Left err :: UnicodeException
err)
                                                   -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                 (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                        "value"
                                Growing Vector RealWorld Text
v <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Text
-> Text -> IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'value Text
y)
                                CollectionDef'NodeList
-> Growing Vector RealWorld Text -> Parser CollectionDef'NodeList
loop CollectionDef'NodeList
x Growing Vector RealWorld Text
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                CollectionDef'NodeList
-> Growing Vector RealWorld Text -> Parser CollectionDef'NodeList
loop
                                  (Setter
  CollectionDef'NodeList CollectionDef'NodeList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'NodeList
-> CollectionDef'NodeList
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  CollectionDef'NodeList CollectionDef'NodeList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CollectionDef'NodeList
x)
                                  Growing Vector RealWorld Text
mutable'value
      in
        Parser CollectionDef'NodeList
-> String -> Parser CollectionDef'NodeList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Text
mutable'value <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              CollectionDef'NodeList
-> Growing Vector RealWorld Text -> Parser CollectionDef'NodeList
loop CollectionDef'NodeList
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Text
mutable'value)
          "NodeList"
  buildMessage :: CollectionDef'NodeList -> Builder
buildMessage
    = \ _x :: CollectionDef'NodeList
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: Text
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           Text -> ByteString
Data.Text.Encoding.encodeUtf8
                           Text
_v))
                (FoldLike
  (Vector Text)
  CollectionDef'NodeList
  CollectionDef'NodeList
  (Vector Text)
  (Vector Text)
-> CollectionDef'NodeList -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") CollectionDef'NodeList
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  CollectionDef'NodeList
  CollectionDef'NodeList
  FieldSet
  FieldSet
-> CollectionDef'NodeList -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  CollectionDef'NodeList
  CollectionDef'NodeList
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CollectionDef'NodeList
_x))
instance Control.DeepSeq.NFData CollectionDef'NodeList where
  rnf :: CollectionDef'NodeList -> ()
rnf
    = \ x__ :: CollectionDef'NodeList
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CollectionDef'NodeList -> FieldSet
_CollectionDef'NodeList'_unknownFields CollectionDef'NodeList
x__)
             (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CollectionDef'NodeList -> Vector Text
_CollectionDef'NodeList'value CollectionDef'NodeList
x__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.metaInfoDef' @:: Lens' MetaGraphDef MetaGraphDef'MetaInfoDef@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'metaInfoDef' @:: Lens' MetaGraphDef (Prelude.Maybe MetaGraphDef'MetaInfoDef)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.graphDef' @:: Lens' MetaGraphDef Proto.Tensorflow.Core.Framework.Graph.GraphDef@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'graphDef' @:: Lens' MetaGraphDef (Prelude.Maybe Proto.Tensorflow.Core.Framework.Graph.GraphDef)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.saverDef' @:: Lens' MetaGraphDef Proto.Tensorflow.Core.Protobuf.Saver.SaverDef@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'saverDef' @:: Lens' MetaGraphDef (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Saver.SaverDef)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.collectionDef' @:: Lens' MetaGraphDef (Data.Map.Map Data.Text.Text CollectionDef)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.signatureDef' @:: Lens' MetaGraphDef (Data.Map.Map Data.Text.Text SignatureDef)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.assetFileDef' @:: Lens' MetaGraphDef [AssetFileDef]@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.vec'assetFileDef' @:: Lens' MetaGraphDef (Data.Vector.Vector AssetFileDef)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.objectGraphDef' @:: Lens' MetaGraphDef Proto.Tensorflow.Core.Protobuf.SavedObjectGraph.SavedObjectGraph@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'objectGraphDef' @:: Lens' MetaGraphDef (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.SavedObjectGraph.SavedObjectGraph)@ -}
data MetaGraphDef
  = MetaGraphDef'_constructor {MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef :: !(Prelude.Maybe MetaGraphDef'MetaInfoDef),
                               MetaGraphDef -> Maybe GraphDef
_MetaGraphDef'graphDef :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.Graph.GraphDef),
                               MetaGraphDef -> Maybe SaverDef
_MetaGraphDef'saverDef :: !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Saver.SaverDef),
                               MetaGraphDef -> Map Text CollectionDef
_MetaGraphDef'collectionDef :: !(Data.Map.Map Data.Text.Text CollectionDef),
                               MetaGraphDef -> Map Text SignatureDef
_MetaGraphDef'signatureDef :: !(Data.Map.Map Data.Text.Text SignatureDef),
                               MetaGraphDef -> Vector AssetFileDef
_MetaGraphDef'assetFileDef :: !(Data.Vector.Vector AssetFileDef),
                               MetaGraphDef -> Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef :: !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.SavedObjectGraph.SavedObjectGraph),
                               MetaGraphDef -> FieldSet
_MetaGraphDef'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MetaGraphDef -> MetaGraphDef -> Bool
(MetaGraphDef -> MetaGraphDef -> Bool)
-> (MetaGraphDef -> MetaGraphDef -> Bool) -> Eq MetaGraphDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetaGraphDef -> MetaGraphDef -> Bool
$c/= :: MetaGraphDef -> MetaGraphDef -> Bool
== :: MetaGraphDef -> MetaGraphDef -> Bool
$c== :: MetaGraphDef -> MetaGraphDef -> Bool
Prelude.Eq, Eq MetaGraphDef
Eq MetaGraphDef =>
(MetaGraphDef -> MetaGraphDef -> Ordering)
-> (MetaGraphDef -> MetaGraphDef -> Bool)
-> (MetaGraphDef -> MetaGraphDef -> Bool)
-> (MetaGraphDef -> MetaGraphDef -> Bool)
-> (MetaGraphDef -> MetaGraphDef -> Bool)
-> (MetaGraphDef -> MetaGraphDef -> MetaGraphDef)
-> (MetaGraphDef -> MetaGraphDef -> MetaGraphDef)
-> Ord MetaGraphDef
MetaGraphDef -> MetaGraphDef -> Bool
MetaGraphDef -> MetaGraphDef -> Ordering
MetaGraphDef -> MetaGraphDef -> MetaGraphDef
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: MetaGraphDef -> MetaGraphDef -> MetaGraphDef
$cmin :: MetaGraphDef -> MetaGraphDef -> MetaGraphDef
max :: MetaGraphDef -> MetaGraphDef -> MetaGraphDef
$cmax :: MetaGraphDef -> MetaGraphDef -> MetaGraphDef
>= :: MetaGraphDef -> MetaGraphDef -> Bool
$c>= :: MetaGraphDef -> MetaGraphDef -> Bool
> :: MetaGraphDef -> MetaGraphDef -> Bool
$c> :: MetaGraphDef -> MetaGraphDef -> Bool
<= :: MetaGraphDef -> MetaGraphDef -> Bool
$c<= :: MetaGraphDef -> MetaGraphDef -> Bool
< :: MetaGraphDef -> MetaGraphDef -> Bool
$c< :: MetaGraphDef -> MetaGraphDef -> Bool
compare :: MetaGraphDef -> MetaGraphDef -> Ordering
$ccompare :: MetaGraphDef -> MetaGraphDef -> Ordering
$cp1Ord :: Eq MetaGraphDef
Prelude.Ord)
instance Prelude.Show MetaGraphDef where
  showsPrec :: Int -> MetaGraphDef -> ShowS
showsPrec _ __x :: MetaGraphDef
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (MetaGraphDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetaGraphDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MetaGraphDef "metaInfoDef" MetaGraphDef'MetaInfoDef where
  fieldOf :: Proxy# "metaInfoDef"
-> (MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
    = ((Maybe MetaGraphDef'MetaInfoDef
  -> f (Maybe MetaGraphDef'MetaInfoDef))
 -> MetaGraphDef -> f MetaGraphDef)
-> ((MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
    -> Maybe MetaGraphDef'MetaInfoDef
    -> f (Maybe MetaGraphDef'MetaInfoDef))
-> (MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef)
-> (MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef -> MetaGraphDef)
-> Lens
     MetaGraphDef
     MetaGraphDef
     (Maybe MetaGraphDef'MetaInfoDef)
     (Maybe MetaGraphDef'MetaInfoDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef
           (\ x__ :: MetaGraphDef
x__ y__ :: Maybe MetaGraphDef'MetaInfoDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'metaInfoDef :: Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef = Maybe MetaGraphDef'MetaInfoDef
y__}))
        (MetaGraphDef'MetaInfoDef
-> Lens' (Maybe MetaGraphDef'MetaInfoDef) MetaGraphDef'MetaInfoDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens MetaGraphDef'MetaInfoDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef "maybe'metaInfoDef" (Prelude.Maybe MetaGraphDef'MetaInfoDef) where
  fieldOf :: Proxy# "maybe'metaInfoDef"
-> (Maybe MetaGraphDef'MetaInfoDef
    -> f (Maybe MetaGraphDef'MetaInfoDef))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
    = ((Maybe MetaGraphDef'MetaInfoDef
  -> f (Maybe MetaGraphDef'MetaInfoDef))
 -> MetaGraphDef -> f MetaGraphDef)
-> ((Maybe MetaGraphDef'MetaInfoDef
     -> f (Maybe MetaGraphDef'MetaInfoDef))
    -> Maybe MetaGraphDef'MetaInfoDef
    -> f (Maybe MetaGraphDef'MetaInfoDef))
-> (Maybe MetaGraphDef'MetaInfoDef
    -> f (Maybe MetaGraphDef'MetaInfoDef))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef)
-> (MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef -> MetaGraphDef)
-> Lens
     MetaGraphDef
     MetaGraphDef
     (Maybe MetaGraphDef'MetaInfoDef)
     (Maybe MetaGraphDef'MetaInfoDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef
           (\ x__ :: MetaGraphDef
x__ y__ :: Maybe MetaGraphDef'MetaInfoDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'metaInfoDef :: Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef = Maybe MetaGraphDef'MetaInfoDef
y__}))
        (Maybe MetaGraphDef'MetaInfoDef
 -> f (Maybe MetaGraphDef'MetaInfoDef))
-> Maybe MetaGraphDef'MetaInfoDef
-> f (Maybe MetaGraphDef'MetaInfoDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef "graphDef" Proto.Tensorflow.Core.Framework.Graph.GraphDef where
  fieldOf :: Proxy# "graphDef"
-> (GraphDef -> f GraphDef) -> MetaGraphDef -> f MetaGraphDef
fieldOf _
    = ((Maybe GraphDef -> f (Maybe GraphDef))
 -> MetaGraphDef -> f MetaGraphDef)
-> ((GraphDef -> f GraphDef)
    -> Maybe GraphDef -> f (Maybe GraphDef))
-> (GraphDef -> f GraphDef)
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef -> Maybe GraphDef)
-> (MetaGraphDef -> Maybe GraphDef -> MetaGraphDef)
-> Lens MetaGraphDef MetaGraphDef (Maybe GraphDef) (Maybe GraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef -> Maybe GraphDef
_MetaGraphDef'graphDef
           (\ x__ :: MetaGraphDef
x__ y__ :: Maybe GraphDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'graphDef :: Maybe GraphDef
_MetaGraphDef'graphDef = Maybe GraphDef
y__}))
        (GraphDef -> Lens' (Maybe GraphDef) GraphDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens GraphDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef "maybe'graphDef" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Graph.GraphDef) where
  fieldOf :: Proxy# "maybe'graphDef"
-> (Maybe GraphDef -> f (Maybe GraphDef))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
    = ((Maybe GraphDef -> f (Maybe GraphDef))
 -> MetaGraphDef -> f MetaGraphDef)
-> ((Maybe GraphDef -> f (Maybe GraphDef))
    -> Maybe GraphDef -> f (Maybe GraphDef))
-> (Maybe GraphDef -> f (Maybe GraphDef))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef -> Maybe GraphDef)
-> (MetaGraphDef -> Maybe GraphDef -> MetaGraphDef)
-> Lens MetaGraphDef MetaGraphDef (Maybe GraphDef) (Maybe GraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef -> Maybe GraphDef
_MetaGraphDef'graphDef
           (\ x__ :: MetaGraphDef
x__ y__ :: Maybe GraphDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'graphDef :: Maybe GraphDef
_MetaGraphDef'graphDef = Maybe GraphDef
y__}))
        (Maybe GraphDef -> f (Maybe GraphDef))
-> Maybe GraphDef -> f (Maybe GraphDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef "saverDef" Proto.Tensorflow.Core.Protobuf.Saver.SaverDef where
  fieldOf :: Proxy# "saverDef"
-> (SaverDef -> f SaverDef) -> MetaGraphDef -> f MetaGraphDef
fieldOf _
    = ((Maybe SaverDef -> f (Maybe SaverDef))
 -> MetaGraphDef -> f MetaGraphDef)
-> ((SaverDef -> f SaverDef)
    -> Maybe SaverDef -> f (Maybe SaverDef))
-> (SaverDef -> f SaverDef)
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef -> Maybe SaverDef)
-> (MetaGraphDef -> Maybe SaverDef -> MetaGraphDef)
-> Lens MetaGraphDef MetaGraphDef (Maybe SaverDef) (Maybe SaverDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef -> Maybe SaverDef
_MetaGraphDef'saverDef
           (\ x__ :: MetaGraphDef
x__ y__ :: Maybe SaverDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'saverDef :: Maybe SaverDef
_MetaGraphDef'saverDef = Maybe SaverDef
y__}))
        (SaverDef -> Lens' (Maybe SaverDef) SaverDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SaverDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef "maybe'saverDef" (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Saver.SaverDef) where
  fieldOf :: Proxy# "maybe'saverDef"
-> (Maybe SaverDef -> f (Maybe SaverDef))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
    = ((Maybe SaverDef -> f (Maybe SaverDef))
 -> MetaGraphDef -> f MetaGraphDef)
-> ((Maybe SaverDef -> f (Maybe SaverDef))
    -> Maybe SaverDef -> f (Maybe SaverDef))
-> (Maybe SaverDef -> f (Maybe SaverDef))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef -> Maybe SaverDef)
-> (MetaGraphDef -> Maybe SaverDef -> MetaGraphDef)
-> Lens MetaGraphDef MetaGraphDef (Maybe SaverDef) (Maybe SaverDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef -> Maybe SaverDef
_MetaGraphDef'saverDef
           (\ x__ :: MetaGraphDef
x__ y__ :: Maybe SaverDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'saverDef :: Maybe SaverDef
_MetaGraphDef'saverDef = Maybe SaverDef
y__}))
        (Maybe SaverDef -> f (Maybe SaverDef))
-> Maybe SaverDef -> f (Maybe SaverDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef "collectionDef" (Data.Map.Map Data.Text.Text CollectionDef) where
  fieldOf :: Proxy# "collectionDef"
-> (Map Text CollectionDef -> f (Map Text CollectionDef))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
    = ((Map Text CollectionDef -> f (Map Text CollectionDef))
 -> MetaGraphDef -> f MetaGraphDef)
-> ((Map Text CollectionDef -> f (Map Text CollectionDef))
    -> Map Text CollectionDef -> f (Map Text CollectionDef))
-> (Map Text CollectionDef -> f (Map Text CollectionDef))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef -> Map Text CollectionDef)
-> (MetaGraphDef -> Map Text CollectionDef -> MetaGraphDef)
-> Lens
     MetaGraphDef
     MetaGraphDef
     (Map Text CollectionDef)
     (Map Text CollectionDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef -> Map Text CollectionDef
_MetaGraphDef'collectionDef
           (\ x__ :: MetaGraphDef
x__ y__ :: Map Text CollectionDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'collectionDef :: Map Text CollectionDef
_MetaGraphDef'collectionDef = Map Text CollectionDef
y__}))
        (Map Text CollectionDef -> f (Map Text CollectionDef))
-> Map Text CollectionDef -> f (Map Text CollectionDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef "signatureDef" (Data.Map.Map Data.Text.Text SignatureDef) where
  fieldOf :: Proxy# "signatureDef"
-> (Map Text SignatureDef -> f (Map Text SignatureDef))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
    = ((Map Text SignatureDef -> f (Map Text SignatureDef))
 -> MetaGraphDef -> f MetaGraphDef)
-> ((Map Text SignatureDef -> f (Map Text SignatureDef))
    -> Map Text SignatureDef -> f (Map Text SignatureDef))
-> (Map Text SignatureDef -> f (Map Text SignatureDef))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef -> Map Text SignatureDef)
-> (MetaGraphDef -> Map Text SignatureDef -> MetaGraphDef)
-> Lens
     MetaGraphDef
     MetaGraphDef
     (Map Text SignatureDef)
     (Map Text SignatureDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef -> Map Text SignatureDef
_MetaGraphDef'signatureDef
           (\ x__ :: MetaGraphDef
x__ y__ :: Map Text SignatureDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'signatureDef :: Map Text SignatureDef
_MetaGraphDef'signatureDef = Map Text SignatureDef
y__}))
        (Map Text SignatureDef -> f (Map Text SignatureDef))
-> Map Text SignatureDef -> f (Map Text SignatureDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef "assetFileDef" [AssetFileDef] where
  fieldOf :: Proxy# "assetFileDef"
-> ([AssetFileDef] -> f [AssetFileDef])
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
    = ((Vector AssetFileDef -> f (Vector AssetFileDef))
 -> MetaGraphDef -> f MetaGraphDef)
-> (([AssetFileDef] -> f [AssetFileDef])
    -> Vector AssetFileDef -> f (Vector AssetFileDef))
-> ([AssetFileDef] -> f [AssetFileDef])
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef -> Vector AssetFileDef)
-> (MetaGraphDef -> Vector AssetFileDef -> MetaGraphDef)
-> Lens
     MetaGraphDef
     MetaGraphDef
     (Vector AssetFileDef)
     (Vector AssetFileDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef -> Vector AssetFileDef
_MetaGraphDef'assetFileDef
           (\ x__ :: MetaGraphDef
x__ y__ :: Vector AssetFileDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'assetFileDef :: Vector AssetFileDef
_MetaGraphDef'assetFileDef = Vector AssetFileDef
y__}))
        ((Vector AssetFileDef -> [AssetFileDef])
-> (Vector AssetFileDef -> [AssetFileDef] -> Vector AssetFileDef)
-> Lens
     (Vector AssetFileDef)
     (Vector AssetFileDef)
     [AssetFileDef]
     [AssetFileDef]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector AssetFileDef -> [AssetFileDef]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [AssetFileDef]
y__ -> [AssetFileDef] -> Vector AssetFileDef
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AssetFileDef]
y__))
instance Data.ProtoLens.Field.HasField MetaGraphDef "vec'assetFileDef" (Data.Vector.Vector AssetFileDef) where
  fieldOf :: Proxy# "vec'assetFileDef"
-> (Vector AssetFileDef -> f (Vector AssetFileDef))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
    = ((Vector AssetFileDef -> f (Vector AssetFileDef))
 -> MetaGraphDef -> f MetaGraphDef)
-> ((Vector AssetFileDef -> f (Vector AssetFileDef))
    -> Vector AssetFileDef -> f (Vector AssetFileDef))
-> (Vector AssetFileDef -> f (Vector AssetFileDef))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef -> Vector AssetFileDef)
-> (MetaGraphDef -> Vector AssetFileDef -> MetaGraphDef)
-> Lens
     MetaGraphDef
     MetaGraphDef
     (Vector AssetFileDef)
     (Vector AssetFileDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef -> Vector AssetFileDef
_MetaGraphDef'assetFileDef
           (\ x__ :: MetaGraphDef
x__ y__ :: Vector AssetFileDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'assetFileDef :: Vector AssetFileDef
_MetaGraphDef'assetFileDef = Vector AssetFileDef
y__}))
        (Vector AssetFileDef -> f (Vector AssetFileDef))
-> Vector AssetFileDef -> f (Vector AssetFileDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef "objectGraphDef" Proto.Tensorflow.Core.Protobuf.SavedObjectGraph.SavedObjectGraph where
  fieldOf :: Proxy# "objectGraphDef"
-> (SavedObjectGraph -> f SavedObjectGraph)
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
    = ((Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
 -> MetaGraphDef -> f MetaGraphDef)
-> ((SavedObjectGraph -> f SavedObjectGraph)
    -> Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> (SavedObjectGraph -> f SavedObjectGraph)
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef -> Maybe SavedObjectGraph)
-> (MetaGraphDef -> Maybe SavedObjectGraph -> MetaGraphDef)
-> Lens
     MetaGraphDef
     MetaGraphDef
     (Maybe SavedObjectGraph)
     (Maybe SavedObjectGraph)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef -> Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef
           (\ x__ :: MetaGraphDef
x__ y__ :: Maybe SavedObjectGraph
y__ -> MetaGraphDef
x__ {_MetaGraphDef'objectGraphDef :: Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef = Maybe SavedObjectGraph
y__}))
        (SavedObjectGraph -> Lens' (Maybe SavedObjectGraph) SavedObjectGraph
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SavedObjectGraph
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef "maybe'objectGraphDef" (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.SavedObjectGraph.SavedObjectGraph) where
  fieldOf :: Proxy# "maybe'objectGraphDef"
-> (Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
    = ((Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
 -> MetaGraphDef -> f MetaGraphDef)
-> ((Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
    -> Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> (Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef -> Maybe SavedObjectGraph)
-> (MetaGraphDef -> Maybe SavedObjectGraph -> MetaGraphDef)
-> Lens
     MetaGraphDef
     MetaGraphDef
     (Maybe SavedObjectGraph)
     (Maybe SavedObjectGraph)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef -> Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef
           (\ x__ :: MetaGraphDef
x__ y__ :: Maybe SavedObjectGraph
y__ -> MetaGraphDef
x__ {_MetaGraphDef'objectGraphDef :: Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef = Maybe SavedObjectGraph
y__}))
        (Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetaGraphDef where
  messageName :: Proxy MetaGraphDef -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.MetaGraphDef"
  packedMessageDescriptor :: Proxy MetaGraphDef -> ByteString
packedMessageDescriptor _
    = "\n\
      \\fMetaGraphDef\DC2H\n\
      \\rmeta_info_def\CAN\SOH \SOH(\v2$.tensorflow.MetaGraphDef.MetaInfoDefR\vmetaInfoDef\DC21\n\
      \\tgraph_def\CAN\STX \SOH(\v2\DC4.tensorflow.GraphDefR\bgraphDef\DC21\n\
      \\tsaver_def\CAN\ETX \SOH(\v2\DC4.tensorflow.SaverDefR\bsaverDef\DC2R\n\
      \\SOcollection_def\CAN\EOT \ETX(\v2+.tensorflow.MetaGraphDef.CollectionDefEntryR\rcollectionDef\DC2O\n\
      \\rsignature_def\CAN\ENQ \ETX(\v2*.tensorflow.MetaGraphDef.SignatureDefEntryR\fsignatureDef\DC2>\n\
      \\SOasset_file_def\CAN\ACK \ETX(\v2\CAN.tensorflow.AssetFileDefR\fassetFileDef\DC2F\n\
      \\DLEobject_graph_def\CAN\a \SOH(\v2\FS.tensorflow.SavedObjectGraphR\SOobjectGraphDef\SUB\131\EOT\n\
      \\vMetaInfoDef\DC2,\n\
      \\DC2meta_graph_version\CAN\SOH \SOH(\tR\DLEmetaGraphVersion\DC2<\n\
      \\DLEstripped_op_list\CAN\STX \SOH(\v2\DC2.tensorflow.OpListR\SOstrippedOpList\DC2/\n\
      \\bany_info\CAN\ETX \SOH(\v2\DC4.google.protobuf.AnyR\aanyInfo\DC2\DC2\n\
      \\EOTtags\CAN\EOT \ETX(\tR\EOTtags\DC2-\n\
      \\DC2tensorflow_version\CAN\ENQ \SOH(\tR\DC1tensorflowVersion\DC24\n\
      \\SYNtensorflow_git_version\CAN\ACK \SOH(\tR\DC4tensorflowGitVersion\DC24\n\
      \\SYNstripped_default_attrs\CAN\a \SOH(\bR\DC4strippedDefaultAttrs\DC2d\n\
      \\DLEfunction_aliases\CAN\b \ETX(\v29.tensorflow.MetaGraphDef.MetaInfoDef.FunctionAliasesEntryR\SIfunctionAliases\SUBB\n\
      \\DC4FunctionAliasesEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\SUB[\n\
      \\DC2CollectionDefEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2/\n\
      \\ENQvalue\CAN\STX \SOH(\v2\EM.tensorflow.CollectionDefR\ENQvalue:\STX8\SOH\SUBY\n\
      \\DC1SignatureDefEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2.\n\
      \\ENQvalue\CAN\STX \SOH(\v2\CAN.tensorflow.SignatureDefR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy MetaGraphDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MetaGraphDef)
fieldsByTag
    = let
        metaInfoDef__field_descriptor :: FieldDescriptor MetaGraphDef
metaInfoDef__field_descriptor
          = String
-> FieldTypeDescriptor MetaGraphDef'MetaInfoDef
-> FieldAccessor MetaGraphDef MetaGraphDef'MetaInfoDef
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "meta_info_def"
              (MessageOrGroup -> FieldTypeDescriptor MetaGraphDef'MetaInfoDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MetaGraphDef'MetaInfoDef)
              (Lens
  MetaGraphDef
  MetaGraphDef
  (Maybe MetaGraphDef'MetaInfoDef)
  (Maybe MetaGraphDef'MetaInfoDef)
-> FieldAccessor MetaGraphDef MetaGraphDef'MetaInfoDef
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'metaInfoDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'metaInfoDef")) ::
              Data.ProtoLens.FieldDescriptor MetaGraphDef
        graphDef__field_descriptor :: FieldDescriptor MetaGraphDef
graphDef__field_descriptor
          = String
-> FieldTypeDescriptor GraphDef
-> FieldAccessor MetaGraphDef GraphDef
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "graph_def"
              (MessageOrGroup -> FieldTypeDescriptor GraphDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Graph.GraphDef)
              (Lens MetaGraphDef MetaGraphDef (Maybe GraphDef) (Maybe GraphDef)
-> FieldAccessor MetaGraphDef GraphDef
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'graphDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'graphDef")) ::
              Data.ProtoLens.FieldDescriptor MetaGraphDef
        saverDef__field_descriptor :: FieldDescriptor MetaGraphDef
saverDef__field_descriptor
          = String
-> FieldTypeDescriptor SaverDef
-> FieldAccessor MetaGraphDef SaverDef
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "saver_def"
              (MessageOrGroup -> FieldTypeDescriptor SaverDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.Saver.SaverDef)
              (Lens MetaGraphDef MetaGraphDef (Maybe SaverDef) (Maybe SaverDef)
-> FieldAccessor MetaGraphDef SaverDef
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'saverDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'saverDef")) ::
              Data.ProtoLens.FieldDescriptor MetaGraphDef
        collectionDef__field_descriptor :: FieldDescriptor MetaGraphDef
collectionDef__field_descriptor
          = String
-> FieldTypeDescriptor MetaGraphDef'CollectionDefEntry
-> FieldAccessor MetaGraphDef MetaGraphDef'CollectionDefEntry
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "collection_def"
              (MessageOrGroup
-> FieldTypeDescriptor MetaGraphDef'CollectionDefEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MetaGraphDef'CollectionDefEntry)
              (Lens' MetaGraphDef'CollectionDefEntry Text
-> Lens' MetaGraphDef'CollectionDefEntry CollectionDef
-> Lens
     MetaGraphDef
     MetaGraphDef
     (Map Text CollectionDef)
     (Map Text CollectionDef)
-> FieldAccessor MetaGraphDef MetaGraphDef'CollectionDefEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall s a (f :: * -> *).
(HasField s "collectionDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectionDef")) ::
              Data.ProtoLens.FieldDescriptor MetaGraphDef
        signatureDef__field_descriptor :: FieldDescriptor MetaGraphDef
signatureDef__field_descriptor
          = String
-> FieldTypeDescriptor MetaGraphDef'SignatureDefEntry
-> FieldAccessor MetaGraphDef MetaGraphDef'SignatureDefEntry
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "signature_def"
              (MessageOrGroup
-> FieldTypeDescriptor MetaGraphDef'SignatureDefEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MetaGraphDef'SignatureDefEntry)
              (Lens' MetaGraphDef'SignatureDefEntry Text
-> Lens' MetaGraphDef'SignatureDefEntry SignatureDef
-> Lens
     MetaGraphDef
     MetaGraphDef
     (Map Text SignatureDef)
     (Map Text SignatureDef)
-> FieldAccessor MetaGraphDef MetaGraphDef'SignatureDefEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall s a (f :: * -> *).
(HasField s "signatureDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"signatureDef")) ::
              Data.ProtoLens.FieldDescriptor MetaGraphDef
        assetFileDef__field_descriptor :: FieldDescriptor MetaGraphDef
assetFileDef__field_descriptor
          = String
-> FieldTypeDescriptor AssetFileDef
-> FieldAccessor MetaGraphDef AssetFileDef
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "asset_file_def"
              (MessageOrGroup -> FieldTypeDescriptor AssetFileDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AssetFileDef)
              (Packing
-> Lens' MetaGraphDef [AssetFileDef]
-> FieldAccessor MetaGraphDef AssetFileDef
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "assetFileDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"assetFileDef")) ::
              Data.ProtoLens.FieldDescriptor MetaGraphDef
        objectGraphDef__field_descriptor :: FieldDescriptor MetaGraphDef
objectGraphDef__field_descriptor
          = String
-> FieldTypeDescriptor SavedObjectGraph
-> FieldAccessor MetaGraphDef SavedObjectGraph
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "object_graph_def"
              (MessageOrGroup -> FieldTypeDescriptor SavedObjectGraph
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.SavedObjectGraph.SavedObjectGraph)
              (Lens
  MetaGraphDef
  MetaGraphDef
  (Maybe SavedObjectGraph)
  (Maybe SavedObjectGraph)
-> FieldAccessor MetaGraphDef SavedObjectGraph
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'objectGraphDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'objectGraphDef")) ::
              Data.ProtoLens.FieldDescriptor MetaGraphDef
      in
        [(Tag, FieldDescriptor MetaGraphDef)]
-> Map Tag (FieldDescriptor MetaGraphDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MetaGraphDef
metaInfoDef__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MetaGraphDef
graphDef__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor MetaGraphDef
saverDef__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor MetaGraphDef
collectionDef__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor MetaGraphDef
signatureDef__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor MetaGraphDef
assetFileDef__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor MetaGraphDef
objectGraphDef__field_descriptor)]
  unknownFields :: LensLike' f MetaGraphDef FieldSet
unknownFields
    = (MetaGraphDef -> FieldSet)
-> (MetaGraphDef -> FieldSet -> MetaGraphDef)
-> Lens' MetaGraphDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MetaGraphDef -> FieldSet
_MetaGraphDef'_unknownFields
        (\ x__ :: MetaGraphDef
x__ y__ :: FieldSet
y__ -> MetaGraphDef
x__ {_MetaGraphDef'_unknownFields :: FieldSet
_MetaGraphDef'_unknownFields = FieldSet
y__})
  defMessage :: MetaGraphDef
defMessage
    = $WMetaGraphDef'_constructor :: Maybe MetaGraphDef'MetaInfoDef
-> Maybe GraphDef
-> Maybe SaverDef
-> Map Text CollectionDef
-> Map Text SignatureDef
-> Vector AssetFileDef
-> Maybe SavedObjectGraph
-> FieldSet
-> MetaGraphDef
MetaGraphDef'_constructor
        {_MetaGraphDef'metaInfoDef :: Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef = Maybe MetaGraphDef'MetaInfoDef
forall a. Maybe a
Prelude.Nothing,
         _MetaGraphDef'graphDef :: Maybe GraphDef
_MetaGraphDef'graphDef = Maybe GraphDef
forall a. Maybe a
Prelude.Nothing,
         _MetaGraphDef'saverDef :: Maybe SaverDef
_MetaGraphDef'saverDef = Maybe SaverDef
forall a. Maybe a
Prelude.Nothing,
         _MetaGraphDef'collectionDef :: Map Text CollectionDef
_MetaGraphDef'collectionDef = Map Text CollectionDef
forall k a. Map k a
Data.Map.empty,
         _MetaGraphDef'signatureDef :: Map Text SignatureDef
_MetaGraphDef'signatureDef = Map Text SignatureDef
forall k a. Map k a
Data.Map.empty,
         _MetaGraphDef'assetFileDef :: Vector AssetFileDef
_MetaGraphDef'assetFileDef = Vector AssetFileDef
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MetaGraphDef'objectGraphDef :: Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef = Maybe SavedObjectGraph
forall a. Maybe a
Prelude.Nothing,
         _MetaGraphDef'_unknownFields :: FieldSet
_MetaGraphDef'_unknownFields = []}
  parseMessage :: Parser MetaGraphDef
parseMessage
    = let
        loop ::
          MetaGraphDef
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AssetFileDef
             -> Data.ProtoLens.Encoding.Bytes.Parser MetaGraphDef
        loop :: MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop x :: MetaGraphDef
x mutable'assetFileDef :: Growing Vector RealWorld AssetFileDef
mutable'assetFileDef
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector AssetFileDef
frozen'assetFileDef <- IO (Vector AssetFileDef) -> Parser (Vector AssetFileDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               (Growing Vector (PrimState IO) AssetFileDef
-> IO (Vector AssetFileDef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                  Growing Vector RealWorld AssetFileDef
Growing Vector (PrimState IO) AssetFileDef
mutable'assetFileDef)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MetaGraphDef -> Parser MetaGraphDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter MetaGraphDef MetaGraphDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetaGraphDef -> MetaGraphDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter MetaGraphDef MetaGraphDef FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  MetaGraphDef
  MetaGraphDef
  (Vector AssetFileDef)
  (Vector AssetFileDef)
-> Vector AssetFileDef -> MetaGraphDef -> MetaGraphDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'assetFileDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'assetFileDef")
                              Vector AssetFileDef
frozen'assetFileDef
                              MetaGraphDef
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do MetaGraphDef'MetaInfoDef
y <- Parser MetaGraphDef'MetaInfoDef
-> String -> Parser MetaGraphDef'MetaInfoDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser MetaGraphDef'MetaInfoDef
-> Parser MetaGraphDef'MetaInfoDef
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser MetaGraphDef'MetaInfoDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "meta_info_def"
                                MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
                                  (Setter
  MetaGraphDef
  MetaGraphDef
  MetaGraphDef'MetaInfoDef
  MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef -> MetaGraphDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "metaInfoDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metaInfoDef") MetaGraphDef'MetaInfoDef
y MetaGraphDef
x)
                                  Growing Vector RealWorld AssetFileDef
mutable'assetFileDef
                        18
                          -> do GraphDef
y <- Parser GraphDef -> String -> Parser GraphDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser GraphDef -> Parser GraphDef
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser GraphDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "graph_def"
                                MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
                                  (Setter MetaGraphDef MetaGraphDef GraphDef GraphDef
-> GraphDef -> MetaGraphDef -> MetaGraphDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "graphDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"graphDef") GraphDef
y MetaGraphDef
x)
                                  Growing Vector RealWorld AssetFileDef
mutable'assetFileDef
                        26
                          -> do SaverDef
y <- Parser SaverDef -> String -> Parser SaverDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser SaverDef -> Parser SaverDef
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser SaverDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "saver_def"
                                MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
                                  (Setter MetaGraphDef MetaGraphDef SaverDef SaverDef
-> SaverDef -> MetaGraphDef -> MetaGraphDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "saverDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"saverDef") SaverDef
y MetaGraphDef
x)
                                  Growing Vector RealWorld AssetFileDef
mutable'assetFileDef
                        34
                          -> do !(MetaGraphDef'CollectionDefEntry
entry :: MetaGraphDef'CollectionDefEntry) <- Parser MetaGraphDef'CollectionDefEntry
-> String -> Parser MetaGraphDef'CollectionDefEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                                 (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                                     Int
-> Parser MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                                                                       (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                                          Word64
len)
                                                                                       Parser MetaGraphDef'CollectionDefEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                                                                 "collection_def"
                                (let
                                   key :: Text
key = FoldLike
  Text
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  Text
  Text
-> MetaGraphDef'CollectionDefEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") MetaGraphDef'CollectionDefEntry
entry
                                   value :: CollectionDef
value
                                     = FoldLike
  CollectionDef
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  CollectionDef
  CollectionDef
-> MetaGraphDef'CollectionDefEntry -> CollectionDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") MetaGraphDef'CollectionDefEntry
entry
                                 in
                                   MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
                                     (Setter
  MetaGraphDef
  MetaGraphDef
  (Map Text CollectionDef)
  (Map Text CollectionDef)
-> (Map Text CollectionDef -> Map Text CollectionDef)
-> MetaGraphDef
-> MetaGraphDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                        (forall s a (f :: * -> *).
(HasField s "collectionDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectionDef")
                                        (\ !Map Text CollectionDef
t -> Text
-> CollectionDef
-> Map Text CollectionDef
-> Map Text CollectionDef
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key CollectionDef
value Map Text CollectionDef
t)
                                        MetaGraphDef
x)
                                     Growing Vector RealWorld AssetFileDef
mutable'assetFileDef)
                        42
                          -> do !(MetaGraphDef'SignatureDefEntry
entry :: MetaGraphDef'SignatureDefEntry) <- Parser MetaGraphDef'SignatureDefEntry
-> String -> Parser MetaGraphDef'SignatureDefEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                                (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                                    Int
-> Parser MetaGraphDef'SignatureDefEntry
-> Parser MetaGraphDef'SignatureDefEntry
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                                                                      (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                                         Word64
len)
                                                                                      Parser MetaGraphDef'SignatureDefEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                                                                "signature_def"
                                (let
                                   key :: Text
key = FoldLike
  Text
  MetaGraphDef'SignatureDefEntry
  MetaGraphDef'SignatureDefEntry
  Text
  Text
-> MetaGraphDef'SignatureDefEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") MetaGraphDef'SignatureDefEntry
entry
                                   value :: SignatureDef
value
                                     = FoldLike
  SignatureDef
  MetaGraphDef'SignatureDefEntry
  MetaGraphDef'SignatureDefEntry
  SignatureDef
  SignatureDef
-> MetaGraphDef'SignatureDefEntry -> SignatureDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") MetaGraphDef'SignatureDefEntry
entry
                                 in
                                   MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
                                     (Setter
  MetaGraphDef
  MetaGraphDef
  (Map Text SignatureDef)
  (Map Text SignatureDef)
-> (Map Text SignatureDef -> Map Text SignatureDef)
-> MetaGraphDef
-> MetaGraphDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                        (forall s a (f :: * -> *).
(HasField s "signatureDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"signatureDef")
                                        (\ !Map Text SignatureDef
t -> Text
-> SignatureDef -> Map Text SignatureDef -> Map Text SignatureDef
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key SignatureDef
value Map Text SignatureDef
t)
                                        MetaGraphDef
x)
                                     Growing Vector RealWorld AssetFileDef
mutable'assetFileDef)
                        50
                          -> do !AssetFileDef
y <- Parser AssetFileDef -> String -> Parser AssetFileDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser AssetFileDef -> Parser AssetFileDef
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser AssetFileDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "asset_file_def"
                                Growing Vector RealWorld AssetFileDef
v <- IO (Growing Vector RealWorld AssetFileDef)
-> Parser (Growing Vector RealWorld AssetFileDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) AssetFileDef
-> AssetFileDef -> IO (Growing Vector (PrimState IO) AssetFileDef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld AssetFileDef
Growing Vector (PrimState IO) AssetFileDef
mutable'assetFileDef AssetFileDef
y)
                                MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop MetaGraphDef
x Growing Vector RealWorld AssetFileDef
v
                        58
                          -> do SavedObjectGraph
y <- Parser SavedObjectGraph -> String -> Parser SavedObjectGraph
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser SavedObjectGraph -> Parser SavedObjectGraph
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser SavedObjectGraph
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "object_graph_def"
                                MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
                                  (Setter MetaGraphDef MetaGraphDef SavedObjectGraph SavedObjectGraph
-> SavedObjectGraph -> MetaGraphDef -> MetaGraphDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "objectGraphDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"objectGraphDef") SavedObjectGraph
y MetaGraphDef
x)
                                  Growing Vector RealWorld AssetFileDef
mutable'assetFileDef
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
                                  (Setter MetaGraphDef MetaGraphDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetaGraphDef -> MetaGraphDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter MetaGraphDef MetaGraphDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetaGraphDef
x)
                                  Growing Vector RealWorld AssetFileDef
mutable'assetFileDef
      in
        Parser MetaGraphDef -> String -> Parser MetaGraphDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld AssetFileDef
mutable'assetFileDef <- IO (Growing Vector RealWorld AssetFileDef)
-> Parser (Growing Vector RealWorld AssetFileDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        IO (Growing Vector RealWorld AssetFileDef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop MetaGraphDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld AssetFileDef
mutable'assetFileDef)
          "MetaGraphDef"
  buildMessage :: MetaGraphDef -> Builder
buildMessage
    = \ _x :: MetaGraphDef
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe MetaGraphDef'MetaInfoDef)
  MetaGraphDef
  MetaGraphDef
  (Maybe MetaGraphDef'MetaInfoDef)
  (Maybe MetaGraphDef'MetaInfoDef)
-> MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall s a (f :: * -> *).
(HasField s "maybe'metaInfoDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'metaInfoDef") MetaGraphDef
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: MetaGraphDef'MetaInfoDef
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder)
-> (MetaGraphDef'MetaInfoDef -> ByteString)
-> MetaGraphDef'MetaInfoDef
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          MetaGraphDef'MetaInfoDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          MetaGraphDef'MetaInfoDef
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe GraphDef)
  MetaGraphDef
  MetaGraphDef
  (Maybe GraphDef)
  (Maybe GraphDef)
-> MetaGraphDef -> Maybe GraphDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'graphDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'graphDef") MetaGraphDef
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: GraphDef
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (GraphDef -> ByteString) -> GraphDef -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             GraphDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             GraphDef
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe SaverDef)
  MetaGraphDef
  MetaGraphDef
  (Maybe SaverDef)
  (Maybe SaverDef)
-> MetaGraphDef -> Maybe SaverDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'saverDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'saverDef") MetaGraphDef
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: SaverDef
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder)
-> (SaverDef -> ByteString) -> SaverDef -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                SaverDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                SaverDef
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                         (((Text, CollectionDef) -> Builder)
-> [(Text, CollectionDef)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                            (\ _v :: (Text, CollectionDef)
_v
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
                                    ((ByteString -> Builder)
-> (MetaGraphDef'CollectionDefEntry -> ByteString)
-> MetaGraphDef'CollectionDefEntry
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                       (\ bs :: ByteString
bs
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                     (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                       MetaGraphDef'CollectionDefEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                       (Setter
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  Text
  Text
-> Text
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                          (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                                          ((Text, CollectionDef) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, CollectionDef)
_v)
                                          (Setter
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  CollectionDef
  CollectionDef
-> CollectionDef
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                             (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                                             ((Text, CollectionDef) -> CollectionDef
forall a b. (a, b) -> b
Prelude.snd (Text, CollectionDef)
_v)
                                             (MetaGraphDef'CollectionDefEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                                MetaGraphDef'CollectionDefEntry)))))
                            (Map Text CollectionDef -> [(Text, CollectionDef)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                               (FoldLike
  (Map Text CollectionDef)
  MetaGraphDef
  MetaGraphDef
  (Map Text CollectionDef)
  (Map Text CollectionDef)
-> MetaGraphDef -> Map Text CollectionDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                  (forall s a (f :: * -> *).
(HasField s "collectionDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectionDef") MetaGraphDef
_x))))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                            (((Text, SignatureDef) -> Builder)
-> [(Text, SignatureDef)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                               (\ _v :: (Text, SignatureDef)
_v
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
                                       ((ByteString -> Builder)
-> (MetaGraphDef'SignatureDefEntry -> ByteString)
-> MetaGraphDef'SignatureDefEntry
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                          (\ bs :: ByteString
bs
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                        (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                          MetaGraphDef'SignatureDefEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                          (Setter
  MetaGraphDef'SignatureDefEntry
  MetaGraphDef'SignatureDefEntry
  Text
  Text
-> Text
-> MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                             (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                                             ((Text, SignatureDef) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, SignatureDef)
_v)
                                             (Setter
  MetaGraphDef'SignatureDefEntry
  MetaGraphDef'SignatureDefEntry
  SignatureDef
  SignatureDef
-> SignatureDef
-> MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                                                ((Text, SignatureDef) -> SignatureDef
forall a b. (a, b) -> b
Prelude.snd (Text, SignatureDef)
_v)
                                                (MetaGraphDef'SignatureDefEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                                   MetaGraphDef'SignatureDefEntry)))))
                               (Map Text SignatureDef -> [(Text, SignatureDef)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                                  (FoldLike
  (Map Text SignatureDef)
  MetaGraphDef
  MetaGraphDef
  (Map Text SignatureDef)
  (Map Text SignatureDef)
-> MetaGraphDef -> Map Text SignatureDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                     (forall s a (f :: * -> *).
(HasField s "signatureDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"signatureDef") MetaGraphDef
_x))))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            ((AssetFileDef -> Builder) -> Vector AssetFileDef -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               (\ _v :: AssetFileDef
_v
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
                                       ((ByteString -> Builder)
-> (AssetFileDef -> ByteString) -> AssetFileDef -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                          (\ bs :: ByteString
bs
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                        (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                          AssetFileDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                          AssetFileDef
_v))
                               (FoldLike
  (Vector AssetFileDef)
  MetaGraphDef
  MetaGraphDef
  (Vector AssetFileDef)
  (Vector AssetFileDef)
-> MetaGraphDef -> Vector AssetFileDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                  (forall s a (f :: * -> *).
(HasField s "vec'assetFileDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'assetFileDef") MetaGraphDef
_x))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (case
                                    FoldLike
  (Maybe SavedObjectGraph)
  MetaGraphDef
  MetaGraphDef
  (Maybe SavedObjectGraph)
  (Maybe SavedObjectGraph)
-> MetaGraphDef -> Maybe SavedObjectGraph
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                      (forall s a (f :: * -> *).
(HasField s "maybe'objectGraphDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'objectGraphDef") MetaGraphDef
_x
                                of
                                  Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  (Prelude.Just _v :: SavedObjectGraph
_v)
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
                                         ((ByteString -> Builder)
-> (SavedObjectGraph -> ByteString) -> SavedObjectGraph -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                            (\ bs :: ByteString
bs
                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                          (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                            SavedObjectGraph -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                            SavedObjectGraph
_v))
                               (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                  (FoldLike FieldSet MetaGraphDef MetaGraphDef FieldSet FieldSet
-> MetaGraphDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MetaGraphDef MetaGraphDef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetaGraphDef
_x))))))))
instance Control.DeepSeq.NFData MetaGraphDef where
  rnf :: MetaGraphDef -> ()
rnf
    = \ x__ :: MetaGraphDef
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MetaGraphDef -> FieldSet
_MetaGraphDef'_unknownFields MetaGraphDef
x__)
             (Maybe MetaGraphDef'MetaInfoDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef MetaGraphDef
x__)
                (Maybe GraphDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (MetaGraphDef -> Maybe GraphDef
_MetaGraphDef'graphDef MetaGraphDef
x__)
                   (Maybe SaverDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (MetaGraphDef -> Maybe SaverDef
_MetaGraphDef'saverDef MetaGraphDef
x__)
                      (Map Text CollectionDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (MetaGraphDef -> Map Text CollectionDef
_MetaGraphDef'collectionDef MetaGraphDef
x__)
                         (Map Text SignatureDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (MetaGraphDef -> Map Text SignatureDef
_MetaGraphDef'signatureDef MetaGraphDef
x__)
                            (Vector AssetFileDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (MetaGraphDef -> Vector AssetFileDef
_MetaGraphDef'assetFileDef MetaGraphDef
x__)
                               (Maybe SavedObjectGraph -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (MetaGraphDef -> Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef MetaGraphDef
x__) ())))))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.key' @:: Lens' MetaGraphDef'CollectionDefEntry Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.value' @:: Lens' MetaGraphDef'CollectionDefEntry CollectionDef@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'value' @:: Lens' MetaGraphDef'CollectionDefEntry (Prelude.Maybe CollectionDef)@ -}
data MetaGraphDef'CollectionDefEntry
  = MetaGraphDef'CollectionDefEntry'_constructor {MetaGraphDef'CollectionDefEntry -> Text
_MetaGraphDef'CollectionDefEntry'key :: !Data.Text.Text,
                                                  MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value :: !(Prelude.Maybe CollectionDef),
                                                  MetaGraphDef'CollectionDefEntry -> FieldSet
_MetaGraphDef'CollectionDefEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
(MetaGraphDef'CollectionDefEntry
 -> MetaGraphDef'CollectionDefEntry -> Bool)
-> (MetaGraphDef'CollectionDefEntry
    -> MetaGraphDef'CollectionDefEntry -> Bool)
-> Eq MetaGraphDef'CollectionDefEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
$c/= :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
== :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
$c== :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
Prelude.Eq, Eq MetaGraphDef'CollectionDefEntry
Eq MetaGraphDef'CollectionDefEntry =>
(MetaGraphDef'CollectionDefEntry
 -> MetaGraphDef'CollectionDefEntry -> Ordering)
-> (MetaGraphDef'CollectionDefEntry
    -> MetaGraphDef'CollectionDefEntry -> Bool)
-> (MetaGraphDef'CollectionDefEntry
    -> MetaGraphDef'CollectionDefEntry -> Bool)
-> (MetaGraphDef'CollectionDefEntry
    -> MetaGraphDef'CollectionDefEntry -> Bool)
-> (MetaGraphDef'CollectionDefEntry
    -> MetaGraphDef'CollectionDefEntry -> Bool)
-> (MetaGraphDef'CollectionDefEntry
    -> MetaGraphDef'CollectionDefEntry
    -> MetaGraphDef'CollectionDefEntry)
-> (MetaGraphDef'CollectionDefEntry
    -> MetaGraphDef'CollectionDefEntry
    -> MetaGraphDef'CollectionDefEntry)
-> Ord MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Ordering
MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
$cmin :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
max :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
$cmax :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
>= :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
$c>= :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
> :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
$c> :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
<= :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
$c<= :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
< :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
$c< :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
compare :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Ordering
$ccompare :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Ordering
$cp1Ord :: Eq MetaGraphDef'CollectionDefEntry
Prelude.Ord)
instance Prelude.Show MetaGraphDef'CollectionDefEntry where
  showsPrec :: Int -> MetaGraphDef'CollectionDefEntry -> ShowS
showsPrec _ __x :: MetaGraphDef'CollectionDefEntry
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (MetaGraphDef'CollectionDefEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetaGraphDef'CollectionDefEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MetaGraphDef'CollectionDefEntry "key" Data.Text.Text where
  fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry
fieldOf _
    = ((Text -> f Text)
 -> MetaGraphDef'CollectionDefEntry
 -> f MetaGraphDef'CollectionDefEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef'CollectionDefEntry -> Text)
-> (MetaGraphDef'CollectionDefEntry
    -> Text -> MetaGraphDef'CollectionDefEntry)
-> Lens' MetaGraphDef'CollectionDefEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef'CollectionDefEntry -> Text
_MetaGraphDef'CollectionDefEntry'key
           (\ x__ :: MetaGraphDef'CollectionDefEntry
x__ y__ :: Text
y__ -> MetaGraphDef'CollectionDefEntry
x__ {_MetaGraphDef'CollectionDefEntry'key :: Text
_MetaGraphDef'CollectionDefEntry'key = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef'CollectionDefEntry "value" CollectionDef where
  fieldOf :: Proxy# "value"
-> (CollectionDef -> f CollectionDef)
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry
fieldOf _
    = ((Maybe CollectionDef -> f (Maybe CollectionDef))
 -> MetaGraphDef'CollectionDefEntry
 -> f MetaGraphDef'CollectionDefEntry)
-> ((CollectionDef -> f CollectionDef)
    -> Maybe CollectionDef -> f (Maybe CollectionDef))
-> (CollectionDef -> f CollectionDef)
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef)
-> (MetaGraphDef'CollectionDefEntry
    -> Maybe CollectionDef -> MetaGraphDef'CollectionDefEntry)
-> Lens
     MetaGraphDef'CollectionDefEntry
     MetaGraphDef'CollectionDefEntry
     (Maybe CollectionDef)
     (Maybe CollectionDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value
           (\ x__ :: MetaGraphDef'CollectionDefEntry
x__ y__ :: Maybe CollectionDef
y__ -> MetaGraphDef'CollectionDefEntry
x__ {_MetaGraphDef'CollectionDefEntry'value :: Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value = Maybe CollectionDef
y__}))
        (CollectionDef -> Lens' (Maybe CollectionDef) CollectionDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CollectionDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef'CollectionDefEntry "maybe'value" (Prelude.Maybe CollectionDef) where
  fieldOf :: Proxy# "maybe'value"
-> (Maybe CollectionDef -> f (Maybe CollectionDef))
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry
fieldOf _
    = ((Maybe CollectionDef -> f (Maybe CollectionDef))
 -> MetaGraphDef'CollectionDefEntry
 -> f MetaGraphDef'CollectionDefEntry)
-> ((Maybe CollectionDef -> f (Maybe CollectionDef))
    -> Maybe CollectionDef -> f (Maybe CollectionDef))
-> (Maybe CollectionDef -> f (Maybe CollectionDef))
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef)
-> (MetaGraphDef'CollectionDefEntry
    -> Maybe CollectionDef -> MetaGraphDef'CollectionDefEntry)
-> Lens
     MetaGraphDef'CollectionDefEntry
     MetaGraphDef'CollectionDefEntry
     (Maybe CollectionDef)
     (Maybe CollectionDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value
           (\ x__ :: MetaGraphDef'CollectionDefEntry
x__ y__ :: Maybe CollectionDef
y__ -> MetaGraphDef'CollectionDefEntry
x__ {_MetaGraphDef'CollectionDefEntry'value :: Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value = Maybe CollectionDef
y__}))
        (Maybe CollectionDef -> f (Maybe CollectionDef))
-> Maybe CollectionDef -> f (Maybe CollectionDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetaGraphDef'CollectionDefEntry where
  messageName :: Proxy MetaGraphDef'CollectionDefEntry -> Text
messageName _
    = String -> Text
Data.Text.pack "tensorflow.MetaGraphDef.CollectionDefEntry"
  packedMessageDescriptor :: Proxy MetaGraphDef'CollectionDefEntry -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DC2CollectionDefEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2/\n\
      \\ENQvalue\CAN\STX \SOH(\v2\EM.tensorflow.CollectionDefR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy MetaGraphDef'CollectionDefEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MetaGraphDef'CollectionDefEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor MetaGraphDef'CollectionDefEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor MetaGraphDef'CollectionDefEntry Text
-> FieldDescriptor MetaGraphDef'CollectionDefEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "key"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' MetaGraphDef'CollectionDefEntry Text
-> FieldAccessor MetaGraphDef'CollectionDefEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor MetaGraphDef'CollectionDefEntry
        value__field_descriptor :: FieldDescriptor MetaGraphDef'CollectionDefEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor CollectionDef
-> FieldAccessor MetaGraphDef'CollectionDefEntry CollectionDef
-> FieldDescriptor MetaGraphDef'CollectionDefEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (MessageOrGroup -> FieldTypeDescriptor CollectionDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CollectionDef)
              (Lens
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  (Maybe CollectionDef)
  (Maybe CollectionDef)
-> FieldAccessor MetaGraphDef'CollectionDefEntry CollectionDef
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value")) ::
              Data.ProtoLens.FieldDescriptor MetaGraphDef'CollectionDefEntry
      in
        [(Tag, FieldDescriptor MetaGraphDef'CollectionDefEntry)]
-> Map Tag (FieldDescriptor MetaGraphDef'CollectionDefEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MetaGraphDef'CollectionDefEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MetaGraphDef'CollectionDefEntry
value__field_descriptor)]
  unknownFields :: LensLike' f MetaGraphDef'CollectionDefEntry FieldSet
unknownFields
    = (MetaGraphDef'CollectionDefEntry -> FieldSet)
-> (MetaGraphDef'CollectionDefEntry
    -> FieldSet -> MetaGraphDef'CollectionDefEntry)
-> Lens' MetaGraphDef'CollectionDefEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MetaGraphDef'CollectionDefEntry -> FieldSet
_MetaGraphDef'CollectionDefEntry'_unknownFields
        (\ x__ :: MetaGraphDef'CollectionDefEntry
x__ y__ :: FieldSet
y__
           -> MetaGraphDef'CollectionDefEntry
x__ {_MetaGraphDef'CollectionDefEntry'_unknownFields :: FieldSet
_MetaGraphDef'CollectionDefEntry'_unknownFields = FieldSet
y__})
  defMessage :: MetaGraphDef'CollectionDefEntry
defMessage
    = $WMetaGraphDef'CollectionDefEntry'_constructor :: Text
-> Maybe CollectionDef
-> FieldSet
-> MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry'_constructor
        {_MetaGraphDef'CollectionDefEntry'key :: Text
_MetaGraphDef'CollectionDefEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MetaGraphDef'CollectionDefEntry'value :: Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value = Maybe CollectionDef
forall a. Maybe a
Prelude.Nothing,
         _MetaGraphDef'CollectionDefEntry'_unknownFields :: FieldSet
_MetaGraphDef'CollectionDefEntry'_unknownFields = []}
  parseMessage :: Parser MetaGraphDef'CollectionDefEntry
parseMessage
    = let
        loop ::
          MetaGraphDef'CollectionDefEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser MetaGraphDef'CollectionDefEntry
        loop :: MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
loop x :: MetaGraphDef'CollectionDefEntry
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MetaGraphDef'CollectionDefEntry
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "key"
                                MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
loop (Setter
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  Text
  Text
-> Text
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Text
y MetaGraphDef'CollectionDefEntry
x)
                        18
                          -> do CollectionDef
y <- Parser CollectionDef -> String -> Parser CollectionDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser CollectionDef -> Parser CollectionDef
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser CollectionDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "value"
                                MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
loop (Setter
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  CollectionDef
  CollectionDef
-> CollectionDef
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") CollectionDef
y MetaGraphDef'CollectionDefEntry
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
loop
                                  (Setter
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetaGraphDef'CollectionDefEntry
x)
      in
        Parser MetaGraphDef'CollectionDefEntry
-> String -> Parser MetaGraphDef'CollectionDefEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
loop MetaGraphDef'CollectionDefEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "CollectionDefEntry"
  buildMessage :: MetaGraphDef'CollectionDefEntry -> Builder
buildMessage
    = \ _x :: MetaGraphDef'CollectionDefEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  Text
  Text
-> MetaGraphDef'CollectionDefEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") MetaGraphDef'CollectionDefEntry
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe CollectionDef)
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  (Maybe CollectionDef)
  (Maybe CollectionDef)
-> MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value") MetaGraphDef'CollectionDefEntry
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: CollectionDef
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (CollectionDef -> ByteString) -> CollectionDef -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             CollectionDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             CollectionDef
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  FieldSet
  FieldSet
-> MetaGraphDef'CollectionDefEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  MetaGraphDef'CollectionDefEntry
  MetaGraphDef'CollectionDefEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetaGraphDef'CollectionDefEntry
_x)))
instance Control.DeepSeq.NFData MetaGraphDef'CollectionDefEntry where
  rnf :: MetaGraphDef'CollectionDefEntry -> ()
rnf
    = \ x__ :: MetaGraphDef'CollectionDefEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MetaGraphDef'CollectionDefEntry -> FieldSet
_MetaGraphDef'CollectionDefEntry'_unknownFields MetaGraphDef'CollectionDefEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MetaGraphDef'CollectionDefEntry -> Text
_MetaGraphDef'CollectionDefEntry'key MetaGraphDef'CollectionDefEntry
x__)
                (Maybe CollectionDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value MetaGraphDef'CollectionDefEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.metaGraphVersion' @:: Lens' MetaGraphDef'MetaInfoDef Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.strippedOpList' @:: Lens' MetaGraphDef'MetaInfoDef Proto.Tensorflow.Core.Framework.OpDef.OpList@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'strippedOpList' @:: Lens' MetaGraphDef'MetaInfoDef (Prelude.Maybe Proto.Tensorflow.Core.Framework.OpDef.OpList)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.anyInfo' @:: Lens' MetaGraphDef'MetaInfoDef Proto.Google.Protobuf.Any.Any@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.maybe'anyInfo' @:: Lens' MetaGraphDef'MetaInfoDef (Prelude.Maybe Proto.Google.Protobuf.Any.Any)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.tags' @:: Lens' MetaGraphDef'MetaInfoDef [Data.Text.Text]@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.vec'tags' @:: Lens' MetaGraphDef'MetaInfoDef (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.tensorflowVersion' @:: Lens' MetaGraphDef'MetaInfoDef Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.tensorflowGitVersion' @:: Lens' MetaGraphDef'MetaInfoDef Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.strippedDefaultAttrs' @:: Lens' MetaGraphDef'MetaInfoDef Prelude.Bool@
         * 'Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields.functionAliases' @:: Lens' MetaGraphDef'MetaInfoDef (Data.Map.Map Data.Text.Text Data.Text.Text)@ -}
data MetaGraphDef'MetaInfoDef
  = MetaGraphDef'MetaInfoDef'_constructor {MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'metaGraphVersion :: !Data.Text.Text,
                                           MetaGraphDef'MetaInfoDef -> Maybe OpList
_MetaGraphDef'MetaInfoDef'strippedOpList :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.OpDef.OpList),
                                           MetaGraphDef'MetaInfoDef -> Maybe Any
_MetaGraphDef'MetaInfoDef'anyInfo :: !(Prelude.Maybe Proto.Google.Protobuf.Any.Any),
                                           MetaGraphDef'MetaInfoDef -> Vector Text
_MetaGraphDef'MetaInfoDef'tags :: !(Data.Vector.Vector Data.Text.Text),
                                           MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'tensorflowVersion :: !Data.Text.Text,
                                           MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'tensorflowGitVersion :: !Data.Text.Text,
                                           MetaGraphDef'MetaInfoDef -> Bool
_MetaGraphDef'MetaInfoDef'strippedDefaultAttrs :: !Prelude.Bool,
                                           MetaGraphDef'MetaInfoDef -> Map Text Text
_MetaGraphDef'MetaInfoDef'functionAliases :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
                                           MetaGraphDef'MetaInfoDef -> FieldSet
_MetaGraphDef'MetaInfoDef'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
(MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool)
-> (MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool)
-> Eq MetaGraphDef'MetaInfoDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
$c/= :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
== :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
$c== :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
Prelude.Eq, Eq MetaGraphDef'MetaInfoDef
Eq MetaGraphDef'MetaInfoDef =>
(MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Ordering)
-> (MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool)
-> (MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool)
-> (MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool)
-> (MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool)
-> (MetaGraphDef'MetaInfoDef
    -> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef)
-> (MetaGraphDef'MetaInfoDef
    -> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef)
-> Ord MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Ordering
MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
$cmin :: MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
max :: MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
$cmax :: MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
>= :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
$c>= :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
> :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
$c> :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
<= :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
$c<= :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
< :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
$c< :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
compare :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Ordering
$ccompare :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Ordering
$cp1Ord :: Eq MetaGraphDef'MetaInfoDef
Prelude.Ord)
instance Prelude.Show MetaGraphDef'MetaInfoDef where
  showsPrec :: Int -> MetaGraphDef'MetaInfoDef -> ShowS
showsPrec _ __x :: MetaGraphDef'MetaInfoDef
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (MetaGraphDef'MetaInfoDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetaGraphDef'MetaInfoDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "metaGraphVersion" Data.Text.Text where
  fieldOf :: Proxy# "metaGraphVersion"
-> (Text -> f Text)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
    = ((Text -> f Text)
 -> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef'MetaInfoDef -> Text)
-> (MetaGraphDef'MetaInfoDef -> Text -> MetaGraphDef'MetaInfoDef)
-> Lens MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'metaGraphVersion
           (\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Text
y__
              -> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'metaGraphVersion :: Text
_MetaGraphDef'MetaInfoDef'metaGraphVersion = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "strippedOpList" Proto.Tensorflow.Core.Framework.OpDef.OpList where
  fieldOf :: Proxy# "strippedOpList"
-> (OpList -> f OpList)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
    = ((Maybe OpList -> f (Maybe OpList))
 -> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((OpList -> f OpList) -> Maybe OpList -> f (Maybe OpList))
-> (OpList -> f OpList)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef'MetaInfoDef -> Maybe OpList)
-> (MetaGraphDef'MetaInfoDef
    -> Maybe OpList -> MetaGraphDef'MetaInfoDef)
-> Lens
     MetaGraphDef'MetaInfoDef
     MetaGraphDef'MetaInfoDef
     (Maybe OpList)
     (Maybe OpList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef'MetaInfoDef -> Maybe OpList
_MetaGraphDef'MetaInfoDef'strippedOpList
           (\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Maybe OpList
y__
              -> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'strippedOpList :: Maybe OpList
_MetaGraphDef'MetaInfoDef'strippedOpList = Maybe OpList
y__}))
        (OpList -> Lens' (Maybe OpList) OpList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens OpList
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "maybe'strippedOpList" (Prelude.Maybe Proto.Tensorflow.Core.Framework.OpDef.OpList) where
  fieldOf :: Proxy# "maybe'strippedOpList"
-> (Maybe OpList -> f (Maybe OpList))
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
    = ((Maybe OpList -> f (Maybe OpList))
 -> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((Maybe OpList -> f (Maybe OpList))
    -> Maybe OpList -> f (Maybe OpList))
-> (Maybe OpList -> f (Maybe OpList))
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetaGraphDef'MetaInfoDef -> Maybe OpList)
-> (MetaGraphDef'MetaInfoDef
    -> Maybe OpList -> MetaGraphDef'MetaInfoDef)
-> Lens
     MetaGraphDef'MetaInfoDef
     MetaGraphDef'MetaInfoDef
     (Maybe OpList)
     (Maybe OpList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetaGraphDef'MetaInfoDef -> Maybe OpList