{- This file was auto-generated from tensorflow/core/framework/attr_value.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.Framework.AttrValue (
        AttrValue(), AttrValue'Value(..), _AttrValue'S, _AttrValue'I,
        _AttrValue'F, _AttrValue'B, _AttrValue'Type, _AttrValue'Shape,
        _AttrValue'Tensor, _AttrValue'List, _AttrValue'Func,
        _AttrValue'Placeholder, AttrValue'ListValue(), NameAttrList(),
        NameAttrList'AttrEntry()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Tensorflow.Core.Framework.Tensor
import qualified Proto.Tensorflow.Core.Framework.TensorShape
import qualified Proto.Tensorflow.Core.Framework.Types
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.maybe'value' @:: Lens' AttrValue (Prelude.Maybe AttrValue'Value)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.maybe's' @:: Lens' AttrValue (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.s' @:: Lens' AttrValue Data.ByteString.ByteString@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.maybe'i' @:: Lens' AttrValue (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.i' @:: Lens' AttrValue Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.maybe'f' @:: Lens' AttrValue (Prelude.Maybe Prelude.Float)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.f' @:: Lens' AttrValue Prelude.Float@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.maybe'b' @:: Lens' AttrValue (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.b' @:: Lens' AttrValue Prelude.Bool@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.maybe'type'' @:: Lens' AttrValue (Prelude.Maybe Proto.Tensorflow.Core.Framework.Types.DataType)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.type'' @:: Lens' AttrValue Proto.Tensorflow.Core.Framework.Types.DataType@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.maybe'shape' @:: Lens' AttrValue (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.shape' @:: Lens' AttrValue Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.maybe'tensor' @:: Lens' AttrValue (Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.tensor' @:: Lens' AttrValue Proto.Tensorflow.Core.Framework.Tensor.TensorProto@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.maybe'list' @:: Lens' AttrValue (Prelude.Maybe AttrValue'ListValue)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.list' @:: Lens' AttrValue AttrValue'ListValue@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.maybe'func' @:: Lens' AttrValue (Prelude.Maybe NameAttrList)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.func' @:: Lens' AttrValue NameAttrList@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.maybe'placeholder' @:: Lens' AttrValue (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.placeholder' @:: Lens' AttrValue Data.Text.Text@ -}
data AttrValue
  = AttrValue'_constructor {AttrValue -> Maybe AttrValue'Value
_AttrValue'value :: !(Prelude.Maybe AttrValue'Value),
                            AttrValue -> FieldSet
_AttrValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AttrValue -> AttrValue -> Bool
(AttrValue -> AttrValue -> Bool)
-> (AttrValue -> AttrValue -> Bool) -> Eq AttrValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AttrValue -> AttrValue -> Bool
$c/= :: AttrValue -> AttrValue -> Bool
== :: AttrValue -> AttrValue -> Bool
$c== :: AttrValue -> AttrValue -> Bool
Prelude.Eq, Eq AttrValue
Eq AttrValue =>
(AttrValue -> AttrValue -> Ordering)
-> (AttrValue -> AttrValue -> Bool)
-> (AttrValue -> AttrValue -> Bool)
-> (AttrValue -> AttrValue -> Bool)
-> (AttrValue -> AttrValue -> Bool)
-> (AttrValue -> AttrValue -> AttrValue)
-> (AttrValue -> AttrValue -> AttrValue)
-> Ord AttrValue
AttrValue -> AttrValue -> Bool
AttrValue -> AttrValue -> Ordering
AttrValue -> AttrValue -> AttrValue
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 :: AttrValue -> AttrValue -> AttrValue
$cmin :: AttrValue -> AttrValue -> AttrValue
max :: AttrValue -> AttrValue -> AttrValue
$cmax :: AttrValue -> AttrValue -> AttrValue
>= :: AttrValue -> AttrValue -> Bool
$c>= :: AttrValue -> AttrValue -> Bool
> :: AttrValue -> AttrValue -> Bool
$c> :: AttrValue -> AttrValue -> Bool
<= :: AttrValue -> AttrValue -> Bool
$c<= :: AttrValue -> AttrValue -> Bool
< :: AttrValue -> AttrValue -> Bool
$c< :: AttrValue -> AttrValue -> Bool
compare :: AttrValue -> AttrValue -> Ordering
$ccompare :: AttrValue -> AttrValue -> Ordering
$cp1Ord :: Eq AttrValue
Prelude.Ord)
instance Prelude.Show AttrValue where
  showsPrec :: Int -> AttrValue -> ShowS
showsPrec _ __x :: AttrValue
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (AttrValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AttrValue
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data AttrValue'Value
  = AttrValue'S !Data.ByteString.ByteString |
    AttrValue'I !Data.Int.Int64 |
    AttrValue'F !Prelude.Float |
    AttrValue'B !Prelude.Bool |
    AttrValue'Type !Proto.Tensorflow.Core.Framework.Types.DataType |
    AttrValue'Shape !Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto |
    AttrValue'Tensor !Proto.Tensorflow.Core.Framework.Tensor.TensorProto |
    AttrValue'List !AttrValue'ListValue |
    AttrValue'Func !NameAttrList |
    AttrValue'Placeholder !Data.Text.Text
  deriving stock (Int -> AttrValue'Value -> ShowS
[AttrValue'Value] -> ShowS
AttrValue'Value -> String
(Int -> AttrValue'Value -> ShowS)
-> (AttrValue'Value -> String)
-> ([AttrValue'Value] -> ShowS)
-> Show AttrValue'Value
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AttrValue'Value] -> ShowS
$cshowList :: [AttrValue'Value] -> ShowS
show :: AttrValue'Value -> String
$cshow :: AttrValue'Value -> String
showsPrec :: Int -> AttrValue'Value -> ShowS
$cshowsPrec :: Int -> AttrValue'Value -> ShowS
Prelude.Show, AttrValue'Value -> AttrValue'Value -> Bool
(AttrValue'Value -> AttrValue'Value -> Bool)
-> (AttrValue'Value -> AttrValue'Value -> Bool)
-> Eq AttrValue'Value
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AttrValue'Value -> AttrValue'Value -> Bool
$c/= :: AttrValue'Value -> AttrValue'Value -> Bool
== :: AttrValue'Value -> AttrValue'Value -> Bool
$c== :: AttrValue'Value -> AttrValue'Value -> Bool
Prelude.Eq, Eq AttrValue'Value
Eq AttrValue'Value =>
(AttrValue'Value -> AttrValue'Value -> Ordering)
-> (AttrValue'Value -> AttrValue'Value -> Bool)
-> (AttrValue'Value -> AttrValue'Value -> Bool)
-> (AttrValue'Value -> AttrValue'Value -> Bool)
-> (AttrValue'Value -> AttrValue'Value -> Bool)
-> (AttrValue'Value -> AttrValue'Value -> AttrValue'Value)
-> (AttrValue'Value -> AttrValue'Value -> AttrValue'Value)
-> Ord AttrValue'Value
AttrValue'Value -> AttrValue'Value -> Bool
AttrValue'Value -> AttrValue'Value -> Ordering
AttrValue'Value -> AttrValue'Value -> AttrValue'Value
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 :: AttrValue'Value -> AttrValue'Value -> AttrValue'Value
$cmin :: AttrValue'Value -> AttrValue'Value -> AttrValue'Value
max :: AttrValue'Value -> AttrValue'Value -> AttrValue'Value
$cmax :: AttrValue'Value -> AttrValue'Value -> AttrValue'Value
>= :: AttrValue'Value -> AttrValue'Value -> Bool
$c>= :: AttrValue'Value -> AttrValue'Value -> Bool
> :: AttrValue'Value -> AttrValue'Value -> Bool
$c> :: AttrValue'Value -> AttrValue'Value -> Bool
<= :: AttrValue'Value -> AttrValue'Value -> Bool
$c<= :: AttrValue'Value -> AttrValue'Value -> Bool
< :: AttrValue'Value -> AttrValue'Value -> Bool
$c< :: AttrValue'Value -> AttrValue'Value -> Bool
compare :: AttrValue'Value -> AttrValue'Value -> Ordering
$ccompare :: AttrValue'Value -> AttrValue'Value -> Ordering
$cp1Ord :: Eq AttrValue'Value
Prelude.Ord)
instance Data.ProtoLens.Field.HasField AttrValue "maybe'value" (Prelude.Maybe AttrValue'Value) where
  fieldOf :: Proxy# "maybe'value"
-> (Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> AttrValue
-> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        (Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> Maybe AttrValue'Value -> f (Maybe AttrValue'Value)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AttrValue "maybe's" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: Proxy# "maybe's"
-> (Maybe ByteString -> f (Maybe ByteString))
-> AttrValue
-> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Maybe ByteString -> f (Maybe ByteString))
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        ((Maybe AttrValue'Value -> Maybe ByteString)
-> (Maybe AttrValue'Value
    -> Maybe ByteString -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe AttrValue'Value
x__
              -> case Maybe AttrValue'Value
x__ of
                   (Prelude.Just (AttrValue'S x__val :: ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe ByteString
y__ -> (ByteString -> AttrValue'Value)
-> Maybe ByteString -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> AttrValue'Value
AttrValue'S Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField AttrValue "s" Data.ByteString.ByteString where
  fieldOf :: Proxy# "s"
-> (ByteString -> f ByteString) -> AttrValue -> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((ByteString -> f ByteString)
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (ByteString -> f ByteString)
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe AttrValue'Value
-> f (Maybe AttrValue'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AttrValue'Value -> Maybe ByteString)
-> (Maybe AttrValue'Value
    -> Maybe ByteString -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe AttrValue'Value
x__
                 -> case Maybe AttrValue'Value
x__ of
                      (Prelude.Just (AttrValue'S x__val :: ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe ByteString
y__ -> (ByteString -> AttrValue'Value)
-> Maybe ByteString -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> AttrValue'Value
AttrValue'S Maybe ByteString
y__))
           (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField AttrValue "maybe'i" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: Proxy# "maybe'i"
-> (Maybe Int64 -> f (Maybe Int64)) -> AttrValue -> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Maybe Int64 -> f (Maybe Int64))
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        ((Maybe AttrValue'Value -> Maybe Int64)
-> (Maybe AttrValue'Value -> Maybe Int64 -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe AttrValue'Value
x__
              -> case Maybe AttrValue'Value
x__ of
                   (Prelude.Just (AttrValue'I x__val :: Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                   _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Int64
y__ -> (Int64 -> AttrValue'Value) -> Maybe Int64 -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> AttrValue'Value
AttrValue'I Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField AttrValue "i" Data.Int.Int64 where
  fieldOf :: Proxy# "i" -> (Int64 -> f Int64) -> AttrValue -> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Int64 -> f Int64)
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Int64 -> f Int64)
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        (((Maybe Int64 -> f (Maybe Int64))
 -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe AttrValue'Value
-> f (Maybe AttrValue'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AttrValue'Value -> Maybe Int64)
-> (Maybe AttrValue'Value -> Maybe Int64 -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe AttrValue'Value
x__
                 -> case Maybe AttrValue'Value
x__ of
                      (Prelude.Just (AttrValue'I x__val :: Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                      _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Int64
y__ -> (Int64 -> AttrValue'Value) -> Maybe Int64 -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> AttrValue'Value
AttrValue'I Maybe Int64
y__))
           (Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField AttrValue "maybe'f" (Prelude.Maybe Prelude.Float) where
  fieldOf :: Proxy# "maybe'f"
-> (Maybe Float -> f (Maybe Float)) -> AttrValue -> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Maybe Float -> f (Maybe Float))
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Maybe Float -> f (Maybe Float))
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        ((Maybe AttrValue'Value -> Maybe Float)
-> (Maybe AttrValue'Value -> Maybe Float -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe Float)
     (Maybe Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe AttrValue'Value
x__
              -> case Maybe AttrValue'Value
x__ of
                   (Prelude.Just (AttrValue'F x__val :: Float
x__val)) -> Float -> Maybe Float
forall a. a -> Maybe a
Prelude.Just Float
x__val
                   _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe Float
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Float
y__ -> (Float -> AttrValue'Value) -> Maybe Float -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Float -> AttrValue'Value
AttrValue'F Maybe Float
y__))
instance Data.ProtoLens.Field.HasField AttrValue "f" Prelude.Float where
  fieldOf :: Proxy# "f" -> (Float -> f Float) -> AttrValue -> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Float -> f Float)
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Float -> f Float)
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        (((Maybe Float -> f (Maybe Float))
 -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> ((Float -> f Float) -> Maybe Float -> f (Maybe Float))
-> (Float -> f Float)
-> Maybe AttrValue'Value
-> f (Maybe AttrValue'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AttrValue'Value -> Maybe Float)
-> (Maybe AttrValue'Value -> Maybe Float -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe Float)
     (Maybe Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe AttrValue'Value
x__
                 -> case Maybe AttrValue'Value
x__ of
                      (Prelude.Just (AttrValue'F x__val :: Float
x__val)) -> Float -> Maybe Float
forall a. a -> Maybe a
Prelude.Just Float
x__val
                      _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe Float
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Float
y__ -> (Float -> AttrValue'Value) -> Maybe Float -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Float -> AttrValue'Value
AttrValue'F Maybe Float
y__))
           (Float -> Lens' (Maybe Float) Float
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Float
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField AttrValue "maybe'b" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'b"
-> (Maybe Bool -> f (Maybe Bool)) -> AttrValue -> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Maybe Bool -> f (Maybe Bool))
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Maybe Bool -> f (Maybe Bool))
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        ((Maybe AttrValue'Value -> Maybe Bool)
-> (Maybe AttrValue'Value -> Maybe Bool -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe AttrValue'Value
x__
              -> case Maybe AttrValue'Value
x__ of
                   (Prelude.Just (AttrValue'B x__val :: Bool
x__val)) -> Bool -> Maybe Bool
forall a. a -> Maybe a
Prelude.Just Bool
x__val
                   _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe Bool
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Bool
y__ -> (Bool -> AttrValue'Value) -> Maybe Bool -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Bool -> AttrValue'Value
AttrValue'B Maybe Bool
y__))
instance Data.ProtoLens.Field.HasField AttrValue "b" Prelude.Bool where
  fieldOf :: Proxy# "b" -> (Bool -> f Bool) -> AttrValue -> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Bool -> f Bool)
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Bool -> f Bool)
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        (((Maybe Bool -> f (Maybe Bool))
 -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> Maybe AttrValue'Value
-> f (Maybe AttrValue'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AttrValue'Value -> Maybe Bool)
-> (Maybe AttrValue'Value -> Maybe Bool -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe AttrValue'Value
x__
                 -> case Maybe AttrValue'Value
x__ of
                      (Prelude.Just (AttrValue'B x__val :: Bool
x__val)) -> Bool -> Maybe Bool
forall a. a -> Maybe a
Prelude.Just Bool
x__val
                      _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe Bool
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Bool
y__ -> (Bool -> AttrValue'Value) -> Maybe Bool -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Bool -> AttrValue'Value
AttrValue'B Maybe Bool
y__))
           (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField AttrValue "maybe'type'" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Types.DataType) where
  fieldOf :: Proxy# "maybe'type'"
-> (Maybe DataType -> f (Maybe DataType))
-> AttrValue
-> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Maybe DataType -> f (Maybe DataType))
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Maybe DataType -> f (Maybe DataType))
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        ((Maybe AttrValue'Value -> Maybe DataType)
-> (Maybe AttrValue'Value
    -> Maybe DataType -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe DataType)
     (Maybe DataType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe AttrValue'Value
x__
              -> case Maybe AttrValue'Value
x__ of
                   (Prelude.Just (AttrValue'Type x__val :: DataType
x__val)) -> DataType -> Maybe DataType
forall a. a -> Maybe a
Prelude.Just DataType
x__val
                   _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe DataType
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe DataType
y__ -> (DataType -> AttrValue'Value)
-> Maybe DataType -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap DataType -> AttrValue'Value
AttrValue'Type Maybe DataType
y__))
instance Data.ProtoLens.Field.HasField AttrValue "type'" Proto.Tensorflow.Core.Framework.Types.DataType where
  fieldOf :: Proxy# "type'"
-> (DataType -> f DataType) -> AttrValue -> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((DataType -> f DataType)
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (DataType -> f DataType)
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        (((Maybe DataType -> f (Maybe DataType))
 -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> ((DataType -> f DataType)
    -> Maybe DataType -> f (Maybe DataType))
-> (DataType -> f DataType)
-> Maybe AttrValue'Value
-> f (Maybe AttrValue'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AttrValue'Value -> Maybe DataType)
-> (Maybe AttrValue'Value
    -> Maybe DataType -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe DataType)
     (Maybe DataType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe AttrValue'Value
x__
                 -> case Maybe AttrValue'Value
x__ of
                      (Prelude.Just (AttrValue'Type x__val :: DataType
x__val)) -> DataType -> Maybe DataType
forall a. a -> Maybe a
Prelude.Just DataType
x__val
                      _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe DataType
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe DataType
y__ -> (DataType -> AttrValue'Value)
-> Maybe DataType -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap DataType -> AttrValue'Value
AttrValue'Type Maybe DataType
y__))
           (DataType -> Lens' (Maybe DataType) DataType
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens DataType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField AttrValue "maybe'shape" (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) where
  fieldOf :: Proxy# "maybe'shape"
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> AttrValue
-> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        ((Maybe AttrValue'Value -> Maybe TensorShapeProto)
-> (Maybe AttrValue'Value
    -> Maybe TensorShapeProto -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe TensorShapeProto)
     (Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe AttrValue'Value
x__
              -> case Maybe AttrValue'Value
x__ of
                   (Prelude.Just (AttrValue'Shape x__val :: TensorShapeProto
x__val)) -> TensorShapeProto -> Maybe TensorShapeProto
forall a. a -> Maybe a
Prelude.Just TensorShapeProto
x__val
                   _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe TensorShapeProto
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe TensorShapeProto
y__ -> (TensorShapeProto -> AttrValue'Value)
-> Maybe TensorShapeProto -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorShapeProto -> AttrValue'Value
AttrValue'Shape Maybe TensorShapeProto
y__))
instance Data.ProtoLens.Field.HasField AttrValue "shape" Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto where
  fieldOf :: Proxy# "shape"
-> (TensorShapeProto -> f TensorShapeProto)
-> AttrValue
-> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((TensorShapeProto -> f TensorShapeProto)
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (TensorShapeProto -> f TensorShapeProto)
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        (((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
 -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> ((TensorShapeProto -> f TensorShapeProto)
    -> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (TensorShapeProto -> f TensorShapeProto)
-> Maybe AttrValue'Value
-> f (Maybe AttrValue'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AttrValue'Value -> Maybe TensorShapeProto)
-> (Maybe AttrValue'Value
    -> Maybe TensorShapeProto -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe TensorShapeProto)
     (Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe AttrValue'Value
x__
                 -> case Maybe AttrValue'Value
x__ of
                      (Prelude.Just (AttrValue'Shape x__val :: TensorShapeProto
x__val)) -> TensorShapeProto -> Maybe TensorShapeProto
forall a. a -> Maybe a
Prelude.Just TensorShapeProto
x__val
                      _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe TensorShapeProto
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe TensorShapeProto
y__ -> (TensorShapeProto -> AttrValue'Value)
-> Maybe TensorShapeProto -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorShapeProto -> AttrValue'Value
AttrValue'Shape Maybe TensorShapeProto
y__))
           (TensorShapeProto -> Lens' (Maybe TensorShapeProto) TensorShapeProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorShapeProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField AttrValue "maybe'tensor" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto) where
  fieldOf :: Proxy# "maybe'tensor"
-> (Maybe TensorProto -> f (Maybe TensorProto))
-> AttrValue
-> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Maybe TensorProto -> f (Maybe TensorProto))
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Maybe TensorProto -> f (Maybe TensorProto))
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        ((Maybe AttrValue'Value -> Maybe TensorProto)
-> (Maybe AttrValue'Value
    -> Maybe TensorProto -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe TensorProto)
     (Maybe TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe AttrValue'Value
x__
              -> case Maybe AttrValue'Value
x__ of
                   (Prelude.Just (AttrValue'Tensor x__val :: TensorProto
x__val)) -> TensorProto -> Maybe TensorProto
forall a. a -> Maybe a
Prelude.Just TensorProto
x__val
                   _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe TensorProto
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe TensorProto
y__ -> (TensorProto -> AttrValue'Value)
-> Maybe TensorProto -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorProto -> AttrValue'Value
AttrValue'Tensor Maybe TensorProto
y__))
instance Data.ProtoLens.Field.HasField AttrValue "tensor" Proto.Tensorflow.Core.Framework.Tensor.TensorProto where
  fieldOf :: Proxy# "tensor"
-> (TensorProto -> f TensorProto) -> AttrValue -> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((TensorProto -> f TensorProto)
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (TensorProto -> f TensorProto)
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        (((Maybe TensorProto -> f (Maybe TensorProto))
 -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> ((TensorProto -> f TensorProto)
    -> Maybe TensorProto -> f (Maybe TensorProto))
-> (TensorProto -> f TensorProto)
-> Maybe AttrValue'Value
-> f (Maybe AttrValue'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AttrValue'Value -> Maybe TensorProto)
-> (Maybe AttrValue'Value
    -> Maybe TensorProto -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe TensorProto)
     (Maybe TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe AttrValue'Value
x__
                 -> case Maybe AttrValue'Value
x__ of
                      (Prelude.Just (AttrValue'Tensor x__val :: TensorProto
x__val)) -> TensorProto -> Maybe TensorProto
forall a. a -> Maybe a
Prelude.Just TensorProto
x__val
                      _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe TensorProto
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe TensorProto
y__ -> (TensorProto -> AttrValue'Value)
-> Maybe TensorProto -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorProto -> AttrValue'Value
AttrValue'Tensor Maybe TensorProto
y__))
           (TensorProto -> Lens' (Maybe TensorProto) TensorProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField AttrValue "maybe'list" (Prelude.Maybe AttrValue'ListValue) where
  fieldOf :: Proxy# "maybe'list"
-> (Maybe AttrValue'ListValue -> f (Maybe AttrValue'ListValue))
-> AttrValue
-> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Maybe AttrValue'ListValue -> f (Maybe AttrValue'ListValue))
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Maybe AttrValue'ListValue -> f (Maybe AttrValue'ListValue))
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        ((Maybe AttrValue'Value -> Maybe AttrValue'ListValue)
-> (Maybe AttrValue'Value
    -> Maybe AttrValue'ListValue -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe AttrValue'ListValue)
     (Maybe AttrValue'ListValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe AttrValue'Value
x__
              -> case Maybe AttrValue'Value
x__ of
                   (Prelude.Just (AttrValue'List x__val :: AttrValue'ListValue
x__val)) -> AttrValue'ListValue -> Maybe AttrValue'ListValue
forall a. a -> Maybe a
Prelude.Just AttrValue'ListValue
x__val
                   _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe AttrValue'ListValue
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe AttrValue'ListValue
y__ -> (AttrValue'ListValue -> AttrValue'Value)
-> Maybe AttrValue'ListValue -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap AttrValue'ListValue -> AttrValue'Value
AttrValue'List Maybe AttrValue'ListValue
y__))
instance Data.ProtoLens.Field.HasField AttrValue "list" AttrValue'ListValue where
  fieldOf :: Proxy# "list"
-> (AttrValue'ListValue -> f AttrValue'ListValue)
-> AttrValue
-> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((AttrValue'ListValue -> f AttrValue'ListValue)
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (AttrValue'ListValue -> f AttrValue'ListValue)
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        (((Maybe AttrValue'ListValue -> f (Maybe AttrValue'ListValue))
 -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> ((AttrValue'ListValue -> f AttrValue'ListValue)
    -> Maybe AttrValue'ListValue -> f (Maybe AttrValue'ListValue))
-> (AttrValue'ListValue -> f AttrValue'ListValue)
-> Maybe AttrValue'Value
-> f (Maybe AttrValue'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AttrValue'Value -> Maybe AttrValue'ListValue)
-> (Maybe AttrValue'Value
    -> Maybe AttrValue'ListValue -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe AttrValue'ListValue)
     (Maybe AttrValue'ListValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe AttrValue'Value
x__
                 -> case Maybe AttrValue'Value
x__ of
                      (Prelude.Just (AttrValue'List x__val :: AttrValue'ListValue
x__val)) -> AttrValue'ListValue -> Maybe AttrValue'ListValue
forall a. a -> Maybe a
Prelude.Just AttrValue'ListValue
x__val
                      _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe AttrValue'ListValue
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe AttrValue'ListValue
y__ -> (AttrValue'ListValue -> AttrValue'Value)
-> Maybe AttrValue'ListValue -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap AttrValue'ListValue -> AttrValue'Value
AttrValue'List Maybe AttrValue'ListValue
y__))
           (AttrValue'ListValue
-> Lens' (Maybe AttrValue'ListValue) AttrValue'ListValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AttrValue'ListValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField AttrValue "maybe'func" (Prelude.Maybe NameAttrList) where
  fieldOf :: Proxy# "maybe'func"
-> (Maybe NameAttrList -> f (Maybe NameAttrList))
-> AttrValue
-> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Maybe NameAttrList -> f (Maybe NameAttrList))
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Maybe NameAttrList -> f (Maybe NameAttrList))
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        ((Maybe AttrValue'Value -> Maybe NameAttrList)
-> (Maybe AttrValue'Value
    -> Maybe NameAttrList -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe NameAttrList)
     (Maybe NameAttrList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe AttrValue'Value
x__
              -> case Maybe AttrValue'Value
x__ of
                   (Prelude.Just (AttrValue'Func x__val :: NameAttrList
x__val)) -> NameAttrList -> Maybe NameAttrList
forall a. a -> Maybe a
Prelude.Just NameAttrList
x__val
                   _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe NameAttrList
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe NameAttrList
y__ -> (NameAttrList -> AttrValue'Value)
-> Maybe NameAttrList -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NameAttrList -> AttrValue'Value
AttrValue'Func Maybe NameAttrList
y__))
instance Data.ProtoLens.Field.HasField AttrValue "func" NameAttrList where
  fieldOf :: Proxy# "func"
-> (NameAttrList -> f NameAttrList) -> AttrValue -> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((NameAttrList -> f NameAttrList)
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (NameAttrList -> f NameAttrList)
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        (((Maybe NameAttrList -> f (Maybe NameAttrList))
 -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> ((NameAttrList -> f NameAttrList)
    -> Maybe NameAttrList -> f (Maybe NameAttrList))
-> (NameAttrList -> f NameAttrList)
-> Maybe AttrValue'Value
-> f (Maybe AttrValue'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AttrValue'Value -> Maybe NameAttrList)
-> (Maybe AttrValue'Value
    -> Maybe NameAttrList -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe NameAttrList)
     (Maybe NameAttrList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe AttrValue'Value
x__
                 -> case Maybe AttrValue'Value
x__ of
                      (Prelude.Just (AttrValue'Func x__val :: NameAttrList
x__val)) -> NameAttrList -> Maybe NameAttrList
forall a. a -> Maybe a
Prelude.Just NameAttrList
x__val
                      _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe NameAttrList
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe NameAttrList
y__ -> (NameAttrList -> AttrValue'Value)
-> Maybe NameAttrList -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NameAttrList -> AttrValue'Value
AttrValue'Func Maybe NameAttrList
y__))
           (NameAttrList -> Lens' (Maybe NameAttrList) NameAttrList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens NameAttrList
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField AttrValue "maybe'placeholder" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'placeholder"
-> (Maybe Text -> f (Maybe Text)) -> AttrValue -> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Maybe Text -> f (Maybe Text))
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Maybe Text -> f (Maybe Text))
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        ((Maybe AttrValue'Value -> Maybe Text)
-> (Maybe AttrValue'Value -> Maybe Text -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe AttrValue'Value
x__
              -> case Maybe AttrValue'Value
x__ of
                   (Prelude.Just (AttrValue'Placeholder x__val :: Text
x__val))
                     -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Text
y__ -> (Text -> AttrValue'Value) -> Maybe Text -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> AttrValue'Value
AttrValue'Placeholder Maybe Text
y__))
instance Data.ProtoLens.Field.HasField AttrValue "placeholder" Data.Text.Text where
  fieldOf :: Proxy# "placeholder"
-> (Text -> f Text) -> AttrValue -> f AttrValue
fieldOf _
    = ((Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
 -> AttrValue -> f AttrValue)
-> ((Text -> f Text)
    -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> (Text -> f Text)
-> AttrValue
-> f AttrValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue -> Maybe AttrValue'Value)
-> (AttrValue -> Maybe AttrValue'Value -> AttrValue)
-> Lens
     AttrValue AttrValue (Maybe AttrValue'Value) (Maybe AttrValue'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue -> Maybe AttrValue'Value
_AttrValue'value (\ x__ :: AttrValue
x__ y__ :: Maybe AttrValue'Value
y__ -> AttrValue
x__ {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
y__}))
        (((Maybe Text -> f (Maybe Text))
 -> Maybe AttrValue'Value -> f (Maybe AttrValue'Value))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe AttrValue'Value
-> f (Maybe AttrValue'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AttrValue'Value -> Maybe Text)
-> (Maybe AttrValue'Value -> Maybe Text -> Maybe AttrValue'Value)
-> Lens
     (Maybe AttrValue'Value)
     (Maybe AttrValue'Value)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe AttrValue'Value
x__
                 -> case Maybe AttrValue'Value
x__ of
                      (Prelude.Just (AttrValue'Placeholder x__val :: Text
x__val))
                        -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      _otherwise :: Maybe AttrValue'Value
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Text
y__ -> (Text -> AttrValue'Value) -> Maybe Text -> Maybe AttrValue'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> AttrValue'Value
AttrValue'Placeholder Maybe Text
y__))
           (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message AttrValue where
  messageName :: Proxy AttrValue -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.AttrValue"
  packedMessageDescriptor :: Proxy AttrValue -> ByteString
packedMessageDescriptor _
    = "\n\
      \\tAttrValue\DC2\SO\n\
      \\SOHs\CAN\STX \SOH(\fH\NULR\SOHs\DC2\SO\n\
      \\SOHi\CAN\ETX \SOH(\ETXH\NULR\SOHi\DC2\SO\n\
      \\SOHf\CAN\EOT \SOH(\STXH\NULR\SOHf\DC2\SO\n\
      \\SOHb\CAN\ENQ \SOH(\bH\NULR\SOHb\DC2*\n\
      \\EOTtype\CAN\ACK \SOH(\SO2\DC4.tensorflow.DataTypeH\NULR\EOTtype\DC24\n\
      \\ENQshape\CAN\a \SOH(\v2\FS.tensorflow.TensorShapeProtoH\NULR\ENQshape\DC21\n\
      \\ACKtensor\CAN\b \SOH(\v2\ETB.tensorflow.TensorProtoH\NULR\ACKtensor\DC25\n\
      \\EOTlist\CAN\SOH \SOH(\v2\US.tensorflow.AttrValue.ListValueH\NULR\EOTlist\DC2.\n\
      \\EOTfunc\CAN\n\
      \ \SOH(\v2\CAN.tensorflow.NameAttrListH\NULR\EOTfunc\DC2\"\n\
      \\vplaceholder\CAN\t \SOH(\tH\NULR\vplaceholder\SUB\144\STX\n\
      \\tListValue\DC2\f\n\
      \\SOHs\CAN\STX \ETX(\fR\SOHs\DC2\DLE\n\
      \\SOHi\CAN\ETX \ETX(\ETXR\SOHiB\STX\DLE\SOH\DC2\DLE\n\
      \\SOHf\CAN\EOT \ETX(\STXR\SOHfB\STX\DLE\SOH\DC2\DLE\n\
      \\SOHb\CAN\ENQ \ETX(\bR\SOHbB\STX\DLE\SOH\DC2,\n\
      \\EOTtype\CAN\ACK \ETX(\SO2\DC4.tensorflow.DataTypeR\EOTtypeB\STX\DLE\SOH\DC22\n\
      \\ENQshape\CAN\a \ETX(\v2\FS.tensorflow.TensorShapeProtoR\ENQshape\DC2/\n\
      \\ACKtensor\CAN\b \ETX(\v2\ETB.tensorflow.TensorProtoR\ACKtensor\DC2,\n\
      \\EOTfunc\CAN\t \ETX(\v2\CAN.tensorflow.NameAttrListR\EOTfuncB\a\n\
      \\ENQvalue"
  packedFileDescriptor :: Proxy AttrValue -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AttrValue)
fieldsByTag
    = let
        s__field_descriptor :: FieldDescriptor AttrValue
s__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AttrValue ByteString
-> FieldDescriptor AttrValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "s"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens' AttrValue (Maybe ByteString)
-> FieldAccessor AttrValue ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe's" a, Functor f) =>
(a -> f a) -> s -> 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's")) ::
              Data.ProtoLens.FieldDescriptor AttrValue
        i__field_descriptor :: FieldDescriptor AttrValue
i__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor AttrValue Int64
-> FieldDescriptor AttrValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "i"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (Lens' AttrValue (Maybe Int64) -> FieldAccessor AttrValue Int64
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'i" a, Functor f) =>
(a -> f a) -> s -> 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'i")) ::
              Data.ProtoLens.FieldDescriptor AttrValue
        f__field_descriptor :: FieldDescriptor AttrValue
f__field_descriptor
          = String
-> FieldTypeDescriptor Float
-> FieldAccessor AttrValue Float
-> FieldDescriptor AttrValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "f"
              (ScalarField Float -> FieldTypeDescriptor Float
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Float
Data.ProtoLens.FloatField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Float)
              (Lens' AttrValue (Maybe Float) -> FieldAccessor AttrValue Float
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'f" a, Functor f) =>
(a -> f a) -> s -> 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'f")) ::
              Data.ProtoLens.FieldDescriptor AttrValue
        b__field_descriptor :: FieldDescriptor AttrValue
b__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor AttrValue Bool
-> FieldDescriptor AttrValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "b"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens' AttrValue (Maybe Bool) -> FieldAccessor AttrValue Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'b" a, Functor f) =>
(a -> f a) -> s -> 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'b")) ::
              Data.ProtoLens.FieldDescriptor AttrValue
        type'__field_descriptor :: FieldDescriptor AttrValue
type'__field_descriptor
          = String
-> FieldTypeDescriptor DataType
-> FieldAccessor AttrValue DataType
-> FieldDescriptor AttrValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "type"
              (ScalarField DataType -> FieldTypeDescriptor DataType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField DataType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Types.DataType)
              (Lens' AttrValue (Maybe DataType)
-> FieldAccessor AttrValue DataType
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'type'" a, Functor f) =>
(a -> f a) -> s -> 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'type'")) ::
              Data.ProtoLens.FieldDescriptor AttrValue
        shape__field_descriptor :: FieldDescriptor AttrValue
shape__field_descriptor
          = String
-> FieldTypeDescriptor TensorShapeProto
-> FieldAccessor AttrValue TensorShapeProto
-> FieldDescriptor AttrValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "shape"
              (MessageOrGroup -> FieldTypeDescriptor TensorShapeProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto)
              (Lens' AttrValue (Maybe TensorShapeProto)
-> FieldAccessor AttrValue TensorShapeProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'shape" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'shape")) ::
              Data.ProtoLens.FieldDescriptor AttrValue
        tensor__field_descriptor :: FieldDescriptor AttrValue
tensor__field_descriptor
          = String
-> FieldTypeDescriptor TensorProto
-> FieldAccessor AttrValue TensorProto
-> FieldDescriptor AttrValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "tensor"
              (MessageOrGroup -> FieldTypeDescriptor TensorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Tensor.TensorProto)
              (Lens' AttrValue (Maybe TensorProto)
-> FieldAccessor AttrValue TensorProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'tensor" a, Functor f) =>
(a -> f a) -> s -> 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'tensor")) ::
              Data.ProtoLens.FieldDescriptor AttrValue
        list__field_descriptor :: FieldDescriptor AttrValue
list__field_descriptor
          = String
-> FieldTypeDescriptor AttrValue'ListValue
-> FieldAccessor AttrValue AttrValue'ListValue
-> FieldDescriptor AttrValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "list"
              (MessageOrGroup -> FieldTypeDescriptor AttrValue'ListValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AttrValue'ListValue)
              (Lens' AttrValue (Maybe AttrValue'ListValue)
-> FieldAccessor AttrValue AttrValue'ListValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'list" a, Functor f) =>
(a -> f a) -> s -> 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'list")) ::
              Data.ProtoLens.FieldDescriptor AttrValue
        func__field_descriptor :: FieldDescriptor AttrValue
func__field_descriptor
          = String
-> FieldTypeDescriptor NameAttrList
-> FieldAccessor AttrValue NameAttrList
-> FieldDescriptor AttrValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "func"
              (MessageOrGroup -> FieldTypeDescriptor NameAttrList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NameAttrList)
              (Lens' AttrValue (Maybe NameAttrList)
-> FieldAccessor AttrValue NameAttrList
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'func" a, Functor f) =>
(a -> f a) -> s -> 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'func")) ::
              Data.ProtoLens.FieldDescriptor AttrValue
        placeholder__field_descriptor :: FieldDescriptor AttrValue
placeholder__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AttrValue Text
-> FieldDescriptor AttrValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "placeholder"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens' AttrValue (Maybe Text) -> FieldAccessor AttrValue Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'placeholder" a, Functor f) =>
(a -> f a) -> s -> 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'placeholder")) ::
              Data.ProtoLens.FieldDescriptor AttrValue
      in
        [(Tag, FieldDescriptor AttrValue)]
-> Map Tag (FieldDescriptor AttrValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor AttrValue
s__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor AttrValue
i__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor AttrValue
f__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor AttrValue
b__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor AttrValue
type'__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor AttrValue
shape__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor AttrValue
tensor__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor AttrValue
list__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor AttrValue
func__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor AttrValue
placeholder__field_descriptor)]
  unknownFields :: LensLike' f AttrValue FieldSet
unknownFields
    = (AttrValue -> FieldSet)
-> (AttrValue -> FieldSet -> AttrValue) -> Lens' AttrValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AttrValue -> FieldSet
_AttrValue'_unknownFields
        (\ x__ :: AttrValue
x__ y__ :: FieldSet
y__ -> AttrValue
x__ {_AttrValue'_unknownFields :: FieldSet
_AttrValue'_unknownFields = FieldSet
y__})
  defMessage :: AttrValue
defMessage
    = $WAttrValue'_constructor :: Maybe AttrValue'Value -> FieldSet -> AttrValue
AttrValue'_constructor
        {_AttrValue'value :: Maybe AttrValue'Value
_AttrValue'value = Maybe AttrValue'Value
forall a. Maybe a
Prelude.Nothing,
         _AttrValue'_unknownFields :: FieldSet
_AttrValue'_unknownFields = []}
  parseMessage :: Parser AttrValue
parseMessage
    = let
        loop :: AttrValue -> Data.ProtoLens.Encoding.Bytes.Parser AttrValue
        loop :: AttrValue -> Parser AttrValue
loop x :: AttrValue
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]))))
                      AttrValue -> Parser AttrValue
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter AttrValue AttrValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AttrValue -> AttrValue
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 AttrValue AttrValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AttrValue
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       "s"
                                AttrValue -> Parser AttrValue
loop (Setter AttrValue AttrValue ByteString ByteString
-> ByteString -> AttrValue -> AttrValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "s" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"s") ByteString
y AttrValue
x)
                        24
                          -> 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)
                                       "i"
                                AttrValue -> Parser AttrValue
loop (Setter AttrValue AttrValue Int64 Int64
-> Int64 -> AttrValue -> AttrValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "i" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"i") Int64
y AttrValue
x)
                        37
                          -> 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)
                                       "f"
                                AttrValue -> Parser AttrValue
loop (Setter AttrValue AttrValue Float Float
-> Float -> AttrValue -> AttrValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "f" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"f") Float
y AttrValue
x)
                        40
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "b"
                                AttrValue -> Parser AttrValue
loop (Setter AttrValue AttrValue Bool Bool
-> Bool -> AttrValue -> AttrValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "b" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"b") Bool
y AttrValue
x)
                        48
                          -> do DataType
y <- Parser DataType -> String -> Parser DataType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> DataType) -> Parser Int -> Parser DataType
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> DataType
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       "type"
                                AttrValue -> Parser AttrValue
loop (Setter AttrValue AttrValue DataType DataType
-> DataType -> AttrValue -> AttrValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "type'" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'") DataType
y AttrValue
x)
                        58
                          -> do TensorShapeProto
y <- Parser TensorShapeProto -> String -> Parser TensorShapeProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TensorShapeProto -> Parser TensorShapeProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TensorShapeProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "shape"
                                AttrValue -> Parser AttrValue
loop (Setter AttrValue AttrValue TensorShapeProto TensorShapeProto
-> TensorShapeProto -> AttrValue -> AttrValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "shape" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shape") TensorShapeProto
y AttrValue
x)
                        66
                          -> do TensorProto
y <- Parser TensorProto -> String -> Parser TensorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TensorProto -> Parser TensorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TensorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "tensor"
                                AttrValue -> Parser AttrValue
loop (Setter AttrValue AttrValue TensorProto TensorProto
-> TensorProto -> AttrValue -> AttrValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "tensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensor") TensorProto
y AttrValue
x)
                        10
                          -> do AttrValue'ListValue
y <- Parser AttrValue'ListValue -> String -> Parser AttrValue'ListValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser AttrValue'ListValue -> Parser AttrValue'ListValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser AttrValue'ListValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "list"
                                AttrValue -> Parser AttrValue
loop (Setter AttrValue AttrValue AttrValue'ListValue AttrValue'ListValue
-> AttrValue'ListValue -> AttrValue -> AttrValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "list" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"list") AttrValue'ListValue
y AttrValue
x)
                        82
                          -> do NameAttrList
y <- Parser NameAttrList -> String -> Parser NameAttrList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser NameAttrList -> Parser NameAttrList
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 NameAttrList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "func"
                                AttrValue -> Parser AttrValue
loop (Setter AttrValue AttrValue NameAttrList NameAttrList
-> NameAttrList -> AttrValue -> AttrValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "func" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"func") NameAttrList
y AttrValue
x)
                        74
                          -> 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))
                                       "placeholder"
                                AttrValue -> Parser AttrValue
loop
                                  (Setter AttrValue AttrValue Text Text
-> Text -> AttrValue -> AttrValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "placeholder" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"placeholder") Text
y AttrValue
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                AttrValue -> Parser AttrValue
loop
                                  (Setter AttrValue AttrValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AttrValue -> AttrValue
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 AttrValue AttrValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AttrValue
x)
      in
        Parser AttrValue -> String -> Parser AttrValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AttrValue -> Parser AttrValue
loop AttrValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "AttrValue"
  buildMessage :: AttrValue -> Builder
buildMessage
    = \ _x :: AttrValue
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe AttrValue'Value)
  AttrValue
  AttrValue
  (Maybe AttrValue'Value)
  (Maybe AttrValue'Value)
-> AttrValue -> Maybe AttrValue'Value
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") AttrValue
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (AttrValue'S v :: ByteString
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                       ((\ bs :: ByteString
bs
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ByteString
v)
                (Prelude.Just (AttrValue'I v :: Int64
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
                       ((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 Int64
v)
                (Prelude.Just (AttrValue'F v :: Float
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 37)
                       ((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
                          Float
v)
                (Prelude.Just (AttrValue'B v :: Bool
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 40)
                       ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                          (\ b :: Bool
b -> if Bool
b then 1 else 0)
                          Bool
v)
                (Prelude.Just (AttrValue'Type v :: DataType
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 48)
                       ((Int -> Builder) -> (DataType -> Int) -> DataType -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                          DataType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
                          DataType
v)
                (Prelude.Just (AttrValue'Shape v :: TensorShapeProto
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
                       ((ByteString -> Builder)
-> (TensorShapeProto -> ByteString) -> TensorShapeProto -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          TensorShapeProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          TensorShapeProto
v)
                (Prelude.Just (AttrValue'Tensor v :: TensorProto
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
                       ((ByteString -> Builder)
-> (TensorProto -> ByteString) -> TensorProto -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          TensorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          TensorProto
v)
                (Prelude.Just (AttrValue'List v :: AttrValue'ListValue
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder)
-> (AttrValue'ListValue -> ByteString)
-> AttrValue'ListValue
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          AttrValue'ListValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          AttrValue'ListValue
v)
                (Prelude.Just (AttrValue'Func v :: NameAttrList
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 82)
                       ((ByteString -> Builder)
-> (NameAttrList -> ByteString) -> NameAttrList -> 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))
                          NameAttrList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          NameAttrList
v)
                (Prelude.Just (AttrValue'Placeholder v :: Text
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 74)
                       ((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 AttrValue AttrValue FieldSet FieldSet
-> AttrValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AttrValue AttrValue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields AttrValue
_x))
instance Control.DeepSeq.NFData AttrValue where
  rnf :: AttrValue -> ()
rnf
    = \ x__ :: AttrValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AttrValue -> FieldSet
_AttrValue'_unknownFields AttrValue
x__)
             (Maybe AttrValue'Value -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AttrValue -> Maybe AttrValue'Value
_AttrValue'value AttrValue
x__) ())
instance Control.DeepSeq.NFData AttrValue'Value where
  rnf :: AttrValue'Value -> ()
rnf (AttrValue'S x__ :: ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (AttrValue'I x__ :: Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
  rnf (AttrValue'F x__ :: Float
x__) = Float -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Float
x__
  rnf (AttrValue'B x__ :: Bool
x__) = Bool -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Bool
x__
  rnf (AttrValue'Type x__ :: DataType
x__) = DataType -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf DataType
x__
  rnf (AttrValue'Shape x__ :: TensorShapeProto
x__) = TensorShapeProto -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TensorShapeProto
x__
  rnf (AttrValue'Tensor x__ :: TensorProto
x__) = TensorProto -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TensorProto
x__
  rnf (AttrValue'List x__ :: AttrValue'ListValue
x__) = AttrValue'ListValue -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf AttrValue'ListValue
x__
  rnf (AttrValue'Func x__ :: NameAttrList
x__) = NameAttrList -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf NameAttrList
x__
  rnf (AttrValue'Placeholder x__ :: Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
_AttrValue'S ::
  Data.ProtoLens.Prism.Prism' AttrValue'Value Data.ByteString.ByteString
_AttrValue'S :: p ByteString (f ByteString)
-> p AttrValue'Value (f AttrValue'Value)
_AttrValue'S
  = (ByteString -> AttrValue'Value)
-> (AttrValue'Value -> Maybe ByteString)
-> Prism AttrValue'Value AttrValue'Value ByteString ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> AttrValue'Value
AttrValue'S
      (\ p__ :: AttrValue'Value
p__
         -> case AttrValue'Value
p__ of
              (AttrValue'S p__val :: ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              _otherwise :: AttrValue'Value
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_AttrValue'I ::
  Data.ProtoLens.Prism.Prism' AttrValue'Value Data.Int.Int64
_AttrValue'I :: p Int64 (f Int64) -> p AttrValue'Value (f AttrValue'Value)
_AttrValue'I
  = (Int64 -> AttrValue'Value)
-> (AttrValue'Value -> Maybe Int64)
-> Prism AttrValue'Value AttrValue'Value Int64 Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> AttrValue'Value
AttrValue'I
      (\ p__ :: AttrValue'Value
p__
         -> case AttrValue'Value
p__ of
              (AttrValue'I p__val :: Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              _otherwise :: AttrValue'Value
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
_AttrValue'F ::
  Data.ProtoLens.Prism.Prism' AttrValue'Value Prelude.Float
_AttrValue'F :: p Float (f Float) -> p AttrValue'Value (f AttrValue'Value)
_AttrValue'F
  = (Float -> AttrValue'Value)
-> (AttrValue'Value -> Maybe Float)
-> Prism AttrValue'Value AttrValue'Value Float Float
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Float -> AttrValue'Value
AttrValue'F
      (\ p__ :: AttrValue'Value
p__
         -> case AttrValue'Value
p__ of
              (AttrValue'F p__val :: Float
p__val) -> Float -> Maybe Float
forall a. a -> Maybe a
Prelude.Just Float
p__val
              _otherwise :: AttrValue'Value
_otherwise -> Maybe Float
forall a. Maybe a
Prelude.Nothing)
_AttrValue'B ::
  Data.ProtoLens.Prism.Prism' AttrValue'Value Prelude.Bool
_AttrValue'B :: p Bool (f Bool) -> p AttrValue'Value (f AttrValue'Value)
_AttrValue'B
  = (Bool -> AttrValue'Value)
-> (AttrValue'Value -> Maybe Bool)
-> Prism AttrValue'Value AttrValue'Value Bool Bool
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Bool -> AttrValue'Value
AttrValue'B
      (\ p__ :: AttrValue'Value
p__
         -> case AttrValue'Value
p__ of
              (AttrValue'B p__val :: Bool
p__val) -> Bool -> Maybe Bool
forall a. a -> Maybe a
Prelude.Just Bool
p__val
              _otherwise :: AttrValue'Value
_otherwise -> Maybe Bool
forall a. Maybe a
Prelude.Nothing)
_AttrValue'Type ::
  Data.ProtoLens.Prism.Prism' AttrValue'Value Proto.Tensorflow.Core.Framework.Types.DataType
_AttrValue'Type :: p DataType (f DataType) -> p AttrValue'Value (f AttrValue'Value)
_AttrValue'Type
  = (DataType -> AttrValue'Value)
-> (AttrValue'Value -> Maybe DataType)
-> Prism AttrValue'Value AttrValue'Value DataType DataType
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      DataType -> AttrValue'Value
AttrValue'Type
      (\ p__ :: AttrValue'Value
p__
         -> case AttrValue'Value
p__ of
              (AttrValue'Type p__val :: DataType
p__val) -> DataType -> Maybe DataType
forall a. a -> Maybe a
Prelude.Just DataType
p__val
              _otherwise :: AttrValue'Value
_otherwise -> Maybe DataType
forall a. Maybe a
Prelude.Nothing)
_AttrValue'Shape ::
  Data.ProtoLens.Prism.Prism' AttrValue'Value Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto
_AttrValue'Shape :: p TensorShapeProto (f TensorShapeProto)
-> p AttrValue'Value (f AttrValue'Value)
_AttrValue'Shape
  = (TensorShapeProto -> AttrValue'Value)
-> (AttrValue'Value -> Maybe TensorShapeProto)
-> Prism
     AttrValue'Value AttrValue'Value TensorShapeProto TensorShapeProto
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      TensorShapeProto -> AttrValue'Value
AttrValue'Shape
      (\ p__ :: AttrValue'Value
p__
         -> case AttrValue'Value
p__ of
              (AttrValue'Shape p__val :: TensorShapeProto
p__val) -> TensorShapeProto -> Maybe TensorShapeProto
forall a. a -> Maybe a
Prelude.Just TensorShapeProto
p__val
              _otherwise :: AttrValue'Value
_otherwise -> Maybe TensorShapeProto
forall a. Maybe a
Prelude.Nothing)
_AttrValue'Tensor ::
  Data.ProtoLens.Prism.Prism' AttrValue'Value Proto.Tensorflow.Core.Framework.Tensor.TensorProto
_AttrValue'Tensor :: p TensorProto (f TensorProto)
-> p AttrValue'Value (f AttrValue'Value)
_AttrValue'Tensor
  = (TensorProto -> AttrValue'Value)
-> (AttrValue'Value -> Maybe TensorProto)
-> Prism AttrValue'Value AttrValue'Value TensorProto TensorProto
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      TensorProto -> AttrValue'Value
AttrValue'Tensor
      (\ p__ :: AttrValue'Value
p__
         -> case AttrValue'Value
p__ of
              (AttrValue'Tensor p__val :: TensorProto
p__val) -> TensorProto -> Maybe TensorProto
forall a. a -> Maybe a
Prelude.Just TensorProto
p__val
              _otherwise :: AttrValue'Value
_otherwise -> Maybe TensorProto
forall a. Maybe a
Prelude.Nothing)
_AttrValue'List ::
  Data.ProtoLens.Prism.Prism' AttrValue'Value AttrValue'ListValue
_AttrValue'List :: p AttrValue'ListValue (f AttrValue'ListValue)
-> p AttrValue'Value (f AttrValue'Value)
_AttrValue'List
  = (AttrValue'ListValue -> AttrValue'Value)
-> (AttrValue'Value -> Maybe AttrValue'ListValue)
-> Prism
     AttrValue'Value
     AttrValue'Value
     AttrValue'ListValue
     AttrValue'ListValue
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      AttrValue'ListValue -> AttrValue'Value
AttrValue'List
      (\ p__ :: AttrValue'Value
p__
         -> case AttrValue'Value
p__ of
              (AttrValue'List p__val :: AttrValue'ListValue
p__val) -> AttrValue'ListValue -> Maybe AttrValue'ListValue
forall a. a -> Maybe a
Prelude.Just AttrValue'ListValue
p__val
              _otherwise :: AttrValue'Value
_otherwise -> Maybe AttrValue'ListValue
forall a. Maybe a
Prelude.Nothing)
_AttrValue'Func ::
  Data.ProtoLens.Prism.Prism' AttrValue'Value NameAttrList
_AttrValue'Func :: p NameAttrList (f NameAttrList)
-> p AttrValue'Value (f AttrValue'Value)
_AttrValue'Func
  = (NameAttrList -> AttrValue'Value)
-> (AttrValue'Value -> Maybe NameAttrList)
-> Prism AttrValue'Value AttrValue'Value NameAttrList NameAttrList
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      NameAttrList -> AttrValue'Value
AttrValue'Func
      (\ p__ :: AttrValue'Value
p__
         -> case AttrValue'Value
p__ of
              (AttrValue'Func p__val :: NameAttrList
p__val) -> NameAttrList -> Maybe NameAttrList
forall a. a -> Maybe a
Prelude.Just NameAttrList
p__val
              _otherwise :: AttrValue'Value
_otherwise -> Maybe NameAttrList
forall a. Maybe a
Prelude.Nothing)
_AttrValue'Placeholder ::
  Data.ProtoLens.Prism.Prism' AttrValue'Value Data.Text.Text
_AttrValue'Placeholder :: p Text (f Text) -> p AttrValue'Value (f AttrValue'Value)
_AttrValue'Placeholder
  = (Text -> AttrValue'Value)
-> (AttrValue'Value -> Maybe Text)
-> Prism AttrValue'Value AttrValue'Value Text Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> AttrValue'Value
AttrValue'Placeholder
      (\ p__ :: AttrValue'Value
p__
         -> case AttrValue'Value
p__ of
              (AttrValue'Placeholder p__val :: Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              _otherwise :: AttrValue'Value
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.s' @:: Lens' AttrValue'ListValue [Data.ByteString.ByteString]@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.vec's' @:: Lens' AttrValue'ListValue (Data.Vector.Vector Data.ByteString.ByteString)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.i' @:: Lens' AttrValue'ListValue [Data.Int.Int64]@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.vec'i' @:: Lens' AttrValue'ListValue (Data.Vector.Unboxed.Vector Data.Int.Int64)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.f' @:: Lens' AttrValue'ListValue [Prelude.Float]@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.vec'f' @:: Lens' AttrValue'ListValue (Data.Vector.Unboxed.Vector Prelude.Float)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.b' @:: Lens' AttrValue'ListValue [Prelude.Bool]@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.vec'b' @:: Lens' AttrValue'ListValue (Data.Vector.Unboxed.Vector Prelude.Bool)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.type'' @:: Lens' AttrValue'ListValue [Proto.Tensorflow.Core.Framework.Types.DataType]@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.vec'type'' @:: Lens' AttrValue'ListValue (Data.Vector.Vector Proto.Tensorflow.Core.Framework.Types.DataType)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.shape' @:: Lens' AttrValue'ListValue [Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto]@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.vec'shape' @:: Lens' AttrValue'ListValue (Data.Vector.Vector Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.tensor' @:: Lens' AttrValue'ListValue [Proto.Tensorflow.Core.Framework.Tensor.TensorProto]@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.vec'tensor' @:: Lens' AttrValue'ListValue (Data.Vector.Vector Proto.Tensorflow.Core.Framework.Tensor.TensorProto)@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.func' @:: Lens' AttrValue'ListValue [NameAttrList]@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.vec'func' @:: Lens' AttrValue'ListValue (Data.Vector.Vector NameAttrList)@ -}
data AttrValue'ListValue
  = AttrValue'ListValue'_constructor {AttrValue'ListValue -> Vector ByteString
_AttrValue'ListValue's :: !(Data.Vector.Vector Data.ByteString.ByteString),
                                      AttrValue'ListValue -> Vector Int64
_AttrValue'ListValue'i :: !(Data.Vector.Unboxed.Vector Data.Int.Int64),
                                      AttrValue'ListValue -> Vector Float
_AttrValue'ListValue'f :: !(Data.Vector.Unboxed.Vector Prelude.Float),
                                      AttrValue'ListValue -> Vector Bool
_AttrValue'ListValue'b :: !(Data.Vector.Unboxed.Vector Prelude.Bool),
                                      AttrValue'ListValue -> Vector DataType
_AttrValue'ListValue'type' :: !(Data.Vector.Vector Proto.Tensorflow.Core.Framework.Types.DataType),
                                      AttrValue'ListValue -> Vector TensorShapeProto
_AttrValue'ListValue'shape :: !(Data.Vector.Vector Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto),
                                      AttrValue'ListValue -> Vector TensorProto
_AttrValue'ListValue'tensor :: !(Data.Vector.Vector Proto.Tensorflow.Core.Framework.Tensor.TensorProto),
                                      AttrValue'ListValue -> Vector NameAttrList
_AttrValue'ListValue'func :: !(Data.Vector.Vector NameAttrList),
                                      AttrValue'ListValue -> FieldSet
_AttrValue'ListValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AttrValue'ListValue -> AttrValue'ListValue -> Bool
(AttrValue'ListValue -> AttrValue'ListValue -> Bool)
-> (AttrValue'ListValue -> AttrValue'ListValue -> Bool)
-> Eq AttrValue'ListValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AttrValue'ListValue -> AttrValue'ListValue -> Bool
$c/= :: AttrValue'ListValue -> AttrValue'ListValue -> Bool
== :: AttrValue'ListValue -> AttrValue'ListValue -> Bool
$c== :: AttrValue'ListValue -> AttrValue'ListValue -> Bool
Prelude.Eq, Eq AttrValue'ListValue
Eq AttrValue'ListValue =>
(AttrValue'ListValue -> AttrValue'ListValue -> Ordering)
-> (AttrValue'ListValue -> AttrValue'ListValue -> Bool)
-> (AttrValue'ListValue -> AttrValue'ListValue -> Bool)
-> (AttrValue'ListValue -> AttrValue'ListValue -> Bool)
-> (AttrValue'ListValue -> AttrValue'ListValue -> Bool)
-> (AttrValue'ListValue
    -> AttrValue'ListValue -> AttrValue'ListValue)
-> (AttrValue'ListValue
    -> AttrValue'ListValue -> AttrValue'ListValue)
-> Ord AttrValue'ListValue
AttrValue'ListValue -> AttrValue'ListValue -> Bool
AttrValue'ListValue -> AttrValue'ListValue -> Ordering
AttrValue'ListValue -> AttrValue'ListValue -> AttrValue'ListValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: AttrValue'ListValue -> AttrValue'ListValue -> AttrValue'ListValue
$cmin :: AttrValue'ListValue -> AttrValue'ListValue -> AttrValue'ListValue
max :: AttrValue'ListValue -> AttrValue'ListValue -> AttrValue'ListValue
$cmax :: AttrValue'ListValue -> AttrValue'ListValue -> AttrValue'ListValue
>= :: AttrValue'ListValue -> AttrValue'ListValue -> Bool
$c>= :: AttrValue'ListValue -> AttrValue'ListValue -> Bool
> :: AttrValue'ListValue -> AttrValue'ListValue -> Bool
$c> :: AttrValue'ListValue -> AttrValue'ListValue -> Bool
<= :: AttrValue'ListValue -> AttrValue'ListValue -> Bool
$c<= :: AttrValue'ListValue -> AttrValue'ListValue -> Bool
< :: AttrValue'ListValue -> AttrValue'ListValue -> Bool
$c< :: AttrValue'ListValue -> AttrValue'ListValue -> Bool
compare :: AttrValue'ListValue -> AttrValue'ListValue -> Ordering
$ccompare :: AttrValue'ListValue -> AttrValue'ListValue -> Ordering
$cp1Ord :: Eq AttrValue'ListValue
Prelude.Ord)
instance Prelude.Show AttrValue'ListValue where
  showsPrec :: Int -> AttrValue'ListValue -> ShowS
showsPrec _ __x :: AttrValue'ListValue
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (AttrValue'ListValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AttrValue'ListValue
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "s" [Data.ByteString.ByteString] where
  fieldOf :: Proxy# "s"
-> ([ByteString] -> f [ByteString])
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector ByteString -> f (Vector ByteString))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> (([ByteString] -> f [ByteString])
    -> Vector ByteString -> f (Vector ByteString))
-> ([ByteString] -> f [ByteString])
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector ByteString)
-> (AttrValue'ListValue
    -> Vector ByteString -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector ByteString
_AttrValue'ListValue's
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector ByteString
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue's :: Vector ByteString
_AttrValue'ListValue's = 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 AttrValue'ListValue "vec's" (Data.Vector.Vector Data.ByteString.ByteString) where
  fieldOf :: Proxy# "vec's"
-> (Vector ByteString -> f (Vector ByteString))
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector ByteString -> f (Vector ByteString))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> ((Vector ByteString -> f (Vector ByteString))
    -> Vector ByteString -> f (Vector ByteString))
-> (Vector ByteString -> f (Vector ByteString))
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector ByteString)
-> (AttrValue'ListValue
    -> Vector ByteString -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector ByteString
_AttrValue'ListValue's
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector ByteString
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue's :: Vector ByteString
_AttrValue'ListValue's = Vector ByteString
y__}))
        (Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "i" [Data.Int.Int64] where
  fieldOf :: Proxy# "i"
-> ([Int64] -> f [Int64])
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector Int64 -> f (Vector Int64))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> (([Int64] -> f [Int64]) -> Vector Int64 -> f (Vector Int64))
-> ([Int64] -> f [Int64])
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector Int64)
-> (AttrValue'ListValue -> Vector Int64 -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector Int64)
     (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector Int64
_AttrValue'ListValue'i
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector Int64
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'i :: Vector Int64
_AttrValue'ListValue'i = 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 AttrValue'ListValue "vec'i" (Data.Vector.Unboxed.Vector Data.Int.Int64) where
  fieldOf :: Proxy# "vec'i"
-> (Vector Int64 -> f (Vector Int64))
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector Int64 -> f (Vector Int64))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> ((Vector Int64 -> f (Vector Int64))
    -> Vector Int64 -> f (Vector Int64))
-> (Vector Int64 -> f (Vector Int64))
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector Int64)
-> (AttrValue'ListValue -> Vector Int64 -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector Int64)
     (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector Int64
_AttrValue'ListValue'i
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector Int64
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'i :: Vector Int64
_AttrValue'ListValue'i = Vector Int64
y__}))
        (Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "f" [Prelude.Float] where
  fieldOf :: Proxy# "f"
-> ([Float] -> f [Float])
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector Float -> f (Vector Float))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> (([Float] -> f [Float]) -> Vector Float -> f (Vector Float))
-> ([Float] -> f [Float])
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector Float)
-> (AttrValue'ListValue -> Vector Float -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector Float)
     (Vector Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector Float
_AttrValue'ListValue'f
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector Float
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'f :: Vector Float
_AttrValue'ListValue'f = 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 AttrValue'ListValue "vec'f" (Data.Vector.Unboxed.Vector Prelude.Float) where
  fieldOf :: Proxy# "vec'f"
-> (Vector Float -> f (Vector Float))
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector Float -> f (Vector Float))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> ((Vector Float -> f (Vector Float))
    -> Vector Float -> f (Vector Float))
-> (Vector Float -> f (Vector Float))
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector Float)
-> (AttrValue'ListValue -> Vector Float -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector Float)
     (Vector Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector Float
_AttrValue'ListValue'f
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector Float
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'f :: Vector Float
_AttrValue'ListValue'f = Vector Float
y__}))
        (Vector Float -> f (Vector Float))
-> Vector Float -> f (Vector Float)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "b" [Prelude.Bool] where
  fieldOf :: Proxy# "b"
-> ([Bool] -> f [Bool])
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector Bool -> f (Vector Bool))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> (([Bool] -> f [Bool]) -> Vector Bool -> f (Vector Bool))
-> ([Bool] -> f [Bool])
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector Bool)
-> (AttrValue'ListValue -> Vector Bool -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue AttrValue'ListValue (Vector Bool) (Vector Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector Bool
_AttrValue'ListValue'b
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector Bool
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'b :: Vector Bool
_AttrValue'ListValue'b = Vector Bool
y__}))
        ((Vector Bool -> [Bool])
-> (Vector Bool -> [Bool] -> Vector Bool)
-> Lens (Vector Bool) (Vector Bool) [Bool] [Bool]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Bool -> [Bool]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Bool]
y__ -> [Bool] -> Vector Bool
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Bool]
y__))
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "vec'b" (Data.Vector.Unboxed.Vector Prelude.Bool) where
  fieldOf :: Proxy# "vec'b"
-> (Vector Bool -> f (Vector Bool))
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector Bool -> f (Vector Bool))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> ((Vector Bool -> f (Vector Bool))
    -> Vector Bool -> f (Vector Bool))
-> (Vector Bool -> f (Vector Bool))
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector Bool)
-> (AttrValue'ListValue -> Vector Bool -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue AttrValue'ListValue (Vector Bool) (Vector Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector Bool
_AttrValue'ListValue'b
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector Bool
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'b :: Vector Bool
_AttrValue'ListValue'b = Vector Bool
y__}))
        (Vector Bool -> f (Vector Bool)) -> Vector Bool -> f (Vector Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "type'" [Proto.Tensorflow.Core.Framework.Types.DataType] where
  fieldOf :: Proxy# "type'"
-> ([DataType] -> f [DataType])
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector DataType -> f (Vector DataType))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> (([DataType] -> f [DataType])
    -> Vector DataType -> f (Vector DataType))
-> ([DataType] -> f [DataType])
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector DataType)
-> (AttrValue'ListValue -> Vector DataType -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector DataType)
     (Vector DataType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector DataType
_AttrValue'ListValue'type'
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector DataType
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'type' :: Vector DataType
_AttrValue'ListValue'type' = Vector DataType
y__}))
        ((Vector DataType -> [DataType])
-> (Vector DataType -> [DataType] -> Vector DataType)
-> Lens (Vector DataType) (Vector DataType) [DataType] [DataType]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector DataType -> [DataType]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [DataType]
y__ -> [DataType] -> Vector DataType
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [DataType]
y__))
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "vec'type'" (Data.Vector.Vector Proto.Tensorflow.Core.Framework.Types.DataType) where
  fieldOf :: Proxy# "vec'type'"
-> (Vector DataType -> f (Vector DataType))
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector DataType -> f (Vector DataType))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> ((Vector DataType -> f (Vector DataType))
    -> Vector DataType -> f (Vector DataType))
-> (Vector DataType -> f (Vector DataType))
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector DataType)
-> (AttrValue'ListValue -> Vector DataType -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector DataType)
     (Vector DataType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector DataType
_AttrValue'ListValue'type'
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector DataType
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'type' :: Vector DataType
_AttrValue'ListValue'type' = Vector DataType
y__}))
        (Vector DataType -> f (Vector DataType))
-> Vector DataType -> f (Vector DataType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "shape" [Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto] where
  fieldOf :: Proxy# "shape"
-> ([TensorShapeProto] -> f [TensorShapeProto])
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector TensorShapeProto -> f (Vector TensorShapeProto))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> (([TensorShapeProto] -> f [TensorShapeProto])
    -> Vector TensorShapeProto -> f (Vector TensorShapeProto))
-> ([TensorShapeProto] -> f [TensorShapeProto])
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector TensorShapeProto)
-> (AttrValue'ListValue
    -> Vector TensorShapeProto -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector TensorShapeProto)
     (Vector TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector TensorShapeProto
_AttrValue'ListValue'shape
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector TensorShapeProto
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'shape :: Vector TensorShapeProto
_AttrValue'ListValue'shape = Vector TensorShapeProto
y__}))
        ((Vector TensorShapeProto -> [TensorShapeProto])
-> (Vector TensorShapeProto
    -> [TensorShapeProto] -> Vector TensorShapeProto)
-> Lens
     (Vector TensorShapeProto)
     (Vector TensorShapeProto)
     [TensorShapeProto]
     [TensorShapeProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector TensorShapeProto -> [TensorShapeProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [TensorShapeProto]
y__ -> [TensorShapeProto] -> Vector TensorShapeProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TensorShapeProto]
y__))
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "vec'shape" (Data.Vector.Vector Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) where
  fieldOf :: Proxy# "vec'shape"
-> (Vector TensorShapeProto -> f (Vector TensorShapeProto))
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector TensorShapeProto -> f (Vector TensorShapeProto))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> ((Vector TensorShapeProto -> f (Vector TensorShapeProto))
    -> Vector TensorShapeProto -> f (Vector TensorShapeProto))
-> (Vector TensorShapeProto -> f (Vector TensorShapeProto))
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector TensorShapeProto)
-> (AttrValue'ListValue
    -> Vector TensorShapeProto -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector TensorShapeProto)
     (Vector TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector TensorShapeProto
_AttrValue'ListValue'shape
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector TensorShapeProto
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'shape :: Vector TensorShapeProto
_AttrValue'ListValue'shape = Vector TensorShapeProto
y__}))
        (Vector TensorShapeProto -> f (Vector TensorShapeProto))
-> Vector TensorShapeProto -> f (Vector TensorShapeProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "tensor" [Proto.Tensorflow.Core.Framework.Tensor.TensorProto] where
  fieldOf :: Proxy# "tensor"
-> ([TensorProto] -> f [TensorProto])
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector TensorProto -> f (Vector TensorProto))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> (([TensorProto] -> f [TensorProto])
    -> Vector TensorProto -> f (Vector TensorProto))
-> ([TensorProto] -> f [TensorProto])
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector TensorProto)
-> (AttrValue'ListValue
    -> Vector TensorProto -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector TensorProto)
     (Vector TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector TensorProto
_AttrValue'ListValue'tensor
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector TensorProto
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'tensor :: Vector TensorProto
_AttrValue'ListValue'tensor = Vector TensorProto
y__}))
        ((Vector TensorProto -> [TensorProto])
-> (Vector TensorProto -> [TensorProto] -> Vector TensorProto)
-> Lens
     (Vector TensorProto)
     (Vector TensorProto)
     [TensorProto]
     [TensorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector TensorProto -> [TensorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [TensorProto]
y__ -> [TensorProto] -> Vector TensorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TensorProto]
y__))
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "vec'tensor" (Data.Vector.Vector Proto.Tensorflow.Core.Framework.Tensor.TensorProto) where
  fieldOf :: Proxy# "vec'tensor"
-> (Vector TensorProto -> f (Vector TensorProto))
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector TensorProto -> f (Vector TensorProto))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> ((Vector TensorProto -> f (Vector TensorProto))
    -> Vector TensorProto -> f (Vector TensorProto))
-> (Vector TensorProto -> f (Vector TensorProto))
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector TensorProto)
-> (AttrValue'ListValue
    -> Vector TensorProto -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector TensorProto)
     (Vector TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector TensorProto
_AttrValue'ListValue'tensor
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector TensorProto
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'tensor :: Vector TensorProto
_AttrValue'ListValue'tensor = Vector TensorProto
y__}))
        (Vector TensorProto -> f (Vector TensorProto))
-> Vector TensorProto -> f (Vector TensorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "func" [NameAttrList] where
  fieldOf :: Proxy# "func"
-> ([NameAttrList] -> f [NameAttrList])
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector NameAttrList -> f (Vector NameAttrList))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> (([NameAttrList] -> f [NameAttrList])
    -> Vector NameAttrList -> f (Vector NameAttrList))
-> ([NameAttrList] -> f [NameAttrList])
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector NameAttrList)
-> (AttrValue'ListValue
    -> Vector NameAttrList -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector NameAttrList)
     (Vector NameAttrList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector NameAttrList
_AttrValue'ListValue'func
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector NameAttrList
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'func :: Vector NameAttrList
_AttrValue'ListValue'func = Vector NameAttrList
y__}))
        ((Vector NameAttrList -> [NameAttrList])
-> (Vector NameAttrList -> [NameAttrList] -> Vector NameAttrList)
-> Lens
     (Vector NameAttrList)
     (Vector NameAttrList)
     [NameAttrList]
     [NameAttrList]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector NameAttrList -> [NameAttrList]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [NameAttrList]
y__ -> [NameAttrList] -> Vector NameAttrList
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [NameAttrList]
y__))
instance Data.ProtoLens.Field.HasField AttrValue'ListValue "vec'func" (Data.Vector.Vector NameAttrList) where
  fieldOf :: Proxy# "vec'func"
-> (Vector NameAttrList -> f (Vector NameAttrList))
-> AttrValue'ListValue
-> f AttrValue'ListValue
fieldOf _
    = ((Vector NameAttrList -> f (Vector NameAttrList))
 -> AttrValue'ListValue -> f AttrValue'ListValue)
-> ((Vector NameAttrList -> f (Vector NameAttrList))
    -> Vector NameAttrList -> f (Vector NameAttrList))
-> (Vector NameAttrList -> f (Vector NameAttrList))
-> AttrValue'ListValue
-> f AttrValue'ListValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AttrValue'ListValue -> Vector NameAttrList)
-> (AttrValue'ListValue
    -> Vector NameAttrList -> AttrValue'ListValue)
-> Lens
     AttrValue'ListValue
     AttrValue'ListValue
     (Vector NameAttrList)
     (Vector NameAttrList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AttrValue'ListValue -> Vector NameAttrList
_AttrValue'ListValue'func
           (\ x__ :: AttrValue'ListValue
x__ y__ :: Vector NameAttrList
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'func :: Vector NameAttrList
_AttrValue'ListValue'func = Vector NameAttrList
y__}))
        (Vector NameAttrList -> f (Vector NameAttrList))
-> Vector NameAttrList -> f (Vector NameAttrList)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AttrValue'ListValue where
  messageName :: Proxy AttrValue'ListValue -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.AttrValue.ListValue"
  packedMessageDescriptor :: Proxy AttrValue'ListValue -> ByteString
packedMessageDescriptor _
    = "\n\
      \\tListValue\DC2\f\n\
      \\SOHs\CAN\STX \ETX(\fR\SOHs\DC2\DLE\n\
      \\SOHi\CAN\ETX \ETX(\ETXR\SOHiB\STX\DLE\SOH\DC2\DLE\n\
      \\SOHf\CAN\EOT \ETX(\STXR\SOHfB\STX\DLE\SOH\DC2\DLE\n\
      \\SOHb\CAN\ENQ \ETX(\bR\SOHbB\STX\DLE\SOH\DC2,\n\
      \\EOTtype\CAN\ACK \ETX(\SO2\DC4.tensorflow.DataTypeR\EOTtypeB\STX\DLE\SOH\DC22\n\
      \\ENQshape\CAN\a \ETX(\v2\FS.tensorflow.TensorShapeProtoR\ENQshape\DC2/\n\
      \\ACKtensor\CAN\b \ETX(\v2\ETB.tensorflow.TensorProtoR\ACKtensor\DC2,\n\
      \\EOTfunc\CAN\t \ETX(\v2\CAN.tensorflow.NameAttrListR\EOTfunc"
  packedFileDescriptor :: Proxy AttrValue'ListValue -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AttrValue'ListValue)
fieldsByTag
    = let
        s__field_descriptor :: FieldDescriptor AttrValue'ListValue
s__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AttrValue'ListValue ByteString
-> FieldDescriptor AttrValue'ListValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "s"
              (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' AttrValue'ListValue [ByteString]
-> FieldAccessor AttrValue'ListValue ByteString
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "s" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"s")) ::
              Data.ProtoLens.FieldDescriptor AttrValue'ListValue
        i__field_descriptor :: FieldDescriptor AttrValue'ListValue
i__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor AttrValue'ListValue Int64
-> FieldDescriptor AttrValue'ListValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "i"
              (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' AttrValue'ListValue [Int64]
-> FieldAccessor AttrValue'ListValue Int64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "i" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"i")) ::
              Data.ProtoLens.FieldDescriptor AttrValue'ListValue
        f__field_descriptor :: FieldDescriptor AttrValue'ListValue
f__field_descriptor
          = String
-> FieldTypeDescriptor Float
-> FieldAccessor AttrValue'ListValue Float
-> FieldDescriptor AttrValue'ListValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "f"
              (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' AttrValue'ListValue [Float]
-> FieldAccessor AttrValue'ListValue Float
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "f" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"f")) ::
              Data.ProtoLens.FieldDescriptor AttrValue'ListValue
        b__field_descriptor :: FieldDescriptor AttrValue'ListValue
b__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor AttrValue'ListValue Bool
-> FieldDescriptor AttrValue'ListValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "b"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Packing
-> Lens' AttrValue'ListValue [Bool]
-> FieldAccessor AttrValue'ListValue Bool
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "b" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"b")) ::
              Data.ProtoLens.FieldDescriptor AttrValue'ListValue
        type'__field_descriptor :: FieldDescriptor AttrValue'ListValue
type'__field_descriptor
          = String
-> FieldTypeDescriptor DataType
-> FieldAccessor AttrValue'ListValue DataType
-> FieldDescriptor AttrValue'ListValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "type"
              (ScalarField DataType -> FieldTypeDescriptor DataType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField DataType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Types.DataType)
              (Packing
-> Lens' AttrValue'ListValue [DataType]
-> FieldAccessor AttrValue'ListValue DataType
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "type'" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'")) ::
              Data.ProtoLens.FieldDescriptor AttrValue'ListValue
        shape__field_descriptor :: FieldDescriptor AttrValue'ListValue
shape__field_descriptor
          = String
-> FieldTypeDescriptor TensorShapeProto
-> FieldAccessor AttrValue'ListValue TensorShapeProto
-> FieldDescriptor AttrValue'ListValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "shape"
              (MessageOrGroup -> FieldTypeDescriptor TensorShapeProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto)
              (Packing
-> Lens' AttrValue'ListValue [TensorShapeProto]
-> FieldAccessor AttrValue'ListValue TensorShapeProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "shape" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shape")) ::
              Data.ProtoLens.FieldDescriptor AttrValue'ListValue
        tensor__field_descriptor :: FieldDescriptor AttrValue'ListValue
tensor__field_descriptor
          = String
-> FieldTypeDescriptor TensorProto
-> FieldAccessor AttrValue'ListValue TensorProto
-> FieldDescriptor AttrValue'ListValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "tensor"
              (MessageOrGroup -> FieldTypeDescriptor TensorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Tensor.TensorProto)
              (Packing
-> Lens' AttrValue'ListValue [TensorProto]
-> FieldAccessor AttrValue'ListValue TensorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "tensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensor")) ::
              Data.ProtoLens.FieldDescriptor AttrValue'ListValue
        func__field_descriptor :: FieldDescriptor AttrValue'ListValue
func__field_descriptor
          = String
-> FieldTypeDescriptor NameAttrList
-> FieldAccessor AttrValue'ListValue NameAttrList
-> FieldDescriptor AttrValue'ListValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "func"
              (MessageOrGroup -> FieldTypeDescriptor NameAttrList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NameAttrList)
              (Packing
-> Lens' AttrValue'ListValue [NameAttrList]
-> FieldAccessor AttrValue'ListValue NameAttrList
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "func" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"func")) ::
              Data.ProtoLens.FieldDescriptor AttrValue'ListValue
      in
        [(Tag, FieldDescriptor AttrValue'ListValue)]
-> Map Tag (FieldDescriptor AttrValue'ListValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor AttrValue'ListValue
s__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor AttrValue'ListValue
i__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor AttrValue'ListValue
f__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor AttrValue'ListValue
b__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor AttrValue'ListValue
type'__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor AttrValue'ListValue
shape__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor AttrValue'ListValue
tensor__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor AttrValue'ListValue
func__field_descriptor)]
  unknownFields :: LensLike' f AttrValue'ListValue FieldSet
unknownFields
    = (AttrValue'ListValue -> FieldSet)
-> (AttrValue'ListValue -> FieldSet -> AttrValue'ListValue)
-> Lens' AttrValue'ListValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AttrValue'ListValue -> FieldSet
_AttrValue'ListValue'_unknownFields
        (\ x__ :: AttrValue'ListValue
x__ y__ :: FieldSet
y__ -> AttrValue'ListValue
x__ {_AttrValue'ListValue'_unknownFields :: FieldSet
_AttrValue'ListValue'_unknownFields = FieldSet
y__})
  defMessage :: AttrValue'ListValue
defMessage
    = $WAttrValue'ListValue'_constructor :: Vector ByteString
-> Vector Int64
-> Vector Float
-> Vector Bool
-> Vector DataType
-> Vector TensorShapeProto
-> Vector TensorProto
-> Vector NameAttrList
-> FieldSet
-> AttrValue'ListValue
AttrValue'ListValue'_constructor
        {_AttrValue'ListValue's :: Vector ByteString
_AttrValue'ListValue's = Vector ByteString
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AttrValue'ListValue'i :: Vector Int64
_AttrValue'ListValue'i = Vector Int64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AttrValue'ListValue'f :: Vector Float
_AttrValue'ListValue'f = Vector Float
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AttrValue'ListValue'b :: Vector Bool
_AttrValue'ListValue'b = Vector Bool
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AttrValue'ListValue'type' :: Vector DataType
_AttrValue'ListValue'type' = Vector DataType
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AttrValue'ListValue'shape :: Vector TensorShapeProto
_AttrValue'ListValue'shape = Vector TensorShapeProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AttrValue'ListValue'tensor :: Vector TensorProto
_AttrValue'ListValue'tensor = Vector TensorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AttrValue'ListValue'func :: Vector NameAttrList
_AttrValue'ListValue'func = Vector NameAttrList
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AttrValue'ListValue'_unknownFields :: FieldSet
_AttrValue'ListValue'_unknownFields = []}
  parseMessage :: Parser AttrValue'ListValue
parseMessage
    = let
        loop ::
          AttrValue'ListValue
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Bool
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Float
                -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NameAttrList
                   -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int64
                      -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString
                         -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto
                            -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Tensorflow.Core.Framework.Tensor.TensorProto
                               -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Tensorflow.Core.Framework.Types.DataType
                                  -> Data.ProtoLens.Encoding.Bytes.Parser AttrValue'ListValue
        loop :: AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
          x :: AttrValue'ListValue
x
          mutable'b :: Growing Vector RealWorld Bool
mutable'b
          mutable'f :: Growing Vector RealWorld Float
mutable'f
          mutable'func :: Growing Vector RealWorld NameAttrList
mutable'func
          mutable'i :: Growing Vector RealWorld Int64
mutable'i
          mutable's :: Growing Vector RealWorld ByteString
mutable's
          mutable'shape :: Growing Vector RealWorld TensorShapeProto
mutable'shape
          mutable'tensor :: Growing Vector RealWorld TensorProto
mutable'tensor
          mutable'type' :: Growing Vector RealWorld DataType
mutable'type'
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Bool
frozen'b <- IO (Vector Bool) -> Parser (Vector Bool)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    (Growing Vector (PrimState IO) Bool -> IO (Vector Bool)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Bool
Growing Vector (PrimState IO) Bool
mutable'b)
                      Vector Float
frozen'f <- 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'f)
                      Vector NameAttrList
frozen'func <- IO (Vector NameAttrList) -> Parser (Vector NameAttrList)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) NameAttrList
-> IO (Vector NameAttrList)
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 NameAttrList
Growing Vector (PrimState IO) NameAttrList
mutable'func)
                      Vector Int64
frozen'i <- 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'i)
                      Vector ByteString
frozen's <- 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's)
                      Vector TensorShapeProto
frozen'shape <- IO (Vector TensorShapeProto) -> Parser (Vector TensorShapeProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) TensorShapeProto
-> IO (Vector TensorShapeProto)
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 TensorShapeProto
Growing Vector (PrimState IO) TensorShapeProto
mutable'shape)
                      Vector TensorProto
frozen'tensor <- IO (Vector TensorProto) -> Parser (Vector TensorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) TensorProto
-> IO (Vector TensorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld TensorProto
Growing Vector (PrimState IO) TensorProto
mutable'tensor)
                      Vector DataType
frozen'type' <- IO (Vector DataType) -> Parser (Vector DataType)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) DataType -> IO (Vector DataType)
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 DataType
Growing Vector (PrimState IO) DataType
mutable'type')
                      (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]))))
                      AttrValue'ListValue -> Parser AttrValue'ListValue
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter AttrValue'ListValue AttrValue'ListValue FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> AttrValue'ListValue
-> AttrValue'ListValue
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter AttrValue'ListValue AttrValue'ListValue FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  AttrValue'ListValue AttrValue'ListValue (Vector Bool) (Vector Bool)
-> Vector Bool -> AttrValue'ListValue -> AttrValue'ListValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'b" a, Functor f) =>
(a -> f a) -> s -> 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'b")
                              Vector Bool
frozen'b
                              (Setter
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector Float)
  (Vector Float)
-> Vector Float -> AttrValue'ListValue -> AttrValue'ListValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall s a (f :: * -> *).
(HasField s "vec'f" a, Functor f) =>
(a -> f a) -> s -> 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'f")
                                 Vector Float
frozen'f
                                 (Setter
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector NameAttrList)
  (Vector NameAttrList)
-> Vector NameAttrList
-> AttrValue'ListValue
-> AttrValue'ListValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall s a (f :: * -> *).
(HasField s "vec'func" a, Functor f) =>
(a -> f a) -> s -> 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'func")
                                    Vector NameAttrList
frozen'func
                                    (Setter
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector Int64)
  (Vector Int64)
-> Vector Int64 -> AttrValue'ListValue -> AttrValue'ListValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                       (forall s a (f :: * -> *).
(HasField s "vec'i" a, Functor f) =>
(a -> f a) -> s -> 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'i")
                                       Vector Int64
frozen'i
                                       (Setter
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector ByteString)
  (Vector ByteString)
-> Vector ByteString -> AttrValue'ListValue -> AttrValue'ListValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                          (forall s a (f :: * -> *).
(HasField s "vec's" a, Functor f) =>
(a -> f a) -> s -> 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's")
                                          Vector ByteString
frozen's
                                          (Setter
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector TensorShapeProto)
  (Vector TensorShapeProto)
-> Vector TensorShapeProto
-> AttrValue'ListValue
-> AttrValue'ListValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                             (forall s a (f :: * -> *).
(HasField s "vec'shape" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'shape")
                                             Vector TensorShapeProto
frozen'shape
                                             (Setter
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector TensorProto)
  (Vector TensorProto)
-> Vector TensorProto -> AttrValue'ListValue -> AttrValue'ListValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                (forall s a (f :: * -> *).
(HasField s "vec'tensor" a, Functor f) =>
(a -> f a) -> s -> 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'tensor")
                                                Vector TensorProto
frozen'tensor
                                                (Setter
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector DataType)
  (Vector DataType)
-> Vector DataType -> AttrValue'ListValue -> AttrValue'ListValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                   (forall s a (f :: * -> *).
(HasField s "vec'type'" a, Functor f) =>
(a -> f a) -> s -> 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'type'")
                                                   Vector DataType
frozen'type'
                                                   AttrValue'ListValue
x)))))))))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        18
                          -> do !ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                        "s"
                                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's ByteString
y)
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  AttrValue'ListValue
x
                                  Growing Vector RealWorld Bool
mutable'b
                                  Growing Vector RealWorld Float
mutable'f
                                  Growing Vector RealWorld NameAttrList
mutable'func
                                  Growing Vector RealWorld Int64
mutable'i
                                  Growing Vector RealWorld ByteString
v
                                  Growing Vector RealWorld TensorShapeProto
mutable'shape
                                  Growing Vector RealWorld TensorProto
mutable'tensor
                                  Growing Vector RealWorld DataType
mutable'type'
                        24
                          -> 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)
                                        "i"
                                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'i Int64
y)
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  AttrValue'ListValue
x
                                  Growing Vector RealWorld Bool
mutable'b
                                  Growing Vector RealWorld Float
mutable'f
                                  Growing Vector RealWorld NameAttrList
mutable'func
                                  Growing Vector RealWorld Int64
v
                                  Growing Vector RealWorld ByteString
mutable's
                                  Growing Vector RealWorld TensorShapeProto
mutable'shape
                                  Growing Vector RealWorld TensorProto
mutable'tensor
                                  Growing Vector RealWorld DataType
mutable'type'
                        26
                          -> 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)
                                                                    "i"
                                                            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'i)
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  AttrValue'ListValue
x
                                  Growing Vector RealWorld Bool
mutable'b
                                  Growing Vector RealWorld Float
mutable'f
                                  Growing Vector RealWorld NameAttrList
mutable'func
                                  Growing Vector RealWorld Int64
y
                                  Growing Vector RealWorld ByteString
mutable's
                                  Growing Vector RealWorld TensorShapeProto
mutable'shape
                                  Growing Vector RealWorld TensorProto
mutable'tensor
                                  Growing Vector RealWorld DataType
mutable'type'
                        37
                          -> 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)
                                        "f"
                                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'f Float
y)
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  AttrValue'ListValue
x
                                  Growing Vector RealWorld Bool
mutable'b
                                  Growing Vector RealWorld Float
v
                                  Growing Vector RealWorld NameAttrList
mutable'func
                                  Growing Vector RealWorld Int64
mutable'i
                                  Growing Vector RealWorld ByteString
mutable's
                                  Growing Vector RealWorld TensorShapeProto
mutable'shape
                                  Growing Vector RealWorld TensorProto
mutable'tensor
                                  Growing Vector RealWorld DataType
mutable'type'
                        34
                          -> 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)
                                                                    "f"
                                                            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'f)
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  AttrValue'ListValue
x
                                  Growing Vector RealWorld Bool
mutable'b
                                  Growing Vector RealWorld Float
y
                                  Growing Vector RealWorld NameAttrList
mutable'func
                                  Growing Vector RealWorld Int64
mutable'i
                                  Growing Vector RealWorld ByteString
mutable's
                                  Growing Vector RealWorld TensorShapeProto
mutable'shape
                                  Growing Vector RealWorld TensorProto
mutable'tensor
                                  Growing Vector RealWorld DataType
mutable'type'
                        40
                          -> do !Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                        "b"
                                Growing Vector RealWorld Bool
v <- IO (Growing Vector RealWorld Bool)
-> Parser (Growing Vector RealWorld Bool)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Bool
-> Bool -> IO (Growing Vector (PrimState IO) Bool)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Bool
Growing Vector (PrimState IO) Bool
mutable'b Bool
y)
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  AttrValue'ListValue
x
                                  Growing Vector RealWorld Bool
v
                                  Growing Vector RealWorld Float
mutable'f
                                  Growing Vector RealWorld NameAttrList
mutable'func
                                  Growing Vector RealWorld Int64
mutable'i
                                  Growing Vector RealWorld ByteString
mutable's
                                  Growing Vector RealWorld TensorShapeProto
mutable'shape
                                  Growing Vector RealWorld TensorProto
mutable'tensor
                                  Growing Vector RealWorld DataType
mutable'type'
                        42
                          -> do Growing Vector RealWorld Bool
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Int
-> Parser (Growing Vector RealWorld Bool)
-> Parser (Growing Vector RealWorld Bool)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                          ((let
                                              ploop :: Growing v RealWorld Bool -> Parser (Growing v RealWorld Bool)
ploop qs :: Growing v RealWorld Bool
qs
                                                = do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if Bool
packedEnd then
                                                         Growing v RealWorld Bool -> Parser (Growing v RealWorld Bool)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Bool
qs
                                                     else
                                                         do !Bool
q <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                                                       (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0)
                                                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                                                    "b"
                                                            Growing v RealWorld Bool
qs' <- IO (Growing v RealWorld Bool) -> Parser (Growing v RealWorld Bool)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Growing v (PrimState IO) Bool
-> Bool -> IO (Growing v (PrimState IO) Bool)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                                                        Growing v RealWorld Bool
Growing v (PrimState IO) Bool
qs Bool
q)
                                                            Growing v RealWorld Bool -> Parser (Growing v RealWorld Bool)
ploop Growing v RealWorld Bool
qs'
                                            in forall (v :: * -> *).
Vector v Bool =>
Growing v RealWorld Bool -> Parser (Growing v RealWorld Bool)
ploop)
                                             Growing Vector RealWorld Bool
mutable'b)
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  AttrValue'ListValue
x
                                  Growing Vector RealWorld Bool
y
                                  Growing Vector RealWorld Float
mutable'f
                                  Growing Vector RealWorld NameAttrList
mutable'func
                                  Growing Vector RealWorld Int64
mutable'i
                                  Growing Vector RealWorld ByteString
mutable's
                                  Growing Vector RealWorld TensorShapeProto
mutable'shape
                                  Growing Vector RealWorld TensorProto
mutable'tensor
                                  Growing Vector RealWorld DataType
mutable'type'
                        48
                          -> do !DataType
y <- Parser DataType -> String -> Parser DataType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Int -> DataType) -> Parser Int -> Parser DataType
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Int -> DataType
forall a. Enum a => Int -> a
Prelude.toEnum
                                           ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                              Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                              Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                        "type"
                                Growing Vector RealWorld DataType
v <- IO (Growing Vector RealWorld DataType)
-> Parser (Growing Vector RealWorld DataType)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) DataType
-> DataType -> IO (Growing Vector (PrimState IO) DataType)
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 DataType
Growing Vector (PrimState IO) DataType
mutable'type' DataType
y)
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  AttrValue'ListValue
x
                                  Growing Vector RealWorld Bool
mutable'b
                                  Growing Vector RealWorld Float
mutable'f
                                  Growing Vector RealWorld NameAttrList
mutable'func
                                  Growing Vector RealWorld Int64
mutable'i
                                  Growing Vector RealWorld ByteString
mutable's
                                  Growing Vector RealWorld TensorShapeProto
mutable'shape
                                  Growing Vector RealWorld TensorProto
mutable'tensor
                                  Growing Vector RealWorld DataType
v
                        50
                          -> do Growing Vector RealWorld DataType
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Int
-> Parser (Growing Vector RealWorld DataType)
-> Parser (Growing Vector RealWorld DataType)
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.<?>)
                                                                    ((Int -> a) -> Parser Int -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                                                       Int -> a
forall a. Enum a => Int -> a
Prelude.toEnum
                                                                       ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                                                          Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                                                    "type"
                                                            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 :: * -> *).
(Enum a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
                                             Growing Vector RealWorld DataType
mutable'type')
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  AttrValue'ListValue
x
                                  Growing Vector RealWorld Bool
mutable'b
                                  Growing Vector RealWorld Float
mutable'f
                                  Growing Vector RealWorld NameAttrList
mutable'func
                                  Growing Vector RealWorld Int64
mutable'i
                                  Growing Vector RealWorld ByteString
mutable's
                                  Growing Vector RealWorld TensorShapeProto
mutable'shape
                                  Growing Vector RealWorld TensorProto
mutable'tensor
                                  Growing Vector RealWorld DataType
y
                        58
                          -> do !TensorShapeProto
y <- Parser TensorShapeProto -> String -> Parser TensorShapeProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser TensorShapeProto -> Parser TensorShapeProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser TensorShapeProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "shape"
                                Growing Vector RealWorld TensorShapeProto
v <- IO (Growing Vector RealWorld TensorShapeProto)
-> Parser (Growing Vector RealWorld TensorShapeProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) TensorShapeProto
-> TensorShapeProto
-> IO (Growing Vector (PrimState IO) TensorShapeProto)
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 TensorShapeProto
Growing Vector (PrimState IO) TensorShapeProto
mutable'shape TensorShapeProto
y)
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  AttrValue'ListValue
x
                                  Growing Vector RealWorld Bool
mutable'b
                                  Growing Vector RealWorld Float
mutable'f
                                  Growing Vector RealWorld NameAttrList
mutable'func
                                  Growing Vector RealWorld Int64
mutable'i
                                  Growing Vector RealWorld ByteString
mutable's
                                  Growing Vector RealWorld TensorShapeProto
v
                                  Growing Vector RealWorld TensorProto
mutable'tensor
                                  Growing Vector RealWorld DataType
mutable'type'
                        66
                          -> do !TensorProto
y <- Parser TensorProto -> String -> Parser TensorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser TensorProto -> Parser TensorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser TensorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "tensor"
                                Growing Vector RealWorld TensorProto
v <- IO (Growing Vector RealWorld TensorProto)
-> Parser (Growing Vector RealWorld TensorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) TensorProto
-> TensorProto -> IO (Growing Vector (PrimState IO) TensorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld TensorProto
Growing Vector (PrimState IO) TensorProto
mutable'tensor TensorProto
y)
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  AttrValue'ListValue
x
                                  Growing Vector RealWorld Bool
mutable'b
                                  Growing Vector RealWorld Float
mutable'f
                                  Growing Vector RealWorld NameAttrList
mutable'func
                                  Growing Vector RealWorld Int64
mutable'i
                                  Growing Vector RealWorld ByteString
mutable's
                                  Growing Vector RealWorld TensorShapeProto
mutable'shape
                                  Growing Vector RealWorld TensorProto
v
                                  Growing Vector RealWorld DataType
mutable'type'
                        74
                          -> do !NameAttrList
y <- Parser NameAttrList -> String -> Parser NameAttrList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser NameAttrList -> Parser NameAttrList
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 NameAttrList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "func"
                                Growing Vector RealWorld NameAttrList
v <- IO (Growing Vector RealWorld NameAttrList)
-> Parser (Growing Vector RealWorld NameAttrList)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) NameAttrList
-> NameAttrList -> IO (Growing Vector (PrimState IO) NameAttrList)
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 NameAttrList
Growing Vector (PrimState IO) NameAttrList
mutable'func NameAttrList
y)
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  AttrValue'ListValue
x
                                  Growing Vector RealWorld Bool
mutable'b
                                  Growing Vector RealWorld Float
mutable'f
                                  Growing Vector RealWorld NameAttrList
v
                                  Growing Vector RealWorld Int64
mutable'i
                                  Growing Vector RealWorld ByteString
mutable's
                                  Growing Vector RealWorld TensorShapeProto
mutable'shape
                                  Growing Vector RealWorld TensorProto
mutable'tensor
                                  Growing Vector RealWorld DataType
mutable'type'
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                                  (Setter AttrValue'ListValue AttrValue'ListValue FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> AttrValue'ListValue
-> AttrValue'ListValue
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter AttrValue'ListValue AttrValue'ListValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AttrValue'ListValue
x)
                                  Growing Vector RealWorld Bool
mutable'b
                                  Growing Vector RealWorld Float
mutable'f
                                  Growing Vector RealWorld NameAttrList
mutable'func
                                  Growing Vector RealWorld Int64
mutable'i
                                  Growing Vector RealWorld ByteString
mutable's
                                  Growing Vector RealWorld TensorShapeProto
mutable'shape
                                  Growing Vector RealWorld TensorProto
mutable'tensor
                                  Growing Vector RealWorld DataType
mutable'type'
      in
        Parser AttrValue'ListValue -> String -> Parser AttrValue'ListValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Bool
mutable'b <- IO (Growing Vector RealWorld Bool)
-> Parser (Growing Vector RealWorld Bool)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                             IO (Growing Vector RealWorld Bool)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld Float
mutable'f <- IO (Growing Vector RealWorld Float)
-> Parser (Growing Vector RealWorld Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                             IO (Growing Vector RealWorld Float)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld NameAttrList
mutable'func <- IO (Growing Vector RealWorld NameAttrList)
-> Parser (Growing Vector RealWorld NameAttrList)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                IO (Growing Vector RealWorld NameAttrList)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld Int64
mutable'i <- IO (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                             IO (Growing Vector RealWorld Int64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld ByteString
mutable's <- IO (Growing Vector RealWorld ByteString)
-> Parser (Growing Vector RealWorld ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                             IO (Growing Vector RealWorld ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld TensorShapeProto
mutable'shape <- IO (Growing Vector RealWorld TensorShapeProto)
-> Parser (Growing Vector RealWorld TensorShapeProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld TensorShapeProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld TensorProto
mutable'tensor <- IO (Growing Vector RealWorld TensorProto)
-> Parser (Growing Vector RealWorld TensorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld TensorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld DataType
mutable'type' <- IO (Growing Vector RealWorld DataType)
-> Parser (Growing Vector RealWorld DataType)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld DataType)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              AttrValue'ListValue
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld NameAttrList
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld TensorShapeProto
-> Growing Vector RealWorld TensorProto
-> Growing Vector RealWorld DataType
-> Parser AttrValue'ListValue
loop
                AttrValue'ListValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage
                Growing Vector RealWorld Bool
mutable'b
                Growing Vector RealWorld Float
mutable'f
                Growing Vector RealWorld NameAttrList
mutable'func
                Growing Vector RealWorld Int64
mutable'i
                Growing Vector RealWorld ByteString
mutable's
                Growing Vector RealWorld TensorShapeProto
mutable'shape
                Growing Vector RealWorld TensorProto
mutable'tensor
                Growing Vector RealWorld DataType
mutable'type')
          "ListValue"
  buildMessage :: AttrValue'ListValue -> Builder
buildMessage
    = \ _x :: AttrValue'ListValue
_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 18)
                        ((\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           ByteString
_v))
                (FoldLike
  (Vector ByteString)
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector ByteString)
  (Vector ByteString)
-> AttrValue'ListValue -> 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's" a, Functor f) =>
(a -> f a) -> s -> 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's") AttrValue'ListValue
_x))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let p :: Vector Int64
p = FoldLike
  (Vector Int64)
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector Int64)
  (Vector Int64)
-> AttrValue'ListValue -> 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'i" a, Functor f) =>
(a -> f a) -> s -> 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'i") AttrValue'ListValue
_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 26)
                         ((\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                               ((Int64 -> Builder) -> Vector Int64 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                  ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                     Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                  Vector Int64
p))))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let p :: Vector Float
p = FoldLike
  (Vector Float)
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector Float)
  (Vector Float)
-> AttrValue'ListValue -> 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'f" a, Functor f) =>
(a -> f a) -> s -> 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'f") AttrValue'ListValue
_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 34)
                            ((\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                               (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                                  ((Float -> Builder) -> Vector Float -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                     ((Word32 -> Builder) -> (Float -> Word32) -> Float -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                        Word32 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed32
                                        Float -> Word32
Data.ProtoLens.Encoding.Bytes.floatToWord)
                                     Vector Float
p))))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let p :: Vector Bool
p = FoldLike
  (Vector Bool)
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector Bool)
  (Vector Bool)
-> AttrValue'ListValue -> Vector Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'b" a, Functor f) =>
(a -> f a) -> s -> 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'b") AttrValue'ListValue
_x
                       in
                         if Vector Bool -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Bool
p then
                             Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         else
                             Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
                               ((\ bs :: ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                  (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                                     ((Bool -> Builder) -> Vector Bool -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                        ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                           Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (\ b :: Bool
b -> if Bool
b then 1 else 0))
                                        Vector Bool
p))))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            p :: Vector DataType
p = FoldLike
  (Vector DataType)
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector DataType)
  (Vector DataType)
-> AttrValue'ListValue -> Vector DataType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'type'" a, Functor f) =>
(a -> f a) -> s -> 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'type'") AttrValue'ListValue
_x
                          in
                            if Vector DataType -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector DataType
p then
                                Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            else
                                Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
                                  ((\ bs :: ByteString
bs
                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                     (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                                        ((DataType -> Builder) -> Vector DataType -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                           ((Int -> Builder) -> (DataType -> Int) -> DataType -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                              ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                 Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                 Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                              DataType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum)
                                           Vector DataType
p))))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            ((TensorShapeProto -> Builder) -> Vector TensorShapeProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               (\ _v :: TensorShapeProto
_v
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
                                       ((ByteString -> Builder)
-> (TensorShapeProto -> ByteString) -> TensorShapeProto -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                          (\ bs :: ByteString
bs
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                        (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                          TensorShapeProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                          TensorShapeProto
_v))
                               (FoldLike
  (Vector TensorShapeProto)
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector TensorShapeProto)
  (Vector TensorShapeProto)
-> AttrValue'ListValue -> Vector TensorShapeProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'shape" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'shape") AttrValue'ListValue
_x))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               ((TensorProto -> Builder) -> Vector TensorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                  (\ _v :: TensorProto
_v
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
                                          ((ByteString -> Builder)
-> (TensorProto -> ByteString) -> TensorProto -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                             (\ bs :: ByteString
bs
                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                           (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                             TensorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                             TensorProto
_v))
                                  (FoldLike
  (Vector TensorProto)
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector TensorProto)
  (Vector TensorProto)
-> AttrValue'ListValue -> Vector TensorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'tensor" a, Functor f) =>
(a -> f a) -> s -> 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'tensor") AttrValue'ListValue
_x))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  ((NameAttrList -> Builder) -> Vector NameAttrList -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                     (\ _v :: NameAttrList
_v
                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 74)
                                             ((ByteString -> Builder)
-> (NameAttrList -> ByteString) -> NameAttrList -> 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))
                                                NameAttrList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                NameAttrList
_v))
                                     (FoldLike
  (Vector NameAttrList)
  AttrValue'ListValue
  AttrValue'ListValue
  (Vector NameAttrList)
  (Vector NameAttrList)
-> AttrValue'ListValue -> Vector NameAttrList
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                        (forall s a (f :: * -> *).
(HasField s "vec'func" a, Functor f) =>
(a -> f a) -> s -> 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'func") AttrValue'ListValue
_x))
                                  (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                     (FoldLike
  FieldSet AttrValue'ListValue AttrValue'ListValue FieldSet FieldSet
-> AttrValue'ListValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AttrValue'ListValue AttrValue'ListValue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields AttrValue'ListValue
_x)))))))))
instance Control.DeepSeq.NFData AttrValue'ListValue where
  rnf :: AttrValue'ListValue -> ()
rnf
    = \ x__ :: AttrValue'ListValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AttrValue'ListValue -> FieldSet
_AttrValue'ListValue'_unknownFields AttrValue'ListValue
x__)
             (Vector ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AttrValue'ListValue -> Vector ByteString
_AttrValue'ListValue's AttrValue'ListValue
x__)
                (Vector Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AttrValue'ListValue -> Vector Int64
_AttrValue'ListValue'i AttrValue'ListValue
x__)
                   (Vector Float -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (AttrValue'ListValue -> Vector Float
_AttrValue'ListValue'f AttrValue'ListValue
x__)
                      (Vector Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (AttrValue'ListValue -> Vector Bool
_AttrValue'ListValue'b AttrValue'ListValue
x__)
                         (Vector DataType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (AttrValue'ListValue -> Vector DataType
_AttrValue'ListValue'type' AttrValue'ListValue
x__)
                            (Vector TensorShapeProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (AttrValue'ListValue -> Vector TensorShapeProto
_AttrValue'ListValue'shape AttrValue'ListValue
x__)
                               (Vector TensorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (AttrValue'ListValue -> Vector TensorProto
_AttrValue'ListValue'tensor AttrValue'ListValue
x__)
                                  (Vector NameAttrList -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (AttrValue'ListValue -> Vector NameAttrList
_AttrValue'ListValue'func AttrValue'ListValue
x__) ()))))))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.name' @:: Lens' NameAttrList Data.Text.Text@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.attr' @:: Lens' NameAttrList (Data.Map.Map Data.Text.Text AttrValue)@ -}
data NameAttrList
  = NameAttrList'_constructor {NameAttrList -> Text
_NameAttrList'name :: !Data.Text.Text,
                               NameAttrList -> Map Text AttrValue
_NameAttrList'attr :: !(Data.Map.Map Data.Text.Text AttrValue),
                               NameAttrList -> FieldSet
_NameAttrList'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NameAttrList -> NameAttrList -> Bool
(NameAttrList -> NameAttrList -> Bool)
-> (NameAttrList -> NameAttrList -> Bool) -> Eq NameAttrList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: NameAttrList -> NameAttrList -> Bool
$c/= :: NameAttrList -> NameAttrList -> Bool
== :: NameAttrList -> NameAttrList -> Bool
$c== :: NameAttrList -> NameAttrList -> Bool
Prelude.Eq, Eq NameAttrList
Eq NameAttrList =>
(NameAttrList -> NameAttrList -> Ordering)
-> (NameAttrList -> NameAttrList -> Bool)
-> (NameAttrList -> NameAttrList -> Bool)
-> (NameAttrList -> NameAttrList -> Bool)
-> (NameAttrList -> NameAttrList -> Bool)
-> (NameAttrList -> NameAttrList -> NameAttrList)
-> (NameAttrList -> NameAttrList -> NameAttrList)
-> Ord NameAttrList
NameAttrList -> NameAttrList -> Bool
NameAttrList -> NameAttrList -> Ordering
NameAttrList -> NameAttrList -> NameAttrList
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 :: NameAttrList -> NameAttrList -> NameAttrList
$cmin :: NameAttrList -> NameAttrList -> NameAttrList
max :: NameAttrList -> NameAttrList -> NameAttrList
$cmax :: NameAttrList -> NameAttrList -> NameAttrList
>= :: NameAttrList -> NameAttrList -> Bool
$c>= :: NameAttrList -> NameAttrList -> Bool
> :: NameAttrList -> NameAttrList -> Bool
$c> :: NameAttrList -> NameAttrList -> Bool
<= :: NameAttrList -> NameAttrList -> Bool
$c<= :: NameAttrList -> NameAttrList -> Bool
< :: NameAttrList -> NameAttrList -> Bool
$c< :: NameAttrList -> NameAttrList -> Bool
compare :: NameAttrList -> NameAttrList -> Ordering
$ccompare :: NameAttrList -> NameAttrList -> Ordering
$cp1Ord :: Eq NameAttrList
Prelude.Ord)
instance Prelude.Show NameAttrList where
  showsPrec :: Int -> NameAttrList -> ShowS
showsPrec _ __x :: NameAttrList
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (NameAttrList -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NameAttrList
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField NameAttrList "name" Data.Text.Text where
  fieldOf :: Proxy# "name" -> (Text -> f Text) -> NameAttrList -> f NameAttrList
fieldOf _
    = ((Text -> f Text) -> NameAttrList -> f NameAttrList)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NameAttrList
-> f NameAttrList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NameAttrList -> Text)
-> (NameAttrList -> Text -> NameAttrList)
-> Lens NameAttrList NameAttrList Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NameAttrList -> Text
_NameAttrList'name (\ x__ :: NameAttrList
x__ y__ :: Text
y__ -> NameAttrList
x__ {_NameAttrList'name :: Text
_NameAttrList'name = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NameAttrList "attr" (Data.Map.Map Data.Text.Text AttrValue) where
  fieldOf :: Proxy# "attr"
-> (Map Text AttrValue -> f (Map Text AttrValue))
-> NameAttrList
-> f NameAttrList
fieldOf _
    = ((Map Text AttrValue -> f (Map Text AttrValue))
 -> NameAttrList -> f NameAttrList)
-> ((Map Text AttrValue -> f (Map Text AttrValue))
    -> Map Text AttrValue -> f (Map Text AttrValue))
-> (Map Text AttrValue -> f (Map Text AttrValue))
-> NameAttrList
-> f NameAttrList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NameAttrList -> Map Text AttrValue)
-> (NameAttrList -> Map Text AttrValue -> NameAttrList)
-> Lens
     NameAttrList NameAttrList (Map Text AttrValue) (Map Text AttrValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NameAttrList -> Map Text AttrValue
_NameAttrList'attr (\ x__ :: NameAttrList
x__ y__ :: Map Text AttrValue
y__ -> NameAttrList
x__ {_NameAttrList'attr :: Map Text AttrValue
_NameAttrList'attr = Map Text AttrValue
y__}))
        (Map Text AttrValue -> f (Map Text AttrValue))
-> Map Text AttrValue -> f (Map Text AttrValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NameAttrList where
  messageName :: Proxy NameAttrList -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.NameAttrList"
  packedMessageDescriptor :: Proxy NameAttrList -> ByteString
packedMessageDescriptor _
    = "\n\
      \\fNameAttrList\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC26\n\
      \\EOTattr\CAN\STX \ETX(\v2\".tensorflow.NameAttrList.AttrEntryR\EOTattr\SUBN\n\
      \\tAttrEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2+\n\
      \\ENQvalue\CAN\STX \SOH(\v2\NAK.tensorflow.AttrValueR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy NameAttrList -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NameAttrList)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor NameAttrList
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NameAttrList Text
-> FieldDescriptor NameAttrList
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens NameAttrList NameAttrList Text Text
-> FieldAccessor NameAttrList Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor NameAttrList
        attr__field_descriptor :: FieldDescriptor NameAttrList
attr__field_descriptor
          = String
-> FieldTypeDescriptor NameAttrList'AttrEntry
-> FieldAccessor NameAttrList NameAttrList'AttrEntry
-> FieldDescriptor NameAttrList
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "attr"
              (MessageOrGroup -> FieldTypeDescriptor NameAttrList'AttrEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NameAttrList'AttrEntry)
              (Lens' NameAttrList'AttrEntry Text
-> Lens' NameAttrList'AttrEntry AttrValue
-> Lens
     NameAttrList NameAttrList (Map Text AttrValue) (Map Text AttrValue)
-> FieldAccessor NameAttrList NameAttrList'AttrEntry
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 "attr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attr")) ::
              Data.ProtoLens.FieldDescriptor NameAttrList
      in
        [(Tag, FieldDescriptor NameAttrList)]
-> Map Tag (FieldDescriptor NameAttrList)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor NameAttrList
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor NameAttrList
attr__field_descriptor)]
  unknownFields :: LensLike' f NameAttrList FieldSet
unknownFields
    = (NameAttrList -> FieldSet)
-> (NameAttrList -> FieldSet -> NameAttrList)
-> Lens' NameAttrList FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NameAttrList -> FieldSet
_NameAttrList'_unknownFields
        (\ x__ :: NameAttrList
x__ y__ :: FieldSet
y__ -> NameAttrList
x__ {_NameAttrList'_unknownFields :: FieldSet
_NameAttrList'_unknownFields = FieldSet
y__})
  defMessage :: NameAttrList
defMessage
    = $WNameAttrList'_constructor :: Text -> Map Text AttrValue -> FieldSet -> NameAttrList
NameAttrList'_constructor
        {_NameAttrList'name :: Text
_NameAttrList'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NameAttrList'attr :: Map Text AttrValue
_NameAttrList'attr = Map Text AttrValue
forall k a. Map k a
Data.Map.empty,
         _NameAttrList'_unknownFields :: FieldSet
_NameAttrList'_unknownFields = []}
  parseMessage :: Parser NameAttrList
parseMessage
    = let
        loop ::
          NameAttrList -> Data.ProtoLens.Encoding.Bytes.Parser NameAttrList
        loop :: NameAttrList -> Parser NameAttrList
loop x :: NameAttrList
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]))))
                      NameAttrList -> Parser NameAttrList
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter NameAttrList NameAttrList FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NameAttrList -> NameAttrList
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 NameAttrList NameAttrList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) NameAttrList
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                NameAttrList -> Parser NameAttrList
loop (Setter NameAttrList NameAttrList Text Text
-> Text -> NameAttrList -> NameAttrList
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y NameAttrList
x)
                        18
                          -> do !(NameAttrList'AttrEntry
entry :: NameAttrList'AttrEntry) <- Parser NameAttrList'AttrEntry
-> String -> Parser NameAttrList'AttrEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                            Int
-> Parser NameAttrList'AttrEntry -> Parser NameAttrList'AttrEntry
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 NameAttrList'AttrEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                                                        "attr"
                                (let
                                   key :: Text
key = FoldLike
  Text NameAttrList'AttrEntry NameAttrList'AttrEntry Text Text
-> NameAttrList'AttrEntry -> 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") NameAttrList'AttrEntry
entry
                                   value :: AttrValue
value
                                     = FoldLike
  AttrValue
  NameAttrList'AttrEntry
  NameAttrList'AttrEntry
  AttrValue
  AttrValue
-> NameAttrList'AttrEntry -> AttrValue
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") NameAttrList'AttrEntry
entry
                                 in
                                   NameAttrList -> Parser NameAttrList
loop
                                     (Setter
  NameAttrList NameAttrList (Map Text AttrValue) (Map Text AttrValue)
-> (Map Text AttrValue -> Map Text AttrValue)
-> NameAttrList
-> NameAttrList
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                        (forall s a (f :: * -> *).
(HasField s "attr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attr")
                                        (\ !Map Text AttrValue
t -> Text -> AttrValue -> Map Text AttrValue -> Map Text AttrValue
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key AttrValue
value Map Text AttrValue
t)
                                        NameAttrList
x))
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                NameAttrList -> Parser NameAttrList
loop
                                  (Setter NameAttrList NameAttrList FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NameAttrList -> NameAttrList
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 NameAttrList NameAttrList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) NameAttrList
x)
      in
        Parser NameAttrList -> String -> Parser NameAttrList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NameAttrList -> Parser NameAttrList
loop NameAttrList
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "NameAttrList"
  buildMessage :: NameAttrList -> Builder
buildMessage
    = \ _x :: NameAttrList
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text NameAttrList NameAttrList Text Text
-> NameAttrList -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") NameAttrList
_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.<>)
                ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                   (((Text, AttrValue) -> Builder) -> [(Text, AttrValue)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                      (\ _v :: (Text, AttrValue)
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                              ((ByteString -> Builder)
-> (NameAttrList'AttrEntry -> ByteString)
-> NameAttrList'AttrEntry
-> 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))
                                 NameAttrList'AttrEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                 (Setter NameAttrList'AttrEntry NameAttrList'AttrEntry Text Text
-> Text -> NameAttrList'AttrEntry -> NameAttrList'AttrEntry
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, AttrValue) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, AttrValue)
_v)
                                    (Setter
  NameAttrList'AttrEntry NameAttrList'AttrEntry AttrValue AttrValue
-> AttrValue -> NameAttrList'AttrEntry -> NameAttrList'AttrEntry
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, AttrValue) -> AttrValue
forall a b. (a, b) -> b
Prelude.snd (Text, AttrValue)
_v)
                                       (NameAttrList'AttrEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: NameAttrList'AttrEntry)))))
                      (Map Text AttrValue -> [(Text, AttrValue)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                         (FoldLike
  (Map Text AttrValue)
  NameAttrList
  NameAttrList
  (Map Text AttrValue)
  (Map Text AttrValue)
-> NameAttrList -> Map Text AttrValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "attr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attr") NameAttrList
_x))))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet NameAttrList NameAttrList FieldSet FieldSet
-> NameAttrList -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet NameAttrList NameAttrList FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields NameAttrList
_x)))
instance Control.DeepSeq.NFData NameAttrList where
  rnf :: NameAttrList -> ()
rnf
    = \ x__ :: NameAttrList
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NameAttrList -> FieldSet
_NameAttrList'_unknownFields NameAttrList
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NameAttrList -> Text
_NameAttrList'name NameAttrList
x__)
                (Map Text AttrValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (NameAttrList -> Map Text AttrValue
_NameAttrList'attr NameAttrList
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.key' @:: Lens' NameAttrList'AttrEntry Data.Text.Text@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.value' @:: Lens' NameAttrList'AttrEntry AttrValue@
         * 'Proto.Tensorflow.Core.Framework.AttrValue_Fields.maybe'value' @:: Lens' NameAttrList'AttrEntry (Prelude.Maybe AttrValue)@ -}
data NameAttrList'AttrEntry
  = NameAttrList'AttrEntry'_constructor {NameAttrList'AttrEntry -> Text
_NameAttrList'AttrEntry'key :: !Data.Text.Text,
                                         NameAttrList'AttrEntry -> Maybe AttrValue
_NameAttrList'AttrEntry'value :: !(Prelude.Maybe AttrValue),
                                         NameAttrList'AttrEntry -> FieldSet
_NameAttrList'AttrEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
(NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool)
-> (NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool)
-> Eq NameAttrList'AttrEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
$c/= :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
== :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
$c== :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
Prelude.Eq, Eq NameAttrList'AttrEntry
Eq NameAttrList'AttrEntry =>
(NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Ordering)
-> (NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool)
-> (NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool)
-> (NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool)
-> (NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool)
-> (NameAttrList'AttrEntry
    -> NameAttrList'AttrEntry -> NameAttrList'AttrEntry)
-> (NameAttrList'AttrEntry
    -> NameAttrList'AttrEntry -> NameAttrList'AttrEntry)
-> Ord NameAttrList'AttrEntry
NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Ordering
NameAttrList'AttrEntry
-> NameAttrList'AttrEntry -> NameAttrList'AttrEntry
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 :: NameAttrList'AttrEntry
-> NameAttrList'AttrEntry -> NameAttrList'AttrEntry
$cmin :: NameAttrList'AttrEntry
-> NameAttrList'AttrEntry -> NameAttrList'AttrEntry
max :: NameAttrList'AttrEntry
-> NameAttrList'AttrEntry -> NameAttrList'AttrEntry
$cmax :: NameAttrList'AttrEntry
-> NameAttrList'AttrEntry -> NameAttrList'AttrEntry
>= :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
$c>= :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
> :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
$c> :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
<= :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
$c<= :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
< :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
$c< :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Bool
compare :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Ordering
$ccompare :: NameAttrList'AttrEntry -> NameAttrList'AttrEntry -> Ordering
$cp1Ord :: Eq NameAttrList'AttrEntry
Prelude.Ord)
instance Prelude.Show NameAttrList'AttrEntry where
  showsPrec :: Int -> NameAttrList'AttrEntry -> ShowS
showsPrec _ __x :: NameAttrList'AttrEntry
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (NameAttrList'AttrEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NameAttrList'AttrEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField NameAttrList'AttrEntry "key" Data.Text.Text where
  fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> NameAttrList'AttrEntry
-> f NameAttrList'AttrEntry
fieldOf _
    = ((Text -> f Text)
 -> NameAttrList'AttrEntry -> f NameAttrList'AttrEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NameAttrList'AttrEntry
-> f NameAttrList'AttrEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NameAttrList'AttrEntry -> Text)
-> (NameAttrList'AttrEntry -> Text -> NameAttrList'AttrEntry)
-> Lens' NameAttrList'AttrEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NameAttrList'AttrEntry -> Text
_NameAttrList'AttrEntry'key
           (\ x__ :: NameAttrList'AttrEntry
x__ y__ :: Text
y__ -> NameAttrList'AttrEntry
x__ {_NameAttrList'AttrEntry'key :: Text
_NameAttrList'AttrEntry'key = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NameAttrList'AttrEntry "value" AttrValue where
  fieldOf :: Proxy# "value"
-> (AttrValue -> f AttrValue)
-> NameAttrList'AttrEntry
-> f NameAttrList'AttrEntry
fieldOf _
    = ((Maybe AttrValue -> f (Maybe AttrValue))
 -> NameAttrList'AttrEntry -> f NameAttrList'AttrEntry)
-> ((AttrValue -> f AttrValue)
    -> Maybe AttrValue -> f (Maybe AttrValue))
-> (AttrValue -> f AttrValue)
-> NameAttrList'AttrEntry
-> f NameAttrList'AttrEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NameAttrList'AttrEntry -> Maybe AttrValue)
-> (NameAttrList'AttrEntry
    -> Maybe AttrValue -> NameAttrList'AttrEntry)
-> Lens
     NameAttrList'AttrEntry
     NameAttrList'AttrEntry
     (Maybe AttrValue)
     (Maybe AttrValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NameAttrList'AttrEntry -> Maybe AttrValue
_NameAttrList'AttrEntry'value
           (\ x__ :: NameAttrList'AttrEntry
x__ y__ :: Maybe AttrValue
y__ -> NameAttrList'AttrEntry
x__ {_NameAttrList'AttrEntry'value :: Maybe AttrValue
_NameAttrList'AttrEntry'value = Maybe AttrValue
y__}))
        (AttrValue -> Lens' (Maybe AttrValue) AttrValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AttrValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField NameAttrList'AttrEntry "maybe'value" (Prelude.Maybe AttrValue) where
  fieldOf :: Proxy# "maybe'value"
-> (Maybe AttrValue -> f (Maybe AttrValue))
-> NameAttrList'AttrEntry
-> f NameAttrList'AttrEntry
fieldOf _
    = ((Maybe AttrValue -> f (Maybe AttrValue))
 -> NameAttrList'AttrEntry -> f NameAttrList'AttrEntry)
-> ((Maybe AttrValue -> f (Maybe AttrValue))
    -> Maybe AttrValue -> f (Maybe AttrValue))
-> (Maybe AttrValue -> f (Maybe AttrValue))
-> NameAttrList'AttrEntry
-> f NameAttrList'AttrEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NameAttrList'AttrEntry -> Maybe AttrValue)
-> (NameAttrList'AttrEntry
    -> Maybe AttrValue -> NameAttrList'AttrEntry)
-> Lens
     NameAttrList'AttrEntry
     NameAttrList'AttrEntry
     (Maybe AttrValue)
     (Maybe AttrValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NameAttrList'AttrEntry -> Maybe AttrValue
_NameAttrList'AttrEntry'value
           (\ x__ :: NameAttrList'AttrEntry
x__ y__ :: Maybe AttrValue
y__ -> NameAttrList'AttrEntry
x__ {_NameAttrList'AttrEntry'value :: Maybe AttrValue
_NameAttrList'AttrEntry'value = Maybe AttrValue
y__}))
        (Maybe AttrValue -> f (Maybe AttrValue))
-> Maybe AttrValue -> f (Maybe AttrValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NameAttrList'AttrEntry where
  messageName :: Proxy NameAttrList'AttrEntry -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.NameAttrList.AttrEntry"
  packedMessageDescriptor :: Proxy NameAttrList'AttrEntry -> ByteString
packedMessageDescriptor _
    = "\n\
      \\tAttrEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2+\n\
      \\ENQvalue\CAN\STX \SOH(\v2\NAK.tensorflow.AttrValueR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy NameAttrList'AttrEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NameAttrList'AttrEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor NameAttrList'AttrEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NameAttrList'AttrEntry Text
-> FieldDescriptor NameAttrList'AttrEntry
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' NameAttrList'AttrEntry Text
-> FieldAccessor NameAttrList'AttrEntry 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 NameAttrList'AttrEntry
        value__field_descriptor :: FieldDescriptor NameAttrList'AttrEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor AttrValue
-> FieldAccessor NameAttrList'AttrEntry AttrValue
-> FieldDescriptor NameAttrList'AttrEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (MessageOrGroup -> FieldTypeDescriptor AttrValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AttrValue)
              (Lens
  NameAttrList'AttrEntry
  NameAttrList'AttrEntry
  (Maybe AttrValue)
  (Maybe AttrValue)
-> FieldAccessor NameAttrList'AttrEntry AttrValue
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 NameAttrList'AttrEntry
      in
        [(Tag, FieldDescriptor NameAttrList'AttrEntry)]
-> Map Tag (FieldDescriptor NameAttrList'AttrEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor NameAttrList'AttrEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor NameAttrList'AttrEntry
value__field_descriptor)]
  unknownFields :: LensLike' f NameAttrList'AttrEntry FieldSet
unknownFields
    = (NameAttrList'AttrEntry -> FieldSet)
-> (NameAttrList'AttrEntry -> FieldSet -> NameAttrList'AttrEntry)
-> Lens' NameAttrList'AttrEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NameAttrList'AttrEntry -> FieldSet
_NameAttrList'AttrEntry'_unknownFields
        (\ x__ :: NameAttrList'AttrEntry
x__ y__ :: FieldSet
y__ -> NameAttrList'AttrEntry
x__ {_NameAttrList'AttrEntry'_unknownFields :: FieldSet
_NameAttrList'AttrEntry'_unknownFields = FieldSet
y__})
  defMessage :: NameAttrList'AttrEntry
defMessage
    = $WNameAttrList'AttrEntry'_constructor :: Text -> Maybe AttrValue -> FieldSet -> NameAttrList'AttrEntry
NameAttrList'AttrEntry'_constructor
        {_NameAttrList'AttrEntry'key :: Text
_NameAttrList'AttrEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NameAttrList'AttrEntry'value :: Maybe AttrValue
_NameAttrList'AttrEntry'value = Maybe AttrValue
forall a. Maybe a
Prelude.Nothing,
         _NameAttrList'AttrEntry'_unknownFields :: FieldSet
_NameAttrList'AttrEntry'_unknownFields = []}
  parseMessage :: Parser NameAttrList'AttrEntry
parseMessage
    = let
        loop ::
          NameAttrList'AttrEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser NameAttrList'AttrEntry
        loop :: NameAttrList'AttrEntry -> Parser NameAttrList'AttrEntry
loop x :: NameAttrList'AttrEntry
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]))))
                      NameAttrList'AttrEntry -> Parser NameAttrList'AttrEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  NameAttrList'AttrEntry NameAttrList'AttrEntry FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> NameAttrList'AttrEntry
-> NameAttrList'AttrEntry
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
  NameAttrList'AttrEntry NameAttrList'AttrEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) NameAttrList'AttrEntry
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"
                                NameAttrList'AttrEntry -> Parser NameAttrList'AttrEntry
loop (Setter NameAttrList'AttrEntry NameAttrList'AttrEntry Text Text
-> Text -> NameAttrList'AttrEntry -> NameAttrList'AttrEntry
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 NameAttrList'AttrEntry
x)
                        18
                          -> do AttrValue
y <- Parser AttrValue -> String -> Parser AttrValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser AttrValue -> Parser AttrValue
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 AttrValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "value"
                                NameAttrList'AttrEntry -> Parser NameAttrList'AttrEntry
loop (Setter
  NameAttrList'AttrEntry NameAttrList'AttrEntry AttrValue AttrValue
-> AttrValue -> NameAttrList'AttrEntry -> NameAttrList'AttrEntry
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") AttrValue
y NameAttrList'AttrEntry
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                NameAttrList'AttrEntry -> Parser NameAttrList'AttrEntry
loop
                                  (Setter
  NameAttrList'AttrEntry NameAttrList'AttrEntry FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> NameAttrList'AttrEntry
-> NameAttrList'AttrEntry
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
  NameAttrList'AttrEntry NameAttrList'AttrEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) NameAttrList'AttrEntry
x)
      in
        Parser NameAttrList'AttrEntry
-> String -> Parser NameAttrList'AttrEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NameAttrList'AttrEntry -> Parser NameAttrList'AttrEntry
loop NameAttrList'AttrEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "AttrEntry"
  buildMessage :: NameAttrList'AttrEntry -> Builder
buildMessage
    = \ _x :: NameAttrList'AttrEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text NameAttrList'AttrEntry NameAttrList'AttrEntry Text Text
-> NameAttrList'AttrEntry -> 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") NameAttrList'AttrEntry
_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 AttrValue)
  NameAttrList'AttrEntry
  NameAttrList'AttrEntry
  (Maybe AttrValue)
  (Maybe AttrValue)
-> NameAttrList'AttrEntry -> Maybe AttrValue
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") NameAttrList'AttrEntry
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: AttrValue
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (AttrValue -> ByteString) -> AttrValue -> 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))
                             AttrValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             AttrValue
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  NameAttrList'AttrEntry
  NameAttrList'AttrEntry
  FieldSet
  FieldSet
-> NameAttrList'AttrEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  NameAttrList'AttrEntry
  NameAttrList'AttrEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields NameAttrList'AttrEntry
_x)))
instance Control.DeepSeq.NFData NameAttrList'AttrEntry where
  rnf :: NameAttrList'AttrEntry -> ()
rnf
    = \ x__ :: NameAttrList'AttrEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NameAttrList'AttrEntry -> FieldSet
_NameAttrList'AttrEntry'_unknownFields NameAttrList'AttrEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NameAttrList'AttrEntry -> Text
_NameAttrList'AttrEntry'key NameAttrList'AttrEntry
x__)
                (Maybe AttrValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (NameAttrList'AttrEntry -> Maybe AttrValue
_NameAttrList'AttrEntry'value NameAttrList'AttrEntry
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = "\n\
    \*tensorflow/core/framework/attr_value.proto\DC2\n\
    \tensorflow\SUB&tensorflow/core/framework/tensor.proto\SUB,tensorflow/core/framework/tensor_shape.proto\SUB%tensorflow/core/framework/types.proto\"\135\ENQ\n\
    \\tAttrValue\DC2\SO\n\
    \\SOHs\CAN\STX \SOH(\fH\NULR\SOHs\DC2\SO\n\
    \\SOHi\CAN\ETX \SOH(\ETXH\NULR\SOHi\DC2\SO\n\
    \\SOHf\CAN\EOT \SOH(\STXH\NULR\SOHf\DC2\SO\n\
    \\SOHb\CAN\ENQ \SOH(\bH\NULR\SOHb\DC2*\n\
    \\EOTtype\CAN\ACK \SOH(\SO2\DC4.tensorflow.DataTypeH\NULR\EOTtype\DC24\n\
    \\ENQshape\CAN\a \SOH(\v2\FS.tensorflow.TensorShapeProtoH\NULR\ENQshape\DC21\n\
    \\ACKtensor\CAN\b \SOH(\v2\ETB.tensorflow.TensorProtoH\NULR\ACKtensor\DC25\n\
    \\EOTlist\CAN\SOH \SOH(\v2\US.tensorflow.AttrValue.ListValueH\NULR\EOTlist\DC2.\n\
    \\EOTfunc\CAN\n\
    \ \SOH(\v2\CAN.tensorflow.NameAttrListH\NULR\EOTfunc\DC2\"\n\
    \\vplaceholder\CAN\t \SOH(\tH\NULR\vplaceholder\SUB\144\STX\n\
    \\tListValue\DC2\f\n\
    \\SOHs\CAN\STX \ETX(\fR\SOHs\DC2\DLE\n\
    \\SOHi\CAN\ETX \ETX(\ETXR\SOHiB\STX\DLE\SOH\DC2\DLE\n\
    \\SOHf\CAN\EOT \ETX(\STXR\SOHfB\STX\DLE\SOH\DC2\DLE\n\
    \\SOHb\CAN\ENQ \ETX(\bR\SOHbB\STX\DLE\SOH\DC2,\n\
    \\EOTtype\CAN\ACK \ETX(\SO2\DC4.tensorflow.DataTypeR\EOTtypeB\STX\DLE\SOH\DC22\n\
    \\ENQshape\CAN\a \ETX(\v2\FS.tensorflow.TensorShapeProtoR\ENQshape\DC2/\n\
    \\ACKtensor\CAN\b \ETX(\v2\ETB.tensorflow.TensorProtoR\ACKtensor\DC2,\n\
    \\EOTfunc\CAN\t \ETX(\v2\CAN.tensorflow.NameAttrListR\EOTfuncB\a\n\
    \\ENQvalue\"\170\SOH\n\
    \\fNameAttrList\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC26\n\
    \\EOTattr\CAN\STX \ETX(\v2\".tensorflow.NameAttrList.AttrEntryR\EOTattr\SUBN\n\
    \\tAttrEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2+\n\
    \\ENQvalue\CAN\STX \SOH(\v2\NAK.tensorflow.AttrValueR\ENQvalue:\STX8\SOHB\131\SOH\n\
    \\CANorg.tensorflow.frameworkB\SIAttrValueProtosP\SOHZQgithub.com/tensorflow/tensorflow/tensorflow/go/core/framework/attr_value_go_proto\248\SOH\SOHJ\170\SYN\n\
    \\ACK\DC2\EOT\NUL\NUL?\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\STX\NUL\DC3\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\EOT\NUL0\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX\ENQ\NUL6\n\
    \\t\n\
    \\STX\ETX\STX\DC2\ETX\ACK\NUL/\n\
    \\b\n\
    \\SOH\b\DC2\ETX\b\NUL\US\n\
    \\t\n\
    \\STX\b\US\DC2\ETX\b\NUL\US\n\
    \\b\n\
    \\SOH\b\DC2\ETX\t\NUL0\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\t\NUL0\n\
    \\b\n\
    \\SOH\b\DC2\ETX\n\
    \\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\n\
    \\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\v\NUL1\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\v\NUL1\n\
    \\b\n\
    \\SOH\b\DC2\ETX\f\NULh\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\f\NULh\n\
    \\193\SOH\n\
    \\STX\EOT\NUL\DC2\EOT\DC1\NUL8\SOH\SUB\180\SOH Protocol buffer representing the value for an attr used to configure an Op.\n\
    \ Comment indicates the corresponding attr type.  Only the field matching the\n\
    \ attr type may be filled.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\DC1\b\DC1\n\
    \\GS\n\
    \\EOT\EOT\NUL\ETX\NUL\DC2\EOT\DC3\STX\FS\ETX\SUB\SI LINT.IfChange\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\ETX\NUL\SOH\DC2\ETX\DC3\n\
    \\DC3\n\
    \\US\n\
    \\ACK\EOT\NUL\ETX\NUL\STX\NUL\DC2\ETX\DC4\EOT\EM\"\DLE \"list(string)\"\n\
    \\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\NUL\EOT\DC2\ETX\DC4\EOT\f\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\NUL\ENQ\DC2\ETX\DC4\r\DC2\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX\DC4\DC3\DC4\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX\DC4\ETB\CAN\n\
    \\FS\n\
    \\ACK\EOT\NUL\ETX\NUL\STX\SOH\DC2\ETX\NAK\EOT)\"\r \"list(int)\"\n\
    \\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\SOH\EOT\DC2\ETX\NAK\EOT\f\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\SOH\ENQ\DC2\ETX\NAK\r\DC2\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX\NAK\DC3\DC4\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX\NAK\ETB\CAN\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\SOH\b\DC2\ETX\NAK\EM(\n\
    \\SI\n\
    \\b\EOT\NUL\ETX\NUL\STX\SOH\b\STX\DC2\ETX\NAK\SUB'\n\
    \\RS\n\
    \\ACK\EOT\NUL\ETX\NUL\STX\STX\DC2\ETX\SYN\EOT)\"\SI \"list(float)\"\n\
    \\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\STX\EOT\DC2\ETX\SYN\EOT\f\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\STX\ENQ\DC2\ETX\SYN\r\DC2\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\STX\SOH\DC2\ETX\SYN\DC3\DC4\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\STX\ETX\DC2\ETX\SYN\ETB\CAN\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\STX\b\DC2\ETX\SYN\EM(\n\
    \\SI\n\
    \\b\EOT\NUL\ETX\NUL\STX\STX\b\STX\DC2\ETX\SYN\SUB'\n\
    \\GS\n\
    \\ACK\EOT\NUL\ETX\NUL\STX\ETX\DC2\ETX\ETB\EOT(\"\SO \"list(bool)\"\n\
    \\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ETX\EOT\DC2\ETX\ETB\EOT\f\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ETX\ENQ\DC2\ETX\ETB\r\DC1\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ETX\SOH\DC2\ETX\ETB\DC2\DC3\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ETX\ETX\DC2\ETX\ETB\SYN\ETB\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ETX\b\DC2\ETX\ETB\CAN'\n\
    \\SI\n\
    \\b\EOT\NUL\ETX\NUL\STX\ETX\b\STX\DC2\ETX\ETB\EM&\n\
    \\GS\n\
    \\ACK\EOT\NUL\ETX\NUL\STX\EOT\DC2\ETX\CAN\EOT/\"\SO \"list(type)\"\n\
    \\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\EOT\EOT\DC2\ETX\CAN\EOT\f\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\EOT\ACK\DC2\ETX\CAN\r\NAK\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\EOT\SOH\DC2\ETX\CAN\SYN\SUB\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\EOT\ETX\DC2\ETX\CAN\GS\RS\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\EOT\b\DC2\ETX\CAN\US.\n\
    \\SI\n\
    \\b\EOT\NUL\ETX\NUL\STX\EOT\b\STX\DC2\ETX\CAN -\n\
    \\RS\n\
    \\ACK\EOT\NUL\ETX\NUL\STX\ENQ\DC2\ETX\EM\EOT(\"\SI \"list(shape)\"\n\
    \\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ENQ\EOT\DC2\ETX\EM\EOT\f\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ENQ\ACK\DC2\ETX\EM\r\GS\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ENQ\SOH\DC2\ETX\EM\RS#\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ENQ\ETX\DC2\ETX\EM&'\n\
    \\US\n\
    \\ACK\EOT\NUL\ETX\NUL\STX\ACK\DC2\ETX\SUB\EOT$\"\DLE \"list(tensor)\"\n\
    \\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ACK\EOT\DC2\ETX\SUB\EOT\f\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ACK\ACK\DC2\ETX\SUB\r\CAN\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ACK\SOH\DC2\ETX\SUB\EM\US\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\ACK\ETX\DC2\ETX\SUB\"#\n\
    \\GS\n\
    \\ACK\EOT\NUL\ETX\NUL\STX\a\DC2\ETX\ESC\EOT#\"\SO \"list(attr)\"\n\
    \\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\a\EOT\DC2\ETX\ESC\EOT\f\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\a\ACK\DC2\ETX\ESC\r\EM\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\a\SOH\DC2\ETX\ESC\SUB\RS\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\NUL\STX\a\ETX\DC2\ETX\ESC!\"\n\
    \\f\n\
    \\EOT\EOT\NUL\b\NUL\DC2\EOT\US\STX7\ETX\n\
    \\f\n\
    \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\US\b\r\n\
    \\ETB\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX \EOT\DLE\"\n\
    \ \"string\"\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX \EOT\t\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX \n\
    \\v\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX \SO\SI\n\
    \\DC4\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX!\EOT\DLE\"\a \"int\"\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX!\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX!\n\
    \\v\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX!\SO\SI\n\
    \\SYN\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX\"\EOT\DLE\"\t \"float\"\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\"\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\"\n\
    \\v\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\"\SO\SI\n\
    \\NAK\n\
    \\EOT\EOT\NUL\STX\ETX\DC2\ETX#\EOT\SI\"\b \"bool\"\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX#\EOT\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX#\t\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX#\r\SO\n\
    \\NAK\n\
    \\EOT\EOT\NUL\STX\EOT\DC2\ETX$\EOT\SYN\"\b \"type\"\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ACK\DC2\ETX$\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX$\r\DC1\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX$\DC4\NAK\n\
    \\SYN\n\
    \\EOT\EOT\NUL\STX\ENQ\DC2\ETX%\EOT\US\"\t \"shape\"\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ACK\DC2\ETX%\EOT\DC4\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETX%\NAK\SUB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETX%\GS\RS\n\
    \\ETB\n\
    \\EOT\EOT\NUL\STX\ACK\DC2\ETX&\EOT\ESC\"\n\
    \ \"tensor\"\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ACK\ACK\DC2\ETX&\EOT\SI\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ACK\SOH\DC2\ETX&\DLE\SYN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ACK\ETX\DC2\ETX&\EM\SUB\n\
    \\RS\n\
    \\EOT\EOT\NUL\STX\a\DC2\ETX'\EOT\ETB\"\DC1 any \"list(...)\"\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\a\ACK\DC2\ETX'\EOT\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\a\SOH\DC2\ETX'\SO\DC2\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\a\ETX\DC2\ETX'\NAK\SYN\n\
    \\237\SOH\n\
    \\EOT\EOT\NUL\STX\b\DC2\ETX-\EOT\ESC\SUB\223\SOH \"func\" represents a function. func.name is a function's name or\n\
    \ a primitive op's name. func.attr.first is the name of an attr\n\
    \ defined for that function. func.attr.second is the value for\n\
    \ that attr in the instantiation.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\b\ACK\DC2\ETX-\EOT\DLE\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\b\SOH\DC2\ETX-\DC1\NAK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\b\ETX\DC2\ETX-\CAN\SUB\n\
    \\149\ETX\n\
    \\EOT\EOT\NUL\STX\t\DC2\ETX6\EOT\ESC\SUB\135\ETX This is a placeholder only used in nodes defined inside a\n\
    \ function.  It indicates the attr value will be supplied when\n\
    \ the function is instantiated.  For example, let us suppose a\n\
    \ node \"N\" in function \"FN\". \"N\" has an attr \"A\" with value\n\
    \ placeholder = \"foo\". When FN is instantiated with attr \"foo\"\n\
    \ set to \"bar\", the instantiated node N's attr A will have been\n\
    \ given the value \"bar\".\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\t\ENQ\DC2\ETX6\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\t\SOH\DC2\ETX6\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\t\ETX\DC2\ETX6\EM\SUB\n\
    \|\n\
    \\STX\EOT\SOH\DC2\EOT<\NUL?\SOH\SUBp A list of attr names and their values. The whole list is attached\n\
    \ with a string name.  E.g., MatMul[T=float].\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX<\b\DC4\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX=\STX\DC2\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX=\STX\b\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX=\t\r\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX=\DLE\DC1\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX>\STX\"\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX>\STX\CAN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX>\EM\GS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX> !b\ACKproto3"