{-# 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.OpDef (
OpDef(), OpDef'ArgDef(), OpDef'AttrDef(), OpDeprecation(), OpList()
) 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.AttrValue
import qualified Proto.Tensorflow.Core.Framework.Types
data OpDef
= OpDef'_constructor {OpDef -> Text
_OpDef'name :: !Data.Text.Text,
OpDef -> Vector OpDef'ArgDef
_OpDef'inputArg :: !(Data.Vector.Vector OpDef'ArgDef),
OpDef -> Vector OpDef'ArgDef
_OpDef'outputArg :: !(Data.Vector.Vector OpDef'ArgDef),
OpDef -> Vector Text
_OpDef'controlOutput :: !(Data.Vector.Vector Data.Text.Text),
OpDef -> Vector OpDef'AttrDef
_OpDef'attr :: !(Data.Vector.Vector OpDef'AttrDef),
OpDef -> Maybe OpDeprecation
_OpDef'deprecation :: !(Prelude.Maybe OpDeprecation),
OpDef -> Text
_OpDef'summary :: !Data.Text.Text,
OpDef -> Text
_OpDef'description :: !Data.Text.Text,
OpDef -> Bool
_OpDef'isCommutative :: !Prelude.Bool,
OpDef -> Bool
_OpDef'isAggregate :: !Prelude.Bool,
OpDef -> Bool
_OpDef'isStateful :: !Prelude.Bool,
OpDef -> Bool
_OpDef'allowsUninitializedInput :: !Prelude.Bool,
OpDef -> FieldSet
_OpDef'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (OpDef -> OpDef -> Bool
(OpDef -> OpDef -> Bool) -> (OpDef -> OpDef -> Bool) -> Eq OpDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpDef -> OpDef -> Bool
$c/= :: OpDef -> OpDef -> Bool
== :: OpDef -> OpDef -> Bool
$c== :: OpDef -> OpDef -> Bool
Prelude.Eq, Eq OpDef
Eq OpDef =>
(OpDef -> OpDef -> Ordering)
-> (OpDef -> OpDef -> Bool)
-> (OpDef -> OpDef -> Bool)
-> (OpDef -> OpDef -> Bool)
-> (OpDef -> OpDef -> Bool)
-> (OpDef -> OpDef -> OpDef)
-> (OpDef -> OpDef -> OpDef)
-> Ord OpDef
OpDef -> OpDef -> Bool
OpDef -> OpDef -> Ordering
OpDef -> OpDef -> OpDef
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 :: OpDef -> OpDef -> OpDef
$cmin :: OpDef -> OpDef -> OpDef
max :: OpDef -> OpDef -> OpDef
$cmax :: OpDef -> OpDef -> OpDef
>= :: OpDef -> OpDef -> Bool
$c>= :: OpDef -> OpDef -> Bool
> :: OpDef -> OpDef -> Bool
$c> :: OpDef -> OpDef -> Bool
<= :: OpDef -> OpDef -> Bool
$c<= :: OpDef -> OpDef -> Bool
< :: OpDef -> OpDef -> Bool
$c< :: OpDef -> OpDef -> Bool
compare :: OpDef -> OpDef -> Ordering
$ccompare :: OpDef -> OpDef -> Ordering
$cp1Ord :: Eq OpDef
Prelude.Ord)
instance Prelude.Show OpDef where
showsPrec :: Int -> OpDef -> ShowS
showsPrec _ __x :: OpDef
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(OpDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OpDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField OpDef "name" Data.Text.Text where
fieldOf :: Proxy# "name" -> (Text -> f Text) -> OpDef -> f OpDef
fieldOf _
= ((Text -> f Text) -> OpDef -> f OpDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Text)
-> (OpDef -> Text -> OpDef) -> Lens OpDef OpDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Text
_OpDef'name (\ x__ :: OpDef
x__ y__ :: Text
y__ -> OpDef
x__ {_OpDef'name :: Text
_OpDef'name = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef "inputArg" [OpDef'ArgDef] where
fieldOf :: Proxy# "inputArg"
-> ([OpDef'ArgDef] -> f [OpDef'ArgDef]) -> OpDef -> f OpDef
fieldOf _
= ((Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> OpDef -> f OpDef)
-> (([OpDef'ArgDef] -> f [OpDef'ArgDef])
-> Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> ([OpDef'ArgDef] -> f [OpDef'ArgDef])
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Vector OpDef'ArgDef)
-> (OpDef -> Vector OpDef'ArgDef -> OpDef)
-> Lens OpDef OpDef (Vector OpDef'ArgDef) (Vector OpDef'ArgDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Vector OpDef'ArgDef
_OpDef'inputArg (\ x__ :: OpDef
x__ y__ :: Vector OpDef'ArgDef
y__ -> OpDef
x__ {_OpDef'inputArg :: Vector OpDef'ArgDef
_OpDef'inputArg = Vector OpDef'ArgDef
y__}))
((Vector OpDef'ArgDef -> [OpDef'ArgDef])
-> (Vector OpDef'ArgDef -> [OpDef'ArgDef] -> Vector OpDef'ArgDef)
-> Lens
(Vector OpDef'ArgDef)
(Vector OpDef'ArgDef)
[OpDef'ArgDef]
[OpDef'ArgDef]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector OpDef'ArgDef -> [OpDef'ArgDef]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [OpDef'ArgDef]
y__ -> [OpDef'ArgDef] -> Vector OpDef'ArgDef
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [OpDef'ArgDef]
y__))
instance Data.ProtoLens.Field.HasField OpDef "vec'inputArg" (Data.Vector.Vector OpDef'ArgDef) where
fieldOf :: Proxy# "vec'inputArg"
-> (Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> OpDef
-> f OpDef
fieldOf _
= ((Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> OpDef -> f OpDef)
-> ((Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> (Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Vector OpDef'ArgDef)
-> (OpDef -> Vector OpDef'ArgDef -> OpDef)
-> Lens OpDef OpDef (Vector OpDef'ArgDef) (Vector OpDef'ArgDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Vector OpDef'ArgDef
_OpDef'inputArg (\ x__ :: OpDef
x__ y__ :: Vector OpDef'ArgDef
y__ -> OpDef
x__ {_OpDef'inputArg :: Vector OpDef'ArgDef
_OpDef'inputArg = Vector OpDef'ArgDef
y__}))
(Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef "outputArg" [OpDef'ArgDef] where
fieldOf :: Proxy# "outputArg"
-> ([OpDef'ArgDef] -> f [OpDef'ArgDef]) -> OpDef -> f OpDef
fieldOf _
= ((Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> OpDef -> f OpDef)
-> (([OpDef'ArgDef] -> f [OpDef'ArgDef])
-> Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> ([OpDef'ArgDef] -> f [OpDef'ArgDef])
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Vector OpDef'ArgDef)
-> (OpDef -> Vector OpDef'ArgDef -> OpDef)
-> Lens OpDef OpDef (Vector OpDef'ArgDef) (Vector OpDef'ArgDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Vector OpDef'ArgDef
_OpDef'outputArg (\ x__ :: OpDef
x__ y__ :: Vector OpDef'ArgDef
y__ -> OpDef
x__ {_OpDef'outputArg :: Vector OpDef'ArgDef
_OpDef'outputArg = Vector OpDef'ArgDef
y__}))
((Vector OpDef'ArgDef -> [OpDef'ArgDef])
-> (Vector OpDef'ArgDef -> [OpDef'ArgDef] -> Vector OpDef'ArgDef)
-> Lens
(Vector OpDef'ArgDef)
(Vector OpDef'ArgDef)
[OpDef'ArgDef]
[OpDef'ArgDef]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector OpDef'ArgDef -> [OpDef'ArgDef]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [OpDef'ArgDef]
y__ -> [OpDef'ArgDef] -> Vector OpDef'ArgDef
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [OpDef'ArgDef]
y__))
instance Data.ProtoLens.Field.HasField OpDef "vec'outputArg" (Data.Vector.Vector OpDef'ArgDef) where
fieldOf :: Proxy# "vec'outputArg"
-> (Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> OpDef
-> f OpDef
fieldOf _
= ((Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> OpDef -> f OpDef)
-> ((Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> (Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Vector OpDef'ArgDef)
-> (OpDef -> Vector OpDef'ArgDef -> OpDef)
-> Lens OpDef OpDef (Vector OpDef'ArgDef) (Vector OpDef'ArgDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Vector OpDef'ArgDef
_OpDef'outputArg (\ x__ :: OpDef
x__ y__ :: Vector OpDef'ArgDef
y__ -> OpDef
x__ {_OpDef'outputArg :: Vector OpDef'ArgDef
_OpDef'outputArg = Vector OpDef'ArgDef
y__}))
(Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef))
-> Vector OpDef'ArgDef -> f (Vector OpDef'ArgDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef "controlOutput" [Data.Text.Text] where
fieldOf :: Proxy# "controlOutput" -> ([Text] -> f [Text]) -> OpDef -> f OpDef
fieldOf _
= ((Vector Text -> f (Vector Text)) -> OpDef -> f OpDef)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Vector Text)
-> (OpDef -> Vector Text -> OpDef)
-> Lens OpDef OpDef (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Vector Text
_OpDef'controlOutput
(\ x__ :: OpDef
x__ y__ :: Vector Text
y__ -> OpDef
x__ {_OpDef'controlOutput :: Vector Text
_OpDef'controlOutput = Vector Text
y__}))
((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField OpDef "vec'controlOutput" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: Proxy# "vec'controlOutput"
-> (Vector Text -> f (Vector Text)) -> OpDef -> f OpDef
fieldOf _
= ((Vector Text -> f (Vector Text)) -> OpDef -> f OpDef)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Vector Text)
-> (OpDef -> Vector Text -> OpDef)
-> Lens OpDef OpDef (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Vector Text
_OpDef'controlOutput
(\ x__ :: OpDef
x__ y__ :: Vector Text
y__ -> OpDef
x__ {_OpDef'controlOutput :: Vector Text
_OpDef'controlOutput = Vector Text
y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef "attr" [OpDef'AttrDef] where
fieldOf :: Proxy# "attr"
-> ([OpDef'AttrDef] -> f [OpDef'AttrDef]) -> OpDef -> f OpDef
fieldOf _
= ((Vector OpDef'AttrDef -> f (Vector OpDef'AttrDef))
-> OpDef -> f OpDef)
-> (([OpDef'AttrDef] -> f [OpDef'AttrDef])
-> Vector OpDef'AttrDef -> f (Vector OpDef'AttrDef))
-> ([OpDef'AttrDef] -> f [OpDef'AttrDef])
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Vector OpDef'AttrDef)
-> (OpDef -> Vector OpDef'AttrDef -> OpDef)
-> Lens OpDef OpDef (Vector OpDef'AttrDef) (Vector OpDef'AttrDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Vector OpDef'AttrDef
_OpDef'attr (\ x__ :: OpDef
x__ y__ :: Vector OpDef'AttrDef
y__ -> OpDef
x__ {_OpDef'attr :: Vector OpDef'AttrDef
_OpDef'attr = Vector OpDef'AttrDef
y__}))
((Vector OpDef'AttrDef -> [OpDef'AttrDef])
-> (Vector OpDef'AttrDef
-> [OpDef'AttrDef] -> Vector OpDef'AttrDef)
-> Lens
(Vector OpDef'AttrDef)
(Vector OpDef'AttrDef)
[OpDef'AttrDef]
[OpDef'AttrDef]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector OpDef'AttrDef -> [OpDef'AttrDef]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [OpDef'AttrDef]
y__ -> [OpDef'AttrDef] -> Vector OpDef'AttrDef
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [OpDef'AttrDef]
y__))
instance Data.ProtoLens.Field.HasField OpDef "vec'attr" (Data.Vector.Vector OpDef'AttrDef) where
fieldOf :: Proxy# "vec'attr"
-> (Vector OpDef'AttrDef -> f (Vector OpDef'AttrDef))
-> OpDef
-> f OpDef
fieldOf _
= ((Vector OpDef'AttrDef -> f (Vector OpDef'AttrDef))
-> OpDef -> f OpDef)
-> ((Vector OpDef'AttrDef -> f (Vector OpDef'AttrDef))
-> Vector OpDef'AttrDef -> f (Vector OpDef'AttrDef))
-> (Vector OpDef'AttrDef -> f (Vector OpDef'AttrDef))
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Vector OpDef'AttrDef)
-> (OpDef -> Vector OpDef'AttrDef -> OpDef)
-> Lens OpDef OpDef (Vector OpDef'AttrDef) (Vector OpDef'AttrDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Vector OpDef'AttrDef
_OpDef'attr (\ x__ :: OpDef
x__ y__ :: Vector OpDef'AttrDef
y__ -> OpDef
x__ {_OpDef'attr :: Vector OpDef'AttrDef
_OpDef'attr = Vector OpDef'AttrDef
y__}))
(Vector OpDef'AttrDef -> f (Vector OpDef'AttrDef))
-> Vector OpDef'AttrDef -> f (Vector OpDef'AttrDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef "deprecation" OpDeprecation where
fieldOf :: Proxy# "deprecation"
-> (OpDeprecation -> f OpDeprecation) -> OpDef -> f OpDef
fieldOf _
= ((Maybe OpDeprecation -> f (Maybe OpDeprecation))
-> OpDef -> f OpDef)
-> ((OpDeprecation -> f OpDeprecation)
-> Maybe OpDeprecation -> f (Maybe OpDeprecation))
-> (OpDeprecation -> f OpDeprecation)
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Maybe OpDeprecation)
-> (OpDef -> Maybe OpDeprecation -> OpDef)
-> Lens OpDef OpDef (Maybe OpDeprecation) (Maybe OpDeprecation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Maybe OpDeprecation
_OpDef'deprecation (\ x__ :: OpDef
x__ y__ :: Maybe OpDeprecation
y__ -> OpDef
x__ {_OpDef'deprecation :: Maybe OpDeprecation
_OpDef'deprecation = Maybe OpDeprecation
y__}))
(OpDeprecation -> Lens' (Maybe OpDeprecation) OpDeprecation
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens OpDeprecation
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField OpDef "maybe'deprecation" (Prelude.Maybe OpDeprecation) where
fieldOf :: Proxy# "maybe'deprecation"
-> (Maybe OpDeprecation -> f (Maybe OpDeprecation))
-> OpDef
-> f OpDef
fieldOf _
= ((Maybe OpDeprecation -> f (Maybe OpDeprecation))
-> OpDef -> f OpDef)
-> ((Maybe OpDeprecation -> f (Maybe OpDeprecation))
-> Maybe OpDeprecation -> f (Maybe OpDeprecation))
-> (Maybe OpDeprecation -> f (Maybe OpDeprecation))
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Maybe OpDeprecation)
-> (OpDef -> Maybe OpDeprecation -> OpDef)
-> Lens OpDef OpDef (Maybe OpDeprecation) (Maybe OpDeprecation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Maybe OpDeprecation
_OpDef'deprecation (\ x__ :: OpDef
x__ y__ :: Maybe OpDeprecation
y__ -> OpDef
x__ {_OpDef'deprecation :: Maybe OpDeprecation
_OpDef'deprecation = Maybe OpDeprecation
y__}))
(Maybe OpDeprecation -> f (Maybe OpDeprecation))
-> Maybe OpDeprecation -> f (Maybe OpDeprecation)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef "summary" Data.Text.Text where
fieldOf :: Proxy# "summary" -> (Text -> f Text) -> OpDef -> f OpDef
fieldOf _
= ((Text -> f Text) -> OpDef -> f OpDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Text)
-> (OpDef -> Text -> OpDef) -> Lens OpDef OpDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Text
_OpDef'summary (\ x__ :: OpDef
x__ y__ :: Text
y__ -> OpDef
x__ {_OpDef'summary :: Text
_OpDef'summary = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef "description" Data.Text.Text where
fieldOf :: Proxy# "description" -> (Text -> f Text) -> OpDef -> f OpDef
fieldOf _
= ((Text -> f Text) -> OpDef -> f OpDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Text)
-> (OpDef -> Text -> OpDef) -> Lens OpDef OpDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Text
_OpDef'description (\ x__ :: OpDef
x__ y__ :: Text
y__ -> OpDef
x__ {_OpDef'description :: Text
_OpDef'description = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef "isCommutative" Prelude.Bool where
fieldOf :: Proxy# "isCommutative" -> (Bool -> f Bool) -> OpDef -> f OpDef
fieldOf _
= ((Bool -> f Bool) -> OpDef -> f OpDef)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Bool)
-> (OpDef -> Bool -> OpDef) -> Lens OpDef OpDef Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Bool
_OpDef'isCommutative
(\ x__ :: OpDef
x__ y__ :: Bool
y__ -> OpDef
x__ {_OpDef'isCommutative :: Bool
_OpDef'isCommutative = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef "isAggregate" Prelude.Bool where
fieldOf :: Proxy# "isAggregate" -> (Bool -> f Bool) -> OpDef -> f OpDef
fieldOf _
= ((Bool -> f Bool) -> OpDef -> f OpDef)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Bool)
-> (OpDef -> Bool -> OpDef) -> Lens OpDef OpDef Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Bool
_OpDef'isAggregate (\ x__ :: OpDef
x__ y__ :: Bool
y__ -> OpDef
x__ {_OpDef'isAggregate :: Bool
_OpDef'isAggregate = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef "isStateful" Prelude.Bool where
fieldOf :: Proxy# "isStateful" -> (Bool -> f Bool) -> OpDef -> f OpDef
fieldOf _
= ((Bool -> f Bool) -> OpDef -> f OpDef)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Bool)
-> (OpDef -> Bool -> OpDef) -> Lens OpDef OpDef Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Bool
_OpDef'isStateful (\ x__ :: OpDef
x__ y__ :: Bool
y__ -> OpDef
x__ {_OpDef'isStateful :: Bool
_OpDef'isStateful = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef "allowsUninitializedInput" Prelude.Bool where
fieldOf :: Proxy# "allowsUninitializedInput"
-> (Bool -> f Bool) -> OpDef -> f OpDef
fieldOf _
= ((Bool -> f Bool) -> OpDef -> f OpDef)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> OpDef
-> f OpDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef -> Bool)
-> (OpDef -> Bool -> OpDef) -> Lens OpDef OpDef Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> Bool
_OpDef'allowsUninitializedInput
(\ x__ :: OpDef
x__ y__ :: Bool
y__ -> OpDef
x__ {_OpDef'allowsUninitializedInput :: Bool
_OpDef'allowsUninitializedInput = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OpDef where
messageName :: Proxy OpDef -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.OpDef"
packedMessageDescriptor :: Proxy OpDef -> ByteString
packedMessageDescriptor _
= "\n\
\\ENQOpDef\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC25\n\
\\tinput_arg\CAN\STX \ETX(\v2\CAN.tensorflow.OpDef.ArgDefR\binputArg\DC27\n\
\\n\
\output_arg\CAN\ETX \ETX(\v2\CAN.tensorflow.OpDef.ArgDefR\toutputArg\DC2%\n\
\\SOcontrol_output\CAN\DC4 \ETX(\tR\rcontrolOutput\DC2-\n\
\\EOTattr\CAN\EOT \ETX(\v2\EM.tensorflow.OpDef.AttrDefR\EOTattr\DC2;\n\
\\vdeprecation\CAN\b \SOH(\v2\EM.tensorflow.OpDeprecationR\vdeprecation\DC2\CAN\n\
\\asummary\CAN\ENQ \SOH(\tR\asummary\DC2 \n\
\\vdescription\CAN\ACK \SOH(\tR\vdescription\DC2%\n\
\\SOis_commutative\CAN\DC2 \SOH(\bR\risCommutative\DC2!\n\
\\fis_aggregate\CAN\DLE \SOH(\bR\visAggregate\DC2\US\n\
\\vis_stateful\CAN\DC1 \SOH(\bR\n\
\isStateful\DC2<\n\
\\SUBallows_uninitialized_input\CAN\DC3 \SOH(\bR\CANallowsUninitializedInput\SUB\227\SOH\n\
\\ACKArgDef\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2 \n\
\\vdescription\CAN\STX \SOH(\tR\vdescription\DC2(\n\
\\EOTtype\CAN\ETX \SOH(\SO2\DC4.tensorflow.DataTypeR\EOTtype\DC2\ESC\n\
\\ttype_attr\CAN\EOT \SOH(\tR\btypeAttr\DC2\US\n\
\\vnumber_attr\CAN\ENQ \SOH(\tR\n\
\numberAttr\DC2$\n\
\\SOtype_list_attr\CAN\ACK \SOH(\tR\ftypeListAttr\DC2\NAK\n\
\\ACKis_ref\CAN\DLE \SOH(\bR\ENQisRef\SUB\136\STX\n\
\\aAttrDef\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC2\n\
\\EOTtype\CAN\STX \SOH(\tR\EOTtype\DC2:\n\
\\rdefault_value\CAN\ETX \SOH(\v2\NAK.tensorflow.AttrValueR\fdefaultValue\DC2 \n\
\\vdescription\CAN\EOT \SOH(\tR\vdescription\DC2\US\n\
\\vhas_minimum\CAN\ENQ \SOH(\bR\n\
\hasMinimum\DC2\CAN\n\
\\aminimum\CAN\ACK \SOH(\ETXR\aminimum\DC2<\n\
\\SOallowed_values\CAN\a \SOH(\v2\NAK.tensorflow.AttrValueR\rallowedValues"
packedFileDescriptor :: Proxy OpDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor OpDef)
fieldsByTag
= let
name__field_descriptor :: FieldDescriptor OpDef
name__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDef Text
-> FieldDescriptor OpDef
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 OpDef OpDef Text Text -> FieldAccessor OpDef 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 OpDef
inputArg__field_descriptor :: FieldDescriptor OpDef
inputArg__field_descriptor
= String
-> FieldTypeDescriptor OpDef'ArgDef
-> FieldAccessor OpDef OpDef'ArgDef
-> FieldDescriptor OpDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"input_arg"
(MessageOrGroup -> FieldTypeDescriptor OpDef'ArgDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor OpDef'ArgDef)
(Packing
-> Lens' OpDef [OpDef'ArgDef] -> FieldAccessor OpDef OpDef'ArgDef
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "inputArg" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"inputArg")) ::
Data.ProtoLens.FieldDescriptor OpDef
outputArg__field_descriptor :: FieldDescriptor OpDef
outputArg__field_descriptor
= String
-> FieldTypeDescriptor OpDef'ArgDef
-> FieldAccessor OpDef OpDef'ArgDef
-> FieldDescriptor OpDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"output_arg"
(MessageOrGroup -> FieldTypeDescriptor OpDef'ArgDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor OpDef'ArgDef)
(Packing
-> Lens' OpDef [OpDef'ArgDef] -> FieldAccessor OpDef OpDef'ArgDef
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "outputArg" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputArg")) ::
Data.ProtoLens.FieldDescriptor OpDef
controlOutput__field_descriptor :: FieldDescriptor OpDef
controlOutput__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDef Text
-> FieldDescriptor OpDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"control_output"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Packing -> Lens' OpDef [Text] -> FieldAccessor OpDef Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "controlOutput" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"controlOutput")) ::
Data.ProtoLens.FieldDescriptor OpDef
attr__field_descriptor :: FieldDescriptor OpDef
attr__field_descriptor
= String
-> FieldTypeDescriptor OpDef'AttrDef
-> FieldAccessor OpDef OpDef'AttrDef
-> FieldDescriptor OpDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"attr"
(MessageOrGroup -> FieldTypeDescriptor OpDef'AttrDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor OpDef'AttrDef)
(Packing
-> Lens' OpDef [OpDef'AttrDef] -> FieldAccessor OpDef OpDef'AttrDef
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (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 OpDef
deprecation__field_descriptor :: FieldDescriptor OpDef
deprecation__field_descriptor
= String
-> FieldTypeDescriptor OpDeprecation
-> FieldAccessor OpDef OpDeprecation
-> FieldDescriptor OpDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"deprecation"
(MessageOrGroup -> FieldTypeDescriptor OpDeprecation
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor OpDeprecation)
(Lens OpDef OpDef (Maybe OpDeprecation) (Maybe OpDeprecation)
-> FieldAccessor OpDef OpDeprecation
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'deprecation" a, Functor f) =>
(a -> f a) -> s -> 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'deprecation")) ::
Data.ProtoLens.FieldDescriptor OpDef
summary__field_descriptor :: FieldDescriptor OpDef
summary__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDef Text
-> FieldDescriptor OpDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"summary"
(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 OpDef OpDef Text Text -> FieldAccessor OpDef 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 "summary" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"summary")) ::
Data.ProtoLens.FieldDescriptor OpDef
description__field_descriptor :: FieldDescriptor OpDef
description__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDef Text
-> FieldDescriptor OpDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"description"
(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 OpDef OpDef Text Text -> FieldAccessor OpDef 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 "description" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"description")) ::
Data.ProtoLens.FieldDescriptor OpDef
isCommutative__field_descriptor :: FieldDescriptor OpDef
isCommutative__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor OpDef Bool
-> FieldDescriptor OpDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"is_commutative"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens OpDef OpDef Bool Bool -> FieldAccessor OpDef Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "isCommutative" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isCommutative")) ::
Data.ProtoLens.FieldDescriptor OpDef
isAggregate__field_descriptor :: FieldDescriptor OpDef
isAggregate__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor OpDef Bool
-> FieldDescriptor OpDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"is_aggregate"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens OpDef OpDef Bool Bool -> FieldAccessor OpDef Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "isAggregate" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isAggregate")) ::
Data.ProtoLens.FieldDescriptor OpDef
isStateful__field_descriptor :: FieldDescriptor OpDef
isStateful__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor OpDef Bool
-> FieldDescriptor OpDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"is_stateful"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens OpDef OpDef Bool Bool -> FieldAccessor OpDef Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "isStateful" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isStateful")) ::
Data.ProtoLens.FieldDescriptor OpDef
allowsUninitializedInput__field_descriptor :: FieldDescriptor OpDef
allowsUninitializedInput__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor OpDef Bool
-> FieldDescriptor OpDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"allows_uninitialized_input"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens OpDef OpDef Bool Bool -> FieldAccessor OpDef Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "allowsUninitializedInput" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allowsUninitializedInput")) ::
Data.ProtoLens.FieldDescriptor OpDef
in
[(Tag, FieldDescriptor OpDef)] -> Map Tag (FieldDescriptor OpDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor OpDef
name__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor OpDef
inputArg__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor OpDef
outputArg__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 20, FieldDescriptor OpDef
controlOutput__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor OpDef
attr__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor OpDef
deprecation__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor OpDef
summary__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor OpDef
description__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 18, FieldDescriptor OpDef
isCommutative__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 16, FieldDescriptor OpDef
isAggregate__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 17, FieldDescriptor OpDef
isStateful__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 19,
FieldDescriptor OpDef
allowsUninitializedInput__field_descriptor)]
unknownFields :: LensLike' f OpDef FieldSet
unknownFields
= (OpDef -> FieldSet)
-> (OpDef -> FieldSet -> OpDef) -> Lens' OpDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef -> FieldSet
_OpDef'_unknownFields
(\ x__ :: OpDef
x__ y__ :: FieldSet
y__ -> OpDef
x__ {_OpDef'_unknownFields :: FieldSet
_OpDef'_unknownFields = FieldSet
y__})
defMessage :: OpDef
defMessage
= $WOpDef'_constructor :: Text
-> Vector OpDef'ArgDef
-> Vector OpDef'ArgDef
-> Vector Text
-> Vector OpDef'AttrDef
-> Maybe OpDeprecation
-> Text
-> Text
-> Bool
-> Bool
-> Bool
-> Bool
-> FieldSet
-> OpDef
OpDef'_constructor
{_OpDef'name :: Text
_OpDef'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'inputArg :: Vector OpDef'ArgDef
_OpDef'inputArg = Vector OpDef'ArgDef
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_OpDef'outputArg :: Vector OpDef'ArgDef
_OpDef'outputArg = Vector OpDef'ArgDef
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_OpDef'controlOutput :: Vector Text
_OpDef'controlOutput = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_OpDef'attr :: Vector OpDef'AttrDef
_OpDef'attr = Vector OpDef'AttrDef
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_OpDef'deprecation :: Maybe OpDeprecation
_OpDef'deprecation = Maybe OpDeprecation
forall a. Maybe a
Prelude.Nothing,
_OpDef'summary :: Text
_OpDef'summary = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'description :: Text
_OpDef'description = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'isCommutative :: Bool
_OpDef'isCommutative = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'isAggregate :: Bool
_OpDef'isAggregate = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'isStateful :: Bool
_OpDef'isStateful = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'allowsUninitializedInput :: Bool
_OpDef'allowsUninitializedInput = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'_unknownFields :: FieldSet
_OpDef'_unknownFields = []}
parseMessage :: Parser OpDef
parseMessage
= let
loop ::
OpDef
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld OpDef'AttrDef
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld OpDef'ArgDef
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld OpDef'ArgDef
-> Data.ProtoLens.Encoding.Bytes.Parser OpDef
loop :: OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop
x :: OpDef
x
mutable'attr :: Growing Vector RealWorld OpDef'AttrDef
mutable'attr
mutable'controlOutput :: Growing Vector RealWorld Text
mutable'controlOutput
mutable'inputArg :: Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg
mutable'outputArg :: Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector OpDef'AttrDef
frozen'attr <- IO (Vector OpDef'AttrDef) -> Parser (Vector OpDef'AttrDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) OpDef'AttrDef
-> IO (Vector OpDef'AttrDef)
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 OpDef'AttrDef
Growing Vector (PrimState IO) OpDef'AttrDef
mutable'attr)
Vector Text
frozen'controlOutput <- IO (Vector Text) -> Parser (Vector Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Text -> IO (Vector Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'controlOutput)
Vector OpDef'ArgDef
frozen'inputArg <- IO (Vector OpDef'ArgDef) -> Parser (Vector OpDef'ArgDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) OpDef'ArgDef
-> IO (Vector OpDef'ArgDef)
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 OpDef'ArgDef
Growing Vector (PrimState IO) OpDef'ArgDef
mutable'inputArg)
Vector OpDef'ArgDef
frozen'outputArg <- IO (Vector OpDef'ArgDef) -> Parser (Vector OpDef'ArgDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) OpDef'ArgDef
-> IO (Vector OpDef'ArgDef)
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 OpDef'ArgDef
Growing Vector (PrimState IO) OpDef'ArgDef
mutable'outputArg)
(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]))))
OpDef -> Parser OpDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter OpDef OpDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OpDef -> OpDef
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 OpDef OpDef FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter OpDef OpDef (Vector OpDef'AttrDef) (Vector OpDef'AttrDef)
-> Vector OpDef'AttrDef -> OpDef -> OpDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'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 @"vec'attr")
Vector OpDef'AttrDef
frozen'attr
(Setter OpDef OpDef (Vector Text) (Vector Text)
-> Vector Text -> OpDef -> OpDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'controlOutput" a, Functor f) =>
(a -> f a) -> s -> 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'controlOutput")
Vector Text
frozen'controlOutput
(Setter OpDef OpDef (Vector OpDef'ArgDef) (Vector OpDef'ArgDef)
-> Vector OpDef'ArgDef -> OpDef -> OpDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'inputArg" a, Functor f) =>
(a -> f a) -> s -> 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'inputArg")
Vector OpDef'ArgDef
frozen'inputArg
(Setter OpDef OpDef (Vector OpDef'ArgDef) (Vector OpDef'ArgDef)
-> Vector OpDef'ArgDef -> OpDef -> OpDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'outputArg" a, Functor f) =>
(a -> f a) -> s -> 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'outputArg")
Vector OpDef'ArgDef
frozen'outputArg
OpDef
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"
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop
(Setter OpDef OpDef Text Text -> Text -> OpDef -> OpDef
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 OpDef
x)
Growing Vector RealWorld OpDef'AttrDef
mutable'attr
Growing Vector RealWorld Text
mutable'controlOutput
Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg
Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
18
-> do !OpDef'ArgDef
y <- Parser OpDef'ArgDef -> String -> Parser OpDef'ArgDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser OpDef'ArgDef -> Parser OpDef'ArgDef
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 OpDef'ArgDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"input_arg"
Growing Vector RealWorld OpDef'ArgDef
v <- IO (Growing Vector RealWorld OpDef'ArgDef)
-> Parser (Growing Vector RealWorld OpDef'ArgDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) OpDef'ArgDef
-> OpDef'ArgDef -> IO (Growing Vector (PrimState IO) OpDef'ArgDef)
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 OpDef'ArgDef
Growing Vector (PrimState IO) OpDef'ArgDef
mutable'inputArg OpDef'ArgDef
y)
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop OpDef
x Growing Vector RealWorld OpDef'AttrDef
mutable'attr Growing Vector RealWorld Text
mutable'controlOutput Growing Vector RealWorld OpDef'ArgDef
v Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
26
-> do !OpDef'ArgDef
y <- Parser OpDef'ArgDef -> String -> Parser OpDef'ArgDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser OpDef'ArgDef -> Parser OpDef'ArgDef
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 OpDef'ArgDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"output_arg"
Growing Vector RealWorld OpDef'ArgDef
v <- IO (Growing Vector RealWorld OpDef'ArgDef)
-> Parser (Growing Vector RealWorld OpDef'ArgDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) OpDef'ArgDef
-> OpDef'ArgDef -> IO (Growing Vector (PrimState IO) OpDef'ArgDef)
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 OpDef'ArgDef
Growing Vector (PrimState IO) OpDef'ArgDef
mutable'outputArg OpDef'ArgDef
y)
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop OpDef
x Growing Vector RealWorld OpDef'AttrDef
mutable'attr Growing Vector RealWorld Text
mutable'controlOutput Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg Growing Vector RealWorld OpDef'ArgDef
v
162
-> 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))
"control_output"
Growing Vector RealWorld Text
v <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Text
-> Text -> IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'controlOutput Text
y)
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop OpDef
x Growing Vector RealWorld OpDef'AttrDef
mutable'attr Growing Vector RealWorld Text
v Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
34
-> do !OpDef'AttrDef
y <- Parser OpDef'AttrDef -> String -> Parser OpDef'AttrDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser OpDef'AttrDef -> Parser OpDef'AttrDef
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 OpDef'AttrDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"attr"
Growing Vector RealWorld OpDef'AttrDef
v <- IO (Growing Vector RealWorld OpDef'AttrDef)
-> Parser (Growing Vector RealWorld OpDef'AttrDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) OpDef'AttrDef
-> OpDef'AttrDef
-> IO (Growing Vector (PrimState IO) OpDef'AttrDef)
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 OpDef'AttrDef
Growing Vector (PrimState IO) OpDef'AttrDef
mutable'attr OpDef'AttrDef
y)
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop OpDef
x Growing Vector RealWorld OpDef'AttrDef
v Growing Vector RealWorld Text
mutable'controlOutput Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
66
-> do OpDeprecation
y <- Parser OpDeprecation -> String -> Parser OpDeprecation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser OpDeprecation -> Parser OpDeprecation
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 OpDeprecation
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"deprecation"
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop
(Setter OpDef OpDef OpDeprecation OpDeprecation
-> OpDeprecation -> OpDef -> OpDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "deprecation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deprecation") OpDeprecation
y OpDef
x)
Growing Vector RealWorld OpDef'AttrDef
mutable'attr
Growing Vector RealWorld Text
mutable'controlOutput
Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg
Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
42
-> 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))
"summary"
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop
(Setter OpDef OpDef Text Text -> Text -> OpDef -> OpDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "summary" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"summary") Text
y OpDef
x)
Growing Vector RealWorld OpDef'AttrDef
mutable'attr
Growing Vector RealWorld Text
mutable'controlOutput
Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg
Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
50
-> 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))
"description"
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop
(Setter OpDef OpDef Text Text -> Text -> OpDef -> OpDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "description" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"description") Text
y OpDef
x)
Growing Vector RealWorld OpDef'AttrDef
mutable'attr
Growing Vector RealWorld Text
mutable'controlOutput
Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg
Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
144
-> 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)
"is_commutative"
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop
(Setter OpDef OpDef Bool Bool -> Bool -> OpDef -> OpDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "isCommutative" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isCommutative") Bool
y OpDef
x)
Growing Vector RealWorld OpDef'AttrDef
mutable'attr
Growing Vector RealWorld Text
mutable'controlOutput
Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg
Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
128
-> 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)
"is_aggregate"
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop
(Setter OpDef OpDef Bool Bool -> Bool -> OpDef -> OpDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "isAggregate" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isAggregate") Bool
y OpDef
x)
Growing Vector RealWorld OpDef'AttrDef
mutable'attr
Growing Vector RealWorld Text
mutable'controlOutput
Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg
Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
136
-> 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)
"is_stateful"
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop
(Setter OpDef OpDef Bool Bool -> Bool -> OpDef -> OpDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "isStateful" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isStateful") Bool
y OpDef
x)
Growing Vector RealWorld OpDef'AttrDef
mutable'attr
Growing Vector RealWorld Text
mutable'controlOutput
Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg
Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
152
-> 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)
"allows_uninitialized_input"
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop
(Setter OpDef OpDef Bool Bool -> Bool -> OpDef -> OpDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allowsUninitializedInput" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allowsUninitializedInput") Bool
y OpDef
x)
Growing Vector RealWorld OpDef'AttrDef
mutable'attr
Growing Vector RealWorld Text
mutable'controlOutput
Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg
Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop
(Setter OpDef OpDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OpDef -> OpDef
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 OpDef OpDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) OpDef
x)
Growing Vector RealWorld OpDef'AttrDef
mutable'attr
Growing Vector RealWorld Text
mutable'controlOutput
Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg
Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg
in
Parser OpDef -> String -> Parser OpDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld OpDef'AttrDef
mutable'attr <- IO (Growing Vector RealWorld OpDef'AttrDef)
-> Parser (Growing Vector RealWorld OpDef'AttrDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld OpDef'AttrDef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Text
mutable'controlOutput <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg <- IO (Growing Vector RealWorld OpDef'ArgDef)
-> Parser (Growing Vector RealWorld OpDef'ArgDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld OpDef'ArgDef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg <- IO (Growing Vector RealWorld OpDef'ArgDef)
-> Parser (Growing Vector RealWorld OpDef'ArgDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld OpDef'ArgDef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
OpDef
-> Growing Vector RealWorld OpDef'AttrDef
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld OpDef'ArgDef
-> Growing Vector RealWorld OpDef'ArgDef
-> Parser OpDef
loop
OpDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage
Growing Vector RealWorld OpDef'AttrDef
mutable'attr
Growing Vector RealWorld Text
mutable'controlOutput
Growing Vector RealWorld OpDef'ArgDef
mutable'inputArg
Growing Vector RealWorld OpDef'ArgDef
mutable'outputArg)
"OpDef"
buildMessage :: OpDef -> Builder
buildMessage
= \ _x :: OpDef
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text OpDef OpDef Text Text -> OpDef -> 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") OpDef
_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.<>)
((OpDef'ArgDef -> Builder) -> Vector OpDef'ArgDef -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: OpDef'ArgDef
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (OpDef'ArgDef -> ByteString) -> OpDef'ArgDef -> 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))
OpDef'ArgDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
OpDef'ArgDef
_v))
(FoldLike
(Vector OpDef'ArgDef)
OpDef
OpDef
(Vector OpDef'ArgDef)
(Vector OpDef'ArgDef)
-> OpDef -> Vector OpDef'ArgDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'inputArg" a, Functor f) =>
(a -> f a) -> s -> 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'inputArg") OpDef
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((OpDef'ArgDef -> Builder) -> Vector OpDef'ArgDef -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: OpDef'ArgDef
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (OpDef'ArgDef -> ByteString) -> OpDef'ArgDef -> 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))
OpDef'ArgDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
OpDef'ArgDef
_v))
(FoldLike
(Vector OpDef'ArgDef)
OpDef
OpDef
(Vector OpDef'ArgDef)
(Vector OpDef'ArgDef)
-> OpDef -> Vector OpDef'ArgDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'outputArg" a, Functor f) =>
(a -> f a) -> s -> 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'outputArg") OpDef
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: Text
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 162)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FoldLike (Vector Text) OpDef OpDef (Vector Text) (Vector Text)
-> OpDef -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'controlOutput" a, Functor f) =>
(a -> f a) -> s -> 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'controlOutput") OpDef
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((OpDef'AttrDef -> Builder) -> Vector OpDef'AttrDef -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: OpDef'AttrDef
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder)
-> (OpDef'AttrDef -> ByteString) -> OpDef'AttrDef -> 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))
OpDef'AttrDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
OpDef'AttrDef
_v))
(FoldLike
(Vector OpDef'AttrDef)
OpDef
OpDef
(Vector OpDef'AttrDef)
(Vector OpDef'AttrDef)
-> OpDef -> Vector OpDef'AttrDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'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 @"vec'attr") OpDef
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe OpDeprecation)
OpDef
OpDef
(Maybe OpDeprecation)
(Maybe OpDeprecation)
-> OpDef -> Maybe OpDeprecation
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'deprecation" a, Functor f) =>
(a -> f a) -> s -> 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'deprecation") OpDef
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: OpDeprecation
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
((ByteString -> Builder)
-> (OpDeprecation -> ByteString) -> OpDeprecation -> 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))
OpDeprecation -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
OpDeprecation
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text OpDef OpDef Text Text -> OpDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "summary" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"summary") OpDef
_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 42)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text OpDef OpDef Text Text -> OpDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "description" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"description") OpDef
_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 50)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool OpDef OpDef Bool Bool -> OpDef -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "isCommutative" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isCommutative") OpDef
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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 144)
((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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool OpDef OpDef Bool Bool -> OpDef -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "isAggregate" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isAggregate") OpDef
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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 128)
((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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool OpDef OpDef Bool Bool -> OpDef -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "isStateful" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isStateful") OpDef
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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 136)
((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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool OpDef OpDef Bool Bool -> OpDef -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "allowsUninitializedInput" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"allowsUninitializedInput")
OpDef
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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 152)
((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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet OpDef OpDef FieldSet FieldSet
-> OpDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
FoldLike FieldSet OpDef OpDef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields OpDef
_x)))))))))))))
instance Control.DeepSeq.NFData OpDef where
rnf :: OpDef -> ()
rnf
= \ x__ :: OpDef
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> FieldSet
_OpDef'_unknownFields OpDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> Text
_OpDef'name OpDef
x__)
(Vector OpDef'ArgDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> Vector OpDef'ArgDef
_OpDef'inputArg OpDef
x__)
(Vector OpDef'ArgDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> Vector OpDef'ArgDef
_OpDef'outputArg OpDef
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> Vector Text
_OpDef'controlOutput OpDef
x__)
(Vector OpDef'AttrDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> Vector OpDef'AttrDef
_OpDef'attr OpDef
x__)
(Maybe OpDeprecation -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> Maybe OpDeprecation
_OpDef'deprecation OpDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> Text
_OpDef'summary OpDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> Text
_OpDef'description OpDef
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> Bool
_OpDef'isCommutative OpDef
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> Bool
_OpDef'isAggregate OpDef
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> Bool
_OpDef'isStateful OpDef
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef -> Bool
_OpDef'allowsUninitializedInput OpDef
x__)
()))))))))))))
data OpDef'ArgDef
= OpDef'ArgDef'_constructor {OpDef'ArgDef -> Text
_OpDef'ArgDef'name :: !Data.Text.Text,
OpDef'ArgDef -> Text
_OpDef'ArgDef'description :: !Data.Text.Text,
OpDef'ArgDef -> DataType
_OpDef'ArgDef'type' :: !Proto.Tensorflow.Core.Framework.Types.DataType,
OpDef'ArgDef -> Text
_OpDef'ArgDef'typeAttr :: !Data.Text.Text,
OpDef'ArgDef -> Text
_OpDef'ArgDef'numberAttr :: !Data.Text.Text,
OpDef'ArgDef -> Text
_OpDef'ArgDef'typeListAttr :: !Data.Text.Text,
OpDef'ArgDef -> Bool
_OpDef'ArgDef'isRef :: !Prelude.Bool,
OpDef'ArgDef -> FieldSet
_OpDef'ArgDef'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (OpDef'ArgDef -> OpDef'ArgDef -> Bool
(OpDef'ArgDef -> OpDef'ArgDef -> Bool)
-> (OpDef'ArgDef -> OpDef'ArgDef -> Bool) -> Eq OpDef'ArgDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpDef'ArgDef -> OpDef'ArgDef -> Bool
$c/= :: OpDef'ArgDef -> OpDef'ArgDef -> Bool
== :: OpDef'ArgDef -> OpDef'ArgDef -> Bool
$c== :: OpDef'ArgDef -> OpDef'ArgDef -> Bool
Prelude.Eq, Eq OpDef'ArgDef
Eq OpDef'ArgDef =>
(OpDef'ArgDef -> OpDef'ArgDef -> Ordering)
-> (OpDef'ArgDef -> OpDef'ArgDef -> Bool)
-> (OpDef'ArgDef -> OpDef'ArgDef -> Bool)
-> (OpDef'ArgDef -> OpDef'ArgDef -> Bool)
-> (OpDef'ArgDef -> OpDef'ArgDef -> Bool)
-> (OpDef'ArgDef -> OpDef'ArgDef -> OpDef'ArgDef)
-> (OpDef'ArgDef -> OpDef'ArgDef -> OpDef'ArgDef)
-> Ord OpDef'ArgDef
OpDef'ArgDef -> OpDef'ArgDef -> Bool
OpDef'ArgDef -> OpDef'ArgDef -> Ordering
OpDef'ArgDef -> OpDef'ArgDef -> OpDef'ArgDef
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 :: OpDef'ArgDef -> OpDef'ArgDef -> OpDef'ArgDef
$cmin :: OpDef'ArgDef -> OpDef'ArgDef -> OpDef'ArgDef
max :: OpDef'ArgDef -> OpDef'ArgDef -> OpDef'ArgDef
$cmax :: OpDef'ArgDef -> OpDef'ArgDef -> OpDef'ArgDef
>= :: OpDef'ArgDef -> OpDef'ArgDef -> Bool
$c>= :: OpDef'ArgDef -> OpDef'ArgDef -> Bool
> :: OpDef'ArgDef -> OpDef'ArgDef -> Bool
$c> :: OpDef'ArgDef -> OpDef'ArgDef -> Bool
<= :: OpDef'ArgDef -> OpDef'ArgDef -> Bool
$c<= :: OpDef'ArgDef -> OpDef'ArgDef -> Bool
< :: OpDef'ArgDef -> OpDef'ArgDef -> Bool
$c< :: OpDef'ArgDef -> OpDef'ArgDef -> Bool
compare :: OpDef'ArgDef -> OpDef'ArgDef -> Ordering
$ccompare :: OpDef'ArgDef -> OpDef'ArgDef -> Ordering
$cp1Ord :: Eq OpDef'ArgDef
Prelude.Ord)
instance Prelude.Show OpDef'ArgDef where
showsPrec :: Int -> OpDef'ArgDef -> ShowS
showsPrec _ __x :: OpDef'ArgDef
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(OpDef'ArgDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OpDef'ArgDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField OpDef'ArgDef "name" Data.Text.Text where
fieldOf :: Proxy# "name" -> (Text -> f Text) -> OpDef'ArgDef -> f OpDef'ArgDef
fieldOf _
= ((Text -> f Text) -> OpDef'ArgDef -> f OpDef'ArgDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OpDef'ArgDef
-> f OpDef'ArgDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'ArgDef -> Text)
-> (OpDef'ArgDef -> Text -> OpDef'ArgDef)
-> Lens OpDef'ArgDef OpDef'ArgDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'ArgDef -> Text
_OpDef'ArgDef'name (\ x__ :: OpDef'ArgDef
x__ y__ :: Text
y__ -> OpDef'ArgDef
x__ {_OpDef'ArgDef'name :: Text
_OpDef'ArgDef'name = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef'ArgDef "description" Data.Text.Text where
fieldOf :: Proxy# "description"
-> (Text -> f Text) -> OpDef'ArgDef -> f OpDef'ArgDef
fieldOf _
= ((Text -> f Text) -> OpDef'ArgDef -> f OpDef'ArgDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OpDef'ArgDef
-> f OpDef'ArgDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'ArgDef -> Text)
-> (OpDef'ArgDef -> Text -> OpDef'ArgDef)
-> Lens OpDef'ArgDef OpDef'ArgDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'ArgDef -> Text
_OpDef'ArgDef'description
(\ x__ :: OpDef'ArgDef
x__ y__ :: Text
y__ -> OpDef'ArgDef
x__ {_OpDef'ArgDef'description :: Text
_OpDef'ArgDef'description = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef'ArgDef "type'" Proto.Tensorflow.Core.Framework.Types.DataType where
fieldOf :: Proxy# "type'"
-> (DataType -> f DataType) -> OpDef'ArgDef -> f OpDef'ArgDef
fieldOf _
= ((DataType -> f DataType) -> OpDef'ArgDef -> f OpDef'ArgDef)
-> ((DataType -> f DataType) -> DataType -> f DataType)
-> (DataType -> f DataType)
-> OpDef'ArgDef
-> f OpDef'ArgDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'ArgDef -> DataType)
-> (OpDef'ArgDef -> DataType -> OpDef'ArgDef)
-> Lens OpDef'ArgDef OpDef'ArgDef DataType DataType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'ArgDef -> DataType
_OpDef'ArgDef'type' (\ x__ :: OpDef'ArgDef
x__ y__ :: DataType
y__ -> OpDef'ArgDef
x__ {_OpDef'ArgDef'type' :: DataType
_OpDef'ArgDef'type' = DataType
y__}))
(DataType -> f DataType) -> DataType -> f DataType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef'ArgDef "typeAttr" Data.Text.Text where
fieldOf :: Proxy# "typeAttr"
-> (Text -> f Text) -> OpDef'ArgDef -> f OpDef'ArgDef
fieldOf _
= ((Text -> f Text) -> OpDef'ArgDef -> f OpDef'ArgDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OpDef'ArgDef
-> f OpDef'ArgDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'ArgDef -> Text)
-> (OpDef'ArgDef -> Text -> OpDef'ArgDef)
-> Lens OpDef'ArgDef OpDef'ArgDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'ArgDef -> Text
_OpDef'ArgDef'typeAttr
(\ x__ :: OpDef'ArgDef
x__ y__ :: Text
y__ -> OpDef'ArgDef
x__ {_OpDef'ArgDef'typeAttr :: Text
_OpDef'ArgDef'typeAttr = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef'ArgDef "numberAttr" Data.Text.Text where
fieldOf :: Proxy# "numberAttr"
-> (Text -> f Text) -> OpDef'ArgDef -> f OpDef'ArgDef
fieldOf _
= ((Text -> f Text) -> OpDef'ArgDef -> f OpDef'ArgDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OpDef'ArgDef
-> f OpDef'ArgDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'ArgDef -> Text)
-> (OpDef'ArgDef -> Text -> OpDef'ArgDef)
-> Lens OpDef'ArgDef OpDef'ArgDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'ArgDef -> Text
_OpDef'ArgDef'numberAttr
(\ x__ :: OpDef'ArgDef
x__ y__ :: Text
y__ -> OpDef'ArgDef
x__ {_OpDef'ArgDef'numberAttr :: Text
_OpDef'ArgDef'numberAttr = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef'ArgDef "typeListAttr" Data.Text.Text where
fieldOf :: Proxy# "typeListAttr"
-> (Text -> f Text) -> OpDef'ArgDef -> f OpDef'ArgDef
fieldOf _
= ((Text -> f Text) -> OpDef'ArgDef -> f OpDef'ArgDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OpDef'ArgDef
-> f OpDef'ArgDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'ArgDef -> Text)
-> (OpDef'ArgDef -> Text -> OpDef'ArgDef)
-> Lens OpDef'ArgDef OpDef'ArgDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'ArgDef -> Text
_OpDef'ArgDef'typeListAttr
(\ x__ :: OpDef'ArgDef
x__ y__ :: Text
y__ -> OpDef'ArgDef
x__ {_OpDef'ArgDef'typeListAttr :: Text
_OpDef'ArgDef'typeListAttr = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef'ArgDef "isRef" Prelude.Bool where
fieldOf :: Proxy# "isRef"
-> (Bool -> f Bool) -> OpDef'ArgDef -> f OpDef'ArgDef
fieldOf _
= ((Bool -> f Bool) -> OpDef'ArgDef -> f OpDef'ArgDef)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> OpDef'ArgDef
-> f OpDef'ArgDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'ArgDef -> Bool)
-> (OpDef'ArgDef -> Bool -> OpDef'ArgDef)
-> Lens OpDef'ArgDef OpDef'ArgDef Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'ArgDef -> Bool
_OpDef'ArgDef'isRef (\ x__ :: OpDef'ArgDef
x__ y__ :: Bool
y__ -> OpDef'ArgDef
x__ {_OpDef'ArgDef'isRef :: Bool
_OpDef'ArgDef'isRef = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OpDef'ArgDef where
messageName :: Proxy OpDef'ArgDef -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.OpDef.ArgDef"
packedMessageDescriptor :: Proxy OpDef'ArgDef -> ByteString
packedMessageDescriptor _
= "\n\
\\ACKArgDef\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2 \n\
\\vdescription\CAN\STX \SOH(\tR\vdescription\DC2(\n\
\\EOTtype\CAN\ETX \SOH(\SO2\DC4.tensorflow.DataTypeR\EOTtype\DC2\ESC\n\
\\ttype_attr\CAN\EOT \SOH(\tR\btypeAttr\DC2\US\n\
\\vnumber_attr\CAN\ENQ \SOH(\tR\n\
\numberAttr\DC2$\n\
\\SOtype_list_attr\CAN\ACK \SOH(\tR\ftypeListAttr\DC2\NAK\n\
\\ACKis_ref\CAN\DLE \SOH(\bR\ENQisRef"
packedFileDescriptor :: Proxy OpDef'ArgDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor OpDef'ArgDef)
fieldsByTag
= let
name__field_descriptor :: FieldDescriptor OpDef'ArgDef
name__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDef'ArgDef Text
-> FieldDescriptor OpDef'ArgDef
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 OpDef'ArgDef OpDef'ArgDef Text Text
-> FieldAccessor OpDef'ArgDef 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 OpDef'ArgDef
description__field_descriptor :: FieldDescriptor OpDef'ArgDef
description__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDef'ArgDef Text
-> FieldDescriptor OpDef'ArgDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"description"
(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 OpDef'ArgDef OpDef'ArgDef Text Text
-> FieldAccessor OpDef'ArgDef 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 "description" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"description")) ::
Data.ProtoLens.FieldDescriptor OpDef'ArgDef
type'__field_descriptor :: FieldDescriptor OpDef'ArgDef
type'__field_descriptor
= String
-> FieldTypeDescriptor DataType
-> FieldAccessor OpDef'ArgDef DataType
-> FieldDescriptor OpDef'ArgDef
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)
(WireDefault DataType
-> Lens OpDef'ArgDef OpDef'ArgDef DataType DataType
-> FieldAccessor OpDef'ArgDef DataType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault DataType
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "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 OpDef'ArgDef
typeAttr__field_descriptor :: FieldDescriptor OpDef'ArgDef
typeAttr__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDef'ArgDef Text
-> FieldDescriptor OpDef'ArgDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"type_attr"
(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 OpDef'ArgDef OpDef'ArgDef Text Text
-> FieldAccessor OpDef'ArgDef 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 "typeAttr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeAttr")) ::
Data.ProtoLens.FieldDescriptor OpDef'ArgDef
numberAttr__field_descriptor :: FieldDescriptor OpDef'ArgDef
numberAttr__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDef'ArgDef Text
-> FieldDescriptor OpDef'ArgDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"number_attr"
(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 OpDef'ArgDef OpDef'ArgDef Text Text
-> FieldAccessor OpDef'ArgDef 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 "numberAttr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numberAttr")) ::
Data.ProtoLens.FieldDescriptor OpDef'ArgDef
typeListAttr__field_descriptor :: FieldDescriptor OpDef'ArgDef
typeListAttr__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDef'ArgDef Text
-> FieldDescriptor OpDef'ArgDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"type_list_attr"
(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 OpDef'ArgDef OpDef'ArgDef Text Text
-> FieldAccessor OpDef'ArgDef 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 "typeListAttr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeListAttr")) ::
Data.ProtoLens.FieldDescriptor OpDef'ArgDef
isRef__field_descriptor :: FieldDescriptor OpDef'ArgDef
isRef__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor OpDef'ArgDef Bool
-> FieldDescriptor OpDef'ArgDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"is_ref"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens OpDef'ArgDef OpDef'ArgDef Bool Bool
-> FieldAccessor OpDef'ArgDef Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "isRef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isRef")) ::
Data.ProtoLens.FieldDescriptor OpDef'ArgDef
in
[(Tag, FieldDescriptor OpDef'ArgDef)]
-> Map Tag (FieldDescriptor OpDef'ArgDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor OpDef'ArgDef
name__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor OpDef'ArgDef
description__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor OpDef'ArgDef
type'__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor OpDef'ArgDef
typeAttr__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor OpDef'ArgDef
numberAttr__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor OpDef'ArgDef
typeListAttr__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 16, FieldDescriptor OpDef'ArgDef
isRef__field_descriptor)]
unknownFields :: LensLike' f OpDef'ArgDef FieldSet
unknownFields
= (OpDef'ArgDef -> FieldSet)
-> (OpDef'ArgDef -> FieldSet -> OpDef'ArgDef)
-> Lens' OpDef'ArgDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'ArgDef -> FieldSet
_OpDef'ArgDef'_unknownFields
(\ x__ :: OpDef'ArgDef
x__ y__ :: FieldSet
y__ -> OpDef'ArgDef
x__ {_OpDef'ArgDef'_unknownFields :: FieldSet
_OpDef'ArgDef'_unknownFields = FieldSet
y__})
defMessage :: OpDef'ArgDef
defMessage
= $WOpDef'ArgDef'_constructor :: Text
-> Text
-> DataType
-> Text
-> Text
-> Text
-> Bool
-> FieldSet
-> OpDef'ArgDef
OpDef'ArgDef'_constructor
{_OpDef'ArgDef'name :: Text
_OpDef'ArgDef'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'ArgDef'description :: Text
_OpDef'ArgDef'description = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'ArgDef'type' :: DataType
_OpDef'ArgDef'type' = DataType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'ArgDef'typeAttr :: Text
_OpDef'ArgDef'typeAttr = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'ArgDef'numberAttr :: Text
_OpDef'ArgDef'numberAttr = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'ArgDef'typeListAttr :: Text
_OpDef'ArgDef'typeListAttr = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'ArgDef'isRef :: Bool
_OpDef'ArgDef'isRef = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'ArgDef'_unknownFields :: FieldSet
_OpDef'ArgDef'_unknownFields = []}
parseMessage :: Parser OpDef'ArgDef
parseMessage
= let
loop ::
OpDef'ArgDef -> Data.ProtoLens.Encoding.Bytes.Parser OpDef'ArgDef
loop :: OpDef'ArgDef -> Parser OpDef'ArgDef
loop x :: OpDef'ArgDef
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]))))
OpDef'ArgDef -> Parser OpDef'ArgDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter OpDef'ArgDef OpDef'ArgDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OpDef'ArgDef -> OpDef'ArgDef
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 OpDef'ArgDef OpDef'ArgDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) OpDef'ArgDef
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"
OpDef'ArgDef -> Parser OpDef'ArgDef
loop (Setter OpDef'ArgDef OpDef'ArgDef Text Text
-> Text -> OpDef'ArgDef -> OpDef'ArgDef
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 OpDef'ArgDef
x)
18
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"description"
OpDef'ArgDef -> Parser OpDef'ArgDef
loop
(Setter OpDef'ArgDef OpDef'ArgDef Text Text
-> Text -> OpDef'ArgDef -> OpDef'ArgDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "description" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"description") Text
y OpDef'ArgDef
x)
24
-> do DataType
y <- Parser DataType -> String -> Parser DataType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> DataType) -> Parser Int -> Parser DataType
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> DataType
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
"type"
OpDef'ArgDef -> Parser OpDef'ArgDef
loop (Setter OpDef'ArgDef OpDef'ArgDef DataType DataType
-> DataType -> OpDef'ArgDef -> OpDef'ArgDef
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 OpDef'ArgDef
x)
34
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"type_attr"
OpDef'ArgDef -> Parser OpDef'ArgDef
loop
(Setter OpDef'ArgDef OpDef'ArgDef Text Text
-> Text -> OpDef'ArgDef -> OpDef'ArgDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "typeAttr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeAttr") Text
y OpDef'ArgDef
x)
42
-> 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))
"number_attr"
OpDef'ArgDef -> Parser OpDef'ArgDef
loop
(Setter OpDef'ArgDef OpDef'ArgDef Text Text
-> Text -> OpDef'ArgDef -> OpDef'ArgDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "numberAttr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numberAttr") Text
y OpDef'ArgDef
x)
50
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"type_list_attr"
OpDef'ArgDef -> Parser OpDef'ArgDef
loop
(Setter OpDef'ArgDef OpDef'ArgDef Text Text
-> Text -> OpDef'ArgDef -> OpDef'ArgDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "typeListAttr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeListAttr") Text
y OpDef'ArgDef
x)
128
-> 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)
"is_ref"
OpDef'ArgDef -> Parser OpDef'ArgDef
loop (Setter OpDef'ArgDef OpDef'ArgDef Bool Bool
-> Bool -> OpDef'ArgDef -> OpDef'ArgDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "isRef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isRef") Bool
y OpDef'ArgDef
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
OpDef'ArgDef -> Parser OpDef'ArgDef
loop
(Setter OpDef'ArgDef OpDef'ArgDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OpDef'ArgDef -> OpDef'ArgDef
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 OpDef'ArgDef OpDef'ArgDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) OpDef'ArgDef
x)
in
Parser OpDef'ArgDef -> String -> Parser OpDef'ArgDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do OpDef'ArgDef -> Parser OpDef'ArgDef
loop OpDef'ArgDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "ArgDef"
buildMessage :: OpDef'ArgDef -> Builder
buildMessage
= \ _x :: OpDef'ArgDef
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text OpDef'ArgDef OpDef'ArgDef Text Text
-> OpDef'ArgDef -> 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") OpDef'ArgDef
_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.<>)
(let
_v :: Text
_v
= FoldLike Text OpDef'ArgDef OpDef'ArgDef Text Text
-> OpDef'ArgDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "description" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"description") OpDef'ArgDef
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: DataType
_v = FoldLike DataType OpDef'ArgDef OpDef'ArgDef DataType DataType
-> OpDef'ArgDef -> DataType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (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'") OpDef'ArgDef
_x
in
if DataType -> DataType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) DataType
_v DataType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Int -> Builder) -> (DataType -> Int) -> DataType -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
DataType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
DataType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text OpDef'ArgDef OpDef'ArgDef Text Text
-> OpDef'ArgDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "typeAttr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeAttr") OpDef'ArgDef
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text OpDef'ArgDef OpDef'ArgDef Text Text
-> OpDef'ArgDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "numberAttr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numberAttr") OpDef'ArgDef
_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 42)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text OpDef'ArgDef OpDef'ArgDef Text Text
-> OpDef'ArgDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "typeListAttr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeListAttr") OpDef'ArgDef
_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 50)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v = FoldLike Bool OpDef'ArgDef OpDef'ArgDef Bool Bool
-> OpDef'ArgDef -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "isRef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isRef") OpDef'ArgDef
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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 128)
((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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet OpDef'ArgDef OpDef'ArgDef FieldSet FieldSet
-> OpDef'ArgDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet OpDef'ArgDef OpDef'ArgDef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields OpDef'ArgDef
_x))))))))
instance Control.DeepSeq.NFData OpDef'ArgDef where
rnf :: OpDef'ArgDef -> ()
rnf
= \ x__ :: OpDef'ArgDef
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'ArgDef -> FieldSet
_OpDef'ArgDef'_unknownFields OpDef'ArgDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'ArgDef -> Text
_OpDef'ArgDef'name OpDef'ArgDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'ArgDef -> Text
_OpDef'ArgDef'description OpDef'ArgDef
x__)
(DataType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'ArgDef -> DataType
_OpDef'ArgDef'type' OpDef'ArgDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'ArgDef -> Text
_OpDef'ArgDef'typeAttr OpDef'ArgDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'ArgDef -> Text
_OpDef'ArgDef'numberAttr OpDef'ArgDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'ArgDef -> Text
_OpDef'ArgDef'typeListAttr OpDef'ArgDef
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (OpDef'ArgDef -> Bool
_OpDef'ArgDef'isRef OpDef'ArgDef
x__) ())))))))
data OpDef'AttrDef
= OpDef'AttrDef'_constructor {OpDef'AttrDef -> Text
_OpDef'AttrDef'name :: !Data.Text.Text,
OpDef'AttrDef -> Text
_OpDef'AttrDef'type' :: !Data.Text.Text,
OpDef'AttrDef -> Maybe AttrValue
_OpDef'AttrDef'defaultValue :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue),
OpDef'AttrDef -> Text
_OpDef'AttrDef'description :: !Data.Text.Text,
OpDef'AttrDef -> Bool
_OpDef'AttrDef'hasMinimum :: !Prelude.Bool,
OpDef'AttrDef -> Int64
_OpDef'AttrDef'minimum :: !Data.Int.Int64,
OpDef'AttrDef -> Maybe AttrValue
_OpDef'AttrDef'allowedValues :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue),
OpDef'AttrDef -> FieldSet
_OpDef'AttrDef'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (OpDef'AttrDef -> OpDef'AttrDef -> Bool
(OpDef'AttrDef -> OpDef'AttrDef -> Bool)
-> (OpDef'AttrDef -> OpDef'AttrDef -> Bool) -> Eq OpDef'AttrDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpDef'AttrDef -> OpDef'AttrDef -> Bool
$c/= :: OpDef'AttrDef -> OpDef'AttrDef -> Bool
== :: OpDef'AttrDef -> OpDef'AttrDef -> Bool
$c== :: OpDef'AttrDef -> OpDef'AttrDef -> Bool
Prelude.Eq, Eq OpDef'AttrDef
Eq OpDef'AttrDef =>
(OpDef'AttrDef -> OpDef'AttrDef -> Ordering)
-> (OpDef'AttrDef -> OpDef'AttrDef -> Bool)
-> (OpDef'AttrDef -> OpDef'AttrDef -> Bool)
-> (OpDef'AttrDef -> OpDef'AttrDef -> Bool)
-> (OpDef'AttrDef -> OpDef'AttrDef -> Bool)
-> (OpDef'AttrDef -> OpDef'AttrDef -> OpDef'AttrDef)
-> (OpDef'AttrDef -> OpDef'AttrDef -> OpDef'AttrDef)
-> Ord OpDef'AttrDef
OpDef'AttrDef -> OpDef'AttrDef -> Bool
OpDef'AttrDef -> OpDef'AttrDef -> Ordering
OpDef'AttrDef -> OpDef'AttrDef -> OpDef'AttrDef
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 :: OpDef'AttrDef -> OpDef'AttrDef -> OpDef'AttrDef
$cmin :: OpDef'AttrDef -> OpDef'AttrDef -> OpDef'AttrDef
max :: OpDef'AttrDef -> OpDef'AttrDef -> OpDef'AttrDef
$cmax :: OpDef'AttrDef -> OpDef'AttrDef -> OpDef'AttrDef
>= :: OpDef'AttrDef -> OpDef'AttrDef -> Bool
$c>= :: OpDef'AttrDef -> OpDef'AttrDef -> Bool
> :: OpDef'AttrDef -> OpDef'AttrDef -> Bool
$c> :: OpDef'AttrDef -> OpDef'AttrDef -> Bool
<= :: OpDef'AttrDef -> OpDef'AttrDef -> Bool
$c<= :: OpDef'AttrDef -> OpDef'AttrDef -> Bool
< :: OpDef'AttrDef -> OpDef'AttrDef -> Bool
$c< :: OpDef'AttrDef -> OpDef'AttrDef -> Bool
compare :: OpDef'AttrDef -> OpDef'AttrDef -> Ordering
$ccompare :: OpDef'AttrDef -> OpDef'AttrDef -> Ordering
$cp1Ord :: Eq OpDef'AttrDef
Prelude.Ord)
instance Prelude.Show OpDef'AttrDef where
showsPrec :: Int -> OpDef'AttrDef -> ShowS
showsPrec _ __x :: OpDef'AttrDef
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(OpDef'AttrDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OpDef'AttrDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField OpDef'AttrDef "name" Data.Text.Text where
fieldOf :: Proxy# "name"
-> (Text -> f Text) -> OpDef'AttrDef -> f OpDef'AttrDef
fieldOf _
= ((Text -> f Text) -> OpDef'AttrDef -> f OpDef'AttrDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OpDef'AttrDef
-> f OpDef'AttrDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'AttrDef -> Text)
-> (OpDef'AttrDef -> Text -> OpDef'AttrDef)
-> Lens OpDef'AttrDef OpDef'AttrDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'AttrDef -> Text
_OpDef'AttrDef'name (\ x__ :: OpDef'AttrDef
x__ y__ :: Text
y__ -> OpDef'AttrDef
x__ {_OpDef'AttrDef'name :: Text
_OpDef'AttrDef'name = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef'AttrDef "type'" Data.Text.Text where
fieldOf :: Proxy# "type'"
-> (Text -> f Text) -> OpDef'AttrDef -> f OpDef'AttrDef
fieldOf _
= ((Text -> f Text) -> OpDef'AttrDef -> f OpDef'AttrDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OpDef'AttrDef
-> f OpDef'AttrDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'AttrDef -> Text)
-> (OpDef'AttrDef -> Text -> OpDef'AttrDef)
-> Lens OpDef'AttrDef OpDef'AttrDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'AttrDef -> Text
_OpDef'AttrDef'type'
(\ x__ :: OpDef'AttrDef
x__ y__ :: Text
y__ -> OpDef'AttrDef
x__ {_OpDef'AttrDef'type' :: Text
_OpDef'AttrDef'type' = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef'AttrDef "defaultValue" Proto.Tensorflow.Core.Framework.AttrValue.AttrValue where
fieldOf :: Proxy# "defaultValue"
-> (AttrValue -> f AttrValue) -> OpDef'AttrDef -> f OpDef'AttrDef
fieldOf _
= ((Maybe AttrValue -> f (Maybe AttrValue))
-> OpDef'AttrDef -> f OpDef'AttrDef)
-> ((AttrValue -> f AttrValue)
-> Maybe AttrValue -> f (Maybe AttrValue))
-> (AttrValue -> f AttrValue)
-> OpDef'AttrDef
-> f OpDef'AttrDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'AttrDef -> Maybe AttrValue)
-> (OpDef'AttrDef -> Maybe AttrValue -> OpDef'AttrDef)
-> Lens
OpDef'AttrDef OpDef'AttrDef (Maybe AttrValue) (Maybe AttrValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'AttrDef -> Maybe AttrValue
_OpDef'AttrDef'defaultValue
(\ x__ :: OpDef'AttrDef
x__ y__ :: Maybe AttrValue
y__ -> OpDef'AttrDef
x__ {_OpDef'AttrDef'defaultValue :: Maybe AttrValue
_OpDef'AttrDef'defaultValue = 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 OpDef'AttrDef "maybe'defaultValue" (Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue) where
fieldOf :: Proxy# "maybe'defaultValue"
-> (Maybe AttrValue -> f (Maybe AttrValue))
-> OpDef'AttrDef
-> f OpDef'AttrDef
fieldOf _
= ((Maybe AttrValue -> f (Maybe AttrValue))
-> OpDef'AttrDef -> f OpDef'AttrDef)
-> ((Maybe AttrValue -> f (Maybe AttrValue))
-> Maybe AttrValue -> f (Maybe AttrValue))
-> (Maybe AttrValue -> f (Maybe AttrValue))
-> OpDef'AttrDef
-> f OpDef'AttrDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'AttrDef -> Maybe AttrValue)
-> (OpDef'AttrDef -> Maybe AttrValue -> OpDef'AttrDef)
-> Lens
OpDef'AttrDef OpDef'AttrDef (Maybe AttrValue) (Maybe AttrValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'AttrDef -> Maybe AttrValue
_OpDef'AttrDef'defaultValue
(\ x__ :: OpDef'AttrDef
x__ y__ :: Maybe AttrValue
y__ -> OpDef'AttrDef
x__ {_OpDef'AttrDef'defaultValue :: Maybe AttrValue
_OpDef'AttrDef'defaultValue = Maybe AttrValue
y__}))
(Maybe AttrValue -> f (Maybe AttrValue))
-> Maybe AttrValue -> f (Maybe AttrValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef'AttrDef "description" Data.Text.Text where
fieldOf :: Proxy# "description"
-> (Text -> f Text) -> OpDef'AttrDef -> f OpDef'AttrDef
fieldOf _
= ((Text -> f Text) -> OpDef'AttrDef -> f OpDef'AttrDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OpDef'AttrDef
-> f OpDef'AttrDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'AttrDef -> Text)
-> (OpDef'AttrDef -> Text -> OpDef'AttrDef)
-> Lens OpDef'AttrDef OpDef'AttrDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'AttrDef -> Text
_OpDef'AttrDef'description
(\ x__ :: OpDef'AttrDef
x__ y__ :: Text
y__ -> OpDef'AttrDef
x__ {_OpDef'AttrDef'description :: Text
_OpDef'AttrDef'description = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef'AttrDef "hasMinimum" Prelude.Bool where
fieldOf :: Proxy# "hasMinimum"
-> (Bool -> f Bool) -> OpDef'AttrDef -> f OpDef'AttrDef
fieldOf _
= ((Bool -> f Bool) -> OpDef'AttrDef -> f OpDef'AttrDef)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> OpDef'AttrDef
-> f OpDef'AttrDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'AttrDef -> Bool)
-> (OpDef'AttrDef -> Bool -> OpDef'AttrDef)
-> Lens OpDef'AttrDef OpDef'AttrDef Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'AttrDef -> Bool
_OpDef'AttrDef'hasMinimum
(\ x__ :: OpDef'AttrDef
x__ y__ :: Bool
y__ -> OpDef'AttrDef
x__ {_OpDef'AttrDef'hasMinimum :: Bool
_OpDef'AttrDef'hasMinimum = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef'AttrDef "minimum" Data.Int.Int64 where
fieldOf :: Proxy# "minimum"
-> (Int64 -> f Int64) -> OpDef'AttrDef -> f OpDef'AttrDef
fieldOf _
= ((Int64 -> f Int64) -> OpDef'AttrDef -> f OpDef'AttrDef)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> OpDef'AttrDef
-> f OpDef'AttrDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'AttrDef -> Int64)
-> (OpDef'AttrDef -> Int64 -> OpDef'AttrDef)
-> Lens OpDef'AttrDef OpDef'AttrDef Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'AttrDef -> Int64
_OpDef'AttrDef'minimum
(\ x__ :: OpDef'AttrDef
x__ y__ :: Int64
y__ -> OpDef'AttrDef
x__ {_OpDef'AttrDef'minimum :: Int64
_OpDef'AttrDef'minimum = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDef'AttrDef "allowedValues" Proto.Tensorflow.Core.Framework.AttrValue.AttrValue where
fieldOf :: Proxy# "allowedValues"
-> (AttrValue -> f AttrValue) -> OpDef'AttrDef -> f OpDef'AttrDef
fieldOf _
= ((Maybe AttrValue -> f (Maybe AttrValue))
-> OpDef'AttrDef -> f OpDef'AttrDef)
-> ((AttrValue -> f AttrValue)
-> Maybe AttrValue -> f (Maybe AttrValue))
-> (AttrValue -> f AttrValue)
-> OpDef'AttrDef
-> f OpDef'AttrDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'AttrDef -> Maybe AttrValue)
-> (OpDef'AttrDef -> Maybe AttrValue -> OpDef'AttrDef)
-> Lens
OpDef'AttrDef OpDef'AttrDef (Maybe AttrValue) (Maybe AttrValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'AttrDef -> Maybe AttrValue
_OpDef'AttrDef'allowedValues
(\ x__ :: OpDef'AttrDef
x__ y__ :: Maybe AttrValue
y__ -> OpDef'AttrDef
x__ {_OpDef'AttrDef'allowedValues :: Maybe AttrValue
_OpDef'AttrDef'allowedValues = 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 OpDef'AttrDef "maybe'allowedValues" (Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue) where
fieldOf :: Proxy# "maybe'allowedValues"
-> (Maybe AttrValue -> f (Maybe AttrValue))
-> OpDef'AttrDef
-> f OpDef'AttrDef
fieldOf _
= ((Maybe AttrValue -> f (Maybe AttrValue))
-> OpDef'AttrDef -> f OpDef'AttrDef)
-> ((Maybe AttrValue -> f (Maybe AttrValue))
-> Maybe AttrValue -> f (Maybe AttrValue))
-> (Maybe AttrValue -> f (Maybe AttrValue))
-> OpDef'AttrDef
-> f OpDef'AttrDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDef'AttrDef -> Maybe AttrValue)
-> (OpDef'AttrDef -> Maybe AttrValue -> OpDef'AttrDef)
-> Lens
OpDef'AttrDef OpDef'AttrDef (Maybe AttrValue) (Maybe AttrValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'AttrDef -> Maybe AttrValue
_OpDef'AttrDef'allowedValues
(\ x__ :: OpDef'AttrDef
x__ y__ :: Maybe AttrValue
y__ -> OpDef'AttrDef
x__ {_OpDef'AttrDef'allowedValues :: Maybe AttrValue
_OpDef'AttrDef'allowedValues = Maybe AttrValue
y__}))
(Maybe AttrValue -> f (Maybe AttrValue))
-> Maybe AttrValue -> f (Maybe AttrValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OpDef'AttrDef where
messageName :: Proxy OpDef'AttrDef -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.OpDef.AttrDef"
packedMessageDescriptor :: Proxy OpDef'AttrDef -> ByteString
packedMessageDescriptor _
= "\n\
\\aAttrDef\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC2\n\
\\EOTtype\CAN\STX \SOH(\tR\EOTtype\DC2:\n\
\\rdefault_value\CAN\ETX \SOH(\v2\NAK.tensorflow.AttrValueR\fdefaultValue\DC2 \n\
\\vdescription\CAN\EOT \SOH(\tR\vdescription\DC2\US\n\
\\vhas_minimum\CAN\ENQ \SOH(\bR\n\
\hasMinimum\DC2\CAN\n\
\\aminimum\CAN\ACK \SOH(\ETXR\aminimum\DC2<\n\
\\SOallowed_values\CAN\a \SOH(\v2\NAK.tensorflow.AttrValueR\rallowedValues"
packedFileDescriptor :: Proxy OpDef'AttrDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor OpDef'AttrDef)
fieldsByTag
= let
name__field_descriptor :: FieldDescriptor OpDef'AttrDef
name__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDef'AttrDef Text
-> FieldDescriptor OpDef'AttrDef
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 OpDef'AttrDef OpDef'AttrDef Text Text
-> FieldAccessor OpDef'AttrDef 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 OpDef'AttrDef
type'__field_descriptor :: FieldDescriptor OpDef'AttrDef
type'__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDef'AttrDef Text
-> FieldDescriptor OpDef'AttrDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"type"
(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 OpDef'AttrDef OpDef'AttrDef Text Text
-> FieldAccessor OpDef'AttrDef 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 "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 OpDef'AttrDef
defaultValue__field_descriptor :: FieldDescriptor OpDef'AttrDef
defaultValue__field_descriptor
= String
-> FieldTypeDescriptor AttrValue
-> FieldAccessor OpDef'AttrDef AttrValue
-> FieldDescriptor OpDef'AttrDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"default_value"
(MessageOrGroup -> FieldTypeDescriptor AttrValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.AttrValue.AttrValue)
(Lens
OpDef'AttrDef OpDef'AttrDef (Maybe AttrValue) (Maybe AttrValue)
-> FieldAccessor OpDef'AttrDef AttrValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'defaultValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'defaultValue")) ::
Data.ProtoLens.FieldDescriptor OpDef'AttrDef
description__field_descriptor :: FieldDescriptor OpDef'AttrDef
description__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDef'AttrDef Text
-> FieldDescriptor OpDef'AttrDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"description"
(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 OpDef'AttrDef OpDef'AttrDef Text Text
-> FieldAccessor OpDef'AttrDef 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 "description" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"description")) ::
Data.ProtoLens.FieldDescriptor OpDef'AttrDef
hasMinimum__field_descriptor :: FieldDescriptor OpDef'AttrDef
hasMinimum__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor OpDef'AttrDef Bool
-> FieldDescriptor OpDef'AttrDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"has_minimum"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens OpDef'AttrDef OpDef'AttrDef Bool Bool
-> FieldAccessor OpDef'AttrDef Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "hasMinimum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hasMinimum")) ::
Data.ProtoLens.FieldDescriptor OpDef'AttrDef
minimum__field_descriptor :: FieldDescriptor OpDef'AttrDef
minimum__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor OpDef'AttrDef Int64
-> FieldDescriptor OpDef'AttrDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"minimum"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens OpDef'AttrDef OpDef'AttrDef Int64 Int64
-> FieldAccessor OpDef'AttrDef Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "minimum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"minimum")) ::
Data.ProtoLens.FieldDescriptor OpDef'AttrDef
allowedValues__field_descriptor :: FieldDescriptor OpDef'AttrDef
allowedValues__field_descriptor
= String
-> FieldTypeDescriptor AttrValue
-> FieldAccessor OpDef'AttrDef AttrValue
-> FieldDescriptor OpDef'AttrDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"allowed_values"
(MessageOrGroup -> FieldTypeDescriptor AttrValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.AttrValue.AttrValue)
(Lens
OpDef'AttrDef OpDef'AttrDef (Maybe AttrValue) (Maybe AttrValue)
-> FieldAccessor OpDef'AttrDef AttrValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'allowedValues" a, Functor f) =>
(a -> f a) -> s -> 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'allowedValues")) ::
Data.ProtoLens.FieldDescriptor OpDef'AttrDef
in
[(Tag, FieldDescriptor OpDef'AttrDef)]
-> Map Tag (FieldDescriptor OpDef'AttrDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor OpDef'AttrDef
name__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor OpDef'AttrDef
type'__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor OpDef'AttrDef
defaultValue__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor OpDef'AttrDef
description__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor OpDef'AttrDef
hasMinimum__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor OpDef'AttrDef
minimum__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor OpDef'AttrDef
allowedValues__field_descriptor)]
unknownFields :: LensLike' f OpDef'AttrDef FieldSet
unknownFields
= (OpDef'AttrDef -> FieldSet)
-> (OpDef'AttrDef -> FieldSet -> OpDef'AttrDef)
-> Lens' OpDef'AttrDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDef'AttrDef -> FieldSet
_OpDef'AttrDef'_unknownFields
(\ x__ :: OpDef'AttrDef
x__ y__ :: FieldSet
y__ -> OpDef'AttrDef
x__ {_OpDef'AttrDef'_unknownFields :: FieldSet
_OpDef'AttrDef'_unknownFields = FieldSet
y__})
defMessage :: OpDef'AttrDef
defMessage
= $WOpDef'AttrDef'_constructor :: Text
-> Text
-> Maybe AttrValue
-> Text
-> Bool
-> Int64
-> Maybe AttrValue
-> FieldSet
-> OpDef'AttrDef
OpDef'AttrDef'_constructor
{_OpDef'AttrDef'name :: Text
_OpDef'AttrDef'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'AttrDef'type' :: Text
_OpDef'AttrDef'type' = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'AttrDef'defaultValue :: Maybe AttrValue
_OpDef'AttrDef'defaultValue = Maybe AttrValue
forall a. Maybe a
Prelude.Nothing,
_OpDef'AttrDef'description :: Text
_OpDef'AttrDef'description = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'AttrDef'hasMinimum :: Bool
_OpDef'AttrDef'hasMinimum = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'AttrDef'minimum :: Int64
_OpDef'AttrDef'minimum = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDef'AttrDef'allowedValues :: Maybe AttrValue
_OpDef'AttrDef'allowedValues = Maybe AttrValue
forall a. Maybe a
Prelude.Nothing,
_OpDef'AttrDef'_unknownFields :: FieldSet
_OpDef'AttrDef'_unknownFields = []}
parseMessage :: Parser OpDef'AttrDef
parseMessage
= let
loop ::
OpDef'AttrDef -> Data.ProtoLens.Encoding.Bytes.Parser OpDef'AttrDef
loop :: OpDef'AttrDef -> Parser OpDef'AttrDef
loop x :: OpDef'AttrDef
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]))))
OpDef'AttrDef -> Parser OpDef'AttrDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter OpDef'AttrDef OpDef'AttrDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OpDef'AttrDef -> OpDef'AttrDef
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 OpDef'AttrDef OpDef'AttrDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) OpDef'AttrDef
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"
OpDef'AttrDef -> Parser OpDef'AttrDef
loop (Setter OpDef'AttrDef OpDef'AttrDef Text Text
-> Text -> OpDef'AttrDef -> OpDef'AttrDef
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 OpDef'AttrDef
x)
18
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"type"
OpDef'AttrDef -> Parser OpDef'AttrDef
loop (Setter OpDef'AttrDef OpDef'AttrDef Text Text
-> Text -> OpDef'AttrDef -> OpDef'AttrDef
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'") Text
y OpDef'AttrDef
x)
26
-> 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)
"default_value"
OpDef'AttrDef -> Parser OpDef'AttrDef
loop
(Setter OpDef'AttrDef OpDef'AttrDef AttrValue AttrValue
-> AttrValue -> OpDef'AttrDef -> OpDef'AttrDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "defaultValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"defaultValue") AttrValue
y OpDef'AttrDef
x)
34
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"description"
OpDef'AttrDef -> Parser OpDef'AttrDef
loop
(Setter OpDef'AttrDef OpDef'AttrDef Text Text
-> Text -> OpDef'AttrDef -> OpDef'AttrDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "description" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"description") Text
y OpDef'AttrDef
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)
"has_minimum"
OpDef'AttrDef -> Parser OpDef'AttrDef
loop
(Setter OpDef'AttrDef OpDef'AttrDef Bool Bool
-> Bool -> OpDef'AttrDef -> OpDef'AttrDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "hasMinimum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hasMinimum") Bool
y OpDef'AttrDef
x)
48
-> 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)
"minimum"
OpDef'AttrDef -> Parser OpDef'AttrDef
loop (Setter OpDef'AttrDef OpDef'AttrDef Int64 Int64
-> Int64 -> OpDef'AttrDef -> OpDef'AttrDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "minimum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"minimum") Int64
y OpDef'AttrDef
x)
58
-> 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)
"allowed_values"
OpDef'AttrDef -> Parser OpDef'AttrDef
loop
(Setter OpDef'AttrDef OpDef'AttrDef AttrValue AttrValue
-> AttrValue -> OpDef'AttrDef -> OpDef'AttrDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allowedValues" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allowedValues") AttrValue
y OpDef'AttrDef
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
OpDef'AttrDef -> Parser OpDef'AttrDef
loop
(Setter OpDef'AttrDef OpDef'AttrDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OpDef'AttrDef -> OpDef'AttrDef
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 OpDef'AttrDef OpDef'AttrDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) OpDef'AttrDef
x)
in
Parser OpDef'AttrDef -> String -> Parser OpDef'AttrDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do OpDef'AttrDef -> Parser OpDef'AttrDef
loop OpDef'AttrDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "AttrDef"
buildMessage :: OpDef'AttrDef -> Builder
buildMessage
= \ _x :: OpDef'AttrDef
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text OpDef'AttrDef OpDef'AttrDef Text Text
-> OpDef'AttrDef -> 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") OpDef'AttrDef
_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.<>)
(let
_v :: Text
_v = FoldLike Text OpDef'AttrDef OpDef'AttrDef Text Text
-> OpDef'AttrDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (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'") OpDef'AttrDef
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe AttrValue)
OpDef'AttrDef
OpDef'AttrDef
(Maybe AttrValue)
(Maybe AttrValue)
-> OpDef'AttrDef -> 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'defaultValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'defaultValue") OpDef'AttrDef
_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 26)
((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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text OpDef'AttrDef OpDef'AttrDef Text Text
-> OpDef'AttrDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "description" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"description") OpDef'AttrDef
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool OpDef'AttrDef OpDef'AttrDef Bool Bool
-> OpDef'AttrDef -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "hasMinimum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hasMinimum") OpDef'AttrDef
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike Int64 OpDef'AttrDef OpDef'AttrDef Int64 Int64
-> OpDef'AttrDef -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "minimum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"minimum") OpDef'AttrDef
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 48)
((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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe AttrValue)
OpDef'AttrDef
OpDef'AttrDef
(Maybe AttrValue)
(Maybe AttrValue)
-> OpDef'AttrDef -> 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'allowedValues" a, Functor f) =>
(a -> f a) -> s -> 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'allowedValues") OpDef'AttrDef
_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 58)
((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 OpDef'AttrDef OpDef'AttrDef FieldSet FieldSet
-> OpDef'AttrDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet OpDef'AttrDef OpDef'AttrDef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields OpDef'AttrDef
_x))))))))
instance Control.DeepSeq.NFData OpDef'AttrDef where
rnf :: OpDef'AttrDef -> ()
rnf
= \ x__ :: OpDef'AttrDef
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'AttrDef -> FieldSet
_OpDef'AttrDef'_unknownFields OpDef'AttrDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'AttrDef -> Text
_OpDef'AttrDef'name OpDef'AttrDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'AttrDef -> Text
_OpDef'AttrDef'type' OpDef'AttrDef
x__)
(Maybe AttrValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'AttrDef -> Maybe AttrValue
_OpDef'AttrDef'defaultValue OpDef'AttrDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'AttrDef -> Text
_OpDef'AttrDef'description OpDef'AttrDef
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'AttrDef -> Bool
_OpDef'AttrDef'hasMinimum OpDef'AttrDef
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'AttrDef -> Int64
_OpDef'AttrDef'minimum OpDef'AttrDef
x__)
(Maybe AttrValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDef'AttrDef -> Maybe AttrValue
_OpDef'AttrDef'allowedValues OpDef'AttrDef
x__) ())))))))
data OpDeprecation
= OpDeprecation'_constructor {OpDeprecation -> Int32
_OpDeprecation'version :: !Data.Int.Int32,
OpDeprecation -> Text
_OpDeprecation'explanation :: !Data.Text.Text,
OpDeprecation -> FieldSet
_OpDeprecation'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (OpDeprecation -> OpDeprecation -> Bool
(OpDeprecation -> OpDeprecation -> Bool)
-> (OpDeprecation -> OpDeprecation -> Bool) -> Eq OpDeprecation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpDeprecation -> OpDeprecation -> Bool
$c/= :: OpDeprecation -> OpDeprecation -> Bool
== :: OpDeprecation -> OpDeprecation -> Bool
$c== :: OpDeprecation -> OpDeprecation -> Bool
Prelude.Eq, Eq OpDeprecation
Eq OpDeprecation =>
(OpDeprecation -> OpDeprecation -> Ordering)
-> (OpDeprecation -> OpDeprecation -> Bool)
-> (OpDeprecation -> OpDeprecation -> Bool)
-> (OpDeprecation -> OpDeprecation -> Bool)
-> (OpDeprecation -> OpDeprecation -> Bool)
-> (OpDeprecation -> OpDeprecation -> OpDeprecation)
-> (OpDeprecation -> OpDeprecation -> OpDeprecation)
-> Ord OpDeprecation
OpDeprecation -> OpDeprecation -> Bool
OpDeprecation -> OpDeprecation -> Ordering
OpDeprecation -> OpDeprecation -> OpDeprecation
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 :: OpDeprecation -> OpDeprecation -> OpDeprecation
$cmin :: OpDeprecation -> OpDeprecation -> OpDeprecation
max :: OpDeprecation -> OpDeprecation -> OpDeprecation
$cmax :: OpDeprecation -> OpDeprecation -> OpDeprecation
>= :: OpDeprecation -> OpDeprecation -> Bool
$c>= :: OpDeprecation -> OpDeprecation -> Bool
> :: OpDeprecation -> OpDeprecation -> Bool
$c> :: OpDeprecation -> OpDeprecation -> Bool
<= :: OpDeprecation -> OpDeprecation -> Bool
$c<= :: OpDeprecation -> OpDeprecation -> Bool
< :: OpDeprecation -> OpDeprecation -> Bool
$c< :: OpDeprecation -> OpDeprecation -> Bool
compare :: OpDeprecation -> OpDeprecation -> Ordering
$ccompare :: OpDeprecation -> OpDeprecation -> Ordering
$cp1Ord :: Eq OpDeprecation
Prelude.Ord)
instance Prelude.Show OpDeprecation where
showsPrec :: Int -> OpDeprecation -> ShowS
showsPrec _ __x :: OpDeprecation
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(OpDeprecation -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OpDeprecation
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField OpDeprecation "version" Data.Int.Int32 where
fieldOf :: Proxy# "version"
-> (Int32 -> f Int32) -> OpDeprecation -> f OpDeprecation
fieldOf _
= ((Int32 -> f Int32) -> OpDeprecation -> f OpDeprecation)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> OpDeprecation
-> f OpDeprecation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDeprecation -> Int32)
-> (OpDeprecation -> Int32 -> OpDeprecation)
-> Lens OpDeprecation OpDeprecation Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDeprecation -> Int32
_OpDeprecation'version
(\ x__ :: OpDeprecation
x__ y__ :: Int32
y__ -> OpDeprecation
x__ {_OpDeprecation'version :: Int32
_OpDeprecation'version = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OpDeprecation "explanation" Data.Text.Text where
fieldOf :: Proxy# "explanation"
-> (Text -> f Text) -> OpDeprecation -> f OpDeprecation
fieldOf _
= ((Text -> f Text) -> OpDeprecation -> f OpDeprecation)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OpDeprecation
-> f OpDeprecation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpDeprecation -> Text)
-> (OpDeprecation -> Text -> OpDeprecation)
-> Lens OpDeprecation OpDeprecation Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDeprecation -> Text
_OpDeprecation'explanation
(\ x__ :: OpDeprecation
x__ y__ :: Text
y__ -> OpDeprecation
x__ {_OpDeprecation'explanation :: Text
_OpDeprecation'explanation = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OpDeprecation where
messageName :: Proxy OpDeprecation -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.OpDeprecation"
packedMessageDescriptor :: Proxy OpDeprecation -> ByteString
packedMessageDescriptor _
= "\n\
\\rOpDeprecation\DC2\CAN\n\
\\aversion\CAN\SOH \SOH(\ENQR\aversion\DC2 \n\
\\vexplanation\CAN\STX \SOH(\tR\vexplanation"
packedFileDescriptor :: Proxy OpDeprecation -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor OpDeprecation)
fieldsByTag
= let
version__field_descriptor :: FieldDescriptor OpDeprecation
version__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor OpDeprecation Int32
-> FieldDescriptor OpDeprecation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"version"
(ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(WireDefault Int32
-> Lens OpDeprecation OpDeprecation Int32 Int32
-> FieldAccessor OpDeprecation Int32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "version" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"version")) ::
Data.ProtoLens.FieldDescriptor OpDeprecation
explanation__field_descriptor :: FieldDescriptor OpDeprecation
explanation__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor OpDeprecation Text
-> FieldDescriptor OpDeprecation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"explanation"
(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 OpDeprecation OpDeprecation Text Text
-> FieldAccessor OpDeprecation 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 "explanation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"explanation")) ::
Data.ProtoLens.FieldDescriptor OpDeprecation
in
[(Tag, FieldDescriptor OpDeprecation)]
-> Map Tag (FieldDescriptor OpDeprecation)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor OpDeprecation
version__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor OpDeprecation
explanation__field_descriptor)]
unknownFields :: LensLike' f OpDeprecation FieldSet
unknownFields
= (OpDeprecation -> FieldSet)
-> (OpDeprecation -> FieldSet -> OpDeprecation)
-> Lens' OpDeprecation FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpDeprecation -> FieldSet
_OpDeprecation'_unknownFields
(\ x__ :: OpDeprecation
x__ y__ :: FieldSet
y__ -> OpDeprecation
x__ {_OpDeprecation'_unknownFields :: FieldSet
_OpDeprecation'_unknownFields = FieldSet
y__})
defMessage :: OpDeprecation
defMessage
= $WOpDeprecation'_constructor :: Int32 -> Text -> FieldSet -> OpDeprecation
OpDeprecation'_constructor
{_OpDeprecation'version :: Int32
_OpDeprecation'version = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDeprecation'explanation :: Text
_OpDeprecation'explanation = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OpDeprecation'_unknownFields :: FieldSet
_OpDeprecation'_unknownFields = []}
parseMessage :: Parser OpDeprecation
parseMessage
= let
loop ::
OpDeprecation -> Data.ProtoLens.Encoding.Bytes.Parser OpDeprecation
loop :: OpDeprecation -> Parser OpDeprecation
loop x :: OpDeprecation
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]))))
OpDeprecation -> Parser OpDeprecation
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter OpDeprecation OpDeprecation FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OpDeprecation -> OpDeprecation
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 OpDeprecation OpDeprecation FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) OpDeprecation
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"version"
OpDeprecation -> Parser OpDeprecation
loop (Setter OpDeprecation OpDeprecation Int32 Int32
-> Int32 -> OpDeprecation -> OpDeprecation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "version" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"version") Int32
y OpDeprecation
x)
18
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"explanation"
OpDeprecation -> Parser OpDeprecation
loop
(Setter OpDeprecation OpDeprecation Text Text
-> Text -> OpDeprecation -> OpDeprecation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "explanation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"explanation") Text
y OpDeprecation
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
OpDeprecation -> Parser OpDeprecation
loop
(Setter OpDeprecation OpDeprecation FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OpDeprecation -> OpDeprecation
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 OpDeprecation OpDeprecation FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) OpDeprecation
x)
in
Parser OpDeprecation -> String -> Parser OpDeprecation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do OpDeprecation -> Parser OpDeprecation
loop OpDeprecation
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "OpDeprecation"
buildMessage :: OpDeprecation -> Builder
buildMessage
= \ _x :: OpDeprecation
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v = FoldLike Int32 OpDeprecation OpDeprecation Int32 Int32
-> OpDeprecation -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "version" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"version") OpDeprecation
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text OpDeprecation OpDeprecation Text Text
-> OpDeprecation -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "explanation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"explanation") OpDeprecation
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet OpDeprecation OpDeprecation FieldSet FieldSet
-> OpDeprecation -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet OpDeprecation OpDeprecation FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields OpDeprecation
_x)))
instance Control.DeepSeq.NFData OpDeprecation where
rnf :: OpDeprecation -> ()
rnf
= \ x__ :: OpDeprecation
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDeprecation -> FieldSet
_OpDeprecation'_unknownFields OpDeprecation
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpDeprecation -> Int32
_OpDeprecation'version OpDeprecation
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (OpDeprecation -> Text
_OpDeprecation'explanation OpDeprecation
x__) ()))
data OpList
= OpList'_constructor {OpList -> Vector OpDef
_OpList'op :: !(Data.Vector.Vector OpDef),
OpList -> FieldSet
_OpList'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (OpList -> OpList -> Bool
(OpList -> OpList -> Bool)
-> (OpList -> OpList -> Bool) -> Eq OpList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpList -> OpList -> Bool
$c/= :: OpList -> OpList -> Bool
== :: OpList -> OpList -> Bool
$c== :: OpList -> OpList -> Bool
Prelude.Eq, Eq OpList
Eq OpList =>
(OpList -> OpList -> Ordering)
-> (OpList -> OpList -> Bool)
-> (OpList -> OpList -> Bool)
-> (OpList -> OpList -> Bool)
-> (OpList -> OpList -> Bool)
-> (OpList -> OpList -> OpList)
-> (OpList -> OpList -> OpList)
-> Ord OpList
OpList -> OpList -> Bool
OpList -> OpList -> Ordering
OpList -> OpList -> OpList
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 :: OpList -> OpList -> OpList
$cmin :: OpList -> OpList -> OpList
max :: OpList -> OpList -> OpList
$cmax :: OpList -> OpList -> OpList
>= :: OpList -> OpList -> Bool
$c>= :: OpList -> OpList -> Bool
> :: OpList -> OpList -> Bool
$c> :: OpList -> OpList -> Bool
<= :: OpList -> OpList -> Bool
$c<= :: OpList -> OpList -> Bool
< :: OpList -> OpList -> Bool
$c< :: OpList -> OpList -> Bool
compare :: OpList -> OpList -> Ordering
$ccompare :: OpList -> OpList -> Ordering
$cp1Ord :: Eq OpList
Prelude.Ord)
instance Prelude.Show OpList where
showsPrec :: Int -> OpList -> ShowS
showsPrec _ __x :: OpList
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(OpList -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OpList
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField OpList "op" [OpDef] where
fieldOf :: Proxy# "op" -> ([OpDef] -> f [OpDef]) -> OpList -> f OpList
fieldOf _
= ((Vector OpDef -> f (Vector OpDef)) -> OpList -> f OpList)
-> (([OpDef] -> f [OpDef]) -> Vector OpDef -> f (Vector OpDef))
-> ([OpDef] -> f [OpDef])
-> OpList
-> f OpList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpList -> Vector OpDef)
-> (OpList -> Vector OpDef -> OpList)
-> Lens OpList OpList (Vector OpDef) (Vector OpDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpList -> Vector OpDef
_OpList'op (\ x__ :: OpList
x__ y__ :: Vector OpDef
y__ -> OpList
x__ {_OpList'op :: Vector OpDef
_OpList'op = Vector OpDef
y__}))
((Vector OpDef -> [OpDef])
-> (Vector OpDef -> [OpDef] -> Vector OpDef)
-> Lens (Vector OpDef) (Vector OpDef) [OpDef] [OpDef]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector OpDef -> [OpDef]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [OpDef]
y__ -> [OpDef] -> Vector OpDef
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [OpDef]
y__))
instance Data.ProtoLens.Field.HasField OpList "vec'op" (Data.Vector.Vector OpDef) where
fieldOf :: Proxy# "vec'op"
-> (Vector OpDef -> f (Vector OpDef)) -> OpList -> f OpList
fieldOf _
= ((Vector OpDef -> f (Vector OpDef)) -> OpList -> f OpList)
-> ((Vector OpDef -> f (Vector OpDef))
-> Vector OpDef -> f (Vector OpDef))
-> (Vector OpDef -> f (Vector OpDef))
-> OpList
-> f OpList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OpList -> Vector OpDef)
-> (OpList -> Vector OpDef -> OpList)
-> Lens OpList OpList (Vector OpDef) (Vector OpDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpList -> Vector OpDef
_OpList'op (\ x__ :: OpList
x__ y__ :: Vector OpDef
y__ -> OpList
x__ {_OpList'op :: Vector OpDef
_OpList'op = Vector OpDef
y__}))
(Vector OpDef -> f (Vector OpDef))
-> Vector OpDef -> f (Vector OpDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OpList where
messageName :: Proxy OpList -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.OpList"
packedMessageDescriptor :: Proxy OpList -> ByteString
packedMessageDescriptor _
= "\n\
\\ACKOpList\DC2!\n\
\\STXop\CAN\SOH \ETX(\v2\DC1.tensorflow.OpDefR\STXop"
packedFileDescriptor :: Proxy OpList -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor OpList)
fieldsByTag
= let
op__field_descriptor :: FieldDescriptor OpList
op__field_descriptor
= String
-> FieldTypeDescriptor OpDef
-> FieldAccessor OpList OpDef
-> FieldDescriptor OpList
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"op"
(MessageOrGroup -> FieldTypeDescriptor OpDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor OpDef)
(Packing -> Lens' OpList [OpDef] -> FieldAccessor OpList OpDef
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "op" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"op")) ::
Data.ProtoLens.FieldDescriptor OpList
in [(Tag, FieldDescriptor OpList)] -> Map Tag (FieldDescriptor OpList)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor OpList
op__field_descriptor)]
unknownFields :: LensLike' f OpList FieldSet
unknownFields
= (OpList -> FieldSet)
-> (OpList -> FieldSet -> OpList) -> Lens' OpList FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OpList -> FieldSet
_OpList'_unknownFields
(\ x__ :: OpList
x__ y__ :: FieldSet
y__ -> OpList
x__ {_OpList'_unknownFields :: FieldSet
_OpList'_unknownFields = FieldSet
y__})
defMessage :: OpList
defMessage
= $WOpList'_constructor :: Vector OpDef -> FieldSet -> OpList
OpList'_constructor
{_OpList'op :: Vector OpDef
_OpList'op = Vector OpDef
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_OpList'_unknownFields :: FieldSet
_OpList'_unknownFields = []}
parseMessage :: Parser OpList
parseMessage
= let
loop ::
OpList
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld OpDef
-> Data.ProtoLens.Encoding.Bytes.Parser OpList
loop :: OpList -> Growing Vector RealWorld OpDef -> Parser OpList
loop x :: OpList
x mutable'op :: Growing Vector RealWorld OpDef
mutable'op
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector OpDef
frozen'op <- IO (Vector OpDef) -> Parser (Vector OpDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) OpDef -> IO (Vector OpDef)
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 OpDef
Growing Vector (PrimState IO) OpDef
mutable'op)
(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]))))
OpList -> Parser OpList
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter OpList OpList FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OpList -> OpList
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 OpList OpList FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter OpList OpList (Vector OpDef) (Vector OpDef)
-> Vector OpDef -> OpList -> OpList
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'op" a, Functor f) =>
(a -> f a) -> s -> 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'op") Vector OpDef
frozen'op OpList
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !OpDef
y <- Parser OpDef -> String -> Parser OpDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser OpDef -> Parser OpDef
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 OpDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"op"
Growing Vector RealWorld OpDef
v <- IO (Growing Vector RealWorld OpDef)
-> Parser (Growing Vector RealWorld OpDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) OpDef
-> OpDef -> IO (Growing Vector (PrimState IO) OpDef)
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 OpDef
Growing Vector (PrimState IO) OpDef
mutable'op OpDef
y)
OpList -> Growing Vector RealWorld OpDef -> Parser OpList
loop OpList
x Growing Vector RealWorld OpDef
v
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
OpList -> Growing Vector RealWorld OpDef -> Parser OpList
loop
(Setter OpList OpList FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OpList -> OpList
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 OpList OpList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) OpList
x)
Growing Vector RealWorld OpDef
mutable'op
in
Parser OpList -> String -> Parser OpList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld OpDef
mutable'op <- IO (Growing Vector RealWorld OpDef)
-> Parser (Growing Vector RealWorld OpDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld OpDef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
OpList -> Growing Vector RealWorld OpDef -> Parser OpList
loop OpList
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld OpDef
mutable'op)
"OpList"
buildMessage :: OpList -> Builder
buildMessage
= \ _x :: OpList
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((OpDef -> Builder) -> Vector OpDef -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: OpDef
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (OpDef -> ByteString) -> OpDef -> 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))
OpDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
OpDef
_v))
(FoldLike (Vector OpDef) OpList OpList (Vector OpDef) (Vector OpDef)
-> OpList -> Vector OpDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'op" a, Functor f) =>
(a -> f a) -> s -> 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'op") OpList
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet OpList OpList FieldSet FieldSet
-> OpList -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet OpList OpList FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields OpList
_x))
instance Control.DeepSeq.NFData OpList where
rnf :: OpList -> ()
rnf
= \ x__ :: OpList
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OpList -> FieldSet
_OpList'_unknownFields OpList
x__)
(Vector OpDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (OpList -> Vector OpDef
_OpList'op OpList
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\&tensorflow/core/framework/op_def.proto\DC2\n\
\tensorflow\SUB*tensorflow/core/framework/attr_value.proto\SUB%tensorflow/core/framework/types.proto\"\244\a\n\
\\ENQOpDef\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC25\n\
\\tinput_arg\CAN\STX \ETX(\v2\CAN.tensorflow.OpDef.ArgDefR\binputArg\DC27\n\
\\n\
\output_arg\CAN\ETX \ETX(\v2\CAN.tensorflow.OpDef.ArgDefR\toutputArg\DC2%\n\
\\SOcontrol_output\CAN\DC4 \ETX(\tR\rcontrolOutput\DC2-\n\
\\EOTattr\CAN\EOT \ETX(\v2\EM.tensorflow.OpDef.AttrDefR\EOTattr\DC2;\n\
\\vdeprecation\CAN\b \SOH(\v2\EM.tensorflow.OpDeprecationR\vdeprecation\DC2\CAN\n\
\\asummary\CAN\ENQ \SOH(\tR\asummary\DC2 \n\
\\vdescription\CAN\ACK \SOH(\tR\vdescription\DC2%\n\
\\SOis_commutative\CAN\DC2 \SOH(\bR\risCommutative\DC2!\n\
\\fis_aggregate\CAN\DLE \SOH(\bR\visAggregate\DC2\US\n\
\\vis_stateful\CAN\DC1 \SOH(\bR\n\
\isStateful\DC2<\n\
\\SUBallows_uninitialized_input\CAN\DC3 \SOH(\bR\CANallowsUninitializedInput\SUB\227\SOH\n\
\\ACKArgDef\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2 \n\
\\vdescription\CAN\STX \SOH(\tR\vdescription\DC2(\n\
\\EOTtype\CAN\ETX \SOH(\SO2\DC4.tensorflow.DataTypeR\EOTtype\DC2\ESC\n\
\\ttype_attr\CAN\EOT \SOH(\tR\btypeAttr\DC2\US\n\
\\vnumber_attr\CAN\ENQ \SOH(\tR\n\
\numberAttr\DC2$\n\
\\SOtype_list_attr\CAN\ACK \SOH(\tR\ftypeListAttr\DC2\NAK\n\
\\ACKis_ref\CAN\DLE \SOH(\bR\ENQisRef\SUB\136\STX\n\
\\aAttrDef\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC2\n\
\\EOTtype\CAN\STX \SOH(\tR\EOTtype\DC2:\n\
\\rdefault_value\CAN\ETX \SOH(\v2\NAK.tensorflow.AttrValueR\fdefaultValue\DC2 \n\
\\vdescription\CAN\EOT \SOH(\tR\vdescription\DC2\US\n\
\\vhas_minimum\CAN\ENQ \SOH(\bR\n\
\hasMinimum\DC2\CAN\n\
\\aminimum\CAN\ACK \SOH(\ETXR\aminimum\DC2<\n\
\\SOallowed_values\CAN\a \SOH(\v2\NAK.tensorflow.AttrValueR\rallowedValues\"K\n\
\\rOpDeprecation\DC2\CAN\n\
\\aversion\CAN\SOH \SOH(\ENQR\aversion\DC2 \n\
\\vexplanation\CAN\STX \SOH(\tR\vexplanation\"+\n\
\\ACKOpList\DC2!\n\
\\STXop\CAN\SOH \ETX(\v2\DC1.tensorflow.OpDefR\STXopB{\n\
\\CANorg.tensorflow.frameworkB\vOpDefProtosP\SOHZMgithub.com/tensorflow/tensorflow/tensorflow/go/core/framework/op_def_go_proto\248\SOH\SOHJ\148\&8\n\
\\a\DC2\ENQ\NUL\NUL\169\SOH\STX\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
\\b\n\
\\SOH\STX\DC2\ETX\STX\NUL\DC3\n\
\\b\n\
\\SOH\b\DC2\ETX\ETX\NUL\US\n\
\\t\n\
\\STX\b\US\DC2\ETX\ETX\NUL\US\n\
\\b\n\
\\SOH\b\DC2\ETX\EOT\NUL,\n\
\\t\n\
\\STX\b\b\DC2\ETX\EOT\NUL,\n\
\\b\n\
\\SOH\b\DC2\ETX\ENQ\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\ENQ\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\ACK\NUL1\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\ACK\NUL1\n\
\\b\n\
\\SOH\b\DC2\ETX\a\NULd\n\
\\t\n\
\\STX\b\v\DC2\ETX\a\NULd\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\b\NUL4\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\t\NUL/\n\
\\157\SOH\n\
\\STX\EOT\NUL\DC2\ENQ\SO\NUL\153\SOH\SOH\SUB\143\SOH Defines an operation. A NodeDef in a GraphDef specifies an Op by\n\
\ using the \"op\" field which should match the name of a OpDef.\n\
\ LINT.IfChange\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\SO\b\r\n\
\\154\SOH\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\DC1\STX\DC2\SUB\140\SOH Op names starting with an underscore are reserved for internal use.\n\
\ Names should be CamelCase and match the regexp \"[A-Z][a-zA-Z0-9>_]*\".\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\DC1\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\DC1\t\r\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\DC1\DLE\DC1\n\
\2\n\
\\EOT\EOT\NUL\ETX\NUL\DC2\EOT\DC4\STX0\ETX\SUB$ For describing inputs and outputs.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\ETX\NUL\SOH\DC2\ETX\DC4\n\
\\DLE\n\
\W\n\
\\ACK\EOT\NUL\ETX\NUL\STX\NUL\DC2\ETX\SYN\EOT\DC4\SUBH Name for the input/output. Should match the regexp \"[a-z][a-z0-9_]*\".\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\ENQ\DC2\ETX\SYN\EOT\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX\SYN\v\SI\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX\SYN\DC2\DC3\n\
\,\n\
\\ACK\EOT\NUL\ETX\NUL\STX\SOH\DC2\ETX\EM\EOT\ESC\SUB\GS Human readable description.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\ENQ\DC2\ETX\EM\EOT\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX\EM\v\SYN\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX\EM\EM\SUB\n\
\\225\EOT\n\
\\ACK\EOT\NUL\ETX\NUL\STX\STX\DC2\ETX%\EOT\SYN\SUB\209\EOT Describes the type of one or more tensors that are accepted/produced\n\
\ by this input/output arg. The only legal combinations are:\n\
\ * For a single tensor: either the \"type\" field is set or the\n\
\ \"type_attr\" field is set to the name of an attr with type \"type\".\n\
\ * For a sequence of tensors with the same type: the \"number_attr\"\n\
\ field will be set to the name of an attr with type \"int\", and\n\
\ either the \"type\" or \"type_attr\" field will be set as for\n\
\ single tensors.\n\
\ * For a sequence of tensors, the \"type_list_attr\" field will be set\n\
\ to the name of an attr with type \"list(type)\".\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\ACK\DC2\ETX%\EOT\f\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\SOH\DC2\ETX%\r\DC1\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\ETX\DC2\ETX%\DC4\NAK\n\
\9\n\
\\ACK\EOT\NUL\ETX\NUL\STX\ETX\DC2\ETX&\EOT\EM\"* if specified, attr must have type \"type\"\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ETX\ENQ\DC2\ETX&\EOT\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ETX\SOH\DC2\ETX&\v\DC4\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ETX\ETX\DC2\ETX&\ETB\CAN\n\
\8\n\
\\ACK\EOT\NUL\ETX\NUL\STX\EOT\DC2\ETX'\EOT\ESC\") if specified, attr must have type \"int\"\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\EOT\ENQ\DC2\ETX'\EOT\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\EOT\SOH\DC2\ETX'\v\SYN\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\EOT\ETX\DC2\ETX'\EM\SUB\n\
\\128\SOH\n\
\\ACK\EOT\NUL\ETX\NUL\STX\ENQ\DC2\ETX*\EOT\RS\SUBq If specified, attr must have type \"list(type)\", and none of\n\
\ type, type_attr, and number_attr may be specified.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ENQ\ENQ\DC2\ETX*\EOT\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ENQ\SOH\DC2\ETX*\v\EM\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ENQ\ETX\DC2\ETX*\FS\GS\n\
\\193\SOH\n\
\\ACK\EOT\NUL\ETX\NUL\STX\ACK\DC2\ETX/\EOT\NAK\SUB\177\SOH For inputs: if true, the inputs are required to be refs.\n\
\ By default, inputs can be either refs or non-refs.\n\
\ For outputs: if true, outputs are refs, otherwise they are not.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ACK\ENQ\DC2\ETX/\EOT\b\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ACK\SOH\DC2\ETX/\t\SI\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ACK\ETX\DC2\ETX/\DC2\DC4\n\
\+\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX3\STX \SUB\RS Description of the input(s).\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\EOT\DC2\ETX3\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX3\v\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX3\DC2\ESC\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX3\RS\US\n\
\,\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX6\STX!\SUB\US Description of the output(s).\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\EOT\DC2\ETX6\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX6\v\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX6\DC2\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX6\US \n\
\\158\SOH\n\
\\EOT\EOT\NUL\STX\ETX\DC2\ETX:\STX&\SUB\144\SOH Named control outputs for this operation. Useful only for composite\n\
\ operations (i.e. functions) which want to name different control outputs.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\EOT\DC2\ETX:\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX:\v\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX:\DC2 \n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX:#%\n\
\\174\SOH\n\
\\EOT\EOT\NUL\ETX\SOH\DC2\EOT?\STXb\ETX\SUB\159\SOH Description of the graph-construction-time configuration of this\n\
\ Op. That is to say, this describes the attr fields that will\n\
\ be specified in the NodeDef.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\ETX\SOH\SOH\DC2\ETX?\n\
\\DC1\n\
\\175\SOH\n\
\\ACK\EOT\NUL\ETX\SOH\STX\NUL\DC2\ETXC\EOT\DC4\SUB\159\SOH A descriptive name for the argument. May be used, e.g. by the\n\
\ Python client, as a keyword argument name, and so should match\n\
\ the regexp \"[a-z][a-z0-9_]+\".\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\NUL\ENQ\DC2\ETXC\EOT\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\NUL\SOH\DC2\ETXC\v\SI\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\NUL\ETX\DC2\ETXC\DC2\DC3\n\
\f\n\
\\ACK\EOT\NUL\ETX\SOH\STX\SOH\DC2\ETXG\EOT\DC4\SUBW One of the type names from attr_value.proto (\"string\", \"list(string)\",\n\
\ \"int\", etc.).\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\SOH\ENQ\DC2\ETXG\EOT\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\SOH\SOH\DC2\ETXG\v\SI\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\SOH\ETX\DC2\ETXG\DC2\DC3\n\
\\144\SOH\n\
\\ACK\EOT\NUL\ETX\SOH\STX\STX\DC2\ETXK\EOT \SUB\128\SOH A reasonable default for this attribute if the user does not supply\n\
\ a value. If not specified, the user must supply a value.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\STX\ACK\DC2\ETXK\EOT\r\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\STX\SOH\DC2\ETXK\SO\ESC\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\STX\ETX\DC2\ETXK\RS\US\n\
\,\n\
\\ACK\EOT\NUL\ETX\SOH\STX\ETX\DC2\ETXN\EOT\ESC\SUB\GS Human-readable description.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\ETX\ENQ\DC2\ETXN\EOT\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\ETX\SOH\DC2\ETXN\v\SYN\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\ETX\ETX\DC2\ETXN\EM\SUB\n\
\\253\SOH\n\
\\ACK\EOT\NUL\ETX\SOH\STX\EOT\DC2\ETXX\EOT\EM\SUBb For type == \"int\", this is a minimum value. For \"list(___)\"\n\
\ types, this is the minimum length.\n\
\2\" TODO(josh11b): bool is_optional?\n\
\2f --- Constraints ---\n\
\ These constraints are only in effect if specified. Default is no\n\
\ constraints.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\EOT\ENQ\DC2\ETXX\EOT\b\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\EOT\SOH\DC2\ETXX\t\DC4\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\EOT\ETX\DC2\ETXX\ETB\CAN\n\
\\r\n\
\\ACK\EOT\NUL\ETX\SOH\STX\ENQ\DC2\ETXY\EOT\SYN\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\ENQ\ENQ\DC2\ETXY\EOT\t\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\ENQ\SOH\DC2\ETXY\n\
\\DC1\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\ENQ\ETX\DC2\ETXY\DC4\NAK\n\
\\131\ETX\n\
\\ACK\EOT\NUL\ETX\SOH\STX\ACK\DC2\ETXa\EOT!\SUB\243\STX The set of allowed values. Has type that is the \"list\" version\n\
\ of the \"type\" field above (uses the \"list\" field of AttrValue).\n\
\ If type == \"type\" or \"list(type)\" above, then the \"type\" field\n\
\ of \"allowed_values.list\" has the set of allowed DataTypes.\n\
\ If type == \"string\" or \"list(string)\", then the \"s\" field of\n\
\ \"allowed_values.list\" has the set of allowed strings.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\ACK\ACK\DC2\ETXa\EOT\r\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\ACK\SOH\DC2\ETXa\SO\FS\n\
\\SO\n\
\\a\EOT\NUL\ETX\SOH\STX\ACK\ETX\DC2\ETXa\US \n\
\\v\n\
\\EOT\EOT\NUL\STX\EOT\DC2\ETXc\STX\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\EOT\DC2\ETXc\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ACK\DC2\ETXc\v\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETXc\DC3\ETB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETXc\SUB\ESC\n\
\?\n\
\\EOT\EOT\NUL\STX\ENQ\DC2\ETXf\STX \SUB2 Optional deprecation based on GraphDef versions.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ACK\DC2\ETXf\STX\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETXf\DLE\ESC\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETXf\RS\US\n\
\G\n\
\\EOT\EOT\NUL\STX\ACK\DC2\ETXi\STX\NAK\SUB: One-line human-readable description of what the Op does.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ENQ\DC2\ETXi\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\SOH\DC2\ETXi\t\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ETX\DC2\ETXi\DC3\DC4\n\
\Q\n\
\\EOT\EOT\NUL\STX\a\DC2\ETXl\STX\EM\SUBD Additional, longer human-readable description of what the Op does.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\ENQ\DC2\ETXl\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\SOH\DC2\ETXl\t\DC4\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\ETX\DC2\ETXl\ETB\CAN\n\
\\223\SOH\n\
\\EOT\EOT\NUL\STX\b\DC2\ETXr\STX\ESC\SUBL True if the operation is commutative (\"op(a,b) == op(b,a)\" for all inputs)\n\
\2\131\SOH -------------------------------------------------------------------------\n\
\ Which optimizations this operation can participate in.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\ENQ\DC2\ETXr\STX\ACK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\SOH\DC2\ETXr\a\NAK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\ETX\DC2\ETXr\CAN\SUB\n\
\\255\ETX\n\
\\EOT\EOT\NUL\STX\t\DC2\ETX|\STX\EM\SUB\218\ETX If is_aggregate is true, then this operation accepts N >= 2\n\
\ inputs and produces 1 output all of the same type. Should be\n\
\ associative and commutative, and produce output with the same\n\
\ shape as the input. The optimizer may replace an aggregate op\n\
\ taking input from multiple devices with a tree of aggregate ops\n\
\ that aggregate locally within each device (and possibly within\n\
\ groups of nearby devices) before communicating.\n\
\ TODO(josh11b): Implement that optimization.\n\
\\"\NAK for things like add\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\t\ENQ\DC2\ETX|\STX\ACK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\t\SOH\DC2\ETX|\a\DC3\n\
\\f\n\
\\ENQ\EOT\NUL\STX\t\ETX\DC2\ETX|\SYN\CAN\n\
\\214\ACK\n\
\\EOT\EOT\NUL\STX\n\
\\DC2\EOT\143\SOH\STX\CAN\SUB\202\EOT Ops are marked as stateful if their behavior depends on some state beyond\n\
\ their input tensors (e.g. variable reading op) or if they have\n\
\ a side-effect (e.g. printing or asserting ops). Equivalently, stateless ops\n\
\ must always produce the same output for the same input and have\n\
\ no side-effects.\n\
\\n\
\ By default Ops may be moved between devices. Stateful ops should\n\
\ either not be moved, or should only be moved if that state can also\n\
\ be moved (e.g. via some sort of save / restore).\n\
\ Stateful ops are guaranteed to never be optimized away by Common\n\
\ Subexpression Elimination (CSE).\n\
\\"\" for things like variables, queue\n\
\2o Other optimizations go here, like\n\
\ can_alias_input, rewrite_when_output_unused, partitioning_strategy, etc.\n\
\2f -------------------------------------------------------------------------\n\
\ Optimization constraints.\n\
\\n\
\\r\n\
\\ENQ\EOT\NUL\STX\n\
\\ENQ\DC2\EOT\143\SOH\STX\ACK\n\
\\r\n\
\\ENQ\EOT\NUL\STX\n\
\\SOH\DC2\EOT\143\SOH\a\DC2\n\
\\r\n\
\\ENQ\EOT\NUL\STX\n\
\\ETX\DC2\EOT\143\SOH\NAK\ETB\n\
\\213\STX\n\
\\EOT\EOT\NUL\STX\v\DC2\EOT\152\SOH\STX'\SUB\206\SOH By default, all inputs to an Op must be initialized Tensors. Ops\n\
\ that may initialize tensors for the first time should set this\n\
\ field to true, to allow the Op to take an uninitialized Tensor as\n\
\ input.\n\
\\"\DC2 for Assign, etc.\n\
\2b -------------------------------------------------------------------------\n\
\ Non-standard options.\n\
\\n\
\\r\n\
\\ENQ\EOT\NUL\STX\v\ENQ\DC2\EOT\152\SOH\STX\ACK\n\
\\r\n\
\\ENQ\EOT\NUL\STX\v\SOH\DC2\EOT\152\SOH\a!\n\
\\r\n\
\\ENQ\EOT\NUL\STX\v\ETX\DC2\EOT\152\SOH$&\n\
\H\n\
\\STX\EOT\SOH\DC2\ACK\158\SOH\NUL\164\SOH\SOH\SUB: Information about version-dependent deprecation of an op\n\
\\n\
\\v\n\
\\ETX\EOT\SOH\SOH\DC2\EOT\158\SOH\b\NAK\n\
\E\n\
\\EOT\EOT\SOH\STX\NUL\DC2\EOT\160\SOH\STX\DC4\SUB7 First GraphDef version at which the op is disallowed.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\EOT\160\SOH\STX\a\n\
\\r\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\EOT\160\SOH\b\SI\n\
\\r\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\EOT\160\SOH\DC2\DC3\n\
\M\n\
\\EOT\EOT\SOH\STX\SOH\DC2\EOT\163\SOH\STX\EM\SUB? Explanation of why it was deprecated and what to use instead.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\EOT\163\SOH\STX\b\n\
\\r\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\EOT\163\SOH\t\DC4\n\
\\r\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\EOT\163\SOH\ETB\CAN\n\
\&\n\
\\STX\EOT\STX\DC2\ACK\167\SOH\NUL\169\SOH\SOH\SUB\CAN A collection of OpDefs\n\
\\n\
\\v\n\
\\ETX\EOT\STX\SOH\DC2\EOT\167\SOH\b\SO\n\
\\f\n\
\\EOT\EOT\STX\STX\NUL\DC2\EOT\168\SOH\STX\CAN\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\EOT\DC2\EOT\168\SOH\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\EOT\168\SOH\v\DLE\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\EOT\168\SOH\DC1\DC3\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\EOT\168\SOH\SYN\ETBb\ACKproto3"