{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Tensorflow.Core.Protobuf.Config (
CallableOptions(), CallableOptions'FeedDevicesEntry(),
CallableOptions'FetchDevicesEntry(), ConfigProto(),
ConfigProto'DeviceCountEntry(), ConfigProto'Experimental(),
GPUOptions(), GPUOptions'Experimental(),
GPUOptions'Experimental'VirtualDevices(), GraphOptions(),
OptimizerOptions(), OptimizerOptions'GlobalJitLevel(..),
OptimizerOptions'GlobalJitLevel(),
OptimizerOptions'GlobalJitLevel'UnrecognizedValue,
OptimizerOptions'Level(..), OptimizerOptions'Level(),
OptimizerOptions'Level'UnrecognizedValue, RPCOptions(),
RunMetadata(), RunMetadata'FunctionGraphs(), RunOptions(),
RunOptions'Experimental(),
RunOptions'Experimental'RunHandlerPoolOptions(),
RunOptions'TraceLevel(..), RunOptions'TraceLevel(),
RunOptions'TraceLevel'UnrecognizedValue, SessionMetadata(),
TensorConnection(), ThreadPoolOptionProto()
) 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.CostGraph
import qualified Proto.Tensorflow.Core.Framework.Graph
import qualified Proto.Tensorflow.Core.Framework.StepStats
import qualified Proto.Tensorflow.Core.Protobuf.Cluster
import qualified Proto.Tensorflow.Core.Protobuf.Debug
import qualified Proto.Tensorflow.Core.Protobuf.RewriterConfig
data CallableOptions
= CallableOptions'_constructor {CallableOptions -> Vector Text
_CallableOptions'feed :: !(Data.Vector.Vector Data.Text.Text),
CallableOptions -> Vector Text
_CallableOptions'fetch :: !(Data.Vector.Vector Data.Text.Text),
CallableOptions -> Vector Text
_CallableOptions'target :: !(Data.Vector.Vector Data.Text.Text),
CallableOptions -> Maybe RunOptions
_CallableOptions'runOptions :: !(Prelude.Maybe RunOptions),
CallableOptions -> Vector TensorConnection
_CallableOptions'tensorConnection :: !(Data.Vector.Vector TensorConnection),
CallableOptions -> Map Text Text
_CallableOptions'feedDevices :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
CallableOptions -> Map Text Text
_CallableOptions'fetchDevices :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
CallableOptions -> Bool
_CallableOptions'fetchSkipSync :: !Prelude.Bool,
CallableOptions -> FieldSet
_CallableOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CallableOptions -> CallableOptions -> Bool
(CallableOptions -> CallableOptions -> Bool)
-> (CallableOptions -> CallableOptions -> Bool)
-> Eq CallableOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CallableOptions -> CallableOptions -> Bool
$c/= :: CallableOptions -> CallableOptions -> Bool
== :: CallableOptions -> CallableOptions -> Bool
$c== :: CallableOptions -> CallableOptions -> Bool
Prelude.Eq, Eq CallableOptions
Eq CallableOptions =>
(CallableOptions -> CallableOptions -> Ordering)
-> (CallableOptions -> CallableOptions -> Bool)
-> (CallableOptions -> CallableOptions -> Bool)
-> (CallableOptions -> CallableOptions -> Bool)
-> (CallableOptions -> CallableOptions -> Bool)
-> (CallableOptions -> CallableOptions -> CallableOptions)
-> (CallableOptions -> CallableOptions -> CallableOptions)
-> Ord CallableOptions
CallableOptions -> CallableOptions -> Bool
CallableOptions -> CallableOptions -> Ordering
CallableOptions -> CallableOptions -> CallableOptions
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 :: CallableOptions -> CallableOptions -> CallableOptions
$cmin :: CallableOptions -> CallableOptions -> CallableOptions
max :: CallableOptions -> CallableOptions -> CallableOptions
$cmax :: CallableOptions -> CallableOptions -> CallableOptions
>= :: CallableOptions -> CallableOptions -> Bool
$c>= :: CallableOptions -> CallableOptions -> Bool
> :: CallableOptions -> CallableOptions -> Bool
$c> :: CallableOptions -> CallableOptions -> Bool
<= :: CallableOptions -> CallableOptions -> Bool
$c<= :: CallableOptions -> CallableOptions -> Bool
< :: CallableOptions -> CallableOptions -> Bool
$c< :: CallableOptions -> CallableOptions -> Bool
compare :: CallableOptions -> CallableOptions -> Ordering
$ccompare :: CallableOptions -> CallableOptions -> Ordering
$cp1Ord :: Eq CallableOptions
Prelude.Ord)
instance Prelude.Show CallableOptions where
showsPrec :: Int -> CallableOptions -> ShowS
showsPrec _ __x :: CallableOptions
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(CallableOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CallableOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CallableOptions "feed" [Data.Text.Text] where
fieldOf :: Proxy# "feed"
-> ([Text] -> f [Text]) -> CallableOptions -> f CallableOptions
fieldOf _
= ((Vector Text -> f (Vector Text))
-> CallableOptions -> f CallableOptions)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Vector Text)
-> (CallableOptions -> Vector Text -> CallableOptions)
-> Lens CallableOptions CallableOptions (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Vector Text
_CallableOptions'feed
(\ x__ :: CallableOptions
x__ y__ :: Vector Text
y__ -> CallableOptions
x__ {_CallableOptions'feed :: Vector Text
_CallableOptions'feed = 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 CallableOptions "vec'feed" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: Proxy# "vec'feed"
-> (Vector Text -> f (Vector Text))
-> CallableOptions
-> f CallableOptions
fieldOf _
= ((Vector Text -> f (Vector Text))
-> CallableOptions -> f CallableOptions)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Vector Text)
-> (CallableOptions -> Vector Text -> CallableOptions)
-> Lens CallableOptions CallableOptions (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Vector Text
_CallableOptions'feed
(\ x__ :: CallableOptions
x__ y__ :: Vector Text
y__ -> CallableOptions
x__ {_CallableOptions'feed :: Vector Text
_CallableOptions'feed = Vector Text
y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CallableOptions "fetch" [Data.Text.Text] where
fieldOf :: Proxy# "fetch"
-> ([Text] -> f [Text]) -> CallableOptions -> f CallableOptions
fieldOf _
= ((Vector Text -> f (Vector Text))
-> CallableOptions -> f CallableOptions)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Vector Text)
-> (CallableOptions -> Vector Text -> CallableOptions)
-> Lens CallableOptions CallableOptions (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Vector Text
_CallableOptions'fetch
(\ x__ :: CallableOptions
x__ y__ :: Vector Text
y__ -> CallableOptions
x__ {_CallableOptions'fetch :: Vector Text
_CallableOptions'fetch = 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 CallableOptions "vec'fetch" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: Proxy# "vec'fetch"
-> (Vector Text -> f (Vector Text))
-> CallableOptions
-> f CallableOptions
fieldOf _
= ((Vector Text -> f (Vector Text))
-> CallableOptions -> f CallableOptions)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Vector Text)
-> (CallableOptions -> Vector Text -> CallableOptions)
-> Lens CallableOptions CallableOptions (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Vector Text
_CallableOptions'fetch
(\ x__ :: CallableOptions
x__ y__ :: Vector Text
y__ -> CallableOptions
x__ {_CallableOptions'fetch :: Vector Text
_CallableOptions'fetch = Vector Text
y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CallableOptions "target" [Data.Text.Text] where
fieldOf :: Proxy# "target"
-> ([Text] -> f [Text]) -> CallableOptions -> f CallableOptions
fieldOf _
= ((Vector Text -> f (Vector Text))
-> CallableOptions -> f CallableOptions)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Vector Text)
-> (CallableOptions -> Vector Text -> CallableOptions)
-> Lens CallableOptions CallableOptions (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Vector Text
_CallableOptions'target
(\ x__ :: CallableOptions
x__ y__ :: Vector Text
y__ -> CallableOptions
x__ {_CallableOptions'target :: Vector Text
_CallableOptions'target = 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 CallableOptions "vec'target" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: Proxy# "vec'target"
-> (Vector Text -> f (Vector Text))
-> CallableOptions
-> f CallableOptions
fieldOf _
= ((Vector Text -> f (Vector Text))
-> CallableOptions -> f CallableOptions)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Vector Text)
-> (CallableOptions -> Vector Text -> CallableOptions)
-> Lens CallableOptions CallableOptions (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Vector Text
_CallableOptions'target
(\ x__ :: CallableOptions
x__ y__ :: Vector Text
y__ -> CallableOptions
x__ {_CallableOptions'target :: Vector Text
_CallableOptions'target = Vector Text
y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CallableOptions "runOptions" RunOptions where
fieldOf :: Proxy# "runOptions"
-> (RunOptions -> f RunOptions)
-> CallableOptions
-> f CallableOptions
fieldOf _
= ((Maybe RunOptions -> f (Maybe RunOptions))
-> CallableOptions -> f CallableOptions)
-> ((RunOptions -> f RunOptions)
-> Maybe RunOptions -> f (Maybe RunOptions))
-> (RunOptions -> f RunOptions)
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Maybe RunOptions)
-> (CallableOptions -> Maybe RunOptions -> CallableOptions)
-> Lens
CallableOptions
CallableOptions
(Maybe RunOptions)
(Maybe RunOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Maybe RunOptions
_CallableOptions'runOptions
(\ x__ :: CallableOptions
x__ y__ :: Maybe RunOptions
y__ -> CallableOptions
x__ {_CallableOptions'runOptions :: Maybe RunOptions
_CallableOptions'runOptions = Maybe RunOptions
y__}))
(RunOptions -> Lens' (Maybe RunOptions) RunOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RunOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CallableOptions "maybe'runOptions" (Prelude.Maybe RunOptions) where
fieldOf :: Proxy# "maybe'runOptions"
-> (Maybe RunOptions -> f (Maybe RunOptions))
-> CallableOptions
-> f CallableOptions
fieldOf _
= ((Maybe RunOptions -> f (Maybe RunOptions))
-> CallableOptions -> f CallableOptions)
-> ((Maybe RunOptions -> f (Maybe RunOptions))
-> Maybe RunOptions -> f (Maybe RunOptions))
-> (Maybe RunOptions -> f (Maybe RunOptions))
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Maybe RunOptions)
-> (CallableOptions -> Maybe RunOptions -> CallableOptions)
-> Lens
CallableOptions
CallableOptions
(Maybe RunOptions)
(Maybe RunOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Maybe RunOptions
_CallableOptions'runOptions
(\ x__ :: CallableOptions
x__ y__ :: Maybe RunOptions
y__ -> CallableOptions
x__ {_CallableOptions'runOptions :: Maybe RunOptions
_CallableOptions'runOptions = Maybe RunOptions
y__}))
(Maybe RunOptions -> f (Maybe RunOptions))
-> Maybe RunOptions -> f (Maybe RunOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CallableOptions "tensorConnection" [TensorConnection] where
fieldOf :: Proxy# "tensorConnection"
-> ([TensorConnection] -> f [TensorConnection])
-> CallableOptions
-> f CallableOptions
fieldOf _
= ((Vector TensorConnection -> f (Vector TensorConnection))
-> CallableOptions -> f CallableOptions)
-> (([TensorConnection] -> f [TensorConnection])
-> Vector TensorConnection -> f (Vector TensorConnection))
-> ([TensorConnection] -> f [TensorConnection])
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Vector TensorConnection)
-> (CallableOptions -> Vector TensorConnection -> CallableOptions)
-> Lens
CallableOptions
CallableOptions
(Vector TensorConnection)
(Vector TensorConnection)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Vector TensorConnection
_CallableOptions'tensorConnection
(\ x__ :: CallableOptions
x__ y__ :: Vector TensorConnection
y__ -> CallableOptions
x__ {_CallableOptions'tensorConnection :: Vector TensorConnection
_CallableOptions'tensorConnection = Vector TensorConnection
y__}))
((Vector TensorConnection -> [TensorConnection])
-> (Vector TensorConnection
-> [TensorConnection] -> Vector TensorConnection)
-> Lens
(Vector TensorConnection)
(Vector TensorConnection)
[TensorConnection]
[TensorConnection]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TensorConnection -> [TensorConnection]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [TensorConnection]
y__ -> [TensorConnection] -> Vector TensorConnection
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TensorConnection]
y__))
instance Data.ProtoLens.Field.HasField CallableOptions "vec'tensorConnection" (Data.Vector.Vector TensorConnection) where
fieldOf :: Proxy# "vec'tensorConnection"
-> (Vector TensorConnection -> f (Vector TensorConnection))
-> CallableOptions
-> f CallableOptions
fieldOf _
= ((Vector TensorConnection -> f (Vector TensorConnection))
-> CallableOptions -> f CallableOptions)
-> ((Vector TensorConnection -> f (Vector TensorConnection))
-> Vector TensorConnection -> f (Vector TensorConnection))
-> (Vector TensorConnection -> f (Vector TensorConnection))
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Vector TensorConnection)
-> (CallableOptions -> Vector TensorConnection -> CallableOptions)
-> Lens
CallableOptions
CallableOptions
(Vector TensorConnection)
(Vector TensorConnection)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Vector TensorConnection
_CallableOptions'tensorConnection
(\ x__ :: CallableOptions
x__ y__ :: Vector TensorConnection
y__ -> CallableOptions
x__ {_CallableOptions'tensorConnection :: Vector TensorConnection
_CallableOptions'tensorConnection = Vector TensorConnection
y__}))
(Vector TensorConnection -> f (Vector TensorConnection))
-> Vector TensorConnection -> f (Vector TensorConnection)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CallableOptions "feedDevices" (Data.Map.Map Data.Text.Text Data.Text.Text) where
fieldOf :: Proxy# "feedDevices"
-> (Map Text Text -> f (Map Text Text))
-> CallableOptions
-> f CallableOptions
fieldOf _
= ((Map Text Text -> f (Map Text Text))
-> CallableOptions -> f CallableOptions)
-> ((Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Map Text Text)
-> (CallableOptions -> Map Text Text -> CallableOptions)
-> Lens
CallableOptions CallableOptions (Map Text Text) (Map Text Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Map Text Text
_CallableOptions'feedDevices
(\ x__ :: CallableOptions
x__ y__ :: Map Text Text
y__ -> CallableOptions
x__ {_CallableOptions'feedDevices :: Map Text Text
_CallableOptions'feedDevices = Map Text Text
y__}))
(Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CallableOptions "fetchDevices" (Data.Map.Map Data.Text.Text Data.Text.Text) where
fieldOf :: Proxy# "fetchDevices"
-> (Map Text Text -> f (Map Text Text))
-> CallableOptions
-> f CallableOptions
fieldOf _
= ((Map Text Text -> f (Map Text Text))
-> CallableOptions -> f CallableOptions)
-> ((Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Map Text Text)
-> (CallableOptions -> Map Text Text -> CallableOptions)
-> Lens
CallableOptions CallableOptions (Map Text Text) (Map Text Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Map Text Text
_CallableOptions'fetchDevices
(\ x__ :: CallableOptions
x__ y__ :: Map Text Text
y__ -> CallableOptions
x__ {_CallableOptions'fetchDevices :: Map Text Text
_CallableOptions'fetchDevices = Map Text Text
y__}))
(Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CallableOptions "fetchSkipSync" Prelude.Bool where
fieldOf :: Proxy# "fetchSkipSync"
-> (Bool -> f Bool) -> CallableOptions -> f CallableOptions
fieldOf _
= ((Bool -> f Bool) -> CallableOptions -> f CallableOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> CallableOptions
-> f CallableOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions -> Bool)
-> (CallableOptions -> Bool -> CallableOptions)
-> Lens CallableOptions CallableOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> Bool
_CallableOptions'fetchSkipSync
(\ x__ :: CallableOptions
x__ y__ :: Bool
y__ -> CallableOptions
x__ {_CallableOptions'fetchSkipSync :: Bool
_CallableOptions'fetchSkipSync = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CallableOptions where
messageName :: Proxy CallableOptions -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CallableOptions"
packedMessageDescriptor :: Proxy CallableOptions -> ByteString
packedMessageDescriptor _
= "\n\
\\SICallableOptions\DC2\DC2\n\
\\EOTfeed\CAN\SOH \ETX(\tR\EOTfeed\DC2\DC4\n\
\\ENQfetch\CAN\STX \ETX(\tR\ENQfetch\DC2\SYN\n\
\\ACKtarget\CAN\ETX \ETX(\tR\ACKtarget\DC27\n\
\\vrun_options\CAN\EOT \SOH(\v2\SYN.tensorflow.RunOptionsR\n\
\runOptions\DC2I\n\
\\DC1tensor_connection\CAN\ENQ \ETX(\v2\FS.tensorflow.TensorConnectionR\DLEtensorConnection\DC2O\n\
\\ffeed_devices\CAN\ACK \ETX(\v2,.tensorflow.CallableOptions.FeedDevicesEntryR\vfeedDevices\DC2R\n\
\\rfetch_devices\CAN\a \ETX(\v2-.tensorflow.CallableOptions.FetchDevicesEntryR\ffetchDevices\DC2&\n\
\\SIfetch_skip_sync\CAN\b \SOH(\bR\rfetchSkipSync\SUB>\n\
\\DLEFeedDevicesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\SUB?\n\
\\DC1FetchDevicesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy CallableOptions -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CallableOptions)
fieldsByTag
= let
feed__field_descriptor :: FieldDescriptor CallableOptions
feed__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CallableOptions Text
-> FieldDescriptor CallableOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"feed"
(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' CallableOptions [Text]
-> FieldAccessor CallableOptions Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "feed" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"feed")) ::
Data.ProtoLens.FieldDescriptor CallableOptions
fetch__field_descriptor :: FieldDescriptor CallableOptions
fetch__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CallableOptions Text
-> FieldDescriptor CallableOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"fetch"
(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' CallableOptions [Text]
-> FieldAccessor CallableOptions Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "fetch" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fetch")) ::
Data.ProtoLens.FieldDescriptor CallableOptions
target__field_descriptor :: FieldDescriptor CallableOptions
target__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CallableOptions Text
-> FieldDescriptor CallableOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"target"
(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' CallableOptions [Text]
-> FieldAccessor CallableOptions Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"target")) ::
Data.ProtoLens.FieldDescriptor CallableOptions
runOptions__field_descriptor :: FieldDescriptor CallableOptions
runOptions__field_descriptor
= String
-> FieldTypeDescriptor RunOptions
-> FieldAccessor CallableOptions RunOptions
-> FieldDescriptor CallableOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"run_options"
(MessageOrGroup -> FieldTypeDescriptor RunOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RunOptions)
(Lens
CallableOptions
CallableOptions
(Maybe RunOptions)
(Maybe RunOptions)
-> FieldAccessor CallableOptions RunOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'runOptions" a, Functor f) =>
(a -> f a) -> s -> 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'runOptions")) ::
Data.ProtoLens.FieldDescriptor CallableOptions
tensorConnection__field_descriptor :: FieldDescriptor CallableOptions
tensorConnection__field_descriptor
= String
-> FieldTypeDescriptor TensorConnection
-> FieldAccessor CallableOptions TensorConnection
-> FieldDescriptor CallableOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tensor_connection"
(MessageOrGroup -> FieldTypeDescriptor TensorConnection
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TensorConnection)
(Packing
-> Lens' CallableOptions [TensorConnection]
-> FieldAccessor CallableOptions TensorConnection
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "tensorConnection" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorConnection")) ::
Data.ProtoLens.FieldDescriptor CallableOptions
feedDevices__field_descriptor :: FieldDescriptor CallableOptions
feedDevices__field_descriptor
= String
-> FieldTypeDescriptor CallableOptions'FeedDevicesEntry
-> FieldAccessor CallableOptions CallableOptions'FeedDevicesEntry
-> FieldDescriptor CallableOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"feed_devices"
(MessageOrGroup
-> FieldTypeDescriptor CallableOptions'FeedDevicesEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CallableOptions'FeedDevicesEntry)
(Lens' CallableOptions'FeedDevicesEntry Text
-> Lens' CallableOptions'FeedDevicesEntry Text
-> Lens
CallableOptions CallableOptions (Map Text Text) (Map Text Text)
-> FieldAccessor CallableOptions CallableOptions'FeedDevicesEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
(forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
(forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
(forall s a (f :: * -> *).
(HasField s "feedDevices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"feedDevices")) ::
Data.ProtoLens.FieldDescriptor CallableOptions
fetchDevices__field_descriptor :: FieldDescriptor CallableOptions
fetchDevices__field_descriptor
= String
-> FieldTypeDescriptor CallableOptions'FetchDevicesEntry
-> FieldAccessor CallableOptions CallableOptions'FetchDevicesEntry
-> FieldDescriptor CallableOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"fetch_devices"
(MessageOrGroup
-> FieldTypeDescriptor CallableOptions'FetchDevicesEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CallableOptions'FetchDevicesEntry)
(Lens' CallableOptions'FetchDevicesEntry Text
-> Lens' CallableOptions'FetchDevicesEntry Text
-> Lens
CallableOptions CallableOptions (Map Text Text) (Map Text Text)
-> FieldAccessor CallableOptions CallableOptions'FetchDevicesEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
(forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
(forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
(forall s a (f :: * -> *).
(HasField s "fetchDevices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fetchDevices")) ::
Data.ProtoLens.FieldDescriptor CallableOptions
fetchSkipSync__field_descriptor :: FieldDescriptor CallableOptions
fetchSkipSync__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor CallableOptions Bool
-> FieldDescriptor CallableOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"fetch_skip_sync"
(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 CallableOptions CallableOptions Bool Bool
-> FieldAccessor CallableOptions 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 "fetchSkipSync" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fetchSkipSync")) ::
Data.ProtoLens.FieldDescriptor CallableOptions
in
[(Tag, FieldDescriptor CallableOptions)]
-> Map Tag (FieldDescriptor CallableOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CallableOptions
feed__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor CallableOptions
fetch__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor CallableOptions
target__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor CallableOptions
runOptions__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor CallableOptions
tensorConnection__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor CallableOptions
feedDevices__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor CallableOptions
fetchDevices__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor CallableOptions
fetchSkipSync__field_descriptor)]
unknownFields :: LensLike' f CallableOptions FieldSet
unknownFields
= (CallableOptions -> FieldSet)
-> (CallableOptions -> FieldSet -> CallableOptions)
-> Lens' CallableOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions -> FieldSet
_CallableOptions'_unknownFields
(\ x__ :: CallableOptions
x__ y__ :: FieldSet
y__ -> CallableOptions
x__ {_CallableOptions'_unknownFields :: FieldSet
_CallableOptions'_unknownFields = FieldSet
y__})
defMessage :: CallableOptions
defMessage
= $WCallableOptions'_constructor :: Vector Text
-> Vector Text
-> Vector Text
-> Maybe RunOptions
-> Vector TensorConnection
-> Map Text Text
-> Map Text Text
-> Bool
-> FieldSet
-> CallableOptions
CallableOptions'_constructor
{_CallableOptions'feed :: Vector Text
_CallableOptions'feed = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_CallableOptions'fetch :: Vector Text
_CallableOptions'fetch = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_CallableOptions'target :: Vector Text
_CallableOptions'target = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_CallableOptions'runOptions :: Maybe RunOptions
_CallableOptions'runOptions = Maybe RunOptions
forall a. Maybe a
Prelude.Nothing,
_CallableOptions'tensorConnection :: Vector TensorConnection
_CallableOptions'tensorConnection = Vector TensorConnection
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_CallableOptions'feedDevices :: Map Text Text
_CallableOptions'feedDevices = Map Text Text
forall k a. Map k a
Data.Map.empty,
_CallableOptions'fetchDevices :: Map Text Text
_CallableOptions'fetchDevices = Map Text Text
forall k a. Map k a
Data.Map.empty,
_CallableOptions'fetchSkipSync :: Bool
_CallableOptions'fetchSkipSync = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CallableOptions'_unknownFields :: FieldSet
_CallableOptions'_unknownFields = []}
parseMessage :: Parser CallableOptions
parseMessage
= let
loop ::
CallableOptions
-> 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 Data.Text.Text
-> 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 TensorConnection
-> Data.ProtoLens.Encoding.Bytes.Parser CallableOptions
loop :: CallableOptions
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld TensorConnection
-> Parser CallableOptions
loop
x :: CallableOptions
x
mutable'feed :: Growing Vector RealWorld Text
mutable'feed
mutable'fetch :: Growing Vector RealWorld Text
mutable'fetch
mutable'target :: Growing Vector RealWorld Text
mutable'target
mutable'tensorConnection :: Growing Vector RealWorld TensorConnection
mutable'tensorConnection
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Text
frozen'feed <- 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'feed)
Vector Text
frozen'fetch <- 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'fetch)
Vector Text
frozen'target <- 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'target)
Vector TensorConnection
frozen'tensorConnection <- IO (Vector TensorConnection) -> Parser (Vector TensorConnection)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) TensorConnection
-> IO (Vector TensorConnection)
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 TensorConnection
Growing Vector (PrimState IO) TensorConnection
mutable'tensorConnection)
(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]))))
CallableOptions -> Parser CallableOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter CallableOptions CallableOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CallableOptions -> CallableOptions
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 CallableOptions CallableOptions FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter CallableOptions CallableOptions (Vector Text) (Vector Text)
-> Vector Text -> CallableOptions -> CallableOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'feed" a, Functor f) =>
(a -> f a) -> s -> 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'feed")
Vector Text
frozen'feed
(Setter CallableOptions CallableOptions (Vector Text) (Vector Text)
-> Vector Text -> CallableOptions -> CallableOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'fetch" a, Functor f) =>
(a -> f a) -> s -> 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'fetch")
Vector Text
frozen'fetch
(Setter CallableOptions CallableOptions (Vector Text) (Vector Text)
-> Vector Text -> CallableOptions -> CallableOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'target" a, Functor f) =>
(a -> f a) -> s -> 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'target")
Vector Text
frozen'target
(Setter
CallableOptions
CallableOptions
(Vector TensorConnection)
(Vector TensorConnection)
-> Vector TensorConnection -> CallableOptions -> CallableOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'tensorConnection" a, Functor f) =>
(a -> f a) -> s -> 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'tensorConnection")
Vector TensorConnection
frozen'tensorConnection
CallableOptions
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))
"feed"
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'feed Text
y)
CallableOptions
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld TensorConnection
-> Parser CallableOptions
loop CallableOptions
x Growing Vector RealWorld Text
v Growing Vector RealWorld Text
mutable'fetch Growing Vector RealWorld Text
mutable'target Growing Vector RealWorld TensorConnection
mutable'tensorConnection
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))
"fetch"
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'fetch Text
y)
CallableOptions
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld TensorConnection
-> Parser CallableOptions
loop CallableOptions
x Growing Vector RealWorld Text
mutable'feed Growing Vector RealWorld Text
v Growing Vector RealWorld Text
mutable'target Growing Vector RealWorld TensorConnection
mutable'tensorConnection
26
-> do !Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"target"
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'target Text
y)
CallableOptions
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld TensorConnection
-> Parser CallableOptions
loop CallableOptions
x Growing Vector RealWorld Text
mutable'feed Growing Vector RealWorld Text
mutable'fetch Growing Vector RealWorld Text
v Growing Vector RealWorld TensorConnection
mutable'tensorConnection
34
-> do RunOptions
y <- Parser RunOptions -> String -> Parser RunOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser RunOptions -> Parser RunOptions
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 RunOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"run_options"
CallableOptions
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld TensorConnection
-> Parser CallableOptions
loop
(Setter CallableOptions CallableOptions RunOptions RunOptions
-> RunOptions -> CallableOptions -> CallableOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "runOptions" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runOptions") RunOptions
y CallableOptions
x)
Growing Vector RealWorld Text
mutable'feed
Growing Vector RealWorld Text
mutable'fetch
Growing Vector RealWorld Text
mutable'target
Growing Vector RealWorld TensorConnection
mutable'tensorConnection
42
-> do !TensorConnection
y <- Parser TensorConnection -> String -> Parser TensorConnection
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TensorConnection -> Parser TensorConnection
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 TensorConnection
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"tensor_connection"
Growing Vector RealWorld TensorConnection
v <- IO (Growing Vector RealWorld TensorConnection)
-> Parser (Growing Vector RealWorld TensorConnection)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) TensorConnection
-> TensorConnection
-> IO (Growing Vector (PrimState IO) TensorConnection)
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 TensorConnection
Growing Vector (PrimState IO) TensorConnection
mutable'tensorConnection TensorConnection
y)
CallableOptions
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld TensorConnection
-> Parser CallableOptions
loop CallableOptions
x Growing Vector RealWorld Text
mutable'feed Growing Vector RealWorld Text
mutable'fetch Growing Vector RealWorld Text
mutable'target Growing Vector RealWorld TensorConnection
v
50
-> do !(CallableOptions'FeedDevicesEntry
entry :: CallableOptions'FeedDevicesEntry) <- Parser CallableOptions'FeedDevicesEntry
-> String -> Parser CallableOptions'FeedDevicesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser CallableOptions'FeedDevicesEntry
-> Parser CallableOptions'FeedDevicesEntry
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 CallableOptions'FeedDevicesEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"feed_devices"
(let
key :: Text
key = FoldLike
Text
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
Text
Text
-> CallableOptions'FeedDevicesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") CallableOptions'FeedDevicesEntry
entry
value :: Text
value
= FoldLike
Text
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
Text
Text
-> CallableOptions'FeedDevicesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") CallableOptions'FeedDevicesEntry
entry
in
CallableOptions
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld TensorConnection
-> Parser CallableOptions
loop
(Setter
CallableOptions CallableOptions (Map Text Text) (Map Text Text)
-> (Map Text Text -> Map Text Text)
-> CallableOptions
-> CallableOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
(forall s a (f :: * -> *).
(HasField s "feedDevices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"feedDevices")
(\ !Map Text Text
t -> Text -> Text -> Map Text Text -> Map Text Text
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Text
value Map Text Text
t)
CallableOptions
x)
Growing Vector RealWorld Text
mutable'feed
Growing Vector RealWorld Text
mutable'fetch
Growing Vector RealWorld Text
mutable'target
Growing Vector RealWorld TensorConnection
mutable'tensorConnection)
58
-> do !(CallableOptions'FetchDevicesEntry
entry :: CallableOptions'FetchDevicesEntry) <- Parser CallableOptions'FetchDevicesEntry
-> String -> Parser CallableOptions'FetchDevicesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser CallableOptions'FetchDevicesEntry
-> Parser CallableOptions'FetchDevicesEntry
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 CallableOptions'FetchDevicesEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"fetch_devices"
(let
key :: Text
key = FoldLike
Text
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
Text
Text
-> CallableOptions'FetchDevicesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") CallableOptions'FetchDevicesEntry
entry
value :: Text
value
= FoldLike
Text
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
Text
Text
-> CallableOptions'FetchDevicesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") CallableOptions'FetchDevicesEntry
entry
in
CallableOptions
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld TensorConnection
-> Parser CallableOptions
loop
(Setter
CallableOptions CallableOptions (Map Text Text) (Map Text Text)
-> (Map Text Text -> Map Text Text)
-> CallableOptions
-> CallableOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
(forall s a (f :: * -> *).
(HasField s "fetchDevices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fetchDevices")
(\ !Map Text Text
t -> Text -> Text -> Map Text Text -> Map Text Text
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Text
value Map Text Text
t)
CallableOptions
x)
Growing Vector RealWorld Text
mutable'feed
Growing Vector RealWorld Text
mutable'fetch
Growing Vector RealWorld Text
mutable'target
Growing Vector RealWorld TensorConnection
mutable'tensorConnection)
64
-> 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)
"fetch_skip_sync"
CallableOptions
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld TensorConnection
-> Parser CallableOptions
loop
(Setter CallableOptions CallableOptions Bool Bool
-> Bool -> CallableOptions -> CallableOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "fetchSkipSync" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fetchSkipSync") Bool
y CallableOptions
x)
Growing Vector RealWorld Text
mutable'feed
Growing Vector RealWorld Text
mutable'fetch
Growing Vector RealWorld Text
mutable'target
Growing Vector RealWorld TensorConnection
mutable'tensorConnection
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
CallableOptions
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld TensorConnection
-> Parser CallableOptions
loop
(Setter CallableOptions CallableOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CallableOptions -> CallableOptions
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 CallableOptions CallableOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CallableOptions
x)
Growing Vector RealWorld Text
mutable'feed
Growing Vector RealWorld Text
mutable'fetch
Growing Vector RealWorld Text
mutable'target
Growing Vector RealWorld TensorConnection
mutable'tensorConnection
in
Parser CallableOptions -> String -> Parser CallableOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Text
mutable'feed <- 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 Text
mutable'fetch <- 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 Text
mutable'target <- 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 TensorConnection
mutable'tensorConnection <- IO (Growing Vector RealWorld TensorConnection)
-> Parser (Growing Vector RealWorld TensorConnection)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld TensorConnection)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
CallableOptions
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld TensorConnection
-> Parser CallableOptions
loop
CallableOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage
Growing Vector RealWorld Text
mutable'feed
Growing Vector RealWorld Text
mutable'fetch
Growing Vector RealWorld Text
mutable'target
Growing Vector RealWorld TensorConnection
mutable'tensorConnection)
"CallableOptions"
buildMessage :: CallableOptions -> Builder
buildMessage
= \ _x :: CallableOptions
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: Text
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FoldLike
(Vector Text)
CallableOptions
CallableOptions
(Vector Text)
(Vector Text)
-> CallableOptions -> 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'feed" a, Functor f) =>
(a -> f a) -> s -> 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'feed") CallableOptions
_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 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))
(FoldLike
(Vector Text)
CallableOptions
CallableOptions
(Vector Text)
(Vector Text)
-> CallableOptions -> 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'fetch" a, Functor f) =>
(a -> f a) -> s -> 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'fetch") CallableOptions
_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 26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FoldLike
(Vector Text)
CallableOptions
CallableOptions
(Vector Text)
(Vector Text)
-> CallableOptions -> 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'target" a, Functor f) =>
(a -> f a) -> s -> 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'target") CallableOptions
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe RunOptions)
CallableOptions
CallableOptions
(Maybe RunOptions)
(Maybe RunOptions)
-> CallableOptions -> Maybe RunOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'runOptions" a, Functor f) =>
(a -> f a) -> s -> 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'runOptions") CallableOptions
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: RunOptions
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder)
-> (RunOptions -> ByteString) -> RunOptions -> 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))
RunOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
RunOptions
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((TensorConnection -> Builder) -> Vector TensorConnection -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: TensorConnection
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((ByteString -> Builder)
-> (TensorConnection -> ByteString) -> TensorConnection -> 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))
TensorConnection -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TensorConnection
_v))
(FoldLike
(Vector TensorConnection)
CallableOptions
CallableOptions
(Vector TensorConnection)
(Vector TensorConnection)
-> CallableOptions -> Vector TensorConnection
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'tensorConnection" a, Functor f) =>
(a -> f a) -> s -> 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'tensorConnection") CallableOptions
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, Text) -> Builder) -> [(Text, Text)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ _v :: (Text, Text)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((ByteString -> Builder)
-> (CallableOptions'FeedDevicesEntry -> ByteString)
-> CallableOptions'FeedDevicesEntry
-> 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))
CallableOptions'FeedDevicesEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
Text
Text
-> Text
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
((Text, Text) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Text)
_v)
(Setter
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
Text
Text
-> Text
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
((Text, Text) -> Text
forall a b. (a, b) -> b
Prelude.snd (Text, Text)
_v)
(CallableOptions'FeedDevicesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
CallableOptions'FeedDevicesEntry)))))
(Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text Text)
CallableOptions
CallableOptions
(Map Text Text)
(Map Text Text)
-> CallableOptions -> Map Text Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "feedDevices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"feedDevices") CallableOptions
_x))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, Text) -> Builder) -> [(Text, Text)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ _v :: (Text, Text)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
((ByteString -> Builder)
-> (CallableOptions'FetchDevicesEntry -> ByteString)
-> CallableOptions'FetchDevicesEntry
-> 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))
CallableOptions'FetchDevicesEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
Text
Text
-> Text
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
((Text, Text) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Text)
_v)
(Setter
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
Text
Text
-> Text
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
((Text, Text) -> Text
forall a b. (a, b) -> b
Prelude.snd (Text, Text)
_v)
(CallableOptions'FetchDevicesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
CallableOptions'FetchDevicesEntry)))))
(Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text Text)
CallableOptions
CallableOptions
(Map Text Text)
(Map Text Text)
-> CallableOptions -> Map Text Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "fetchDevices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fetchDevices") CallableOptions
_x))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool CallableOptions CallableOptions Bool Bool
-> CallableOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "fetchSkipSync" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fetchSkipSync") CallableOptions
_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 64)
((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 CallableOptions CallableOptions FieldSet FieldSet
-> CallableOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CallableOptions CallableOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CallableOptions
_x)))))))))
instance Control.DeepSeq.NFData CallableOptions where
rnf :: CallableOptions -> ()
rnf
= \ x__ :: CallableOptions
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions -> FieldSet
_CallableOptions'_unknownFields CallableOptions
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions -> Vector Text
_CallableOptions'feed CallableOptions
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions -> Vector Text
_CallableOptions'fetch CallableOptions
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions -> Vector Text
_CallableOptions'target CallableOptions
x__)
(Maybe RunOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions -> Maybe RunOptions
_CallableOptions'runOptions CallableOptions
x__)
(Vector TensorConnection -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions -> Vector TensorConnection
_CallableOptions'tensorConnection CallableOptions
x__)
(Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions -> Map Text Text
_CallableOptions'feedDevices CallableOptions
x__)
(Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions -> Map Text Text
_CallableOptions'fetchDevices CallableOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions -> Bool
_CallableOptions'fetchSkipSync CallableOptions
x__) ()))))))))
data CallableOptions'FeedDevicesEntry
= CallableOptions'FeedDevicesEntry'_constructor {CallableOptions'FeedDevicesEntry -> Text
_CallableOptions'FeedDevicesEntry'key :: !Data.Text.Text,
CallableOptions'FeedDevicesEntry -> Text
_CallableOptions'FeedDevicesEntry'value :: !Data.Text.Text,
CallableOptions'FeedDevicesEntry -> FieldSet
_CallableOptions'FeedDevicesEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
(CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool)
-> (CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool)
-> Eq CallableOptions'FeedDevicesEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
$c/= :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
== :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
$c== :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
Prelude.Eq, Eq CallableOptions'FeedDevicesEntry
Eq CallableOptions'FeedDevicesEntry =>
(CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Ordering)
-> (CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool)
-> (CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool)
-> (CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool)
-> (CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool)
-> (CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry)
-> (CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry)
-> Ord CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Ordering
CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
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 :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
$cmin :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
max :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
$cmax :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
>= :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
$c>= :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
> :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
$c> :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
<= :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
$c<= :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
< :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
$c< :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Bool
compare :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Ordering
$ccompare :: CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry -> Ordering
$cp1Ord :: Eq CallableOptions'FeedDevicesEntry
Prelude.Ord)
instance Prelude.Show CallableOptions'FeedDevicesEntry where
showsPrec :: Int -> CallableOptions'FeedDevicesEntry -> ShowS
showsPrec _ __x :: CallableOptions'FeedDevicesEntry
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(CallableOptions'FeedDevicesEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CallableOptions'FeedDevicesEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CallableOptions'FeedDevicesEntry "key" Data.Text.Text where
fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> CallableOptions'FeedDevicesEntry
-> f CallableOptions'FeedDevicesEntry
fieldOf _
= ((Text -> f Text)
-> CallableOptions'FeedDevicesEntry
-> f CallableOptions'FeedDevicesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CallableOptions'FeedDevicesEntry
-> f CallableOptions'FeedDevicesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions'FeedDevicesEntry -> Text)
-> (CallableOptions'FeedDevicesEntry
-> Text -> CallableOptions'FeedDevicesEntry)
-> Lens' CallableOptions'FeedDevicesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions'FeedDevicesEntry -> Text
_CallableOptions'FeedDevicesEntry'key
(\ x__ :: CallableOptions'FeedDevicesEntry
x__ y__ :: Text
y__ -> CallableOptions'FeedDevicesEntry
x__ {_CallableOptions'FeedDevicesEntry'key :: Text
_CallableOptions'FeedDevicesEntry'key = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CallableOptions'FeedDevicesEntry "value" Data.Text.Text where
fieldOf :: Proxy# "value"
-> (Text -> f Text)
-> CallableOptions'FeedDevicesEntry
-> f CallableOptions'FeedDevicesEntry
fieldOf _
= ((Text -> f Text)
-> CallableOptions'FeedDevicesEntry
-> f CallableOptions'FeedDevicesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CallableOptions'FeedDevicesEntry
-> f CallableOptions'FeedDevicesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions'FeedDevicesEntry -> Text)
-> (CallableOptions'FeedDevicesEntry
-> Text -> CallableOptions'FeedDevicesEntry)
-> Lens' CallableOptions'FeedDevicesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions'FeedDevicesEntry -> Text
_CallableOptions'FeedDevicesEntry'value
(\ x__ :: CallableOptions'FeedDevicesEntry
x__ y__ :: Text
y__ -> CallableOptions'FeedDevicesEntry
x__ {_CallableOptions'FeedDevicesEntry'value :: Text
_CallableOptions'FeedDevicesEntry'value = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CallableOptions'FeedDevicesEntry where
messageName :: Proxy CallableOptions'FeedDevicesEntry -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.CallableOptions.FeedDevicesEntry"
packedMessageDescriptor :: Proxy CallableOptions'FeedDevicesEntry -> ByteString
packedMessageDescriptor _
= "\n\
\\DLEFeedDevicesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy CallableOptions'FeedDevicesEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CallableOptions'FeedDevicesEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor CallableOptions'FeedDevicesEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CallableOptions'FeedDevicesEntry Text
-> FieldDescriptor CallableOptions'FeedDevicesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"key"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' CallableOptions'FeedDevicesEntry Text
-> FieldAccessor CallableOptions'FeedDevicesEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor CallableOptions'FeedDevicesEntry
value__field_descriptor :: FieldDescriptor CallableOptions'FeedDevicesEntry
value__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CallableOptions'FeedDevicesEntry Text
-> FieldDescriptor CallableOptions'FeedDevicesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' CallableOptions'FeedDevicesEntry Text
-> FieldAccessor CallableOptions'FeedDevicesEntry 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 "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor CallableOptions'FeedDevicesEntry
in
[(Tag, FieldDescriptor CallableOptions'FeedDevicesEntry)]
-> Map Tag (FieldDescriptor CallableOptions'FeedDevicesEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CallableOptions'FeedDevicesEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor CallableOptions'FeedDevicesEntry
value__field_descriptor)]
unknownFields :: LensLike' f CallableOptions'FeedDevicesEntry FieldSet
unknownFields
= (CallableOptions'FeedDevicesEntry -> FieldSet)
-> (CallableOptions'FeedDevicesEntry
-> FieldSet -> CallableOptions'FeedDevicesEntry)
-> Lens' CallableOptions'FeedDevicesEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions'FeedDevicesEntry -> FieldSet
_CallableOptions'FeedDevicesEntry'_unknownFields
(\ x__ :: CallableOptions'FeedDevicesEntry
x__ y__ :: FieldSet
y__
-> CallableOptions'FeedDevicesEntry
x__ {_CallableOptions'FeedDevicesEntry'_unknownFields :: FieldSet
_CallableOptions'FeedDevicesEntry'_unknownFields = FieldSet
y__})
defMessage :: CallableOptions'FeedDevicesEntry
defMessage
= $WCallableOptions'FeedDevicesEntry'_constructor :: Text -> Text -> FieldSet -> CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry'_constructor
{_CallableOptions'FeedDevicesEntry'key :: Text
_CallableOptions'FeedDevicesEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CallableOptions'FeedDevicesEntry'value :: Text
_CallableOptions'FeedDevicesEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CallableOptions'FeedDevicesEntry'_unknownFields :: FieldSet
_CallableOptions'FeedDevicesEntry'_unknownFields = []}
parseMessage :: Parser CallableOptions'FeedDevicesEntry
parseMessage
= let
loop ::
CallableOptions'FeedDevicesEntry
-> Data.ProtoLens.Encoding.Bytes.Parser CallableOptions'FeedDevicesEntry
loop :: CallableOptions'FeedDevicesEntry
-> Parser CallableOptions'FeedDevicesEntry
loop x :: CallableOptions'FeedDevicesEntry
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]))))
CallableOptions'FeedDevicesEntry
-> Parser CallableOptions'FeedDevicesEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
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
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) CallableOptions'FeedDevicesEntry
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"key"
CallableOptions'FeedDevicesEntry
-> Parser CallableOptions'FeedDevicesEntry
loop (Setter
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
Text
Text
-> Text
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Text
y CallableOptions'FeedDevicesEntry
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))
"value"
CallableOptions'FeedDevicesEntry
-> Parser CallableOptions'FeedDevicesEntry
loop (Setter
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
Text
Text
-> Text
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Text
y CallableOptions'FeedDevicesEntry
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
CallableOptions'FeedDevicesEntry
-> Parser CallableOptions'FeedDevicesEntry
loop
(Setter
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> CallableOptions'FeedDevicesEntry
-> CallableOptions'FeedDevicesEntry
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
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CallableOptions'FeedDevicesEntry
x)
in
Parser CallableOptions'FeedDevicesEntry
-> String -> Parser CallableOptions'FeedDevicesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do CallableOptions'FeedDevicesEntry
-> Parser CallableOptions'FeedDevicesEntry
loop CallableOptions'FeedDevicesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "FeedDevicesEntry"
buildMessage :: CallableOptions'FeedDevicesEntry -> Builder
buildMessage
= \ _x :: CallableOptions'FeedDevicesEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
Text
Text
-> CallableOptions'FeedDevicesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") CallableOptions'FeedDevicesEntry
_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
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
Text
Text
-> CallableOptions'FeedDevicesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") CallableOptions'FeedDevicesEntry
_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
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
FieldSet
FieldSet
-> CallableOptions'FeedDevicesEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
CallableOptions'FeedDevicesEntry
CallableOptions'FeedDevicesEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CallableOptions'FeedDevicesEntry
_x)))
instance Control.DeepSeq.NFData CallableOptions'FeedDevicesEntry where
rnf :: CallableOptions'FeedDevicesEntry -> ()
rnf
= \ x__ :: CallableOptions'FeedDevicesEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions'FeedDevicesEntry -> FieldSet
_CallableOptions'FeedDevicesEntry'_unknownFields CallableOptions'FeedDevicesEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions'FeedDevicesEntry -> Text
_CallableOptions'FeedDevicesEntry'key CallableOptions'FeedDevicesEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions'FeedDevicesEntry -> Text
_CallableOptions'FeedDevicesEntry'value CallableOptions'FeedDevicesEntry
x__) ()))
data CallableOptions'FetchDevicesEntry
= CallableOptions'FetchDevicesEntry'_constructor {CallableOptions'FetchDevicesEntry -> Text
_CallableOptions'FetchDevicesEntry'key :: !Data.Text.Text,
CallableOptions'FetchDevicesEntry -> Text
_CallableOptions'FetchDevicesEntry'value :: !Data.Text.Text,
CallableOptions'FetchDevicesEntry -> FieldSet
_CallableOptions'FetchDevicesEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
(CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool)
-> (CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool)
-> Eq CallableOptions'FetchDevicesEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
$c/= :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
== :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
$c== :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
Prelude.Eq, Eq CallableOptions'FetchDevicesEntry
Eq CallableOptions'FetchDevicesEntry =>
(CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Ordering)
-> (CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool)
-> (CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool)
-> (CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool)
-> (CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool)
-> (CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry)
-> (CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry)
-> Ord CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Ordering
CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
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 :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
$cmin :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
max :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
$cmax :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
>= :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
$c>= :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
> :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
$c> :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
<= :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
$c<= :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
< :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
$c< :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Bool
compare :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Ordering
$ccompare :: CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry -> Ordering
$cp1Ord :: Eq CallableOptions'FetchDevicesEntry
Prelude.Ord)
instance Prelude.Show CallableOptions'FetchDevicesEntry where
showsPrec :: Int -> CallableOptions'FetchDevicesEntry -> ShowS
showsPrec _ __x :: CallableOptions'FetchDevicesEntry
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(CallableOptions'FetchDevicesEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CallableOptions'FetchDevicesEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CallableOptions'FetchDevicesEntry "key" Data.Text.Text where
fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> CallableOptions'FetchDevicesEntry
-> f CallableOptions'FetchDevicesEntry
fieldOf _
= ((Text -> f Text)
-> CallableOptions'FetchDevicesEntry
-> f CallableOptions'FetchDevicesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CallableOptions'FetchDevicesEntry
-> f CallableOptions'FetchDevicesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions'FetchDevicesEntry -> Text)
-> (CallableOptions'FetchDevicesEntry
-> Text -> CallableOptions'FetchDevicesEntry)
-> Lens' CallableOptions'FetchDevicesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions'FetchDevicesEntry -> Text
_CallableOptions'FetchDevicesEntry'key
(\ x__ :: CallableOptions'FetchDevicesEntry
x__ y__ :: Text
y__ -> CallableOptions'FetchDevicesEntry
x__ {_CallableOptions'FetchDevicesEntry'key :: Text
_CallableOptions'FetchDevicesEntry'key = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CallableOptions'FetchDevicesEntry "value" Data.Text.Text where
fieldOf :: Proxy# "value"
-> (Text -> f Text)
-> CallableOptions'FetchDevicesEntry
-> f CallableOptions'FetchDevicesEntry
fieldOf _
= ((Text -> f Text)
-> CallableOptions'FetchDevicesEntry
-> f CallableOptions'FetchDevicesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CallableOptions'FetchDevicesEntry
-> f CallableOptions'FetchDevicesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CallableOptions'FetchDevicesEntry -> Text)
-> (CallableOptions'FetchDevicesEntry
-> Text -> CallableOptions'FetchDevicesEntry)
-> Lens' CallableOptions'FetchDevicesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions'FetchDevicesEntry -> Text
_CallableOptions'FetchDevicesEntry'value
(\ x__ :: CallableOptions'FetchDevicesEntry
x__ y__ :: Text
y__
-> CallableOptions'FetchDevicesEntry
x__ {_CallableOptions'FetchDevicesEntry'value :: Text
_CallableOptions'FetchDevicesEntry'value = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CallableOptions'FetchDevicesEntry where
messageName :: Proxy CallableOptions'FetchDevicesEntry -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.CallableOptions.FetchDevicesEntry"
packedMessageDescriptor :: Proxy CallableOptions'FetchDevicesEntry -> ByteString
packedMessageDescriptor _
= "\n\
\\DC1FetchDevicesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy CallableOptions'FetchDevicesEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CallableOptions'FetchDevicesEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor CallableOptions'FetchDevicesEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CallableOptions'FetchDevicesEntry Text
-> FieldDescriptor CallableOptions'FetchDevicesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"key"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' CallableOptions'FetchDevicesEntry Text
-> FieldAccessor CallableOptions'FetchDevicesEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor CallableOptions'FetchDevicesEntry
value__field_descriptor :: FieldDescriptor CallableOptions'FetchDevicesEntry
value__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CallableOptions'FetchDevicesEntry Text
-> FieldDescriptor CallableOptions'FetchDevicesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' CallableOptions'FetchDevicesEntry Text
-> FieldAccessor CallableOptions'FetchDevicesEntry 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 "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor CallableOptions'FetchDevicesEntry
in
[(Tag, FieldDescriptor CallableOptions'FetchDevicesEntry)]
-> Map Tag (FieldDescriptor CallableOptions'FetchDevicesEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CallableOptions'FetchDevicesEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor CallableOptions'FetchDevicesEntry
value__field_descriptor)]
unknownFields :: LensLike' f CallableOptions'FetchDevicesEntry FieldSet
unknownFields
= (CallableOptions'FetchDevicesEntry -> FieldSet)
-> (CallableOptions'FetchDevicesEntry
-> FieldSet -> CallableOptions'FetchDevicesEntry)
-> Lens' CallableOptions'FetchDevicesEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CallableOptions'FetchDevicesEntry -> FieldSet
_CallableOptions'FetchDevicesEntry'_unknownFields
(\ x__ :: CallableOptions'FetchDevicesEntry
x__ y__ :: FieldSet
y__
-> CallableOptions'FetchDevicesEntry
x__ {_CallableOptions'FetchDevicesEntry'_unknownFields :: FieldSet
_CallableOptions'FetchDevicesEntry'_unknownFields = FieldSet
y__})
defMessage :: CallableOptions'FetchDevicesEntry
defMessage
= $WCallableOptions'FetchDevicesEntry'_constructor :: Text -> Text -> FieldSet -> CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry'_constructor
{_CallableOptions'FetchDevicesEntry'key :: Text
_CallableOptions'FetchDevicesEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CallableOptions'FetchDevicesEntry'value :: Text
_CallableOptions'FetchDevicesEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CallableOptions'FetchDevicesEntry'_unknownFields :: FieldSet
_CallableOptions'FetchDevicesEntry'_unknownFields = []}
parseMessage :: Parser CallableOptions'FetchDevicesEntry
parseMessage
= let
loop ::
CallableOptions'FetchDevicesEntry
-> Data.ProtoLens.Encoding.Bytes.Parser CallableOptions'FetchDevicesEntry
loop :: CallableOptions'FetchDevicesEntry
-> Parser CallableOptions'FetchDevicesEntry
loop x :: CallableOptions'FetchDevicesEntry
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]))))
CallableOptions'FetchDevicesEntry
-> Parser CallableOptions'FetchDevicesEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
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
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) CallableOptions'FetchDevicesEntry
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"key"
CallableOptions'FetchDevicesEntry
-> Parser CallableOptions'FetchDevicesEntry
loop (Setter
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
Text
Text
-> Text
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Text
y CallableOptions'FetchDevicesEntry
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))
"value"
CallableOptions'FetchDevicesEntry
-> Parser CallableOptions'FetchDevicesEntry
loop (Setter
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
Text
Text
-> Text
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Text
y CallableOptions'FetchDevicesEntry
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
CallableOptions'FetchDevicesEntry
-> Parser CallableOptions'FetchDevicesEntry
loop
(Setter
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> CallableOptions'FetchDevicesEntry
-> CallableOptions'FetchDevicesEntry
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
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CallableOptions'FetchDevicesEntry
x)
in
Parser CallableOptions'FetchDevicesEntry
-> String -> Parser CallableOptions'FetchDevicesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do CallableOptions'FetchDevicesEntry
-> Parser CallableOptions'FetchDevicesEntry
loop CallableOptions'FetchDevicesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "FetchDevicesEntry"
buildMessage :: CallableOptions'FetchDevicesEntry -> Builder
buildMessage
= \ _x :: CallableOptions'FetchDevicesEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
Text
Text
-> CallableOptions'FetchDevicesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") CallableOptions'FetchDevicesEntry
_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
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
Text
Text
-> CallableOptions'FetchDevicesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") CallableOptions'FetchDevicesEntry
_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
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
FieldSet
FieldSet
-> CallableOptions'FetchDevicesEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
CallableOptions'FetchDevicesEntry
CallableOptions'FetchDevicesEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CallableOptions'FetchDevicesEntry
_x)))
instance Control.DeepSeq.NFData CallableOptions'FetchDevicesEntry where
rnf :: CallableOptions'FetchDevicesEntry -> ()
rnf
= \ x__ :: CallableOptions'FetchDevicesEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions'FetchDevicesEntry -> FieldSet
_CallableOptions'FetchDevicesEntry'_unknownFields CallableOptions'FetchDevicesEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions'FetchDevicesEntry -> Text
_CallableOptions'FetchDevicesEntry'key CallableOptions'FetchDevicesEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CallableOptions'FetchDevicesEntry -> Text
_CallableOptions'FetchDevicesEntry'value CallableOptions'FetchDevicesEntry
x__) ()))
data ConfigProto
= ConfigProto'_constructor {ConfigProto -> Map Text Int32
_ConfigProto'deviceCount :: !(Data.Map.Map Data.Text.Text Data.Int.Int32),
ConfigProto -> Int32
_ConfigProto'intraOpParallelismThreads :: !Data.Int.Int32,
ConfigProto -> Int32
_ConfigProto'interOpParallelismThreads :: !Data.Int.Int32,
ConfigProto -> Bool
_ConfigProto'usePerSessionThreads :: !Prelude.Bool,
ConfigProto -> Vector ThreadPoolOptionProto
_ConfigProto'sessionInterOpThreadPool :: !(Data.Vector.Vector ThreadPoolOptionProto),
ConfigProto -> Int32
_ConfigProto'placementPeriod :: !Data.Int.Int32,
ConfigProto -> Vector Text
_ConfigProto'deviceFilters :: !(Data.Vector.Vector Data.Text.Text),
ConfigProto -> Maybe GPUOptions
_ConfigProto'gpuOptions :: !(Prelude.Maybe GPUOptions),
ConfigProto -> Bool
_ConfigProto'allowSoftPlacement :: !Prelude.Bool,
ConfigProto -> Bool
_ConfigProto'logDevicePlacement :: !Prelude.Bool,
ConfigProto -> Maybe GraphOptions
_ConfigProto'graphOptions :: !(Prelude.Maybe GraphOptions),
ConfigProto -> Int64
_ConfigProto'operationTimeoutInMs :: !Data.Int.Int64,
ConfigProto -> Maybe RPCOptions
_ConfigProto'rpcOptions :: !(Prelude.Maybe RPCOptions),
ConfigProto -> Maybe ClusterDef
_ConfigProto'clusterDef :: !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef),
ConfigProto -> Bool
_ConfigProto'isolateSessionState :: !Prelude.Bool,
ConfigProto -> Bool
_ConfigProto'shareClusterDevicesInSession :: !Prelude.Bool,
ConfigProto -> Maybe ConfigProto'Experimental
_ConfigProto'experimental :: !(Prelude.Maybe ConfigProto'Experimental),
ConfigProto -> FieldSet
_ConfigProto'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ConfigProto -> ConfigProto -> Bool
(ConfigProto -> ConfigProto -> Bool)
-> (ConfigProto -> ConfigProto -> Bool) -> Eq ConfigProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConfigProto -> ConfigProto -> Bool
$c/= :: ConfigProto -> ConfigProto -> Bool
== :: ConfigProto -> ConfigProto -> Bool
$c== :: ConfigProto -> ConfigProto -> Bool
Prelude.Eq, Eq ConfigProto
Eq ConfigProto =>
(ConfigProto -> ConfigProto -> Ordering)
-> (ConfigProto -> ConfigProto -> Bool)
-> (ConfigProto -> ConfigProto -> Bool)
-> (ConfigProto -> ConfigProto -> Bool)
-> (ConfigProto -> ConfigProto -> Bool)
-> (ConfigProto -> ConfigProto -> ConfigProto)
-> (ConfigProto -> ConfigProto -> ConfigProto)
-> Ord ConfigProto
ConfigProto -> ConfigProto -> Bool
ConfigProto -> ConfigProto -> Ordering
ConfigProto -> ConfigProto -> ConfigProto
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 :: ConfigProto -> ConfigProto -> ConfigProto
$cmin :: ConfigProto -> ConfigProto -> ConfigProto
max :: ConfigProto -> ConfigProto -> ConfigProto
$cmax :: ConfigProto -> ConfigProto -> ConfigProto
>= :: ConfigProto -> ConfigProto -> Bool
$c>= :: ConfigProto -> ConfigProto -> Bool
> :: ConfigProto -> ConfigProto -> Bool
$c> :: ConfigProto -> ConfigProto -> Bool
<= :: ConfigProto -> ConfigProto -> Bool
$c<= :: ConfigProto -> ConfigProto -> Bool
< :: ConfigProto -> ConfigProto -> Bool
$c< :: ConfigProto -> ConfigProto -> Bool
compare :: ConfigProto -> ConfigProto -> Ordering
$ccompare :: ConfigProto -> ConfigProto -> Ordering
$cp1Ord :: Eq ConfigProto
Prelude.Ord)
instance Prelude.Show ConfigProto where
showsPrec :: Int -> ConfigProto -> ShowS
showsPrec _ __x :: ConfigProto
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(ConfigProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ConfigProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ConfigProto "deviceCount" (Data.Map.Map Data.Text.Text Data.Int.Int32) where
fieldOf :: Proxy# "deviceCount"
-> (Map Text Int32 -> f (Map Text Int32))
-> ConfigProto
-> f ConfigProto
fieldOf _
= ((Map Text Int32 -> f (Map Text Int32))
-> ConfigProto -> f ConfigProto)
-> ((Map Text Int32 -> f (Map Text Int32))
-> Map Text Int32 -> f (Map Text Int32))
-> (Map Text Int32 -> f (Map Text Int32))
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Map Text Int32)
-> (ConfigProto -> Map Text Int32 -> ConfigProto)
-> Lens ConfigProto ConfigProto (Map Text Int32) (Map Text Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Map Text Int32
_ConfigProto'deviceCount
(\ x__ :: ConfigProto
x__ y__ :: Map Text Int32
y__ -> ConfigProto
x__ {_ConfigProto'deviceCount :: Map Text Int32
_ConfigProto'deviceCount = Map Text Int32
y__}))
(Map Text Int32 -> f (Map Text Int32))
-> Map Text Int32 -> f (Map Text Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "intraOpParallelismThreads" Data.Int.Int32 where
fieldOf :: Proxy# "intraOpParallelismThreads"
-> (Int32 -> f Int32) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Int32 -> f Int32) -> ConfigProto -> f ConfigProto)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Int32)
-> (ConfigProto -> Int32 -> ConfigProto)
-> Lens ConfigProto ConfigProto Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Int32
_ConfigProto'intraOpParallelismThreads
(\ x__ :: ConfigProto
x__ y__ :: Int32
y__ -> ConfigProto
x__ {_ConfigProto'intraOpParallelismThreads :: Int32
_ConfigProto'intraOpParallelismThreads = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "interOpParallelismThreads" Data.Int.Int32 where
fieldOf :: Proxy# "interOpParallelismThreads"
-> (Int32 -> f Int32) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Int32 -> f Int32) -> ConfigProto -> f ConfigProto)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Int32)
-> (ConfigProto -> Int32 -> ConfigProto)
-> Lens ConfigProto ConfigProto Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Int32
_ConfigProto'interOpParallelismThreads
(\ x__ :: ConfigProto
x__ y__ :: Int32
y__ -> ConfigProto
x__ {_ConfigProto'interOpParallelismThreads :: Int32
_ConfigProto'interOpParallelismThreads = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "usePerSessionThreads" Prelude.Bool where
fieldOf :: Proxy# "usePerSessionThreads"
-> (Bool -> f Bool) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Bool -> f Bool) -> ConfigProto -> f ConfigProto)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Bool)
-> (ConfigProto -> Bool -> ConfigProto)
-> Lens ConfigProto ConfigProto Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Bool
_ConfigProto'usePerSessionThreads
(\ x__ :: ConfigProto
x__ y__ :: Bool
y__ -> ConfigProto
x__ {_ConfigProto'usePerSessionThreads :: Bool
_ConfigProto'usePerSessionThreads = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "sessionInterOpThreadPool" [ThreadPoolOptionProto] where
fieldOf :: Proxy# "sessionInterOpThreadPool"
-> ([ThreadPoolOptionProto] -> f [ThreadPoolOptionProto])
-> ConfigProto
-> f ConfigProto
fieldOf _
= ((Vector ThreadPoolOptionProto -> f (Vector ThreadPoolOptionProto))
-> ConfigProto -> f ConfigProto)
-> (([ThreadPoolOptionProto] -> f [ThreadPoolOptionProto])
-> Vector ThreadPoolOptionProto
-> f (Vector ThreadPoolOptionProto))
-> ([ThreadPoolOptionProto] -> f [ThreadPoolOptionProto])
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Vector ThreadPoolOptionProto)
-> (ConfigProto -> Vector ThreadPoolOptionProto -> ConfigProto)
-> Lens
ConfigProto
ConfigProto
(Vector ThreadPoolOptionProto)
(Vector ThreadPoolOptionProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Vector ThreadPoolOptionProto
_ConfigProto'sessionInterOpThreadPool
(\ x__ :: ConfigProto
x__ y__ :: Vector ThreadPoolOptionProto
y__ -> ConfigProto
x__ {_ConfigProto'sessionInterOpThreadPool :: Vector ThreadPoolOptionProto
_ConfigProto'sessionInterOpThreadPool = Vector ThreadPoolOptionProto
y__}))
((Vector ThreadPoolOptionProto -> [ThreadPoolOptionProto])
-> (Vector ThreadPoolOptionProto
-> [ThreadPoolOptionProto] -> Vector ThreadPoolOptionProto)
-> Lens
(Vector ThreadPoolOptionProto)
(Vector ThreadPoolOptionProto)
[ThreadPoolOptionProto]
[ThreadPoolOptionProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector ThreadPoolOptionProto -> [ThreadPoolOptionProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [ThreadPoolOptionProto]
y__ -> [ThreadPoolOptionProto] -> Vector ThreadPoolOptionProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ThreadPoolOptionProto]
y__))
instance Data.ProtoLens.Field.HasField ConfigProto "vec'sessionInterOpThreadPool" (Data.Vector.Vector ThreadPoolOptionProto) where
fieldOf :: Proxy# "vec'sessionInterOpThreadPool"
-> (Vector ThreadPoolOptionProto
-> f (Vector ThreadPoolOptionProto))
-> ConfigProto
-> f ConfigProto
fieldOf _
= ((Vector ThreadPoolOptionProto -> f (Vector ThreadPoolOptionProto))
-> ConfigProto -> f ConfigProto)
-> ((Vector ThreadPoolOptionProto
-> f (Vector ThreadPoolOptionProto))
-> Vector ThreadPoolOptionProto
-> f (Vector ThreadPoolOptionProto))
-> (Vector ThreadPoolOptionProto
-> f (Vector ThreadPoolOptionProto))
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Vector ThreadPoolOptionProto)
-> (ConfigProto -> Vector ThreadPoolOptionProto -> ConfigProto)
-> Lens
ConfigProto
ConfigProto
(Vector ThreadPoolOptionProto)
(Vector ThreadPoolOptionProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Vector ThreadPoolOptionProto
_ConfigProto'sessionInterOpThreadPool
(\ x__ :: ConfigProto
x__ y__ :: Vector ThreadPoolOptionProto
y__ -> ConfigProto
x__ {_ConfigProto'sessionInterOpThreadPool :: Vector ThreadPoolOptionProto
_ConfigProto'sessionInterOpThreadPool = Vector ThreadPoolOptionProto
y__}))
(Vector ThreadPoolOptionProto -> f (Vector ThreadPoolOptionProto))
-> Vector ThreadPoolOptionProto -> f (Vector ThreadPoolOptionProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "placementPeriod" Data.Int.Int32 where
fieldOf :: Proxy# "placementPeriod"
-> (Int32 -> f Int32) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Int32 -> f Int32) -> ConfigProto -> f ConfigProto)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Int32)
-> (ConfigProto -> Int32 -> ConfigProto)
-> Lens ConfigProto ConfigProto Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Int32
_ConfigProto'placementPeriod
(\ x__ :: ConfigProto
x__ y__ :: Int32
y__ -> ConfigProto
x__ {_ConfigProto'placementPeriod :: Int32
_ConfigProto'placementPeriod = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "deviceFilters" [Data.Text.Text] where
fieldOf :: Proxy# "deviceFilters"
-> ([Text] -> f [Text]) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Vector Text -> f (Vector Text)) -> ConfigProto -> f ConfigProto)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Vector Text)
-> (ConfigProto -> Vector Text -> ConfigProto)
-> Lens ConfigProto ConfigProto (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Vector Text
_ConfigProto'deviceFilters
(\ x__ :: ConfigProto
x__ y__ :: Vector Text
y__ -> ConfigProto
x__ {_ConfigProto'deviceFilters :: Vector Text
_ConfigProto'deviceFilters = 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 ConfigProto "vec'deviceFilters" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: Proxy# "vec'deviceFilters"
-> (Vector Text -> f (Vector Text)) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Vector Text -> f (Vector Text)) -> ConfigProto -> f ConfigProto)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Vector Text)
-> (ConfigProto -> Vector Text -> ConfigProto)
-> Lens ConfigProto ConfigProto (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Vector Text
_ConfigProto'deviceFilters
(\ x__ :: ConfigProto
x__ y__ :: Vector Text
y__ -> ConfigProto
x__ {_ConfigProto'deviceFilters :: Vector Text
_ConfigProto'deviceFilters = Vector Text
y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "gpuOptions" GPUOptions where
fieldOf :: Proxy# "gpuOptions"
-> (GPUOptions -> f GPUOptions) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Maybe GPUOptions -> f (Maybe GPUOptions))
-> ConfigProto -> f ConfigProto)
-> ((GPUOptions -> f GPUOptions)
-> Maybe GPUOptions -> f (Maybe GPUOptions))
-> (GPUOptions -> f GPUOptions)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Maybe GPUOptions)
-> (ConfigProto -> Maybe GPUOptions -> ConfigProto)
-> Lens
ConfigProto ConfigProto (Maybe GPUOptions) (Maybe GPUOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Maybe GPUOptions
_ConfigProto'gpuOptions
(\ x__ :: ConfigProto
x__ y__ :: Maybe GPUOptions
y__ -> ConfigProto
x__ {_ConfigProto'gpuOptions :: Maybe GPUOptions
_ConfigProto'gpuOptions = Maybe GPUOptions
y__}))
(GPUOptions -> Lens' (Maybe GPUOptions) GPUOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens GPUOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ConfigProto "maybe'gpuOptions" (Prelude.Maybe GPUOptions) where
fieldOf :: Proxy# "maybe'gpuOptions"
-> (Maybe GPUOptions -> f (Maybe GPUOptions))
-> ConfigProto
-> f ConfigProto
fieldOf _
= ((Maybe GPUOptions -> f (Maybe GPUOptions))
-> ConfigProto -> f ConfigProto)
-> ((Maybe GPUOptions -> f (Maybe GPUOptions))
-> Maybe GPUOptions -> f (Maybe GPUOptions))
-> (Maybe GPUOptions -> f (Maybe GPUOptions))
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Maybe GPUOptions)
-> (ConfigProto -> Maybe GPUOptions -> ConfigProto)
-> Lens
ConfigProto ConfigProto (Maybe GPUOptions) (Maybe GPUOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Maybe GPUOptions
_ConfigProto'gpuOptions
(\ x__ :: ConfigProto
x__ y__ :: Maybe GPUOptions
y__ -> ConfigProto
x__ {_ConfigProto'gpuOptions :: Maybe GPUOptions
_ConfigProto'gpuOptions = Maybe GPUOptions
y__}))
(Maybe GPUOptions -> f (Maybe GPUOptions))
-> Maybe GPUOptions -> f (Maybe GPUOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "allowSoftPlacement" Prelude.Bool where
fieldOf :: Proxy# "allowSoftPlacement"
-> (Bool -> f Bool) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Bool -> f Bool) -> ConfigProto -> f ConfigProto)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Bool)
-> (ConfigProto -> Bool -> ConfigProto)
-> Lens ConfigProto ConfigProto Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Bool
_ConfigProto'allowSoftPlacement
(\ x__ :: ConfigProto
x__ y__ :: Bool
y__ -> ConfigProto
x__ {_ConfigProto'allowSoftPlacement :: Bool
_ConfigProto'allowSoftPlacement = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "logDevicePlacement" Prelude.Bool where
fieldOf :: Proxy# "logDevicePlacement"
-> (Bool -> f Bool) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Bool -> f Bool) -> ConfigProto -> f ConfigProto)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Bool)
-> (ConfigProto -> Bool -> ConfigProto)
-> Lens ConfigProto ConfigProto Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Bool
_ConfigProto'logDevicePlacement
(\ x__ :: ConfigProto
x__ y__ :: Bool
y__ -> ConfigProto
x__ {_ConfigProto'logDevicePlacement :: Bool
_ConfigProto'logDevicePlacement = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "graphOptions" GraphOptions where
fieldOf :: Proxy# "graphOptions"
-> (GraphOptions -> f GraphOptions) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Maybe GraphOptions -> f (Maybe GraphOptions))
-> ConfigProto -> f ConfigProto)
-> ((GraphOptions -> f GraphOptions)
-> Maybe GraphOptions -> f (Maybe GraphOptions))
-> (GraphOptions -> f GraphOptions)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Maybe GraphOptions)
-> (ConfigProto -> Maybe GraphOptions -> ConfigProto)
-> Lens
ConfigProto ConfigProto (Maybe GraphOptions) (Maybe GraphOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Maybe GraphOptions
_ConfigProto'graphOptions
(\ x__ :: ConfigProto
x__ y__ :: Maybe GraphOptions
y__ -> ConfigProto
x__ {_ConfigProto'graphOptions :: Maybe GraphOptions
_ConfigProto'graphOptions = Maybe GraphOptions
y__}))
(GraphOptions -> Lens' (Maybe GraphOptions) GraphOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens GraphOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ConfigProto "maybe'graphOptions" (Prelude.Maybe GraphOptions) where
fieldOf :: Proxy# "maybe'graphOptions"
-> (Maybe GraphOptions -> f (Maybe GraphOptions))
-> ConfigProto
-> f ConfigProto
fieldOf _
= ((Maybe GraphOptions -> f (Maybe GraphOptions))
-> ConfigProto -> f ConfigProto)
-> ((Maybe GraphOptions -> f (Maybe GraphOptions))
-> Maybe GraphOptions -> f (Maybe GraphOptions))
-> (Maybe GraphOptions -> f (Maybe GraphOptions))
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Maybe GraphOptions)
-> (ConfigProto -> Maybe GraphOptions -> ConfigProto)
-> Lens
ConfigProto ConfigProto (Maybe GraphOptions) (Maybe GraphOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Maybe GraphOptions
_ConfigProto'graphOptions
(\ x__ :: ConfigProto
x__ y__ :: Maybe GraphOptions
y__ -> ConfigProto
x__ {_ConfigProto'graphOptions :: Maybe GraphOptions
_ConfigProto'graphOptions = Maybe GraphOptions
y__}))
(Maybe GraphOptions -> f (Maybe GraphOptions))
-> Maybe GraphOptions -> f (Maybe GraphOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "operationTimeoutInMs" Data.Int.Int64 where
fieldOf :: Proxy# "operationTimeoutInMs"
-> (Int64 -> f Int64) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Int64 -> f Int64) -> ConfigProto -> f ConfigProto)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Int64)
-> (ConfigProto -> Int64 -> ConfigProto)
-> Lens ConfigProto ConfigProto Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Int64
_ConfigProto'operationTimeoutInMs
(\ x__ :: ConfigProto
x__ y__ :: Int64
y__ -> ConfigProto
x__ {_ConfigProto'operationTimeoutInMs :: Int64
_ConfigProto'operationTimeoutInMs = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "rpcOptions" RPCOptions where
fieldOf :: Proxy# "rpcOptions"
-> (RPCOptions -> f RPCOptions) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Maybe RPCOptions -> f (Maybe RPCOptions))
-> ConfigProto -> f ConfigProto)
-> ((RPCOptions -> f RPCOptions)
-> Maybe RPCOptions -> f (Maybe RPCOptions))
-> (RPCOptions -> f RPCOptions)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Maybe RPCOptions)
-> (ConfigProto -> Maybe RPCOptions -> ConfigProto)
-> Lens
ConfigProto ConfigProto (Maybe RPCOptions) (Maybe RPCOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Maybe RPCOptions
_ConfigProto'rpcOptions
(\ x__ :: ConfigProto
x__ y__ :: Maybe RPCOptions
y__ -> ConfigProto
x__ {_ConfigProto'rpcOptions :: Maybe RPCOptions
_ConfigProto'rpcOptions = Maybe RPCOptions
y__}))
(RPCOptions -> Lens' (Maybe RPCOptions) RPCOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RPCOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ConfigProto "maybe'rpcOptions" (Prelude.Maybe RPCOptions) where
fieldOf :: Proxy# "maybe'rpcOptions"
-> (Maybe RPCOptions -> f (Maybe RPCOptions))
-> ConfigProto
-> f ConfigProto
fieldOf _
= ((Maybe RPCOptions -> f (Maybe RPCOptions))
-> ConfigProto -> f ConfigProto)
-> ((Maybe RPCOptions -> f (Maybe RPCOptions))
-> Maybe RPCOptions -> f (Maybe RPCOptions))
-> (Maybe RPCOptions -> f (Maybe RPCOptions))
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Maybe RPCOptions)
-> (ConfigProto -> Maybe RPCOptions -> ConfigProto)
-> Lens
ConfigProto ConfigProto (Maybe RPCOptions) (Maybe RPCOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Maybe RPCOptions
_ConfigProto'rpcOptions
(\ x__ :: ConfigProto
x__ y__ :: Maybe RPCOptions
y__ -> ConfigProto
x__ {_ConfigProto'rpcOptions :: Maybe RPCOptions
_ConfigProto'rpcOptions = Maybe RPCOptions
y__}))
(Maybe RPCOptions -> f (Maybe RPCOptions))
-> Maybe RPCOptions -> f (Maybe RPCOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "clusterDef" Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef where
fieldOf :: Proxy# "clusterDef"
-> (ClusterDef -> f ClusterDef) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Maybe ClusterDef -> f (Maybe ClusterDef))
-> ConfigProto -> f ConfigProto)
-> ((ClusterDef -> f ClusterDef)
-> Maybe ClusterDef -> f (Maybe ClusterDef))
-> (ClusterDef -> f ClusterDef)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Maybe ClusterDef)
-> (ConfigProto -> Maybe ClusterDef -> ConfigProto)
-> Lens
ConfigProto ConfigProto (Maybe ClusterDef) (Maybe ClusterDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Maybe ClusterDef
_ConfigProto'clusterDef
(\ x__ :: ConfigProto
x__ y__ :: Maybe ClusterDef
y__ -> ConfigProto
x__ {_ConfigProto'clusterDef :: Maybe ClusterDef
_ConfigProto'clusterDef = Maybe ClusterDef
y__}))
(ClusterDef -> Lens' (Maybe ClusterDef) ClusterDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ClusterDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ConfigProto "maybe'clusterDef" (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef) where
fieldOf :: Proxy# "maybe'clusterDef"
-> (Maybe ClusterDef -> f (Maybe ClusterDef))
-> ConfigProto
-> f ConfigProto
fieldOf _
= ((Maybe ClusterDef -> f (Maybe ClusterDef))
-> ConfigProto -> f ConfigProto)
-> ((Maybe ClusterDef -> f (Maybe ClusterDef))
-> Maybe ClusterDef -> f (Maybe ClusterDef))
-> (Maybe ClusterDef -> f (Maybe ClusterDef))
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Maybe ClusterDef)
-> (ConfigProto -> Maybe ClusterDef -> ConfigProto)
-> Lens
ConfigProto ConfigProto (Maybe ClusterDef) (Maybe ClusterDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Maybe ClusterDef
_ConfigProto'clusterDef
(\ x__ :: ConfigProto
x__ y__ :: Maybe ClusterDef
y__ -> ConfigProto
x__ {_ConfigProto'clusterDef :: Maybe ClusterDef
_ConfigProto'clusterDef = Maybe ClusterDef
y__}))
(Maybe ClusterDef -> f (Maybe ClusterDef))
-> Maybe ClusterDef -> f (Maybe ClusterDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "isolateSessionState" Prelude.Bool where
fieldOf :: Proxy# "isolateSessionState"
-> (Bool -> f Bool) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Bool -> f Bool) -> ConfigProto -> f ConfigProto)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Bool)
-> (ConfigProto -> Bool -> ConfigProto)
-> Lens ConfigProto ConfigProto Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Bool
_ConfigProto'isolateSessionState
(\ x__ :: ConfigProto
x__ y__ :: Bool
y__ -> ConfigProto
x__ {_ConfigProto'isolateSessionState :: Bool
_ConfigProto'isolateSessionState = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "shareClusterDevicesInSession" Prelude.Bool where
fieldOf :: Proxy# "shareClusterDevicesInSession"
-> (Bool -> f Bool) -> ConfigProto -> f ConfigProto
fieldOf _
= ((Bool -> f Bool) -> ConfigProto -> f ConfigProto)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Bool)
-> (ConfigProto -> Bool -> ConfigProto)
-> Lens ConfigProto ConfigProto Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Bool
_ConfigProto'shareClusterDevicesInSession
(\ x__ :: ConfigProto
x__ y__ :: Bool
y__
-> ConfigProto
x__ {_ConfigProto'shareClusterDevicesInSession :: Bool
_ConfigProto'shareClusterDevicesInSession = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto "experimental" ConfigProto'Experimental where
fieldOf :: Proxy# "experimental"
-> (ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ConfigProto
-> f ConfigProto
fieldOf _
= ((Maybe ConfigProto'Experimental
-> f (Maybe ConfigProto'Experimental))
-> ConfigProto -> f ConfigProto)
-> ((ConfigProto'Experimental -> f ConfigProto'Experimental)
-> Maybe ConfigProto'Experimental
-> f (Maybe ConfigProto'Experimental))
-> (ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Maybe ConfigProto'Experimental)
-> (ConfigProto -> Maybe ConfigProto'Experimental -> ConfigProto)
-> Lens
ConfigProto
ConfigProto
(Maybe ConfigProto'Experimental)
(Maybe ConfigProto'Experimental)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Maybe ConfigProto'Experimental
_ConfigProto'experimental
(\ x__ :: ConfigProto
x__ y__ :: Maybe ConfigProto'Experimental
y__ -> ConfigProto
x__ {_ConfigProto'experimental :: Maybe ConfigProto'Experimental
_ConfigProto'experimental = Maybe ConfigProto'Experimental
y__}))
(ConfigProto'Experimental
-> Lens' (Maybe ConfigProto'Experimental) ConfigProto'Experimental
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ConfigProto'Experimental
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ConfigProto "maybe'experimental" (Prelude.Maybe ConfigProto'Experimental) where
fieldOf :: Proxy# "maybe'experimental"
-> (Maybe ConfigProto'Experimental
-> f (Maybe ConfigProto'Experimental))
-> ConfigProto
-> f ConfigProto
fieldOf _
= ((Maybe ConfigProto'Experimental
-> f (Maybe ConfigProto'Experimental))
-> ConfigProto -> f ConfigProto)
-> ((Maybe ConfigProto'Experimental
-> f (Maybe ConfigProto'Experimental))
-> Maybe ConfigProto'Experimental
-> f (Maybe ConfigProto'Experimental))
-> (Maybe ConfigProto'Experimental
-> f (Maybe ConfigProto'Experimental))
-> ConfigProto
-> f ConfigProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto -> Maybe ConfigProto'Experimental)
-> (ConfigProto -> Maybe ConfigProto'Experimental -> ConfigProto)
-> Lens
ConfigProto
ConfigProto
(Maybe ConfigProto'Experimental)
(Maybe ConfigProto'Experimental)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> Maybe ConfigProto'Experimental
_ConfigProto'experimental
(\ x__ :: ConfigProto
x__ y__ :: Maybe ConfigProto'Experimental
y__ -> ConfigProto
x__ {_ConfigProto'experimental :: Maybe ConfigProto'Experimental
_ConfigProto'experimental = Maybe ConfigProto'Experimental
y__}))
(Maybe ConfigProto'Experimental
-> f (Maybe ConfigProto'Experimental))
-> Maybe ConfigProto'Experimental
-> f (Maybe ConfigProto'Experimental)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ConfigProto where
messageName :: Proxy ConfigProto -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.ConfigProto"
packedMessageDescriptor :: Proxy ConfigProto -> ByteString
packedMessageDescriptor _
= "\n\
\\vConfigProto\DC2K\n\
\\fdevice_count\CAN\SOH \ETX(\v2(.tensorflow.ConfigProto.DeviceCountEntryR\vdeviceCount\DC2?\n\
\\FSintra_op_parallelism_threads\CAN\STX \SOH(\ENQR\EMintraOpParallelismThreads\DC2?\n\
\\FSinter_op_parallelism_threads\CAN\ENQ \SOH(\ENQR\EMinterOpParallelismThreads\DC25\n\
\\ETBuse_per_session_threads\CAN\t \SOH(\bR\DC4usePerSessionThreads\DC2a\n\
\\FSsession_inter_op_thread_pool\CAN\f \ETX(\v2!.tensorflow.ThreadPoolOptionProtoR\CANsessionInterOpThreadPool\DC2)\n\
\\DLEplacement_period\CAN\ETX \SOH(\ENQR\SIplacementPeriod\DC2%\n\
\\SOdevice_filters\CAN\EOT \ETX(\tR\rdeviceFilters\DC27\n\
\\vgpu_options\CAN\ACK \SOH(\v2\SYN.tensorflow.GPUOptionsR\n\
\gpuOptions\DC20\n\
\\DC4allow_soft_placement\CAN\a \SOH(\bR\DC2allowSoftPlacement\DC20\n\
\\DC4log_device_placement\CAN\b \SOH(\bR\DC2logDevicePlacement\DC2=\n\
\\rgraph_options\CAN\n\
\ \SOH(\v2\CAN.tensorflow.GraphOptionsR\fgraphOptions\DC25\n\
\\ETBoperation_timeout_in_ms\CAN\v \SOH(\ETXR\DC4operationTimeoutInMs\DC27\n\
\\vrpc_options\CAN\r \SOH(\v2\SYN.tensorflow.RPCOptionsR\n\
\rpcOptions\DC27\n\
\\vcluster_def\CAN\SO \SOH(\v2\SYN.tensorflow.ClusterDefR\n\
\clusterDef\DC22\n\
\\NAKisolate_session_state\CAN\SI \SOH(\bR\DC3isolateSessionState\DC2F\n\
\ share_cluster_devices_in_session\CAN\DC1 \SOH(\bR\FSshareClusterDevicesInSession\DC2H\n\
\\fexperimental\CAN\DLE \SOH(\v2$.tensorflow.ConfigProto.ExperimentalR\fexperimental\SUB>\n\
\\DLEDeviceCountEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUB\181\a\n\
\\fExperimental\DC26\n\
\\ETBcollective_group_leader\CAN\SOH \SOH(\tR\NAKcollectiveGroupLeader\DC2#\n\
\\rexecutor_type\CAN\ETX \SOH(\tR\fexecutorType\DC2+\n\
\\DC2recv_buf_max_chunk\CAN\EOT \SOH(\ENQR\SIrecvBufMaxChunk\DC2*\n\
\\DC1use_numa_affinity\CAN\ENQ \SOH(\bR\SIuseNumaAffinity\DC2a\n\
\-collective_deterministic_sequential_execution\CAN\ACK \SOH(\bR*collectiveDeterministicSequentialExecution\DC2'\n\
\\SIcollective_nccl\CAN\a \SOH(\bR\SOcollectiveNccl\DC2a\n\
\.share_session_state_in_clusterspec_propagation\CAN\b \SOH(\bR)shareSessionStateInClusterspecPropagation\DC26\n\
\\ETBdisable_thread_spinning\CAN\t \SOH(\bR\NAKdisableThreadSpinning\DC2F\n\
\ share_cluster_devices_in_session\CAN\n\
\ \SOH(\bR\FSshareClusterDevicesInSession\DC2F\n\
\\DLEsession_metadata\CAN\v \SOH(\v2\ESC.tensorflow.SessionMetadataR\SIsessionMetadata\DC29\n\
\\EMoptimize_for_static_graph\CAN\f \SOH(\bR\SYNoptimizeForStaticGraph\DC2,\n\
\\DC2enable_mlir_bridge\CAN\r \SOH(\bR\DLEenableMlirBridge\DC2C\n\
\\RSenable_mlir_graph_optimization\CAN\DLE \SOH(\bR\ESCenableMlirGraphOptimization\DC2E\n\
\\USdisable_output_partition_graphs\CAN\SO \SOH(\bR\FSdisableOutputPartitionGraphs\DC2=\n\
\\ESCxla_fusion_autotuner_thresh\CAN\SI \SOH(\ETXR\CANxlaFusionAutotunerThreshJ\EOT\b\STX\DLE\ETX"
packedFileDescriptor :: Proxy ConfigProto -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ConfigProto)
fieldsByTag
= let
deviceCount__field_descriptor :: FieldDescriptor ConfigProto
deviceCount__field_descriptor
= String
-> FieldTypeDescriptor ConfigProto'DeviceCountEntry
-> FieldAccessor ConfigProto ConfigProto'DeviceCountEntry
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"device_count"
(MessageOrGroup -> FieldTypeDescriptor ConfigProto'DeviceCountEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ConfigProto'DeviceCountEntry)
(Lens' ConfigProto'DeviceCountEntry Text
-> Lens' ConfigProto'DeviceCountEntry Int32
-> Lens ConfigProto ConfigProto (Map Text Int32) (Map Text Int32)
-> FieldAccessor ConfigProto ConfigProto'DeviceCountEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
(forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
(forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
(forall s a (f :: * -> *).
(HasField s "deviceCount" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deviceCount")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
intraOpParallelismThreads__field_descriptor :: FieldDescriptor ConfigProto
intraOpParallelismThreads__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor ConfigProto Int32
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"intra_op_parallelism_threads"
(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 ConfigProto ConfigProto Int32 Int32
-> FieldAccessor ConfigProto 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 "intraOpParallelismThreads" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"intraOpParallelismThreads")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
interOpParallelismThreads__field_descriptor :: FieldDescriptor ConfigProto
interOpParallelismThreads__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor ConfigProto Int32
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"inter_op_parallelism_threads"
(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 ConfigProto ConfigProto Int32 Int32
-> FieldAccessor ConfigProto 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 "interOpParallelismThreads" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"interOpParallelismThreads")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
usePerSessionThreads__field_descriptor :: FieldDescriptor ConfigProto
usePerSessionThreads__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto Bool
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"use_per_session_threads"
(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 ConfigProto ConfigProto Bool Bool
-> FieldAccessor ConfigProto 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 "usePerSessionThreads" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"usePerSessionThreads")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
sessionInterOpThreadPool__field_descriptor :: FieldDescriptor ConfigProto
sessionInterOpThreadPool__field_descriptor
= String
-> FieldTypeDescriptor ThreadPoolOptionProto
-> FieldAccessor ConfigProto ThreadPoolOptionProto
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"session_inter_op_thread_pool"
(MessageOrGroup -> FieldTypeDescriptor ThreadPoolOptionProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ThreadPoolOptionProto)
(Packing
-> Lens' ConfigProto [ThreadPoolOptionProto]
-> FieldAccessor ConfigProto ThreadPoolOptionProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "sessionInterOpThreadPool" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sessionInterOpThreadPool")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
placementPeriod__field_descriptor :: FieldDescriptor ConfigProto
placementPeriod__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor ConfigProto Int32
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"placement_period"
(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 ConfigProto ConfigProto Int32 Int32
-> FieldAccessor ConfigProto 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 "placementPeriod" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"placementPeriod")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
deviceFilters__field_descriptor :: FieldDescriptor ConfigProto
deviceFilters__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ConfigProto Text
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"device_filters"
(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' ConfigProto [Text] -> FieldAccessor ConfigProto Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "deviceFilters" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deviceFilters")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
gpuOptions__field_descriptor :: FieldDescriptor ConfigProto
gpuOptions__field_descriptor
= String
-> FieldTypeDescriptor GPUOptions
-> FieldAccessor ConfigProto GPUOptions
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"gpu_options"
(MessageOrGroup -> FieldTypeDescriptor GPUOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor GPUOptions)
(Lens ConfigProto ConfigProto (Maybe GPUOptions) (Maybe GPUOptions)
-> FieldAccessor ConfigProto GPUOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'gpuOptions" a, Functor f) =>
(a -> f a) -> s -> 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'gpuOptions")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
allowSoftPlacement__field_descriptor :: FieldDescriptor ConfigProto
allowSoftPlacement__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto Bool
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"allow_soft_placement"
(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 ConfigProto ConfigProto Bool Bool
-> FieldAccessor ConfigProto 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 "allowSoftPlacement" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allowSoftPlacement")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
logDevicePlacement__field_descriptor :: FieldDescriptor ConfigProto
logDevicePlacement__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto Bool
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"log_device_placement"
(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 ConfigProto ConfigProto Bool Bool
-> FieldAccessor ConfigProto 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 "logDevicePlacement" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"logDevicePlacement")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
graphOptions__field_descriptor :: FieldDescriptor ConfigProto
graphOptions__field_descriptor
= String
-> FieldTypeDescriptor GraphOptions
-> FieldAccessor ConfigProto GraphOptions
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"graph_options"
(MessageOrGroup -> FieldTypeDescriptor GraphOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor GraphOptions)
(Lens
ConfigProto ConfigProto (Maybe GraphOptions) (Maybe GraphOptions)
-> FieldAccessor ConfigProto GraphOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'graphOptions" a, Functor f) =>
(a -> f a) -> s -> 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'graphOptions")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
operationTimeoutInMs__field_descriptor :: FieldDescriptor ConfigProto
operationTimeoutInMs__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ConfigProto Int64
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"operation_timeout_in_ms"
(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 ConfigProto ConfigProto Int64 Int64
-> FieldAccessor ConfigProto 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 "operationTimeoutInMs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"operationTimeoutInMs")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
rpcOptions__field_descriptor :: FieldDescriptor ConfigProto
rpcOptions__field_descriptor
= String
-> FieldTypeDescriptor RPCOptions
-> FieldAccessor ConfigProto RPCOptions
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"rpc_options"
(MessageOrGroup -> FieldTypeDescriptor RPCOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RPCOptions)
(Lens ConfigProto ConfigProto (Maybe RPCOptions) (Maybe RPCOptions)
-> FieldAccessor ConfigProto RPCOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'rpcOptions" a, Functor f) =>
(a -> f a) -> s -> 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'rpcOptions")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
clusterDef__field_descriptor :: FieldDescriptor ConfigProto
clusterDef__field_descriptor
= String
-> FieldTypeDescriptor ClusterDef
-> FieldAccessor ConfigProto ClusterDef
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"cluster_def"
(MessageOrGroup -> FieldTypeDescriptor ClusterDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef)
(Lens ConfigProto ConfigProto (Maybe ClusterDef) (Maybe ClusterDef)
-> FieldAccessor ConfigProto ClusterDef
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'clusterDef" a, Functor f) =>
(a -> f a) -> s -> 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'clusterDef")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
isolateSessionState__field_descriptor :: FieldDescriptor ConfigProto
isolateSessionState__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto Bool
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"isolate_session_state"
(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 ConfigProto ConfigProto Bool Bool
-> FieldAccessor ConfigProto 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 "isolateSessionState" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isolateSessionState")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
shareClusterDevicesInSession__field_descriptor :: FieldDescriptor ConfigProto
shareClusterDevicesInSession__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto Bool
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"share_cluster_devices_in_session"
(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 ConfigProto ConfigProto Bool Bool
-> FieldAccessor ConfigProto 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 "shareClusterDevicesInSession" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shareClusterDevicesInSession")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
experimental__field_descriptor :: FieldDescriptor ConfigProto
experimental__field_descriptor
= String
-> FieldTypeDescriptor ConfigProto'Experimental
-> FieldAccessor ConfigProto ConfigProto'Experimental
-> FieldDescriptor ConfigProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"experimental"
(MessageOrGroup -> FieldTypeDescriptor ConfigProto'Experimental
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ConfigProto'Experimental)
(Lens
ConfigProto
ConfigProto
(Maybe ConfigProto'Experimental)
(Maybe ConfigProto'Experimental)
-> FieldAccessor ConfigProto ConfigProto'Experimental
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'experimental" a, Functor f) =>
(a -> f a) -> s -> 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'experimental")) ::
Data.ProtoLens.FieldDescriptor ConfigProto
in
[(Tag, FieldDescriptor ConfigProto)]
-> Map Tag (FieldDescriptor ConfigProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ConfigProto
deviceCount__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2,
FieldDescriptor ConfigProto
intraOpParallelismThreads__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5,
FieldDescriptor ConfigProto
interOpParallelismThreads__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor ConfigProto
usePerSessionThreads__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 12,
FieldDescriptor ConfigProto
sessionInterOpThreadPool__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor ConfigProto
placementPeriod__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor ConfigProto
deviceFilters__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor ConfigProto
gpuOptions__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor ConfigProto
allowSoftPlacement__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor ConfigProto
logDevicePlacement__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor ConfigProto
graphOptions__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 11, FieldDescriptor ConfigProto
operationTimeoutInMs__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 13, FieldDescriptor ConfigProto
rpcOptions__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 14, FieldDescriptor ConfigProto
clusterDef__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 15, FieldDescriptor ConfigProto
isolateSessionState__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 17,
FieldDescriptor ConfigProto
shareClusterDevicesInSession__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 16, FieldDescriptor ConfigProto
experimental__field_descriptor)]
unknownFields :: LensLike' f ConfigProto FieldSet
unknownFields
= (ConfigProto -> FieldSet)
-> (ConfigProto -> FieldSet -> ConfigProto)
-> Lens' ConfigProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto -> FieldSet
_ConfigProto'_unknownFields
(\ x__ :: ConfigProto
x__ y__ :: FieldSet
y__ -> ConfigProto
x__ {_ConfigProto'_unknownFields :: FieldSet
_ConfigProto'_unknownFields = FieldSet
y__})
defMessage :: ConfigProto
defMessage
= $WConfigProto'_constructor :: Map Text Int32
-> Int32
-> Int32
-> Bool
-> Vector ThreadPoolOptionProto
-> Int32
-> Vector Text
-> Maybe GPUOptions
-> Bool
-> Bool
-> Maybe GraphOptions
-> Int64
-> Maybe RPCOptions
-> Maybe ClusterDef
-> Bool
-> Bool
-> Maybe ConfigProto'Experimental
-> FieldSet
-> ConfigProto
ConfigProto'_constructor
{_ConfigProto'deviceCount :: Map Text Int32
_ConfigProto'deviceCount = Map Text Int32
forall k a. Map k a
Data.Map.empty,
_ConfigProto'intraOpParallelismThreads :: Int32
_ConfigProto'intraOpParallelismThreads = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'interOpParallelismThreads :: Int32
_ConfigProto'interOpParallelismThreads = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'usePerSessionThreads :: Bool
_ConfigProto'usePerSessionThreads = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'sessionInterOpThreadPool :: Vector ThreadPoolOptionProto
_ConfigProto'sessionInterOpThreadPool = Vector ThreadPoolOptionProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ConfigProto'placementPeriod :: Int32
_ConfigProto'placementPeriod = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'deviceFilters :: Vector Text
_ConfigProto'deviceFilters = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ConfigProto'gpuOptions :: Maybe GPUOptions
_ConfigProto'gpuOptions = Maybe GPUOptions
forall a. Maybe a
Prelude.Nothing,
_ConfigProto'allowSoftPlacement :: Bool
_ConfigProto'allowSoftPlacement = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'logDevicePlacement :: Bool
_ConfigProto'logDevicePlacement = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'graphOptions :: Maybe GraphOptions
_ConfigProto'graphOptions = Maybe GraphOptions
forall a. Maybe a
Prelude.Nothing,
_ConfigProto'operationTimeoutInMs :: Int64
_ConfigProto'operationTimeoutInMs = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'rpcOptions :: Maybe RPCOptions
_ConfigProto'rpcOptions = Maybe RPCOptions
forall a. Maybe a
Prelude.Nothing,
_ConfigProto'clusterDef :: Maybe ClusterDef
_ConfigProto'clusterDef = Maybe ClusterDef
forall a. Maybe a
Prelude.Nothing,
_ConfigProto'isolateSessionState :: Bool
_ConfigProto'isolateSessionState = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'shareClusterDevicesInSession :: Bool
_ConfigProto'shareClusterDevicesInSession = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'experimental :: Maybe ConfigProto'Experimental
_ConfigProto'experimental = Maybe ConfigProto'Experimental
forall a. Maybe a
Prelude.Nothing,
_ConfigProto'_unknownFields :: FieldSet
_ConfigProto'_unknownFields = []}
parseMessage :: Parser ConfigProto
parseMessage
= let
loop ::
ConfigProto
-> 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 ThreadPoolOptionProto
-> Data.ProtoLens.Encoding.Bytes.Parser ConfigProto
loop :: ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop x :: ConfigProto
x mutable'deviceFilters :: Growing Vector RealWorld Text
mutable'deviceFilters mutable'sessionInterOpThreadPool :: Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Text
frozen'deviceFilters <- 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'deviceFilters)
Vector ThreadPoolOptionProto
frozen'sessionInterOpThreadPool <- IO (Vector ThreadPoolOptionProto)
-> Parser (Vector ThreadPoolOptionProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) ThreadPoolOptionProto
-> IO (Vector ThreadPoolOptionProto)
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 ThreadPoolOptionProto
Growing Vector (PrimState IO) ThreadPoolOptionProto
mutable'sessionInterOpThreadPool)
(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]))))
ConfigProto -> Parser ConfigProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter ConfigProto ConfigProto FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ConfigProto -> ConfigProto
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 ConfigProto ConfigProto FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter ConfigProto ConfigProto (Vector Text) (Vector Text)
-> Vector Text -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'deviceFilters" a, Functor f) =>
(a -> f a) -> s -> 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'deviceFilters")
Vector Text
frozen'deviceFilters
(Setter
ConfigProto
ConfigProto
(Vector ThreadPoolOptionProto)
(Vector ThreadPoolOptionProto)
-> Vector ThreadPoolOptionProto -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'sessionInterOpThreadPool" a, Functor f) =>
(a -> f a) -> s -> 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'sessionInterOpThreadPool")
Vector ThreadPoolOptionProto
frozen'sessionInterOpThreadPool
ConfigProto
x)))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !(ConfigProto'DeviceCountEntry
entry :: ConfigProto'DeviceCountEntry) <- Parser ConfigProto'DeviceCountEntry
-> String -> Parser ConfigProto'DeviceCountEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser ConfigProto'DeviceCountEntry
-> Parser ConfigProto'DeviceCountEntry
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 ConfigProto'DeviceCountEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"device_count"
(let
key :: Text
key = FoldLike
Text
ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
Text
Text
-> ConfigProto'DeviceCountEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ConfigProto'DeviceCountEntry
entry
value :: Int32
value
= FoldLike
Int32
ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
Int32
Int32
-> ConfigProto'DeviceCountEntry -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ConfigProto'DeviceCountEntry
entry
in
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto (Map Text Int32) (Map Text Int32)
-> (Map Text Int32 -> Map Text Int32) -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
(forall s a (f :: * -> *).
(HasField s "deviceCount" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deviceCount")
(\ !Map Text Int32
t -> Text -> Int32 -> Map Text Int32 -> Map Text Int32
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Int32
value Map Text Int32
t)
ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool)
16
-> 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)
"intra_op_parallelism_threads"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto Int32 Int32
-> Int32 -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "intraOpParallelismThreads" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"intraOpParallelismThreads") Int32
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
40
-> 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)
"inter_op_parallelism_threads"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto Int32 Int32
-> Int32 -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "interOpParallelismThreads" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"interOpParallelismThreads") Int32
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
72
-> 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)
"use_per_session_threads"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto Bool Bool
-> Bool -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "usePerSessionThreads" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"usePerSessionThreads") Bool
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
98
-> do !ThreadPoolOptionProto
y <- Parser ThreadPoolOptionProto
-> String -> Parser ThreadPoolOptionProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ThreadPoolOptionProto -> Parser ThreadPoolOptionProto
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 ThreadPoolOptionProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"session_inter_op_thread_pool"
Growing Vector RealWorld ThreadPoolOptionProto
v <- IO (Growing Vector RealWorld ThreadPoolOptionProto)
-> Parser (Growing Vector RealWorld ThreadPoolOptionProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) ThreadPoolOptionProto
-> ThreadPoolOptionProto
-> IO (Growing Vector (PrimState IO) ThreadPoolOptionProto)
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 ThreadPoolOptionProto
Growing Vector (PrimState IO) ThreadPoolOptionProto
mutable'sessionInterOpThreadPool ThreadPoolOptionProto
y)
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop ConfigProto
x Growing Vector RealWorld Text
mutable'deviceFilters Growing Vector RealWorld ThreadPoolOptionProto
v
24
-> 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)
"placement_period"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto Int32 Int32
-> Int32 -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "placementPeriod" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"placementPeriod") Int32
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
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))
"device_filters"
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'deviceFilters Text
y)
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop ConfigProto
x Growing Vector RealWorld Text
v Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
50
-> do GPUOptions
y <- Parser GPUOptions -> String -> Parser GPUOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser GPUOptions -> Parser GPUOptions
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 GPUOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"gpu_options"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto GPUOptions GPUOptions
-> GPUOptions -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "gpuOptions" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"gpuOptions") GPUOptions
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
56
-> 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)
"allow_soft_placement"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto Bool Bool
-> Bool -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allowSoftPlacement" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allowSoftPlacement") Bool
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
64
-> 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)
"log_device_placement"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto Bool Bool
-> Bool -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "logDevicePlacement" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"logDevicePlacement") Bool
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
82
-> do GraphOptions
y <- Parser GraphOptions -> String -> Parser GraphOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser GraphOptions -> Parser GraphOptions
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 GraphOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"graph_options"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto GraphOptions GraphOptions
-> GraphOptions -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "graphOptions" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"graphOptions") GraphOptions
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
88
-> 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)
"operation_timeout_in_ms"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto Int64 Int64
-> Int64 -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "operationTimeoutInMs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"operationTimeoutInMs") Int64
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
106
-> do RPCOptions
y <- Parser RPCOptions -> String -> Parser RPCOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser RPCOptions -> Parser RPCOptions
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 RPCOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"rpc_options"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto RPCOptions RPCOptions
-> RPCOptions -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "rpcOptions" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rpcOptions") RPCOptions
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
114
-> do ClusterDef
y <- Parser ClusterDef -> String -> Parser ClusterDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ClusterDef -> Parser ClusterDef
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 ClusterDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"cluster_def"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto ClusterDef ClusterDef
-> ClusterDef -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "clusterDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"clusterDef") ClusterDef
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
120
-> 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)
"isolate_session_state"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto Bool Bool
-> Bool -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "isolateSessionState" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isolateSessionState") Bool
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
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)
"share_cluster_devices_in_session"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto Bool Bool
-> Bool -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "shareClusterDevicesInSession" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shareClusterDevicesInSession")
Bool
y
ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
130
-> do ConfigProto'Experimental
y <- Parser ConfigProto'Experimental
-> String -> Parser ConfigProto'Experimental
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser ConfigProto'Experimental
-> Parser ConfigProto'Experimental
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 ConfigProto'Experimental
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"experimental"
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter
ConfigProto
ConfigProto
ConfigProto'Experimental
ConfigProto'Experimental
-> ConfigProto'Experimental -> ConfigProto -> ConfigProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "experimental" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"experimental") ConfigProto'Experimental
y ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
(Setter ConfigProto ConfigProto FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ConfigProto -> ConfigProto
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 ConfigProto ConfigProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ConfigProto
x)
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool
in
Parser ConfigProto -> String -> Parser ConfigProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Text
mutable'deviceFilters <- 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 ThreadPoolOptionProto
mutable'sessionInterOpThreadPool <- IO (Growing Vector RealWorld ThreadPoolOptionProto)
-> Parser (Growing Vector RealWorld ThreadPoolOptionProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld ThreadPoolOptionProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
ConfigProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld ThreadPoolOptionProto
-> Parser ConfigProto
loop
ConfigProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage
Growing Vector RealWorld Text
mutable'deviceFilters
Growing Vector RealWorld ThreadPoolOptionProto
mutable'sessionInterOpThreadPool)
"ConfigProto"
buildMessage :: ConfigProto -> Builder
buildMessage
= \ _x :: ConfigProto
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, Int32) -> Builder) -> [(Text, Int32)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ _v :: (Text, Int32)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (ConfigProto'DeviceCountEntry -> ByteString)
-> ConfigProto'DeviceCountEntry
-> 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))
ConfigProto'DeviceCountEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
ConfigProto'DeviceCountEntry ConfigProto'DeviceCountEntry Text Text
-> Text
-> ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
((Text, Int32) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Int32)
_v)
(Setter
ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
Int32
Int32
-> Int32
-> ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
((Text, Int32) -> Int32
forall a b. (a, b) -> b
Prelude.snd (Text, Int32)
_v)
(ConfigProto'DeviceCountEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: ConfigProto'DeviceCountEntry)))))
(Map Text Int32 -> [(Text, Int32)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text Int32)
ConfigProto
ConfigProto
(Map Text Int32)
(Map Text Int32)
-> ConfigProto -> Map Text Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "deviceCount" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deviceCount") ConfigProto
_x))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v
= FoldLike Int32 ConfigProto ConfigProto Int32 Int32
-> ConfigProto -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "intraOpParallelismThreads" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"intraOpParallelismThreads") ConfigProto
_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 16)
((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 :: Int32
_v
= FoldLike Int32 ConfigProto ConfigProto Int32 Int32
-> ConfigProto -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "interOpParallelismThreads" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"interOpParallelismThreads") ConfigProto
_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 40)
((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 :: Bool
_v
= FoldLike Bool ConfigProto ConfigProto Bool Bool
-> ConfigProto -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "usePerSessionThreads" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"usePerSessionThreads") ConfigProto
_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 72)
((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.<>)
((ThreadPoolOptionProto -> Builder)
-> Vector ThreadPoolOptionProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: ThreadPoolOptionProto
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 98)
((ByteString -> Builder)
-> (ThreadPoolOptionProto -> ByteString)
-> ThreadPoolOptionProto
-> 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))
ThreadPoolOptionProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
ThreadPoolOptionProto
_v))
(FoldLike
(Vector ThreadPoolOptionProto)
ConfigProto
ConfigProto
(Vector ThreadPoolOptionProto)
(Vector ThreadPoolOptionProto)
-> ConfigProto -> Vector ThreadPoolOptionProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'sessionInterOpThreadPool" a, Functor f) =>
(a -> f a) -> s -> 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'sessionInterOpThreadPool") ConfigProto
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v
= FoldLike Int32 ConfigProto ConfigProto Int32 Int32
-> ConfigProto -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "placementPeriod" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"placementPeriod") ConfigProto
_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 24)
((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.<>)
((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 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))
(FoldLike
(Vector Text) ConfigProto ConfigProto (Vector Text) (Vector Text)
-> ConfigProto -> 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'deviceFilters" a, Functor f) =>
(a -> f a) -> s -> 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'deviceFilters") ConfigProto
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe GPUOptions)
ConfigProto
ConfigProto
(Maybe GPUOptions)
(Maybe GPUOptions)
-> ConfigProto -> Maybe GPUOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'gpuOptions" a, Functor f) =>
(a -> f a) -> s -> 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'gpuOptions") ConfigProto
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: GPUOptions
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((ByteString -> Builder)
-> (GPUOptions -> ByteString) -> GPUOptions -> 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))
GPUOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
GPUOptions
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool ConfigProto ConfigProto Bool Bool
-> ConfigProto -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "allowSoftPlacement" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allowSoftPlacement") ConfigProto
_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 56)
((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 ConfigProto ConfigProto Bool Bool
-> ConfigProto -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "logDevicePlacement" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"logDevicePlacement")
ConfigProto
_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 64)
((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.<>)
(case
FoldLike
(Maybe GraphOptions)
ConfigProto
ConfigProto
(Maybe GraphOptions)
(Maybe GraphOptions)
-> ConfigProto -> Maybe GraphOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'graphOptions" a, Functor f) =>
(a -> f a) -> s -> 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'graphOptions")
ConfigProto
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: GraphOptions
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 82)
((ByteString -> Builder)
-> (GraphOptions -> ByteString) -> GraphOptions -> 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))
GraphOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
GraphOptions
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 ConfigProto ConfigProto Int64 Int64
-> ConfigProto -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "operationTimeoutInMs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"operationTimeoutInMs")
ConfigProto
_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 88)
((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 RPCOptions)
ConfigProto
ConfigProto
(Maybe RPCOptions)
(Maybe RPCOptions)
-> ConfigProto -> Maybe RPCOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'rpcOptions" a, Functor f) =>
(a -> f a) -> s -> 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'rpcOptions")
ConfigProto
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: RPCOptions
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
106)
((ByteString -> Builder)
-> (RPCOptions -> ByteString) -> RPCOptions -> 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))
RPCOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
RPCOptions
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ClusterDef)
ConfigProto
ConfigProto
(Maybe ClusterDef)
(Maybe ClusterDef)
-> ConfigProto -> Maybe ClusterDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'clusterDef" a, Functor f) =>
(a -> f a) -> s -> 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'clusterDef")
ConfigProto
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: ClusterDef
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
114)
((ByteString -> Builder)
-> (ClusterDef -> ByteString) -> ClusterDef -> 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))
ClusterDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
ClusterDef
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool ConfigProto ConfigProto Bool Bool
-> ConfigProto -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "isolateSessionState" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"isolateSessionState")
ConfigProto
_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
120)
((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 ConfigProto ConfigProto Bool Bool
-> ConfigProto -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "shareClusterDevicesInSession" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"shareClusterDevicesInSession")
ConfigProto
_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.<>)
(case
FoldLike
(Maybe ConfigProto'Experimental)
ConfigProto
ConfigProto
(Maybe ConfigProto'Experimental)
(Maybe ConfigProto'Experimental)
-> ConfigProto -> Maybe ConfigProto'Experimental
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'experimental" a, Functor f) =>
(a -> f a) -> s -> 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'experimental")
ConfigProto
_x
of
Prelude.Nothing
-> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: ConfigProto'Experimental
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
130)
((ByteString -> Builder)
-> (ConfigProto'Experimental -> ByteString)
-> ConfigProto'Experimental
-> 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))
ConfigProto'Experimental -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
ConfigProto'Experimental
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet ConfigProto ConfigProto FieldSet FieldSet
-> ConfigProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
FoldLike FieldSet ConfigProto ConfigProto FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields
ConfigProto
_x))))))))))))))))))
instance Control.DeepSeq.NFData ConfigProto where
rnf :: ConfigProto -> ()
rnf
= \ x__ :: ConfigProto
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> FieldSet
_ConfigProto'_unknownFields ConfigProto
x__)
(Map Text Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Map Text Int32
_ConfigProto'deviceCount ConfigProto
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Int32
_ConfigProto'intraOpParallelismThreads ConfigProto
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Int32
_ConfigProto'interOpParallelismThreads ConfigProto
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Bool
_ConfigProto'usePerSessionThreads ConfigProto
x__)
(Vector ThreadPoolOptionProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Vector ThreadPoolOptionProto
_ConfigProto'sessionInterOpThreadPool ConfigProto
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Int32
_ConfigProto'placementPeriod ConfigProto
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Vector Text
_ConfigProto'deviceFilters ConfigProto
x__)
(Maybe GPUOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Maybe GPUOptions
_ConfigProto'gpuOptions ConfigProto
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Bool
_ConfigProto'allowSoftPlacement ConfigProto
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Bool
_ConfigProto'logDevicePlacement ConfigProto
x__)
(Maybe GraphOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Maybe GraphOptions
_ConfigProto'graphOptions ConfigProto
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Int64
_ConfigProto'operationTimeoutInMs ConfigProto
x__)
(Maybe RPCOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Maybe RPCOptions
_ConfigProto'rpcOptions ConfigProto
x__)
(Maybe ClusterDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Maybe ClusterDef
_ConfigProto'clusterDef ConfigProto
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Bool
_ConfigProto'isolateSessionState ConfigProto
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Bool
_ConfigProto'shareClusterDevicesInSession
ConfigProto
x__)
(Maybe ConfigProto'Experimental -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto -> Maybe ConfigProto'Experimental
_ConfigProto'experimental ConfigProto
x__)
())))))))))))))))))
data ConfigProto'DeviceCountEntry
= ConfigProto'DeviceCountEntry'_constructor {ConfigProto'DeviceCountEntry -> Text
_ConfigProto'DeviceCountEntry'key :: !Data.Text.Text,
ConfigProto'DeviceCountEntry -> Int32
_ConfigProto'DeviceCountEntry'value :: !Data.Int.Int32,
ConfigProto'DeviceCountEntry -> FieldSet
_ConfigProto'DeviceCountEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
(ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool)
-> (ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool)
-> Eq ConfigProto'DeviceCountEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
$c/= :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
== :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
$c== :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
Prelude.Eq, Eq ConfigProto'DeviceCountEntry
Eq ConfigProto'DeviceCountEntry =>
(ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Ordering)
-> (ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool)
-> (ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool)
-> (ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool)
-> (ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool)
-> (ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> ConfigProto'DeviceCountEntry)
-> (ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> ConfigProto'DeviceCountEntry)
-> Ord ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Ordering
ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> ConfigProto'DeviceCountEntry
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 :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> ConfigProto'DeviceCountEntry
$cmin :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> ConfigProto'DeviceCountEntry
max :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> ConfigProto'DeviceCountEntry
$cmax :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> ConfigProto'DeviceCountEntry
>= :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
$c>= :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
> :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
$c> :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
<= :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
$c<= :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
< :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
$c< :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Bool
compare :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Ordering
$ccompare :: ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry -> Ordering
$cp1Ord :: Eq ConfigProto'DeviceCountEntry
Prelude.Ord)
instance Prelude.Show ConfigProto'DeviceCountEntry where
showsPrec :: Int -> ConfigProto'DeviceCountEntry -> ShowS
showsPrec _ __x :: ConfigProto'DeviceCountEntry
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(ConfigProto'DeviceCountEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ConfigProto'DeviceCountEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ConfigProto'DeviceCountEntry "key" Data.Text.Text where
fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> ConfigProto'DeviceCountEntry
-> f ConfigProto'DeviceCountEntry
fieldOf _
= ((Text -> f Text)
-> ConfigProto'DeviceCountEntry -> f ConfigProto'DeviceCountEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ConfigProto'DeviceCountEntry
-> f ConfigProto'DeviceCountEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'DeviceCountEntry -> Text)
-> (ConfigProto'DeviceCountEntry
-> Text -> ConfigProto'DeviceCountEntry)
-> Lens' ConfigProto'DeviceCountEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'DeviceCountEntry -> Text
_ConfigProto'DeviceCountEntry'key
(\ x__ :: ConfigProto'DeviceCountEntry
x__ y__ :: Text
y__ -> ConfigProto'DeviceCountEntry
x__ {_ConfigProto'DeviceCountEntry'key :: Text
_ConfigProto'DeviceCountEntry'key = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'DeviceCountEntry "value" Data.Int.Int32 where
fieldOf :: Proxy# "value"
-> (Int32 -> f Int32)
-> ConfigProto'DeviceCountEntry
-> f ConfigProto'DeviceCountEntry
fieldOf _
= ((Int32 -> f Int32)
-> ConfigProto'DeviceCountEntry -> f ConfigProto'DeviceCountEntry)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ConfigProto'DeviceCountEntry
-> f ConfigProto'DeviceCountEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'DeviceCountEntry -> Int32)
-> (ConfigProto'DeviceCountEntry
-> Int32 -> ConfigProto'DeviceCountEntry)
-> Lens' ConfigProto'DeviceCountEntry Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'DeviceCountEntry -> Int32
_ConfigProto'DeviceCountEntry'value
(\ x__ :: ConfigProto'DeviceCountEntry
x__ y__ :: Int32
y__ -> ConfigProto'DeviceCountEntry
x__ {_ConfigProto'DeviceCountEntry'value :: Int32
_ConfigProto'DeviceCountEntry'value = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ConfigProto'DeviceCountEntry where
messageName :: Proxy ConfigProto'DeviceCountEntry -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.ConfigProto.DeviceCountEntry"
packedMessageDescriptor :: Proxy ConfigProto'DeviceCountEntry -> ByteString
packedMessageDescriptor _
= "\n\
\\DLEDeviceCountEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy ConfigProto'DeviceCountEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ConfigProto'DeviceCountEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor ConfigProto'DeviceCountEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ConfigProto'DeviceCountEntry Text
-> FieldDescriptor ConfigProto'DeviceCountEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"key"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' ConfigProto'DeviceCountEntry Text
-> FieldAccessor ConfigProto'DeviceCountEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'DeviceCountEntry
value__field_descriptor :: FieldDescriptor ConfigProto'DeviceCountEntry
value__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor ConfigProto'DeviceCountEntry Int32
-> FieldDescriptor ConfigProto'DeviceCountEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(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' ConfigProto'DeviceCountEntry Int32
-> FieldAccessor ConfigProto'DeviceCountEntry 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 "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'DeviceCountEntry
in
[(Tag, FieldDescriptor ConfigProto'DeviceCountEntry)]
-> Map Tag (FieldDescriptor ConfigProto'DeviceCountEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ConfigProto'DeviceCountEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor ConfigProto'DeviceCountEntry
value__field_descriptor)]
unknownFields :: LensLike' f ConfigProto'DeviceCountEntry FieldSet
unknownFields
= (ConfigProto'DeviceCountEntry -> FieldSet)
-> (ConfigProto'DeviceCountEntry
-> FieldSet -> ConfigProto'DeviceCountEntry)
-> Lens' ConfigProto'DeviceCountEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'DeviceCountEntry -> FieldSet
_ConfigProto'DeviceCountEntry'_unknownFields
(\ x__ :: ConfigProto'DeviceCountEntry
x__ y__ :: FieldSet
y__
-> ConfigProto'DeviceCountEntry
x__ {_ConfigProto'DeviceCountEntry'_unknownFields :: FieldSet
_ConfigProto'DeviceCountEntry'_unknownFields = FieldSet
y__})
defMessage :: ConfigProto'DeviceCountEntry
defMessage
= $WConfigProto'DeviceCountEntry'_constructor :: Text -> Int32 -> FieldSet -> ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry'_constructor
{_ConfigProto'DeviceCountEntry'key :: Text
_ConfigProto'DeviceCountEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'DeviceCountEntry'value :: Int32
_ConfigProto'DeviceCountEntry'value = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'DeviceCountEntry'_unknownFields :: FieldSet
_ConfigProto'DeviceCountEntry'_unknownFields = []}
parseMessage :: Parser ConfigProto'DeviceCountEntry
parseMessage
= let
loop ::
ConfigProto'DeviceCountEntry
-> Data.ProtoLens.Encoding.Bytes.Parser ConfigProto'DeviceCountEntry
loop :: ConfigProto'DeviceCountEntry -> Parser ConfigProto'DeviceCountEntry
loop x :: ConfigProto'DeviceCountEntry
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]))))
ConfigProto'DeviceCountEntry -> Parser ConfigProto'DeviceCountEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry
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
ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ConfigProto'DeviceCountEntry
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"key"
ConfigProto'DeviceCountEntry -> Parser ConfigProto'DeviceCountEntry
loop (Setter
ConfigProto'DeviceCountEntry ConfigProto'DeviceCountEntry Text Text
-> Text
-> ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Text
y ConfigProto'DeviceCountEntry
x)
16
-> 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)
"value"
ConfigProto'DeviceCountEntry -> Parser ConfigProto'DeviceCountEntry
loop (Setter
ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
Int32
Int32
-> Int32
-> ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Int32
y ConfigProto'DeviceCountEntry
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ConfigProto'DeviceCountEntry -> Parser ConfigProto'DeviceCountEntry
loop
(Setter
ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> ConfigProto'DeviceCountEntry
-> ConfigProto'DeviceCountEntry
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
ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ConfigProto'DeviceCountEntry
x)
in
Parser ConfigProto'DeviceCountEntry
-> String -> Parser ConfigProto'DeviceCountEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ConfigProto'DeviceCountEntry -> Parser ConfigProto'DeviceCountEntry
loop ConfigProto'DeviceCountEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "DeviceCountEntry"
buildMessage :: ConfigProto'DeviceCountEntry -> Builder
buildMessage
= \ _x :: ConfigProto'DeviceCountEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
Text
Text
-> ConfigProto'DeviceCountEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ConfigProto'DeviceCountEntry
_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 :: Int32
_v = FoldLike
Int32
ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
Int32
Int32
-> ConfigProto'DeviceCountEntry -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ConfigProto'DeviceCountEntry
_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 16)
((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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
FieldSet
FieldSet
-> ConfigProto'DeviceCountEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ConfigProto'DeviceCountEntry
ConfigProto'DeviceCountEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ConfigProto'DeviceCountEntry
_x)))
instance Control.DeepSeq.NFData ConfigProto'DeviceCountEntry where
rnf :: ConfigProto'DeviceCountEntry -> ()
rnf
= \ x__ :: ConfigProto'DeviceCountEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'DeviceCountEntry -> FieldSet
_ConfigProto'DeviceCountEntry'_unknownFields ConfigProto'DeviceCountEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'DeviceCountEntry -> Text
_ConfigProto'DeviceCountEntry'key ConfigProto'DeviceCountEntry
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'DeviceCountEntry -> Int32
_ConfigProto'DeviceCountEntry'value ConfigProto'DeviceCountEntry
x__) ()))
data ConfigProto'Experimental
= ConfigProto'Experimental'_constructor {ConfigProto'Experimental -> Text
_ConfigProto'Experimental'collectiveGroupLeader :: !Data.Text.Text,
ConfigProto'Experimental -> Text
_ConfigProto'Experimental'executorType :: !Data.Text.Text,
ConfigProto'Experimental -> Int32
_ConfigProto'Experimental'recvBufMaxChunk :: !Data.Int.Int32,
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'useNumaAffinity :: !Prelude.Bool,
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'collectiveDeterministicSequentialExecution :: !Prelude.Bool,
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'collectiveNccl :: !Prelude.Bool,
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'shareSessionStateInClusterspecPropagation :: !Prelude.Bool,
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'disableThreadSpinning :: !Prelude.Bool,
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'shareClusterDevicesInSession :: !Prelude.Bool,
ConfigProto'Experimental -> Maybe SessionMetadata
_ConfigProto'Experimental'sessionMetadata :: !(Prelude.Maybe SessionMetadata),
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'optimizeForStaticGraph :: !Prelude.Bool,
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'enableMlirBridge :: !Prelude.Bool,
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'enableMlirGraphOptimization :: !Prelude.Bool,
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'disableOutputPartitionGraphs :: !Prelude.Bool,
ConfigProto'Experimental -> Int64
_ConfigProto'Experimental'xlaFusionAutotunerThresh :: !Data.Int.Int64,
ConfigProto'Experimental -> FieldSet
_ConfigProto'Experimental'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
(ConfigProto'Experimental -> ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> ConfigProto'Experimental -> Bool)
-> Eq ConfigProto'Experimental
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
$c/= :: ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
== :: ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
$c== :: ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
Prelude.Eq, Eq ConfigProto'Experimental
Eq ConfigProto'Experimental =>
(ConfigProto'Experimental -> ConfigProto'Experimental -> Ordering)
-> (ConfigProto'Experimental -> ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental
-> ConfigProto'Experimental -> ConfigProto'Experimental)
-> (ConfigProto'Experimental
-> ConfigProto'Experimental -> ConfigProto'Experimental)
-> Ord ConfigProto'Experimental
ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
ConfigProto'Experimental -> ConfigProto'Experimental -> Ordering
ConfigProto'Experimental
-> ConfigProto'Experimental -> ConfigProto'Experimental
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 :: ConfigProto'Experimental
-> ConfigProto'Experimental -> ConfigProto'Experimental
$cmin :: ConfigProto'Experimental
-> ConfigProto'Experimental -> ConfigProto'Experimental
max :: ConfigProto'Experimental
-> ConfigProto'Experimental -> ConfigProto'Experimental
$cmax :: ConfigProto'Experimental
-> ConfigProto'Experimental -> ConfigProto'Experimental
>= :: ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
$c>= :: ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
> :: ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
$c> :: ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
<= :: ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
$c<= :: ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
< :: ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
$c< :: ConfigProto'Experimental -> ConfigProto'Experimental -> Bool
compare :: ConfigProto'Experimental -> ConfigProto'Experimental -> Ordering
$ccompare :: ConfigProto'Experimental -> ConfigProto'Experimental -> Ordering
$cp1Ord :: Eq ConfigProto'Experimental
Prelude.Ord)
instance Prelude.Show ConfigProto'Experimental where
showsPrec :: Int -> ConfigProto'Experimental -> ShowS
showsPrec _ __x :: ConfigProto'Experimental
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(ConfigProto'Experimental -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ConfigProto'Experimental
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "collectiveGroupLeader" Data.Text.Text where
fieldOf :: Proxy# "collectiveGroupLeader"
-> (Text -> f Text)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Text -> f Text)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Text)
-> (ConfigProto'Experimental -> Text -> ConfigProto'Experimental)
-> Lens ConfigProto'Experimental ConfigProto'Experimental Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Text
_ConfigProto'Experimental'collectiveGroupLeader
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Text
y__
-> ConfigProto'Experimental
x__ {_ConfigProto'Experimental'collectiveGroupLeader :: Text
_ConfigProto'Experimental'collectiveGroupLeader = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "executorType" Data.Text.Text where
fieldOf :: Proxy# "executorType"
-> (Text -> f Text)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Text -> f Text)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Text)
-> (ConfigProto'Experimental -> Text -> ConfigProto'Experimental)
-> Lens ConfigProto'Experimental ConfigProto'Experimental Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Text
_ConfigProto'Experimental'executorType
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Text
y__ -> ConfigProto'Experimental
x__ {_ConfigProto'Experimental'executorType :: Text
_ConfigProto'Experimental'executorType = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "recvBufMaxChunk" Data.Int.Int32 where
fieldOf :: Proxy# "recvBufMaxChunk"
-> (Int32 -> f Int32)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Int32 -> f Int32)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Int32)
-> (ConfigProto'Experimental -> Int32 -> ConfigProto'Experimental)
-> Lens
ConfigProto'Experimental ConfigProto'Experimental Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Int32
_ConfigProto'Experimental'recvBufMaxChunk
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Int32
y__
-> ConfigProto'Experimental
x__ {_ConfigProto'Experimental'recvBufMaxChunk :: Int32
_ConfigProto'Experimental'recvBufMaxChunk = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "useNumaAffinity" Prelude.Bool where
fieldOf :: Proxy# "useNumaAffinity"
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Bool -> f Bool)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> Bool -> ConfigProto'Experimental)
-> Lens ConfigProto'Experimental ConfigProto'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'useNumaAffinity
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Bool
y__
-> ConfigProto'Experimental
x__ {_ConfigProto'Experimental'useNumaAffinity :: Bool
_ConfigProto'Experimental'useNumaAffinity = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "collectiveDeterministicSequentialExecution" Prelude.Bool where
fieldOf :: Proxy# "collectiveDeterministicSequentialExecution"
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Bool -> f Bool)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> Bool -> ConfigProto'Experimental)
-> Lens ConfigProto'Experimental ConfigProto'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'collectiveDeterministicSequentialExecution
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Bool
y__
-> ConfigProto'Experimental
x__
{_ConfigProto'Experimental'collectiveDeterministicSequentialExecution :: Bool
_ConfigProto'Experimental'collectiveDeterministicSequentialExecution = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "collectiveNccl" Prelude.Bool where
fieldOf :: Proxy# "collectiveNccl"
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Bool -> f Bool)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> Bool -> ConfigProto'Experimental)
-> Lens ConfigProto'Experimental ConfigProto'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'collectiveNccl
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Bool
y__
-> ConfigProto'Experimental
x__ {_ConfigProto'Experimental'collectiveNccl :: Bool
_ConfigProto'Experimental'collectiveNccl = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "shareSessionStateInClusterspecPropagation" Prelude.Bool where
fieldOf :: Proxy# "shareSessionStateInClusterspecPropagation"
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Bool -> f Bool)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> Bool -> ConfigProto'Experimental)
-> Lens ConfigProto'Experimental ConfigProto'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'shareSessionStateInClusterspecPropagation
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Bool
y__
-> ConfigProto'Experimental
x__
{_ConfigProto'Experimental'shareSessionStateInClusterspecPropagation :: Bool
_ConfigProto'Experimental'shareSessionStateInClusterspecPropagation = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "disableThreadSpinning" Prelude.Bool where
fieldOf :: Proxy# "disableThreadSpinning"
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Bool -> f Bool)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> Bool -> ConfigProto'Experimental)
-> Lens ConfigProto'Experimental ConfigProto'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'disableThreadSpinning
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Bool
y__
-> ConfigProto'Experimental
x__ {_ConfigProto'Experimental'disableThreadSpinning :: Bool
_ConfigProto'Experimental'disableThreadSpinning = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "shareClusterDevicesInSession" Prelude.Bool where
fieldOf :: Proxy# "shareClusterDevicesInSession"
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Bool -> f Bool)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> Bool -> ConfigProto'Experimental)
-> Lens ConfigProto'Experimental ConfigProto'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'shareClusterDevicesInSession
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Bool
y__
-> ConfigProto'Experimental
x__
{_ConfigProto'Experimental'shareClusterDevicesInSession :: Bool
_ConfigProto'Experimental'shareClusterDevicesInSession = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "sessionMetadata" SessionMetadata where
fieldOf :: Proxy# "sessionMetadata"
-> (SessionMetadata -> f SessionMetadata)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Maybe SessionMetadata -> f (Maybe SessionMetadata))
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((SessionMetadata -> f SessionMetadata)
-> Maybe SessionMetadata -> f (Maybe SessionMetadata))
-> (SessionMetadata -> f SessionMetadata)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Maybe SessionMetadata)
-> (ConfigProto'Experimental
-> Maybe SessionMetadata -> ConfigProto'Experimental)
-> Lens
ConfigProto'Experimental
ConfigProto'Experimental
(Maybe SessionMetadata)
(Maybe SessionMetadata)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Maybe SessionMetadata
_ConfigProto'Experimental'sessionMetadata
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Maybe SessionMetadata
y__
-> ConfigProto'Experimental
x__ {_ConfigProto'Experimental'sessionMetadata :: Maybe SessionMetadata
_ConfigProto'Experimental'sessionMetadata = Maybe SessionMetadata
y__}))
(SessionMetadata -> Lens' (Maybe SessionMetadata) SessionMetadata
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SessionMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "maybe'sessionMetadata" (Prelude.Maybe SessionMetadata) where
fieldOf :: Proxy# "maybe'sessionMetadata"
-> (Maybe SessionMetadata -> f (Maybe SessionMetadata))
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Maybe SessionMetadata -> f (Maybe SessionMetadata))
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Maybe SessionMetadata -> f (Maybe SessionMetadata))
-> Maybe SessionMetadata -> f (Maybe SessionMetadata))
-> (Maybe SessionMetadata -> f (Maybe SessionMetadata))
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Maybe SessionMetadata)
-> (ConfigProto'Experimental
-> Maybe SessionMetadata -> ConfigProto'Experimental)
-> Lens
ConfigProto'Experimental
ConfigProto'Experimental
(Maybe SessionMetadata)
(Maybe SessionMetadata)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Maybe SessionMetadata
_ConfigProto'Experimental'sessionMetadata
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Maybe SessionMetadata
y__
-> ConfigProto'Experimental
x__ {_ConfigProto'Experimental'sessionMetadata :: Maybe SessionMetadata
_ConfigProto'Experimental'sessionMetadata = Maybe SessionMetadata
y__}))
(Maybe SessionMetadata -> f (Maybe SessionMetadata))
-> Maybe SessionMetadata -> f (Maybe SessionMetadata)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "optimizeForStaticGraph" Prelude.Bool where
fieldOf :: Proxy# "optimizeForStaticGraph"
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Bool -> f Bool)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> Bool -> ConfigProto'Experimental)
-> Lens ConfigProto'Experimental ConfigProto'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'optimizeForStaticGraph
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Bool
y__
-> ConfigProto'Experimental
x__ {_ConfigProto'Experimental'optimizeForStaticGraph :: Bool
_ConfigProto'Experimental'optimizeForStaticGraph = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "enableMlirBridge" Prelude.Bool where
fieldOf :: Proxy# "enableMlirBridge"
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Bool -> f Bool)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> Bool -> ConfigProto'Experimental)
-> Lens ConfigProto'Experimental ConfigProto'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'enableMlirBridge
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Bool
y__
-> ConfigProto'Experimental
x__ {_ConfigProto'Experimental'enableMlirBridge :: Bool
_ConfigProto'Experimental'enableMlirBridge = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "enableMlirGraphOptimization" Prelude.Bool where
fieldOf :: Proxy# "enableMlirGraphOptimization"
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Bool -> f Bool)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> Bool -> ConfigProto'Experimental)
-> Lens ConfigProto'Experimental ConfigProto'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'enableMlirGraphOptimization
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Bool
y__
-> ConfigProto'Experimental
x__
{_ConfigProto'Experimental'enableMlirGraphOptimization :: Bool
_ConfigProto'Experimental'enableMlirGraphOptimization = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "disableOutputPartitionGraphs" Prelude.Bool where
fieldOf :: Proxy# "disableOutputPartitionGraphs"
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Bool -> f Bool)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Bool)
-> (ConfigProto'Experimental -> Bool -> ConfigProto'Experimental)
-> Lens ConfigProto'Experimental ConfigProto'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'disableOutputPartitionGraphs
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Bool
y__
-> ConfigProto'Experimental
x__
{_ConfigProto'Experimental'disableOutputPartitionGraphs :: Bool
_ConfigProto'Experimental'disableOutputPartitionGraphs = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ConfigProto'Experimental "xlaFusionAutotunerThresh" Data.Int.Int64 where
fieldOf :: Proxy# "xlaFusionAutotunerThresh"
-> (Int64 -> f Int64)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
fieldOf _
= ((Int64 -> f Int64)
-> ConfigProto'Experimental -> f ConfigProto'Experimental)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ConfigProto'Experimental
-> f ConfigProto'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ConfigProto'Experimental -> Int64)
-> (ConfigProto'Experimental -> Int64 -> ConfigProto'Experimental)
-> Lens
ConfigProto'Experimental ConfigProto'Experimental Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> Int64
_ConfigProto'Experimental'xlaFusionAutotunerThresh
(\ x__ :: ConfigProto'Experimental
x__ y__ :: Int64
y__
-> ConfigProto'Experimental
x__ {_ConfigProto'Experimental'xlaFusionAutotunerThresh :: Int64
_ConfigProto'Experimental'xlaFusionAutotunerThresh = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ConfigProto'Experimental where
messageName :: Proxy ConfigProto'Experimental -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.ConfigProto.Experimental"
packedMessageDescriptor :: Proxy ConfigProto'Experimental -> ByteString
packedMessageDescriptor _
= "\n\
\\fExperimental\DC26\n\
\\ETBcollective_group_leader\CAN\SOH \SOH(\tR\NAKcollectiveGroupLeader\DC2#\n\
\\rexecutor_type\CAN\ETX \SOH(\tR\fexecutorType\DC2+\n\
\\DC2recv_buf_max_chunk\CAN\EOT \SOH(\ENQR\SIrecvBufMaxChunk\DC2*\n\
\\DC1use_numa_affinity\CAN\ENQ \SOH(\bR\SIuseNumaAffinity\DC2a\n\
\-collective_deterministic_sequential_execution\CAN\ACK \SOH(\bR*collectiveDeterministicSequentialExecution\DC2'\n\
\\SIcollective_nccl\CAN\a \SOH(\bR\SOcollectiveNccl\DC2a\n\
\.share_session_state_in_clusterspec_propagation\CAN\b \SOH(\bR)shareSessionStateInClusterspecPropagation\DC26\n\
\\ETBdisable_thread_spinning\CAN\t \SOH(\bR\NAKdisableThreadSpinning\DC2F\n\
\ share_cluster_devices_in_session\CAN\n\
\ \SOH(\bR\FSshareClusterDevicesInSession\DC2F\n\
\\DLEsession_metadata\CAN\v \SOH(\v2\ESC.tensorflow.SessionMetadataR\SIsessionMetadata\DC29\n\
\\EMoptimize_for_static_graph\CAN\f \SOH(\bR\SYNoptimizeForStaticGraph\DC2,\n\
\\DC2enable_mlir_bridge\CAN\r \SOH(\bR\DLEenableMlirBridge\DC2C\n\
\\RSenable_mlir_graph_optimization\CAN\DLE \SOH(\bR\ESCenableMlirGraphOptimization\DC2E\n\
\\USdisable_output_partition_graphs\CAN\SO \SOH(\bR\FSdisableOutputPartitionGraphs\DC2=\n\
\\ESCxla_fusion_autotuner_thresh\CAN\SI \SOH(\ETXR\CANxlaFusionAutotunerThreshJ\EOT\b\STX\DLE\ETX"
packedFileDescriptor :: Proxy ConfigProto'Experimental -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ConfigProto'Experimental)
fieldsByTag
= let
collectiveGroupLeader__field_descriptor :: FieldDescriptor ConfigProto'Experimental
collectiveGroupLeader__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ConfigProto'Experimental Text
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"collective_group_leader"
(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 ConfigProto'Experimental ConfigProto'Experimental Text Text
-> FieldAccessor ConfigProto'Experimental 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 "collectiveGroupLeader" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectiveGroupLeader")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
executorType__field_descriptor :: FieldDescriptor ConfigProto'Experimental
executorType__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ConfigProto'Experimental Text
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"executor_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 ConfigProto'Experimental ConfigProto'Experimental Text Text
-> FieldAccessor ConfigProto'Experimental 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 "executorType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"executorType")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
recvBufMaxChunk__field_descriptor :: FieldDescriptor ConfigProto'Experimental
recvBufMaxChunk__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor ConfigProto'Experimental Int32
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"recv_buf_max_chunk"
(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
ConfigProto'Experimental ConfigProto'Experimental Int32 Int32
-> FieldAccessor ConfigProto'Experimental 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 "recvBufMaxChunk" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"recvBufMaxChunk")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
useNumaAffinity__field_descriptor :: FieldDescriptor ConfigProto'Experimental
useNumaAffinity__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto'Experimental Bool
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"use_numa_affinity"
(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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> FieldAccessor ConfigProto'Experimental 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 "useNumaAffinity" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"useNumaAffinity")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
collectiveDeterministicSequentialExecution__field_descriptor :: FieldDescriptor ConfigProto'Experimental
collectiveDeterministicSequentialExecution__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto'Experimental Bool
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"collective_deterministic_sequential_execution"
(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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> FieldAccessor ConfigProto'Experimental 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 "collectiveDeterministicSequentialExecution" a,
Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"collectiveDeterministicSequentialExecution")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
collectiveNccl__field_descriptor :: FieldDescriptor ConfigProto'Experimental
collectiveNccl__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto'Experimental Bool
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"collective_nccl"
(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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> FieldAccessor ConfigProto'Experimental 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 "collectiveNccl" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectiveNccl")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
shareSessionStateInClusterspecPropagation__field_descriptor :: FieldDescriptor ConfigProto'Experimental
shareSessionStateInClusterspecPropagation__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto'Experimental Bool
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"share_session_state_in_clusterspec_propagation"
(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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> FieldAccessor ConfigProto'Experimental 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 "shareSessionStateInClusterspecPropagation" a,
Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"shareSessionStateInClusterspecPropagation")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
disableThreadSpinning__field_descriptor :: FieldDescriptor ConfigProto'Experimental
disableThreadSpinning__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto'Experimental Bool
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"disable_thread_spinning"
(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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> FieldAccessor ConfigProto'Experimental 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 "disableThreadSpinning" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"disableThreadSpinning")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
shareClusterDevicesInSession__field_descriptor :: FieldDescriptor ConfigProto'Experimental
shareClusterDevicesInSession__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto'Experimental Bool
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"share_cluster_devices_in_session"
(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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> FieldAccessor ConfigProto'Experimental 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 "shareClusterDevicesInSession" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shareClusterDevicesInSession")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
sessionMetadata__field_descriptor :: FieldDescriptor ConfigProto'Experimental
sessionMetadata__field_descriptor
= String
-> FieldTypeDescriptor SessionMetadata
-> FieldAccessor ConfigProto'Experimental SessionMetadata
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"session_metadata"
(MessageOrGroup -> FieldTypeDescriptor SessionMetadata
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SessionMetadata)
(Lens
ConfigProto'Experimental
ConfigProto'Experimental
(Maybe SessionMetadata)
(Maybe SessionMetadata)
-> FieldAccessor ConfigProto'Experimental SessionMetadata
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'sessionMetadata" a, Functor f) =>
(a -> f a) -> s -> 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'sessionMetadata")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
optimizeForStaticGraph__field_descriptor :: FieldDescriptor ConfigProto'Experimental
optimizeForStaticGraph__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto'Experimental Bool
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"optimize_for_static_graph"
(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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> FieldAccessor ConfigProto'Experimental 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 "optimizeForStaticGraph" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"optimizeForStaticGraph")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
enableMlirBridge__field_descriptor :: FieldDescriptor ConfigProto'Experimental
enableMlirBridge__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto'Experimental Bool
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"enable_mlir_bridge"
(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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> FieldAccessor ConfigProto'Experimental 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 "enableMlirBridge" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enableMlirBridge")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
enableMlirGraphOptimization__field_descriptor :: FieldDescriptor ConfigProto'Experimental
enableMlirGraphOptimization__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto'Experimental Bool
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"enable_mlir_graph_optimization"
(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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> FieldAccessor ConfigProto'Experimental 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 "enableMlirGraphOptimization" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enableMlirGraphOptimization")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
disableOutputPartitionGraphs__field_descriptor :: FieldDescriptor ConfigProto'Experimental
disableOutputPartitionGraphs__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ConfigProto'Experimental Bool
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"disable_output_partition_graphs"
(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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> FieldAccessor ConfigProto'Experimental 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 "disableOutputPartitionGraphs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"disableOutputPartitionGraphs")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
xlaFusionAutotunerThresh__field_descriptor :: FieldDescriptor ConfigProto'Experimental
xlaFusionAutotunerThresh__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ConfigProto'Experimental Int64
-> FieldDescriptor ConfigProto'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"xla_fusion_autotuner_thresh"
(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
ConfigProto'Experimental ConfigProto'Experimental Int64 Int64
-> FieldAccessor ConfigProto'Experimental 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 "xlaFusionAutotunerThresh" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"xlaFusionAutotunerThresh")) ::
Data.ProtoLens.FieldDescriptor ConfigProto'Experimental
in
[(Tag, FieldDescriptor ConfigProto'Experimental)]
-> Map Tag (FieldDescriptor ConfigProto'Experimental)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ConfigProto'Experimental
collectiveGroupLeader__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor ConfigProto'Experimental
executorType__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor ConfigProto'Experimental
recvBufMaxChunk__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor ConfigProto'Experimental
useNumaAffinity__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6,
FieldDescriptor ConfigProto'Experimental
collectiveDeterministicSequentialExecution__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor ConfigProto'Experimental
collectiveNccl__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8,
FieldDescriptor ConfigProto'Experimental
shareSessionStateInClusterspecPropagation__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor ConfigProto'Experimental
disableThreadSpinning__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 10,
FieldDescriptor ConfigProto'Experimental
shareClusterDevicesInSession__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 11, FieldDescriptor ConfigProto'Experimental
sessionMetadata__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 12, FieldDescriptor ConfigProto'Experimental
optimizeForStaticGraph__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 13, FieldDescriptor ConfigProto'Experimental
enableMlirBridge__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 16,
FieldDescriptor ConfigProto'Experimental
enableMlirGraphOptimization__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 14,
FieldDescriptor ConfigProto'Experimental
disableOutputPartitionGraphs__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 15,
FieldDescriptor ConfigProto'Experimental
xlaFusionAutotunerThresh__field_descriptor)]
unknownFields :: LensLike' f ConfigProto'Experimental FieldSet
unknownFields
= (ConfigProto'Experimental -> FieldSet)
-> (ConfigProto'Experimental
-> FieldSet -> ConfigProto'Experimental)
-> Lens' ConfigProto'Experimental FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ConfigProto'Experimental -> FieldSet
_ConfigProto'Experimental'_unknownFields
(\ x__ :: ConfigProto'Experimental
x__ y__ :: FieldSet
y__ -> ConfigProto'Experimental
x__ {_ConfigProto'Experimental'_unknownFields :: FieldSet
_ConfigProto'Experimental'_unknownFields = FieldSet
y__})
defMessage :: ConfigProto'Experimental
defMessage
= $WConfigProto'Experimental'_constructor :: Text
-> Text
-> Int32
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Maybe SessionMetadata
-> Bool
-> Bool
-> Bool
-> Bool
-> Int64
-> FieldSet
-> ConfigProto'Experimental
ConfigProto'Experimental'_constructor
{_ConfigProto'Experimental'collectiveGroupLeader :: Text
_ConfigProto'Experimental'collectiveGroupLeader = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'executorType :: Text
_ConfigProto'Experimental'executorType = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'recvBufMaxChunk :: Int32
_ConfigProto'Experimental'recvBufMaxChunk = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'useNumaAffinity :: Bool
_ConfigProto'Experimental'useNumaAffinity = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'collectiveDeterministicSequentialExecution :: Bool
_ConfigProto'Experimental'collectiveDeterministicSequentialExecution = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'collectiveNccl :: Bool
_ConfigProto'Experimental'collectiveNccl = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'shareSessionStateInClusterspecPropagation :: Bool
_ConfigProto'Experimental'shareSessionStateInClusterspecPropagation = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'disableThreadSpinning :: Bool
_ConfigProto'Experimental'disableThreadSpinning = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'shareClusterDevicesInSession :: Bool
_ConfigProto'Experimental'shareClusterDevicesInSession = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'sessionMetadata :: Maybe SessionMetadata
_ConfigProto'Experimental'sessionMetadata = Maybe SessionMetadata
forall a. Maybe a
Prelude.Nothing,
_ConfigProto'Experimental'optimizeForStaticGraph :: Bool
_ConfigProto'Experimental'optimizeForStaticGraph = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'enableMlirBridge :: Bool
_ConfigProto'Experimental'enableMlirBridge = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'enableMlirGraphOptimization :: Bool
_ConfigProto'Experimental'enableMlirGraphOptimization = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'disableOutputPartitionGraphs :: Bool
_ConfigProto'Experimental'disableOutputPartitionGraphs = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'xlaFusionAutotunerThresh :: Int64
_ConfigProto'Experimental'xlaFusionAutotunerThresh = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ConfigProto'Experimental'_unknownFields :: FieldSet
_ConfigProto'Experimental'_unknownFields = []}
parseMessage :: Parser ConfigProto'Experimental
parseMessage
= let
loop ::
ConfigProto'Experimental
-> Data.ProtoLens.Encoding.Bytes.Parser ConfigProto'Experimental
loop :: ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop x :: ConfigProto'Experimental
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]))))
ConfigProto'Experimental -> Parser ConfigProto'Experimental
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
ConfigProto'Experimental ConfigProto'Experimental FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ConfigProto'Experimental
-> ConfigProto'Experimental
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
ConfigProto'Experimental ConfigProto'Experimental FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ConfigProto'Experimental
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))
"collective_group_leader"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter ConfigProto'Experimental ConfigProto'Experimental Text Text
-> Text -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "collectiveGroupLeader" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectiveGroupLeader") Text
y ConfigProto'Experimental
x)
26
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"executor_type"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter ConfigProto'Experimental ConfigProto'Experimental Text Text
-> Text -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "executorType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"executorType") Text
y ConfigProto'Experimental
x)
32
-> 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)
"recv_buf_max_chunk"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter
ConfigProto'Experimental ConfigProto'Experimental Int32 Int32
-> Int32 -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "recvBufMaxChunk" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"recvBufMaxChunk") Int32
y ConfigProto'Experimental
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)
"use_numa_affinity"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> Bool -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "useNumaAffinity" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"useNumaAffinity") Bool
y ConfigProto'Experimental
x)
48
-> 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)
"collective_deterministic_sequential_execution"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> Bool -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "collectiveDeterministicSequentialExecution" a,
Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"collectiveDeterministicSequentialExecution")
Bool
y
ConfigProto'Experimental
x)
56
-> 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)
"collective_nccl"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> Bool -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "collectiveNccl" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectiveNccl") Bool
y ConfigProto'Experimental
x)
64
-> 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)
"share_session_state_in_clusterspec_propagation"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> Bool -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "shareSessionStateInClusterspecPropagation" a,
Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"shareSessionStateInClusterspecPropagation")
Bool
y
ConfigProto'Experimental
x)
72
-> 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)
"disable_thread_spinning"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> Bool -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "disableThreadSpinning" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"disableThreadSpinning") Bool
y ConfigProto'Experimental
x)
80
-> 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)
"share_cluster_devices_in_session"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> Bool -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "shareClusterDevicesInSession" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shareClusterDevicesInSession")
Bool
y
ConfigProto'Experimental
x)
90
-> do SessionMetadata
y <- Parser SessionMetadata -> String -> Parser SessionMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SessionMetadata -> Parser SessionMetadata
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 SessionMetadata
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"session_metadata"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter
ConfigProto'Experimental
ConfigProto'Experimental
SessionMetadata
SessionMetadata
-> SessionMetadata
-> ConfigProto'Experimental
-> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "sessionMetadata" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sessionMetadata") SessionMetadata
y ConfigProto'Experimental
x)
96
-> 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)
"optimize_for_static_graph"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> Bool -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "optimizeForStaticGraph" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"optimizeForStaticGraph") Bool
y ConfigProto'Experimental
x)
104
-> 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)
"enable_mlir_bridge"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> Bool -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "enableMlirBridge" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enableMlirBridge") Bool
y ConfigProto'Experimental
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)
"enable_mlir_graph_optimization"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> Bool -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "enableMlirGraphOptimization" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enableMlirGraphOptimization")
Bool
y
ConfigProto'Experimental
x)
112
-> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"disable_output_partition_graphs"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> Bool -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "disableOutputPartitionGraphs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"disableOutputPartitionGraphs")
Bool
y
ConfigProto'Experimental
x)
120
-> 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)
"xla_fusion_autotuner_thresh"
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter
ConfigProto'Experimental ConfigProto'Experimental Int64 Int64
-> Int64 -> ConfigProto'Experimental -> ConfigProto'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "xlaFusionAutotunerThresh" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"xlaFusionAutotunerThresh") Int64
y ConfigProto'Experimental
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop
(Setter
ConfigProto'Experimental ConfigProto'Experimental FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ConfigProto'Experimental
-> ConfigProto'Experimental
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
ConfigProto'Experimental ConfigProto'Experimental FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ConfigProto'Experimental
x)
in
Parser ConfigProto'Experimental
-> String -> Parser ConfigProto'Experimental
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ConfigProto'Experimental -> Parser ConfigProto'Experimental
loop ConfigProto'Experimental
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "Experimental"
buildMessage :: ConfigProto'Experimental -> Builder
buildMessage
= \ _x :: ConfigProto'Experimental
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text ConfigProto'Experimental ConfigProto'Experimental Text Text
-> ConfigProto'Experimental -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "collectiveGroupLeader" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectiveGroupLeader") ConfigProto'Experimental
_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 ConfigProto'Experimental ConfigProto'Experimental Text Text
-> ConfigProto'Experimental -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "executorType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"executorType") ConfigProto'Experimental
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v
= FoldLike
Int32 ConfigProto'Experimental ConfigProto'Experimental Int32 Int32
-> ConfigProto'Experimental -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "recvBufMaxChunk" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"recvBufMaxChunk") ConfigProto'Experimental
_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 32)
((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 :: Bool
_v
= FoldLike
Bool ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> ConfigProto'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "useNumaAffinity" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"useNumaAffinity") ConfigProto'Experimental
_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 :: Bool
_v
= FoldLike
Bool ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> ConfigProto'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "collectiveDeterministicSequentialExecution" a,
Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"collectiveDeterministicSequentialExecution")
ConfigProto'Experimental
_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 48)
((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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> ConfigProto'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "collectiveNccl" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectiveNccl") ConfigProto'Experimental
_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 56)
((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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> ConfigProto'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "shareSessionStateInClusterspecPropagation" a,
Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"shareSessionStateInClusterspecPropagation")
ConfigProto'Experimental
_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 64)
((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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> ConfigProto'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "disableThreadSpinning" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"disableThreadSpinning") ConfigProto'Experimental
_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 72)
((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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> ConfigProto'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "shareClusterDevicesInSession" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"shareClusterDevicesInSession")
ConfigProto'Experimental
_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 80)
((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.<>)
(case
FoldLike
(Maybe SessionMetadata)
ConfigProto'Experimental
ConfigProto'Experimental
(Maybe SessionMetadata)
(Maybe SessionMetadata)
-> ConfigProto'Experimental -> Maybe SessionMetadata
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'sessionMetadata" a, Functor f) =>
(a -> f a) -> s -> 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'sessionMetadata")
ConfigProto'Experimental
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: SessionMetadata
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 90)
((ByteString -> Builder)
-> (SessionMetadata -> ByteString) -> SessionMetadata -> 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))
SessionMetadata -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SessionMetadata
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike
Bool ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> ConfigProto'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "optimizeForStaticGraph" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"optimizeForStaticGraph")
ConfigProto'Experimental
_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 96)
((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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> ConfigProto'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "enableMlirBridge" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"enableMlirBridge")
ConfigProto'Experimental
_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 104)
((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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> ConfigProto'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "enableMlirGraphOptimization" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"enableMlirGraphOptimization")
ConfigProto'Experimental
_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 ConfigProto'Experimental ConfigProto'Experimental Bool Bool
-> ConfigProto'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "disableOutputPartitionGraphs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"disableOutputPartitionGraphs")
ConfigProto'Experimental
_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
112)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b :: Bool
b -> if Bool
b then 1 else 0)
Bool
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike
Int64 ConfigProto'Experimental ConfigProto'Experimental Int64 Int64
-> ConfigProto'Experimental -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "xlaFusionAutotunerThresh" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"xlaFusionAutotunerThresh")
ConfigProto'Experimental
_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
120)
((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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ConfigProto'Experimental
ConfigProto'Experimental
FieldSet
FieldSet
-> ConfigProto'Experimental -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
FoldLike
FieldSet
ConfigProto'Experimental
ConfigProto'Experimental
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields
ConfigProto'Experimental
_x))))))))))))))))
instance Control.DeepSeq.NFData ConfigProto'Experimental where
rnf :: ConfigProto'Experimental -> ()
rnf
= \ x__ :: ConfigProto'Experimental
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> FieldSet
_ConfigProto'Experimental'_unknownFields ConfigProto'Experimental
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Text
_ConfigProto'Experimental'collectiveGroupLeader ConfigProto'Experimental
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Text
_ConfigProto'Experimental'executorType ConfigProto'Experimental
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Int32
_ConfigProto'Experimental'recvBufMaxChunk ConfigProto'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'useNumaAffinity ConfigProto'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'collectiveDeterministicSequentialExecution
ConfigProto'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'collectiveNccl ConfigProto'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'shareSessionStateInClusterspecPropagation
ConfigProto'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'disableThreadSpinning ConfigProto'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'shareClusterDevicesInSession ConfigProto'Experimental
x__)
(Maybe SessionMetadata -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Maybe SessionMetadata
_ConfigProto'Experimental'sessionMetadata ConfigProto'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'optimizeForStaticGraph ConfigProto'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'enableMlirBridge ConfigProto'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'enableMlirGraphOptimization
ConfigProto'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Bool
_ConfigProto'Experimental'disableOutputPartitionGraphs
ConfigProto'Experimental
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ConfigProto'Experimental -> Int64
_ConfigProto'Experimental'xlaFusionAutotunerThresh
ConfigProto'Experimental
x__)
())))))))))))))))
data GPUOptions
= GPUOptions'_constructor {GPUOptions -> Double
_GPUOptions'perProcessGpuMemoryFraction :: !Prelude.Double,
GPUOptions -> Bool
_GPUOptions'allowGrowth :: !Prelude.Bool,
GPUOptions -> Text
_GPUOptions'allocatorType :: !Data.Text.Text,
GPUOptions -> Int64
_GPUOptions'deferredDeletionBytes :: !Data.Int.Int64,
GPUOptions -> Text
_GPUOptions'visibleDeviceList :: !Data.Text.Text,
GPUOptions -> Int32
_GPUOptions'pollingActiveDelayUsecs :: !Data.Int.Int32,
GPUOptions -> Int32
_GPUOptions'pollingInactiveDelayMsecs :: !Data.Int.Int32,
GPUOptions -> Bool
_GPUOptions'forceGpuCompatible :: !Prelude.Bool,
GPUOptions -> Maybe GPUOptions'Experimental
_GPUOptions'experimental :: !(Prelude.Maybe GPUOptions'Experimental),
GPUOptions -> FieldSet
_GPUOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (GPUOptions -> GPUOptions -> Bool
(GPUOptions -> GPUOptions -> Bool)
-> (GPUOptions -> GPUOptions -> Bool) -> Eq GPUOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GPUOptions -> GPUOptions -> Bool
$c/= :: GPUOptions -> GPUOptions -> Bool
== :: GPUOptions -> GPUOptions -> Bool
$c== :: GPUOptions -> GPUOptions -> Bool
Prelude.Eq, Eq GPUOptions
Eq GPUOptions =>
(GPUOptions -> GPUOptions -> Ordering)
-> (GPUOptions -> GPUOptions -> Bool)
-> (GPUOptions -> GPUOptions -> Bool)
-> (GPUOptions -> GPUOptions -> Bool)
-> (GPUOptions -> GPUOptions -> Bool)
-> (GPUOptions -> GPUOptions -> GPUOptions)
-> (GPUOptions -> GPUOptions -> GPUOptions)
-> Ord GPUOptions
GPUOptions -> GPUOptions -> Bool
GPUOptions -> GPUOptions -> Ordering
GPUOptions -> GPUOptions -> GPUOptions
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 :: GPUOptions -> GPUOptions -> GPUOptions
$cmin :: GPUOptions -> GPUOptions -> GPUOptions
max :: GPUOptions -> GPUOptions -> GPUOptions
$cmax :: GPUOptions -> GPUOptions -> GPUOptions
>= :: GPUOptions -> GPUOptions -> Bool
$c>= :: GPUOptions -> GPUOptions -> Bool
> :: GPUOptions -> GPUOptions -> Bool
$c> :: GPUOptions -> GPUOptions -> Bool
<= :: GPUOptions -> GPUOptions -> Bool
$c<= :: GPUOptions -> GPUOptions -> Bool
< :: GPUOptions -> GPUOptions -> Bool
$c< :: GPUOptions -> GPUOptions -> Bool
compare :: GPUOptions -> GPUOptions -> Ordering
$ccompare :: GPUOptions -> GPUOptions -> Ordering
$cp1Ord :: Eq GPUOptions
Prelude.Ord)
instance Prelude.Show GPUOptions where
showsPrec :: Int -> GPUOptions -> ShowS
showsPrec _ __x :: GPUOptions
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(GPUOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort GPUOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField GPUOptions "perProcessGpuMemoryFraction" Prelude.Double where
fieldOf :: Proxy# "perProcessGpuMemoryFraction"
-> (Double -> f Double) -> GPUOptions -> f GPUOptions
fieldOf _
= ((Double -> f Double) -> GPUOptions -> f GPUOptions)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> GPUOptions
-> f GPUOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions -> Double)
-> (GPUOptions -> Double -> GPUOptions)
-> Lens GPUOptions GPUOptions Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions -> Double
_GPUOptions'perProcessGpuMemoryFraction
(\ x__ :: GPUOptions
x__ y__ :: Double
y__ -> GPUOptions
x__ {_GPUOptions'perProcessGpuMemoryFraction :: Double
_GPUOptions'perProcessGpuMemoryFraction = Double
y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions "allowGrowth" Prelude.Bool where
fieldOf :: Proxy# "allowGrowth"
-> (Bool -> f Bool) -> GPUOptions -> f GPUOptions
fieldOf _
= ((Bool -> f Bool) -> GPUOptions -> f GPUOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> GPUOptions
-> f GPUOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions -> Bool)
-> (GPUOptions -> Bool -> GPUOptions)
-> Lens GPUOptions GPUOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions -> Bool
_GPUOptions'allowGrowth
(\ x__ :: GPUOptions
x__ y__ :: Bool
y__ -> GPUOptions
x__ {_GPUOptions'allowGrowth :: Bool
_GPUOptions'allowGrowth = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions "allocatorType" Data.Text.Text where
fieldOf :: Proxy# "allocatorType"
-> (Text -> f Text) -> GPUOptions -> f GPUOptions
fieldOf _
= ((Text -> f Text) -> GPUOptions -> f GPUOptions)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> GPUOptions
-> f GPUOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions -> Text)
-> (GPUOptions -> Text -> GPUOptions)
-> Lens GPUOptions GPUOptions Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions -> Text
_GPUOptions'allocatorType
(\ x__ :: GPUOptions
x__ y__ :: Text
y__ -> GPUOptions
x__ {_GPUOptions'allocatorType :: Text
_GPUOptions'allocatorType = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions "deferredDeletionBytes" Data.Int.Int64 where
fieldOf :: Proxy# "deferredDeletionBytes"
-> (Int64 -> f Int64) -> GPUOptions -> f GPUOptions
fieldOf _
= ((Int64 -> f Int64) -> GPUOptions -> f GPUOptions)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> GPUOptions
-> f GPUOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions -> Int64)
-> (GPUOptions -> Int64 -> GPUOptions)
-> Lens GPUOptions GPUOptions Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions -> Int64
_GPUOptions'deferredDeletionBytes
(\ x__ :: GPUOptions
x__ y__ :: Int64
y__ -> GPUOptions
x__ {_GPUOptions'deferredDeletionBytes :: Int64
_GPUOptions'deferredDeletionBytes = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions "visibleDeviceList" Data.Text.Text where
fieldOf :: Proxy# "visibleDeviceList"
-> (Text -> f Text) -> GPUOptions -> f GPUOptions
fieldOf _
= ((Text -> f Text) -> GPUOptions -> f GPUOptions)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> GPUOptions
-> f GPUOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions -> Text)
-> (GPUOptions -> Text -> GPUOptions)
-> Lens GPUOptions GPUOptions Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions -> Text
_GPUOptions'visibleDeviceList
(\ x__ :: GPUOptions
x__ y__ :: Text
y__ -> GPUOptions
x__ {_GPUOptions'visibleDeviceList :: Text
_GPUOptions'visibleDeviceList = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions "pollingActiveDelayUsecs" Data.Int.Int32 where
fieldOf :: Proxy# "pollingActiveDelayUsecs"
-> (Int32 -> f Int32) -> GPUOptions -> f GPUOptions
fieldOf _
= ((Int32 -> f Int32) -> GPUOptions -> f GPUOptions)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> GPUOptions
-> f GPUOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions -> Int32)
-> (GPUOptions -> Int32 -> GPUOptions)
-> Lens GPUOptions GPUOptions Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions -> Int32
_GPUOptions'pollingActiveDelayUsecs
(\ x__ :: GPUOptions
x__ y__ :: Int32
y__ -> GPUOptions
x__ {_GPUOptions'pollingActiveDelayUsecs :: Int32
_GPUOptions'pollingActiveDelayUsecs = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions "pollingInactiveDelayMsecs" Data.Int.Int32 where
fieldOf :: Proxy# "pollingInactiveDelayMsecs"
-> (Int32 -> f Int32) -> GPUOptions -> f GPUOptions
fieldOf _
= ((Int32 -> f Int32) -> GPUOptions -> f GPUOptions)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> GPUOptions
-> f GPUOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions -> Int32)
-> (GPUOptions -> Int32 -> GPUOptions)
-> Lens GPUOptions GPUOptions Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions -> Int32
_GPUOptions'pollingInactiveDelayMsecs
(\ x__ :: GPUOptions
x__ y__ :: Int32
y__ -> GPUOptions
x__ {_GPUOptions'pollingInactiveDelayMsecs :: Int32
_GPUOptions'pollingInactiveDelayMsecs = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions "forceGpuCompatible" Prelude.Bool where
fieldOf :: Proxy# "forceGpuCompatible"
-> (Bool -> f Bool) -> GPUOptions -> f GPUOptions
fieldOf _
= ((Bool -> f Bool) -> GPUOptions -> f GPUOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> GPUOptions
-> f GPUOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions -> Bool)
-> (GPUOptions -> Bool -> GPUOptions)
-> Lens GPUOptions GPUOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions -> Bool
_GPUOptions'forceGpuCompatible
(\ x__ :: GPUOptions
x__ y__ :: Bool
y__ -> GPUOptions
x__ {_GPUOptions'forceGpuCompatible :: Bool
_GPUOptions'forceGpuCompatible = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions "experimental" GPUOptions'Experimental where
fieldOf :: Proxy# "experimental"
-> (GPUOptions'Experimental -> f GPUOptions'Experimental)
-> GPUOptions
-> f GPUOptions
fieldOf _
= ((Maybe GPUOptions'Experimental
-> f (Maybe GPUOptions'Experimental))
-> GPUOptions -> f GPUOptions)
-> ((GPUOptions'Experimental -> f GPUOptions'Experimental)
-> Maybe GPUOptions'Experimental
-> f (Maybe GPUOptions'Experimental))
-> (GPUOptions'Experimental -> f GPUOptions'Experimental)
-> GPUOptions
-> f GPUOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions -> Maybe GPUOptions'Experimental)
-> (GPUOptions -> Maybe GPUOptions'Experimental -> GPUOptions)
-> Lens
GPUOptions
GPUOptions
(Maybe GPUOptions'Experimental)
(Maybe GPUOptions'Experimental)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions -> Maybe GPUOptions'Experimental
_GPUOptions'experimental
(\ x__ :: GPUOptions
x__ y__ :: Maybe GPUOptions'Experimental
y__ -> GPUOptions
x__ {_GPUOptions'experimental :: Maybe GPUOptions'Experimental
_GPUOptions'experimental = Maybe GPUOptions'Experimental
y__}))
(GPUOptions'Experimental
-> Lens' (Maybe GPUOptions'Experimental) GPUOptions'Experimental
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens GPUOptions'Experimental
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField GPUOptions "maybe'experimental" (Prelude.Maybe GPUOptions'Experimental) where
fieldOf :: Proxy# "maybe'experimental"
-> (Maybe GPUOptions'Experimental
-> f (Maybe GPUOptions'Experimental))
-> GPUOptions
-> f GPUOptions
fieldOf _
= ((Maybe GPUOptions'Experimental
-> f (Maybe GPUOptions'Experimental))
-> GPUOptions -> f GPUOptions)
-> ((Maybe GPUOptions'Experimental
-> f (Maybe GPUOptions'Experimental))
-> Maybe GPUOptions'Experimental
-> f (Maybe GPUOptions'Experimental))
-> (Maybe GPUOptions'Experimental
-> f (Maybe GPUOptions'Experimental))
-> GPUOptions
-> f GPUOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions -> Maybe GPUOptions'Experimental)
-> (GPUOptions -> Maybe GPUOptions'Experimental -> GPUOptions)
-> Lens
GPUOptions
GPUOptions
(Maybe GPUOptions'Experimental)
(Maybe GPUOptions'Experimental)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions -> Maybe GPUOptions'Experimental
_GPUOptions'experimental
(\ x__ :: GPUOptions
x__ y__ :: Maybe GPUOptions'Experimental
y__ -> GPUOptions
x__ {_GPUOptions'experimental :: Maybe GPUOptions'Experimental
_GPUOptions'experimental = Maybe GPUOptions'Experimental
y__}))
(Maybe GPUOptions'Experimental
-> f (Maybe GPUOptions'Experimental))
-> Maybe GPUOptions'Experimental
-> f (Maybe GPUOptions'Experimental)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message GPUOptions where
messageName :: Proxy GPUOptions -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.GPUOptions"
packedMessageDescriptor :: Proxy GPUOptions -> ByteString
packedMessageDescriptor _
= "\n\
\\n\
\GPUOptions\DC2D\n\
\\USper_process_gpu_memory_fraction\CAN\SOH \SOH(\SOHR\ESCperProcessGpuMemoryFraction\DC2!\n\
\\fallow_growth\CAN\EOT \SOH(\bR\vallowGrowth\DC2%\n\
\\SOallocator_type\CAN\STX \SOH(\tR\rallocatorType\DC26\n\
\\ETBdeferred_deletion_bytes\CAN\ETX \SOH(\ETXR\NAKdeferredDeletionBytes\DC2.\n\
\\DC3visible_device_list\CAN\ENQ \SOH(\tR\DC1visibleDeviceList\DC2;\n\
\\SUBpolling_active_delay_usecs\CAN\ACK \SOH(\ENQR\ETBpollingActiveDelayUsecs\DC2?\n\
\\FSpolling_inactive_delay_msecs\CAN\a \SOH(\ENQR\EMpollingInactiveDelayMsecs\DC20\n\
\\DC4force_gpu_compatible\CAN\b \SOH(\bR\DC2forceGpuCompatible\DC2G\n\
\\fexperimental\CAN\t \SOH(\v2#.tensorflow.GPUOptions.ExperimentalR\fexperimental\SUB\202\EOT\n\
\\fExperimental\DC2[\n\
\\SIvirtual_devices\CAN\SOH \ETX(\v22.tensorflow.GPUOptions.Experimental.VirtualDevicesR\SOvirtualDevices\DC2,\n\
\\DC2use_unified_memory\CAN\STX \SOH(\bR\DLEuseUnifiedMemory\DC2;\n\
\\ESCnum_dev_to_dev_copy_streams\CAN\ETX \SOH(\ENQR\SYNnumDevToDevCopyStreams\DC22\n\
\\NAKcollective_ring_order\CAN\EOT \SOH(\tR\DC3collectiveRingOrder\DC23\n\
\\NAKtimestamped_allocator\CAN\ENQ \SOH(\bR\DC4timestampedAllocator\DC2=\n\
\\ESCkernel_tracker_max_interval\CAN\a \SOH(\ENQR\CANkernelTrackerMaxInterval\DC27\n\
\\CANkernel_tracker_max_bytes\CAN\b \SOH(\ENQR\NAKkernelTrackerMaxBytes\DC2;\n\
\\SUBkernel_tracker_max_pending\CAN\t \SOH(\ENQR\ETBkernelTrackerMaxPending\SUBT\n\
\\SOVirtualDevices\DC2&\n\
\\SImemory_limit_mb\CAN\SOH \ETX(\STXR\rmemoryLimitMb\DC2\SUB\n\
\\bpriority\CAN\STX \ETX(\ENQR\bpriority"
packedFileDescriptor :: Proxy GPUOptions -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor GPUOptions)
fieldsByTag
= let
perProcessGpuMemoryFraction__field_descriptor :: FieldDescriptor GPUOptions
perProcessGpuMemoryFraction__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor GPUOptions Double
-> FieldDescriptor GPUOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"per_process_gpu_memory_fraction"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(WireDefault Double
-> Lens GPUOptions GPUOptions Double Double
-> FieldAccessor GPUOptions Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "perProcessGpuMemoryFraction" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"perProcessGpuMemoryFraction")) ::
Data.ProtoLens.FieldDescriptor GPUOptions
allowGrowth__field_descriptor :: FieldDescriptor GPUOptions
allowGrowth__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor GPUOptions Bool
-> FieldDescriptor GPUOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"allow_growth"
(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 GPUOptions GPUOptions Bool Bool
-> FieldAccessor GPUOptions 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 "allowGrowth" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allowGrowth")) ::
Data.ProtoLens.FieldDescriptor GPUOptions
allocatorType__field_descriptor :: FieldDescriptor GPUOptions
allocatorType__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor GPUOptions Text
-> FieldDescriptor GPUOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"allocator_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 GPUOptions GPUOptions Text Text
-> FieldAccessor GPUOptions 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 "allocatorType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatorType")) ::
Data.ProtoLens.FieldDescriptor GPUOptions
deferredDeletionBytes__field_descriptor :: FieldDescriptor GPUOptions
deferredDeletionBytes__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor GPUOptions Int64
-> FieldDescriptor GPUOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"deferred_deletion_bytes"
(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 GPUOptions GPUOptions Int64 Int64
-> FieldAccessor GPUOptions 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 "deferredDeletionBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deferredDeletionBytes")) ::
Data.ProtoLens.FieldDescriptor GPUOptions
visibleDeviceList__field_descriptor :: FieldDescriptor GPUOptions
visibleDeviceList__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor GPUOptions Text
-> FieldDescriptor GPUOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"visible_device_list"
(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 GPUOptions GPUOptions Text Text
-> FieldAccessor GPUOptions 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 "visibleDeviceList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"visibleDeviceList")) ::
Data.ProtoLens.FieldDescriptor GPUOptions
pollingActiveDelayUsecs__field_descriptor :: FieldDescriptor GPUOptions
pollingActiveDelayUsecs__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor GPUOptions Int32
-> FieldDescriptor GPUOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"polling_active_delay_usecs"
(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 GPUOptions GPUOptions Int32 Int32
-> FieldAccessor GPUOptions 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 "pollingActiveDelayUsecs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pollingActiveDelayUsecs")) ::
Data.ProtoLens.FieldDescriptor GPUOptions
pollingInactiveDelayMsecs__field_descriptor :: FieldDescriptor GPUOptions
pollingInactiveDelayMsecs__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor GPUOptions Int32
-> FieldDescriptor GPUOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"polling_inactive_delay_msecs"
(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 GPUOptions GPUOptions Int32 Int32
-> FieldAccessor GPUOptions 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 "pollingInactiveDelayMsecs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pollingInactiveDelayMsecs")) ::
Data.ProtoLens.FieldDescriptor GPUOptions
forceGpuCompatible__field_descriptor :: FieldDescriptor GPUOptions
forceGpuCompatible__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor GPUOptions Bool
-> FieldDescriptor GPUOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"force_gpu_compatible"
(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 GPUOptions GPUOptions Bool Bool
-> FieldAccessor GPUOptions 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 "forceGpuCompatible" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"forceGpuCompatible")) ::
Data.ProtoLens.FieldDescriptor GPUOptions
experimental__field_descriptor :: FieldDescriptor GPUOptions
experimental__field_descriptor
= String
-> FieldTypeDescriptor GPUOptions'Experimental
-> FieldAccessor GPUOptions GPUOptions'Experimental
-> FieldDescriptor GPUOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"experimental"
(MessageOrGroup -> FieldTypeDescriptor GPUOptions'Experimental
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor GPUOptions'Experimental)
(Lens
GPUOptions
GPUOptions
(Maybe GPUOptions'Experimental)
(Maybe GPUOptions'Experimental)
-> FieldAccessor GPUOptions GPUOptions'Experimental
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'experimental" a, Functor f) =>
(a -> f a) -> s -> 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'experimental")) ::
Data.ProtoLens.FieldDescriptor GPUOptions
in
[(Tag, FieldDescriptor GPUOptions)]
-> Map Tag (FieldDescriptor GPUOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1,
FieldDescriptor GPUOptions
perProcessGpuMemoryFraction__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor GPUOptions
allowGrowth__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor GPUOptions
allocatorType__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor GPUOptions
deferredDeletionBytes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor GPUOptions
visibleDeviceList__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor GPUOptions
pollingActiveDelayUsecs__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7,
FieldDescriptor GPUOptions
pollingInactiveDelayMsecs__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor GPUOptions
forceGpuCompatible__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor GPUOptions
experimental__field_descriptor)]
unknownFields :: LensLike' f GPUOptions FieldSet
unknownFields
= (GPUOptions -> FieldSet)
-> (GPUOptions -> FieldSet -> GPUOptions)
-> Lens' GPUOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions -> FieldSet
_GPUOptions'_unknownFields
(\ x__ :: GPUOptions
x__ y__ :: FieldSet
y__ -> GPUOptions
x__ {_GPUOptions'_unknownFields :: FieldSet
_GPUOptions'_unknownFields = FieldSet
y__})
defMessage :: GPUOptions
defMessage
= $WGPUOptions'_constructor :: Double
-> Bool
-> Text
-> Int64
-> Text
-> Int32
-> Int32
-> Bool
-> Maybe GPUOptions'Experimental
-> FieldSet
-> GPUOptions
GPUOptions'_constructor
{_GPUOptions'perProcessGpuMemoryFraction :: Double
_GPUOptions'perProcessGpuMemoryFraction = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'allowGrowth :: Bool
_GPUOptions'allowGrowth = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'allocatorType :: Text
_GPUOptions'allocatorType = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'deferredDeletionBytes :: Int64
_GPUOptions'deferredDeletionBytes = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'visibleDeviceList :: Text
_GPUOptions'visibleDeviceList = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'pollingActiveDelayUsecs :: Int32
_GPUOptions'pollingActiveDelayUsecs = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'pollingInactiveDelayMsecs :: Int32
_GPUOptions'pollingInactiveDelayMsecs = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'forceGpuCompatible :: Bool
_GPUOptions'forceGpuCompatible = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'experimental :: Maybe GPUOptions'Experimental
_GPUOptions'experimental = Maybe GPUOptions'Experimental
forall a. Maybe a
Prelude.Nothing,
_GPUOptions'_unknownFields :: FieldSet
_GPUOptions'_unknownFields = []}
parseMessage :: Parser GPUOptions
parseMessage
= let
loop ::
GPUOptions -> Data.ProtoLens.Encoding.Bytes.Parser GPUOptions
loop :: GPUOptions -> Parser GPUOptions
loop x :: GPUOptions
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]))))
GPUOptions -> Parser GPUOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter GPUOptions GPUOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> GPUOptions -> GPUOptions
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 GPUOptions GPUOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) GPUOptions
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
9 -> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
"per_process_gpu_memory_fraction"
GPUOptions -> Parser GPUOptions
loop
(Setter GPUOptions GPUOptions Double Double
-> Double -> GPUOptions -> GPUOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "perProcessGpuMemoryFraction" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"perProcessGpuMemoryFraction")
Double
y
GPUOptions
x)
32
-> 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)
"allow_growth"
GPUOptions -> Parser GPUOptions
loop
(Setter GPUOptions GPUOptions Bool Bool
-> Bool -> GPUOptions -> GPUOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "allowGrowth" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allowGrowth") Bool
y GPUOptions
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))
"allocator_type"
GPUOptions -> Parser GPUOptions
loop
(Setter GPUOptions GPUOptions Text Text
-> Text -> GPUOptions -> GPUOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allocatorType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatorType") Text
y GPUOptions
x)
24
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"deferred_deletion_bytes"
GPUOptions -> Parser GPUOptions
loop
(Setter GPUOptions GPUOptions Int64 Int64
-> Int64 -> GPUOptions -> GPUOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "deferredDeletionBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deferredDeletionBytes") Int64
y GPUOptions
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))
"visible_device_list"
GPUOptions -> Parser GPUOptions
loop
(Setter GPUOptions GPUOptions Text Text
-> Text -> GPUOptions -> GPUOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "visibleDeviceList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"visibleDeviceList") Text
y GPUOptions
x)
48
-> 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)
"polling_active_delay_usecs"
GPUOptions -> Parser GPUOptions
loop
(Setter GPUOptions GPUOptions Int32 Int32
-> Int32 -> GPUOptions -> GPUOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "pollingActiveDelayUsecs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pollingActiveDelayUsecs") Int32
y GPUOptions
x)
56
-> 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)
"polling_inactive_delay_msecs"
GPUOptions -> Parser GPUOptions
loop
(Setter GPUOptions GPUOptions Int32 Int32
-> Int32 -> GPUOptions -> GPUOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "pollingInactiveDelayMsecs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pollingInactiveDelayMsecs") Int32
y GPUOptions
x)
64
-> 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)
"force_gpu_compatible"
GPUOptions -> Parser GPUOptions
loop
(Setter GPUOptions GPUOptions Bool Bool
-> Bool -> GPUOptions -> GPUOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "forceGpuCompatible" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"forceGpuCompatible") Bool
y GPUOptions
x)
74
-> do GPUOptions'Experimental
y <- Parser GPUOptions'Experimental
-> String -> Parser GPUOptions'Experimental
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser GPUOptions'Experimental -> Parser GPUOptions'Experimental
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 GPUOptions'Experimental
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"experimental"
GPUOptions -> Parser GPUOptions
loop
(Setter
GPUOptions
GPUOptions
GPUOptions'Experimental
GPUOptions'Experimental
-> GPUOptions'Experimental -> GPUOptions -> GPUOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "experimental" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"experimental") GPUOptions'Experimental
y GPUOptions
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
GPUOptions -> Parser GPUOptions
loop
(Setter GPUOptions GPUOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> GPUOptions -> GPUOptions
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 GPUOptions GPUOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) GPUOptions
x)
in
Parser GPUOptions -> String -> Parser GPUOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do GPUOptions -> Parser GPUOptions
loop GPUOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "GPUOptions"
buildMessage :: GPUOptions -> Builder
buildMessage
= \ _x :: GPUOptions
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Double
_v
= FoldLike Double GPUOptions GPUOptions Double Double
-> GPUOptions -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "perProcessGpuMemoryFraction" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"perProcessGpuMemoryFraction") GPUOptions
_x
in
if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
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 9)
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord
Double
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool GPUOptions GPUOptions Bool Bool -> GPUOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "allowGrowth" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allowGrowth") GPUOptions
_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 32)
((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 :: Text
_v
= FoldLike Text GPUOptions GPUOptions Text Text -> GPUOptions -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "allocatorType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatorType") GPUOptions
_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 :: Int64
_v
= FoldLike Int64 GPUOptions GPUOptions Int64 Int64
-> GPUOptions -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "deferredDeletionBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deferredDeletionBytes") GPUOptions
_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 24)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text GPUOptions GPUOptions Text Text -> GPUOptions -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "visibleDeviceList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"visibleDeviceList") GPUOptions
_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 :: Int32
_v
= FoldLike Int32 GPUOptions GPUOptions Int32 Int32
-> GPUOptions -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "pollingActiveDelayUsecs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pollingActiveDelayUsecs") GPUOptions
_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 48)
((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 :: Int32
_v
= FoldLike Int32 GPUOptions GPUOptions Int32 Int32
-> GPUOptions -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "pollingInactiveDelayMsecs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pollingInactiveDelayMsecs") GPUOptions
_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 56)
((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 :: Bool
_v
= FoldLike Bool GPUOptions GPUOptions Bool Bool -> GPUOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "forceGpuCompatible" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"forceGpuCompatible") GPUOptions
_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 64)
((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.<>)
(case
FoldLike
(Maybe GPUOptions'Experimental)
GPUOptions
GPUOptions
(Maybe GPUOptions'Experimental)
(Maybe GPUOptions'Experimental)
-> GPUOptions -> Maybe GPUOptions'Experimental
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'experimental" a, Functor f) =>
(a -> f a) -> s -> 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'experimental") GPUOptions
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: GPUOptions'Experimental
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 74)
((ByteString -> Builder)
-> (GPUOptions'Experimental -> ByteString)
-> GPUOptions'Experimental
-> 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))
GPUOptions'Experimental -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
GPUOptions'Experimental
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet GPUOptions GPUOptions FieldSet FieldSet
-> GPUOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet GPUOptions GPUOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields GPUOptions
_x))))))))))
instance Control.DeepSeq.NFData GPUOptions where
rnf :: GPUOptions -> ()
rnf
= \ x__ :: GPUOptions
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions -> FieldSet
_GPUOptions'_unknownFields GPUOptions
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions -> Double
_GPUOptions'perProcessGpuMemoryFraction GPUOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions -> Bool
_GPUOptions'allowGrowth GPUOptions
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions -> Text
_GPUOptions'allocatorType GPUOptions
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions -> Int64
_GPUOptions'deferredDeletionBytes GPUOptions
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions -> Text
_GPUOptions'visibleDeviceList GPUOptions
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions -> Int32
_GPUOptions'pollingActiveDelayUsecs GPUOptions
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions -> Int32
_GPUOptions'pollingInactiveDelayMsecs GPUOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions -> Bool
_GPUOptions'forceGpuCompatible GPUOptions
x__)
(Maybe GPUOptions'Experimental -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions -> Maybe GPUOptions'Experimental
_GPUOptions'experimental GPUOptions
x__) ())))))))))
data GPUOptions'Experimental
= GPUOptions'Experimental'_constructor {GPUOptions'Experimental
-> Vector GPUOptions'Experimental'VirtualDevices
_GPUOptions'Experimental'virtualDevices :: !(Data.Vector.Vector GPUOptions'Experimental'VirtualDevices),
GPUOptions'Experimental -> Bool
_GPUOptions'Experimental'useUnifiedMemory :: !Prelude.Bool,
GPUOptions'Experimental -> Int32
_GPUOptions'Experimental'numDevToDevCopyStreams :: !Data.Int.Int32,
GPUOptions'Experimental -> Text
_GPUOptions'Experimental'collectiveRingOrder :: !Data.Text.Text,
GPUOptions'Experimental -> Bool
_GPUOptions'Experimental'timestampedAllocator :: !Prelude.Bool,
GPUOptions'Experimental -> Int32
_GPUOptions'Experimental'kernelTrackerMaxInterval :: !Data.Int.Int32,
GPUOptions'Experimental -> Int32
_GPUOptions'Experimental'kernelTrackerMaxBytes :: !Data.Int.Int32,
GPUOptions'Experimental -> Int32
_GPUOptions'Experimental'kernelTrackerMaxPending :: !Data.Int.Int32,
GPUOptions'Experimental -> FieldSet
_GPUOptions'Experimental'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
(GPUOptions'Experimental -> GPUOptions'Experimental -> Bool)
-> (GPUOptions'Experimental -> GPUOptions'Experimental -> Bool)
-> Eq GPUOptions'Experimental
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
$c/= :: GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
== :: GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
$c== :: GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
Prelude.Eq, Eq GPUOptions'Experimental
Eq GPUOptions'Experimental =>
(GPUOptions'Experimental -> GPUOptions'Experimental -> Ordering)
-> (GPUOptions'Experimental -> GPUOptions'Experimental -> Bool)
-> (GPUOptions'Experimental -> GPUOptions'Experimental -> Bool)
-> (GPUOptions'Experimental -> GPUOptions'Experimental -> Bool)
-> (GPUOptions'Experimental -> GPUOptions'Experimental -> Bool)
-> (GPUOptions'Experimental
-> GPUOptions'Experimental -> GPUOptions'Experimental)
-> (GPUOptions'Experimental
-> GPUOptions'Experimental -> GPUOptions'Experimental)
-> Ord GPUOptions'Experimental
GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
GPUOptions'Experimental -> GPUOptions'Experimental -> Ordering
GPUOptions'Experimental
-> GPUOptions'Experimental -> GPUOptions'Experimental
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 :: GPUOptions'Experimental
-> GPUOptions'Experimental -> GPUOptions'Experimental
$cmin :: GPUOptions'Experimental
-> GPUOptions'Experimental -> GPUOptions'Experimental
max :: GPUOptions'Experimental
-> GPUOptions'Experimental -> GPUOptions'Experimental
$cmax :: GPUOptions'Experimental
-> GPUOptions'Experimental -> GPUOptions'Experimental
>= :: GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
$c>= :: GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
> :: GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
$c> :: GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
<= :: GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
$c<= :: GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
< :: GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
$c< :: GPUOptions'Experimental -> GPUOptions'Experimental -> Bool
compare :: GPUOptions'Experimental -> GPUOptions'Experimental -> Ordering
$ccompare :: GPUOptions'Experimental -> GPUOptions'Experimental -> Ordering
$cp1Ord :: Eq GPUOptions'Experimental
Prelude.Ord)
instance Prelude.Show GPUOptions'Experimental where
showsPrec :: Int -> GPUOptions'Experimental -> ShowS
showsPrec _ __x :: GPUOptions'Experimental
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(GPUOptions'Experimental -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort GPUOptions'Experimental
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental "virtualDevices" [GPUOptions'Experimental'VirtualDevices] where
fieldOf :: Proxy# "virtualDevices"
-> ([GPUOptions'Experimental'VirtualDevices]
-> f [GPUOptions'Experimental'VirtualDevices])
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
fieldOf _
= ((Vector GPUOptions'Experimental'VirtualDevices
-> f (Vector GPUOptions'Experimental'VirtualDevices))
-> GPUOptions'Experimental -> f GPUOptions'Experimental)
-> (([GPUOptions'Experimental'VirtualDevices]
-> f [GPUOptions'Experimental'VirtualDevices])
-> Vector GPUOptions'Experimental'VirtualDevices
-> f (Vector GPUOptions'Experimental'VirtualDevices))
-> ([GPUOptions'Experimental'VirtualDevices]
-> f [GPUOptions'Experimental'VirtualDevices])
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental
-> Vector GPUOptions'Experimental'VirtualDevices)
-> (GPUOptions'Experimental
-> Vector GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental)
-> Lens
GPUOptions'Experimental
GPUOptions'Experimental
(Vector GPUOptions'Experimental'VirtualDevices)
(Vector GPUOptions'Experimental'VirtualDevices)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental
-> Vector GPUOptions'Experimental'VirtualDevices
_GPUOptions'Experimental'virtualDevices
(\ x__ :: GPUOptions'Experimental
x__ y__ :: Vector GPUOptions'Experimental'VirtualDevices
y__ -> GPUOptions'Experimental
x__ {_GPUOptions'Experimental'virtualDevices :: Vector GPUOptions'Experimental'VirtualDevices
_GPUOptions'Experimental'virtualDevices = Vector GPUOptions'Experimental'VirtualDevices
y__}))
((Vector GPUOptions'Experimental'VirtualDevices
-> [GPUOptions'Experimental'VirtualDevices])
-> (Vector GPUOptions'Experimental'VirtualDevices
-> [GPUOptions'Experimental'VirtualDevices]
-> Vector GPUOptions'Experimental'VirtualDevices)
-> Lens
(Vector GPUOptions'Experimental'VirtualDevices)
(Vector GPUOptions'Experimental'VirtualDevices)
[GPUOptions'Experimental'VirtualDevices]
[GPUOptions'Experimental'VirtualDevices]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector GPUOptions'Experimental'VirtualDevices
-> [GPUOptions'Experimental'VirtualDevices]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [GPUOptions'Experimental'VirtualDevices]
y__ -> [GPUOptions'Experimental'VirtualDevices]
-> Vector GPUOptions'Experimental'VirtualDevices
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [GPUOptions'Experimental'VirtualDevices]
y__))
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental "vec'virtualDevices" (Data.Vector.Vector GPUOptions'Experimental'VirtualDevices) where
fieldOf :: Proxy# "vec'virtualDevices"
-> (Vector GPUOptions'Experimental'VirtualDevices
-> f (Vector GPUOptions'Experimental'VirtualDevices))
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
fieldOf _
= ((Vector GPUOptions'Experimental'VirtualDevices
-> f (Vector GPUOptions'Experimental'VirtualDevices))
-> GPUOptions'Experimental -> f GPUOptions'Experimental)
-> ((Vector GPUOptions'Experimental'VirtualDevices
-> f (Vector GPUOptions'Experimental'VirtualDevices))
-> Vector GPUOptions'Experimental'VirtualDevices
-> f (Vector GPUOptions'Experimental'VirtualDevices))
-> (Vector GPUOptions'Experimental'VirtualDevices
-> f (Vector GPUOptions'Experimental'VirtualDevices))
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental
-> Vector GPUOptions'Experimental'VirtualDevices)
-> (GPUOptions'Experimental
-> Vector GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental)
-> Lens
GPUOptions'Experimental
GPUOptions'Experimental
(Vector GPUOptions'Experimental'VirtualDevices)
(Vector GPUOptions'Experimental'VirtualDevices)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental
-> Vector GPUOptions'Experimental'VirtualDevices
_GPUOptions'Experimental'virtualDevices
(\ x__ :: GPUOptions'Experimental
x__ y__ :: Vector GPUOptions'Experimental'VirtualDevices
y__ -> GPUOptions'Experimental
x__ {_GPUOptions'Experimental'virtualDevices :: Vector GPUOptions'Experimental'VirtualDevices
_GPUOptions'Experimental'virtualDevices = Vector GPUOptions'Experimental'VirtualDevices
y__}))
(Vector GPUOptions'Experimental'VirtualDevices
-> f (Vector GPUOptions'Experimental'VirtualDevices))
-> Vector GPUOptions'Experimental'VirtualDevices
-> f (Vector GPUOptions'Experimental'VirtualDevices)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental "useUnifiedMemory" Prelude.Bool where
fieldOf :: Proxy# "useUnifiedMemory"
-> (Bool -> f Bool)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
fieldOf _
= ((Bool -> f Bool)
-> GPUOptions'Experimental -> f GPUOptions'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental -> Bool)
-> (GPUOptions'Experimental -> Bool -> GPUOptions'Experimental)
-> Lens GPUOptions'Experimental GPUOptions'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental -> Bool
_GPUOptions'Experimental'useUnifiedMemory
(\ x__ :: GPUOptions'Experimental
x__ y__ :: Bool
y__
-> GPUOptions'Experimental
x__ {_GPUOptions'Experimental'useUnifiedMemory :: Bool
_GPUOptions'Experimental'useUnifiedMemory = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental "numDevToDevCopyStreams" Data.Int.Int32 where
fieldOf :: Proxy# "numDevToDevCopyStreams"
-> (Int32 -> f Int32)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
fieldOf _
= ((Int32 -> f Int32)
-> GPUOptions'Experimental -> f GPUOptions'Experimental)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental -> Int32)
-> (GPUOptions'Experimental -> Int32 -> GPUOptions'Experimental)
-> Lens GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental -> Int32
_GPUOptions'Experimental'numDevToDevCopyStreams
(\ x__ :: GPUOptions'Experimental
x__ y__ :: Int32
y__
-> GPUOptions'Experimental
x__ {_GPUOptions'Experimental'numDevToDevCopyStreams :: Int32
_GPUOptions'Experimental'numDevToDevCopyStreams = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental "collectiveRingOrder" Data.Text.Text where
fieldOf :: Proxy# "collectiveRingOrder"
-> (Text -> f Text)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
fieldOf _
= ((Text -> f Text)
-> GPUOptions'Experimental -> f GPUOptions'Experimental)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental -> Text)
-> (GPUOptions'Experimental -> Text -> GPUOptions'Experimental)
-> Lens GPUOptions'Experimental GPUOptions'Experimental Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental -> Text
_GPUOptions'Experimental'collectiveRingOrder
(\ x__ :: GPUOptions'Experimental
x__ y__ :: Text
y__
-> GPUOptions'Experimental
x__ {_GPUOptions'Experimental'collectiveRingOrder :: Text
_GPUOptions'Experimental'collectiveRingOrder = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental "timestampedAllocator" Prelude.Bool where
fieldOf :: Proxy# "timestampedAllocator"
-> (Bool -> f Bool)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
fieldOf _
= ((Bool -> f Bool)
-> GPUOptions'Experimental -> f GPUOptions'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental -> Bool)
-> (GPUOptions'Experimental -> Bool -> GPUOptions'Experimental)
-> Lens GPUOptions'Experimental GPUOptions'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental -> Bool
_GPUOptions'Experimental'timestampedAllocator
(\ x__ :: GPUOptions'Experimental
x__ y__ :: Bool
y__
-> GPUOptions'Experimental
x__ {_GPUOptions'Experimental'timestampedAllocator :: Bool
_GPUOptions'Experimental'timestampedAllocator = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental "kernelTrackerMaxInterval" Data.Int.Int32 where
fieldOf :: Proxy# "kernelTrackerMaxInterval"
-> (Int32 -> f Int32)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
fieldOf _
= ((Int32 -> f Int32)
-> GPUOptions'Experimental -> f GPUOptions'Experimental)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental -> Int32)
-> (GPUOptions'Experimental -> Int32 -> GPUOptions'Experimental)
-> Lens GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental -> Int32
_GPUOptions'Experimental'kernelTrackerMaxInterval
(\ x__ :: GPUOptions'Experimental
x__ y__ :: Int32
y__
-> GPUOptions'Experimental
x__ {_GPUOptions'Experimental'kernelTrackerMaxInterval :: Int32
_GPUOptions'Experimental'kernelTrackerMaxInterval = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental "kernelTrackerMaxBytes" Data.Int.Int32 where
fieldOf :: Proxy# "kernelTrackerMaxBytes"
-> (Int32 -> f Int32)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
fieldOf _
= ((Int32 -> f Int32)
-> GPUOptions'Experimental -> f GPUOptions'Experimental)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental -> Int32)
-> (GPUOptions'Experimental -> Int32 -> GPUOptions'Experimental)
-> Lens GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental -> Int32
_GPUOptions'Experimental'kernelTrackerMaxBytes
(\ x__ :: GPUOptions'Experimental
x__ y__ :: Int32
y__
-> GPUOptions'Experimental
x__ {_GPUOptions'Experimental'kernelTrackerMaxBytes :: Int32
_GPUOptions'Experimental'kernelTrackerMaxBytes = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental "kernelTrackerMaxPending" Data.Int.Int32 where
fieldOf :: Proxy# "kernelTrackerMaxPending"
-> (Int32 -> f Int32)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
fieldOf _
= ((Int32 -> f Int32)
-> GPUOptions'Experimental -> f GPUOptions'Experimental)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> GPUOptions'Experimental
-> f GPUOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental -> Int32)
-> (GPUOptions'Experimental -> Int32 -> GPUOptions'Experimental)
-> Lens GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental -> Int32
_GPUOptions'Experimental'kernelTrackerMaxPending
(\ x__ :: GPUOptions'Experimental
x__ y__ :: Int32
y__
-> GPUOptions'Experimental
x__ {_GPUOptions'Experimental'kernelTrackerMaxPending :: Int32
_GPUOptions'Experimental'kernelTrackerMaxPending = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message GPUOptions'Experimental where
messageName :: Proxy GPUOptions'Experimental -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.GPUOptions.Experimental"
packedMessageDescriptor :: Proxy GPUOptions'Experimental -> ByteString
packedMessageDescriptor _
= "\n\
\\fExperimental\DC2[\n\
\\SIvirtual_devices\CAN\SOH \ETX(\v22.tensorflow.GPUOptions.Experimental.VirtualDevicesR\SOvirtualDevices\DC2,\n\
\\DC2use_unified_memory\CAN\STX \SOH(\bR\DLEuseUnifiedMemory\DC2;\n\
\\ESCnum_dev_to_dev_copy_streams\CAN\ETX \SOH(\ENQR\SYNnumDevToDevCopyStreams\DC22\n\
\\NAKcollective_ring_order\CAN\EOT \SOH(\tR\DC3collectiveRingOrder\DC23\n\
\\NAKtimestamped_allocator\CAN\ENQ \SOH(\bR\DC4timestampedAllocator\DC2=\n\
\\ESCkernel_tracker_max_interval\CAN\a \SOH(\ENQR\CANkernelTrackerMaxInterval\DC27\n\
\\CANkernel_tracker_max_bytes\CAN\b \SOH(\ENQR\NAKkernelTrackerMaxBytes\DC2;\n\
\\SUBkernel_tracker_max_pending\CAN\t \SOH(\ENQR\ETBkernelTrackerMaxPending\SUBT\n\
\\SOVirtualDevices\DC2&\n\
\\SImemory_limit_mb\CAN\SOH \ETX(\STXR\rmemoryLimitMb\DC2\SUB\n\
\\bpriority\CAN\STX \ETX(\ENQR\bpriority"
packedFileDescriptor :: Proxy GPUOptions'Experimental -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor GPUOptions'Experimental)
fieldsByTag
= let
virtualDevices__field_descriptor :: FieldDescriptor GPUOptions'Experimental
virtualDevices__field_descriptor
= String
-> FieldTypeDescriptor GPUOptions'Experimental'VirtualDevices
-> FieldAccessor
GPUOptions'Experimental GPUOptions'Experimental'VirtualDevices
-> FieldDescriptor GPUOptions'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"virtual_devices"
(MessageOrGroup
-> FieldTypeDescriptor GPUOptions'Experimental'VirtualDevices
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor GPUOptions'Experimental'VirtualDevices)
(Packing
-> Lens'
GPUOptions'Experimental [GPUOptions'Experimental'VirtualDevices]
-> FieldAccessor
GPUOptions'Experimental GPUOptions'Experimental'VirtualDevices
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "virtualDevices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"virtualDevices")) ::
Data.ProtoLens.FieldDescriptor GPUOptions'Experimental
useUnifiedMemory__field_descriptor :: FieldDescriptor GPUOptions'Experimental
useUnifiedMemory__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor GPUOptions'Experimental Bool
-> FieldDescriptor GPUOptions'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"use_unified_memory"
(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 GPUOptions'Experimental GPUOptions'Experimental Bool Bool
-> FieldAccessor GPUOptions'Experimental 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 "useUnifiedMemory" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"useUnifiedMemory")) ::
Data.ProtoLens.FieldDescriptor GPUOptions'Experimental
numDevToDevCopyStreams__field_descriptor :: FieldDescriptor GPUOptions'Experimental
numDevToDevCopyStreams__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor GPUOptions'Experimental Int32
-> FieldDescriptor GPUOptions'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"num_dev_to_dev_copy_streams"
(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 GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
-> FieldAccessor GPUOptions'Experimental 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 "numDevToDevCopyStreams" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numDevToDevCopyStreams")) ::
Data.ProtoLens.FieldDescriptor GPUOptions'Experimental
collectiveRingOrder__field_descriptor :: FieldDescriptor GPUOptions'Experimental
collectiveRingOrder__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor GPUOptions'Experimental Text
-> FieldDescriptor GPUOptions'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"collective_ring_order"
(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 GPUOptions'Experimental GPUOptions'Experimental Text Text
-> FieldAccessor GPUOptions'Experimental 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 "collectiveRingOrder" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectiveRingOrder")) ::
Data.ProtoLens.FieldDescriptor GPUOptions'Experimental
timestampedAllocator__field_descriptor :: FieldDescriptor GPUOptions'Experimental
timestampedAllocator__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor GPUOptions'Experimental Bool
-> FieldDescriptor GPUOptions'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"timestamped_allocator"
(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 GPUOptions'Experimental GPUOptions'Experimental Bool Bool
-> FieldAccessor GPUOptions'Experimental 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 "timestampedAllocator" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timestampedAllocator")) ::
Data.ProtoLens.FieldDescriptor GPUOptions'Experimental
kernelTrackerMaxInterval__field_descriptor :: FieldDescriptor GPUOptions'Experimental
kernelTrackerMaxInterval__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor GPUOptions'Experimental Int32
-> FieldDescriptor GPUOptions'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"kernel_tracker_max_interval"
(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 GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
-> FieldAccessor GPUOptions'Experimental 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 "kernelTrackerMaxInterval" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelTrackerMaxInterval")) ::
Data.ProtoLens.FieldDescriptor GPUOptions'Experimental
kernelTrackerMaxBytes__field_descriptor :: FieldDescriptor GPUOptions'Experimental
kernelTrackerMaxBytes__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor GPUOptions'Experimental Int32
-> FieldDescriptor GPUOptions'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"kernel_tracker_max_bytes"
(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 GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
-> FieldAccessor GPUOptions'Experimental 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 "kernelTrackerMaxBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelTrackerMaxBytes")) ::
Data.ProtoLens.FieldDescriptor GPUOptions'Experimental
kernelTrackerMaxPending__field_descriptor :: FieldDescriptor GPUOptions'Experimental
kernelTrackerMaxPending__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor GPUOptions'Experimental Int32
-> FieldDescriptor GPUOptions'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"kernel_tracker_max_pending"
(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 GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
-> FieldAccessor GPUOptions'Experimental 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 "kernelTrackerMaxPending" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelTrackerMaxPending")) ::
Data.ProtoLens.FieldDescriptor GPUOptions'Experimental
in
[(Tag, FieldDescriptor GPUOptions'Experimental)]
-> Map Tag (FieldDescriptor GPUOptions'Experimental)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor GPUOptions'Experimental
virtualDevices__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor GPUOptions'Experimental
useUnifiedMemory__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor GPUOptions'Experimental
numDevToDevCopyStreams__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor GPUOptions'Experimental
collectiveRingOrder__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor GPUOptions'Experimental
timestampedAllocator__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor GPUOptions'Experimental
kernelTrackerMaxInterval__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor GPUOptions'Experimental
kernelTrackerMaxBytes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor GPUOptions'Experimental
kernelTrackerMaxPending__field_descriptor)]
unknownFields :: LensLike' f GPUOptions'Experimental FieldSet
unknownFields
= (GPUOptions'Experimental -> FieldSet)
-> (GPUOptions'Experimental -> FieldSet -> GPUOptions'Experimental)
-> Lens' GPUOptions'Experimental FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental -> FieldSet
_GPUOptions'Experimental'_unknownFields
(\ x__ :: GPUOptions'Experimental
x__ y__ :: FieldSet
y__ -> GPUOptions'Experimental
x__ {_GPUOptions'Experimental'_unknownFields :: FieldSet
_GPUOptions'Experimental'_unknownFields = FieldSet
y__})
defMessage :: GPUOptions'Experimental
defMessage
= $WGPUOptions'Experimental'_constructor :: Vector GPUOptions'Experimental'VirtualDevices
-> Bool
-> Int32
-> Text
-> Bool
-> Int32
-> Int32
-> Int32
-> FieldSet
-> GPUOptions'Experimental
GPUOptions'Experimental'_constructor
{_GPUOptions'Experimental'virtualDevices :: Vector GPUOptions'Experimental'VirtualDevices
_GPUOptions'Experimental'virtualDevices = Vector GPUOptions'Experimental'VirtualDevices
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_GPUOptions'Experimental'useUnifiedMemory :: Bool
_GPUOptions'Experimental'useUnifiedMemory = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'Experimental'numDevToDevCopyStreams :: Int32
_GPUOptions'Experimental'numDevToDevCopyStreams = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'Experimental'collectiveRingOrder :: Text
_GPUOptions'Experimental'collectiveRingOrder = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'Experimental'timestampedAllocator :: Bool
_GPUOptions'Experimental'timestampedAllocator = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'Experimental'kernelTrackerMaxInterval :: Int32
_GPUOptions'Experimental'kernelTrackerMaxInterval = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'Experimental'kernelTrackerMaxBytes :: Int32
_GPUOptions'Experimental'kernelTrackerMaxBytes = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'Experimental'kernelTrackerMaxPending :: Int32
_GPUOptions'Experimental'kernelTrackerMaxPending = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GPUOptions'Experimental'_unknownFields :: FieldSet
_GPUOptions'Experimental'_unknownFields = []}
parseMessage :: Parser GPUOptions'Experimental
parseMessage
= let
loop ::
GPUOptions'Experimental
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld GPUOptions'Experimental'VirtualDevices
-> Data.ProtoLens.Encoding.Bytes.Parser GPUOptions'Experimental
loop :: GPUOptions'Experimental
-> Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental
loop x :: GPUOptions'Experimental
x mutable'virtualDevices :: Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector GPUOptions'Experimental'VirtualDevices
frozen'virtualDevices <- IO (Vector GPUOptions'Experimental'VirtualDevices)
-> Parser (Vector GPUOptions'Experimental'VirtualDevices)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing
Vector (PrimState IO) GPUOptions'Experimental'VirtualDevices
-> IO (Vector GPUOptions'Experimental'VirtualDevices)
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 GPUOptions'Experimental'VirtualDevices
Growing
Vector (PrimState IO) GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices)
(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]))))
GPUOptions'Experimental -> Parser GPUOptions'Experimental
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
GPUOptions'Experimental GPUOptions'Experimental FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> GPUOptions'Experimental
-> GPUOptions'Experimental
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
GPUOptions'Experimental GPUOptions'Experimental FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
GPUOptions'Experimental
GPUOptions'Experimental
(Vector GPUOptions'Experimental'VirtualDevices)
(Vector GPUOptions'Experimental'VirtualDevices)
-> Vector GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental
-> GPUOptions'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'virtualDevices" a, Functor f) =>
(a -> f a) -> s -> 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'virtualDevices")
Vector GPUOptions'Experimental'VirtualDevices
frozen'virtualDevices
GPUOptions'Experimental
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !GPUOptions'Experimental'VirtualDevices
y <- Parser GPUOptions'Experimental'VirtualDevices
-> String -> Parser GPUOptions'Experimental'VirtualDevices
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental'VirtualDevices
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 GPUOptions'Experimental'VirtualDevices
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"virtual_devices"
Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
v <- IO
(Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices)
-> Parser
(Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing
Vector (PrimState IO) GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
-> IO
(Growing
Vector (PrimState IO) GPUOptions'Experimental'VirtualDevices)
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 GPUOptions'Experimental'VirtualDevices
Growing
Vector (PrimState IO) GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices GPUOptions'Experimental'VirtualDevices
y)
GPUOptions'Experimental
-> Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental
loop GPUOptions'Experimental
x Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
v
16
-> 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)
"use_unified_memory"
GPUOptions'Experimental
-> Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental
loop
(Setter GPUOptions'Experimental GPUOptions'Experimental Bool Bool
-> Bool -> GPUOptions'Experimental -> GPUOptions'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "useUnifiedMemory" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"useUnifiedMemory") Bool
y GPUOptions'Experimental
x)
Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices
24
-> 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)
"num_dev_to_dev_copy_streams"
GPUOptions'Experimental
-> Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental
loop
(Setter GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
-> Int32 -> GPUOptions'Experimental -> GPUOptions'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "numDevToDevCopyStreams" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numDevToDevCopyStreams") Int32
y GPUOptions'Experimental
x)
Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices
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))
"collective_ring_order"
GPUOptions'Experimental
-> Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental
loop
(Setter GPUOptions'Experimental GPUOptions'Experimental Text Text
-> Text -> GPUOptions'Experimental -> GPUOptions'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "collectiveRingOrder" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectiveRingOrder") Text
y GPUOptions'Experimental
x)
Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices
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)
"timestamped_allocator"
GPUOptions'Experimental
-> Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental
loop
(Setter GPUOptions'Experimental GPUOptions'Experimental Bool Bool
-> Bool -> GPUOptions'Experimental -> GPUOptions'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "timestampedAllocator" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timestampedAllocator") Bool
y GPUOptions'Experimental
x)
Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices
56
-> 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)
"kernel_tracker_max_interval"
GPUOptions'Experimental
-> Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental
loop
(Setter GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
-> Int32 -> GPUOptions'Experimental -> GPUOptions'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "kernelTrackerMaxInterval" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelTrackerMaxInterval") Int32
y GPUOptions'Experimental
x)
Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices
64
-> 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)
"kernel_tracker_max_bytes"
GPUOptions'Experimental
-> Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental
loop
(Setter GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
-> Int32 -> GPUOptions'Experimental -> GPUOptions'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "kernelTrackerMaxBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelTrackerMaxBytes") Int32
y GPUOptions'Experimental
x)
Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices
72
-> 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)
"kernel_tracker_max_pending"
GPUOptions'Experimental
-> Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental
loop
(Setter GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
-> Int32 -> GPUOptions'Experimental -> GPUOptions'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "kernelTrackerMaxPending" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelTrackerMaxPending") Int32
y GPUOptions'Experimental
x)
Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
GPUOptions'Experimental
-> Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental
loop
(Setter
GPUOptions'Experimental GPUOptions'Experimental FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> GPUOptions'Experimental
-> GPUOptions'Experimental
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
GPUOptions'Experimental GPUOptions'Experimental FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) GPUOptions'Experimental
x)
Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices
in
Parser GPUOptions'Experimental
-> String -> Parser GPUOptions'Experimental
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices <- IO
(Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices)
-> Parser
(Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO
(Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
GPUOptions'Experimental
-> Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental
loop GPUOptions'Experimental
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld GPUOptions'Experimental'VirtualDevices
mutable'virtualDevices)
"Experimental"
buildMessage :: GPUOptions'Experimental -> Builder
buildMessage
= \ _x :: GPUOptions'Experimental
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((GPUOptions'Experimental'VirtualDevices -> Builder)
-> Vector GPUOptions'Experimental'VirtualDevices -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: GPUOptions'Experimental'VirtualDevices
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (GPUOptions'Experimental'VirtualDevices -> ByteString)
-> GPUOptions'Experimental'VirtualDevices
-> 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))
GPUOptions'Experimental'VirtualDevices -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
GPUOptions'Experimental'VirtualDevices
_v))
(FoldLike
(Vector GPUOptions'Experimental'VirtualDevices)
GPUOptions'Experimental
GPUOptions'Experimental
(Vector GPUOptions'Experimental'VirtualDevices)
(Vector GPUOptions'Experimental'VirtualDevices)
-> GPUOptions'Experimental
-> Vector GPUOptions'Experimental'VirtualDevices
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'virtualDevices" a, Functor f) =>
(a -> f a) -> s -> 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'virtualDevices") GPUOptions'Experimental
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike
Bool GPUOptions'Experimental GPUOptions'Experimental Bool Bool
-> GPUOptions'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "useUnifiedMemory" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"useUnifiedMemory") GPUOptions'Experimental
_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 16)
((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 :: Int32
_v
= FoldLike
Int32 GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
-> GPUOptions'Experimental -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "numDevToDevCopyStreams" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numDevToDevCopyStreams") GPUOptions'Experimental
_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 24)
((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 GPUOptions'Experimental GPUOptions'Experimental Text Text
-> GPUOptions'Experimental -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "collectiveRingOrder" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectiveRingOrder") GPUOptions'Experimental
_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 GPUOptions'Experimental GPUOptions'Experimental Bool Bool
-> GPUOptions'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "timestampedAllocator" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timestampedAllocator") GPUOptions'Experimental
_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 :: Int32
_v
= FoldLike
Int32 GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
-> GPUOptions'Experimental -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "kernelTrackerMaxInterval" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelTrackerMaxInterval") GPUOptions'Experimental
_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 56)
((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 :: Int32
_v
= FoldLike
Int32 GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
-> GPUOptions'Experimental -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "kernelTrackerMaxBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelTrackerMaxBytes") GPUOptions'Experimental
_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 64)
((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 :: Int32
_v
= FoldLike
Int32 GPUOptions'Experimental GPUOptions'Experimental Int32 Int32
-> GPUOptions'Experimental -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "kernelTrackerMaxPending" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelTrackerMaxPending")
GPUOptions'Experimental
_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 72)
((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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
GPUOptions'Experimental
GPUOptions'Experimental
FieldSet
FieldSet
-> GPUOptions'Experimental -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
GPUOptions'Experimental
GPUOptions'Experimental
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields GPUOptions'Experimental
_x)))))))))
instance Control.DeepSeq.NFData GPUOptions'Experimental where
rnf :: GPUOptions'Experimental -> ()
rnf
= \ x__ :: GPUOptions'Experimental
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions'Experimental -> FieldSet
_GPUOptions'Experimental'_unknownFields GPUOptions'Experimental
x__)
(Vector GPUOptions'Experimental'VirtualDevices -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions'Experimental
-> Vector GPUOptions'Experimental'VirtualDevices
_GPUOptions'Experimental'virtualDevices GPUOptions'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions'Experimental -> Bool
_GPUOptions'Experimental'useUnifiedMemory GPUOptions'Experimental
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions'Experimental -> Int32
_GPUOptions'Experimental'numDevToDevCopyStreams GPUOptions'Experimental
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions'Experimental -> Text
_GPUOptions'Experimental'collectiveRingOrder GPUOptions'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions'Experimental -> Bool
_GPUOptions'Experimental'timestampedAllocator GPUOptions'Experimental
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions'Experimental -> Int32
_GPUOptions'Experimental'kernelTrackerMaxInterval GPUOptions'Experimental
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions'Experimental -> Int32
_GPUOptions'Experimental'kernelTrackerMaxBytes GPUOptions'Experimental
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions'Experimental -> Int32
_GPUOptions'Experimental'kernelTrackerMaxPending GPUOptions'Experimental
x__)
()))))))))
data GPUOptions'Experimental'VirtualDevices
= GPUOptions'Experimental'VirtualDevices'_constructor {GPUOptions'Experimental'VirtualDevices -> Vector Float
_GPUOptions'Experimental'VirtualDevices'memoryLimitMb :: !(Data.Vector.Unboxed.Vector Prelude.Float),
GPUOptions'Experimental'VirtualDevices -> Vector Int32
_GPUOptions'Experimental'VirtualDevices'priority :: !(Data.Vector.Unboxed.Vector Data.Int.Int32),
GPUOptions'Experimental'VirtualDevices -> FieldSet
_GPUOptions'Experimental'VirtualDevices'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
(GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool)
-> (GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool)
-> Eq GPUOptions'Experimental'VirtualDevices
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
$c/= :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
== :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
$c== :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
Prelude.Eq, Eq GPUOptions'Experimental'VirtualDevices
Eq GPUOptions'Experimental'VirtualDevices =>
(GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Ordering)
-> (GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool)
-> (GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool)
-> (GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool)
-> (GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool)
-> (GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices)
-> (GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices)
-> Ord GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Ordering
GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
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 :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
$cmin :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
max :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
$cmax :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
>= :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
$c>= :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
> :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
$c> :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
<= :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
$c<= :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
< :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
$c< :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Bool
compare :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Ordering
$ccompare :: GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices -> Ordering
$cp1Ord :: Eq GPUOptions'Experimental'VirtualDevices
Prelude.Ord)
instance Prelude.Show GPUOptions'Experimental'VirtualDevices where
showsPrec :: Int -> GPUOptions'Experimental'VirtualDevices -> ShowS
showsPrec _ __x :: GPUOptions'Experimental'VirtualDevices
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(GPUOptions'Experimental'VirtualDevices -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort GPUOptions'Experimental'VirtualDevices
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental'VirtualDevices "memoryLimitMb" [Prelude.Float] where
fieldOf :: Proxy# "memoryLimitMb"
-> ([Float] -> f [Float])
-> GPUOptions'Experimental'VirtualDevices
-> f GPUOptions'Experimental'VirtualDevices
fieldOf _
= ((Vector Float -> f (Vector Float))
-> GPUOptions'Experimental'VirtualDevices
-> f GPUOptions'Experimental'VirtualDevices)
-> (([Float] -> f [Float]) -> Vector Float -> f (Vector Float))
-> ([Float] -> f [Float])
-> GPUOptions'Experimental'VirtualDevices
-> f GPUOptions'Experimental'VirtualDevices
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental'VirtualDevices -> Vector Float)
-> (GPUOptions'Experimental'VirtualDevices
-> Vector Float -> GPUOptions'Experimental'VirtualDevices)
-> Lens
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
(Vector Float)
(Vector Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental'VirtualDevices -> Vector Float
_GPUOptions'Experimental'VirtualDevices'memoryLimitMb
(\ x__ :: GPUOptions'Experimental'VirtualDevices
x__ y__ :: Vector Float
y__
-> GPUOptions'Experimental'VirtualDevices
x__
{_GPUOptions'Experimental'VirtualDevices'memoryLimitMb :: Vector Float
_GPUOptions'Experimental'VirtualDevices'memoryLimitMb = Vector Float
y__}))
((Vector Float -> [Float])
-> (Vector Float -> [Float] -> Vector Float)
-> Lens (Vector Float) (Vector Float) [Float] [Float]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Float -> [Float]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Float]
y__ -> [Float] -> Vector Float
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Float]
y__))
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental'VirtualDevices "vec'memoryLimitMb" (Data.Vector.Unboxed.Vector Prelude.Float) where
fieldOf :: Proxy# "vec'memoryLimitMb"
-> (Vector Float -> f (Vector Float))
-> GPUOptions'Experimental'VirtualDevices
-> f GPUOptions'Experimental'VirtualDevices
fieldOf _
= ((Vector Float -> f (Vector Float))
-> GPUOptions'Experimental'VirtualDevices
-> f GPUOptions'Experimental'VirtualDevices)
-> ((Vector Float -> f (Vector Float))
-> Vector Float -> f (Vector Float))
-> (Vector Float -> f (Vector Float))
-> GPUOptions'Experimental'VirtualDevices
-> f GPUOptions'Experimental'VirtualDevices
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental'VirtualDevices -> Vector Float)
-> (GPUOptions'Experimental'VirtualDevices
-> Vector Float -> GPUOptions'Experimental'VirtualDevices)
-> Lens
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
(Vector Float)
(Vector Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental'VirtualDevices -> Vector Float
_GPUOptions'Experimental'VirtualDevices'memoryLimitMb
(\ x__ :: GPUOptions'Experimental'VirtualDevices
x__ y__ :: Vector Float
y__
-> GPUOptions'Experimental'VirtualDevices
x__
{_GPUOptions'Experimental'VirtualDevices'memoryLimitMb :: Vector Float
_GPUOptions'Experimental'VirtualDevices'memoryLimitMb = Vector Float
y__}))
(Vector Float -> f (Vector Float))
-> Vector Float -> f (Vector Float)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental'VirtualDevices "priority" [Data.Int.Int32] where
fieldOf :: Proxy# "priority"
-> ([Int32] -> f [Int32])
-> GPUOptions'Experimental'VirtualDevices
-> f GPUOptions'Experimental'VirtualDevices
fieldOf _
= ((Vector Int32 -> f (Vector Int32))
-> GPUOptions'Experimental'VirtualDevices
-> f GPUOptions'Experimental'VirtualDevices)
-> (([Int32] -> f [Int32]) -> Vector Int32 -> f (Vector Int32))
-> ([Int32] -> f [Int32])
-> GPUOptions'Experimental'VirtualDevices
-> f GPUOptions'Experimental'VirtualDevices
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental'VirtualDevices -> Vector Int32)
-> (GPUOptions'Experimental'VirtualDevices
-> Vector Int32 -> GPUOptions'Experimental'VirtualDevices)
-> Lens
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
(Vector Int32)
(Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental'VirtualDevices -> Vector Int32
_GPUOptions'Experimental'VirtualDevices'priority
(\ x__ :: GPUOptions'Experimental'VirtualDevices
x__ y__ :: Vector Int32
y__
-> GPUOptions'Experimental'VirtualDevices
x__ {_GPUOptions'Experimental'VirtualDevices'priority :: Vector Int32
_GPUOptions'Experimental'VirtualDevices'priority = Vector Int32
y__}))
((Vector Int32 -> [Int32])
-> (Vector Int32 -> [Int32] -> Vector Int32)
-> Lens (Vector Int32) (Vector Int32) [Int32] [Int32]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Int32 -> [Int32]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Int32]
y__ -> [Int32] -> Vector Int32
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int32]
y__))
instance Data.ProtoLens.Field.HasField GPUOptions'Experimental'VirtualDevices "vec'priority" (Data.Vector.Unboxed.Vector Data.Int.Int32) where
fieldOf :: Proxy# "vec'priority"
-> (Vector Int32 -> f (Vector Int32))
-> GPUOptions'Experimental'VirtualDevices
-> f GPUOptions'Experimental'VirtualDevices
fieldOf _
= ((Vector Int32 -> f (Vector Int32))
-> GPUOptions'Experimental'VirtualDevices
-> f GPUOptions'Experimental'VirtualDevices)
-> ((Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32))
-> (Vector Int32 -> f (Vector Int32))
-> GPUOptions'Experimental'VirtualDevices
-> f GPUOptions'Experimental'VirtualDevices
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GPUOptions'Experimental'VirtualDevices -> Vector Int32)
-> (GPUOptions'Experimental'VirtualDevices
-> Vector Int32 -> GPUOptions'Experimental'VirtualDevices)
-> Lens
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
(Vector Int32)
(Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental'VirtualDevices -> Vector Int32
_GPUOptions'Experimental'VirtualDevices'priority
(\ x__ :: GPUOptions'Experimental'VirtualDevices
x__ y__ :: Vector Int32
y__
-> GPUOptions'Experimental'VirtualDevices
x__ {_GPUOptions'Experimental'VirtualDevices'priority :: Vector Int32
_GPUOptions'Experimental'VirtualDevices'priority = Vector Int32
y__}))
(Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message GPUOptions'Experimental'VirtualDevices where
messageName :: Proxy GPUOptions'Experimental'VirtualDevices -> Text
messageName _
= String -> Text
Data.Text.pack
"tensorflow.GPUOptions.Experimental.VirtualDevices"
packedMessageDescriptor :: Proxy GPUOptions'Experimental'VirtualDevices -> ByteString
packedMessageDescriptor _
= "\n\
\\SOVirtualDevices\DC2&\n\
\\SImemory_limit_mb\CAN\SOH \ETX(\STXR\rmemoryLimitMb\DC2\SUB\n\
\\bpriority\CAN\STX \ETX(\ENQR\bpriority"
packedFileDescriptor :: Proxy GPUOptions'Experimental'VirtualDevices -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor GPUOptions'Experimental'VirtualDevices)
fieldsByTag
= let
memoryLimitMb__field_descriptor :: FieldDescriptor GPUOptions'Experimental'VirtualDevices
memoryLimitMb__field_descriptor
= String
-> FieldTypeDescriptor Float
-> FieldAccessor GPUOptions'Experimental'VirtualDevices Float
-> FieldDescriptor GPUOptions'Experimental'VirtualDevices
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"memory_limit_mb"
(ScalarField Float -> FieldTypeDescriptor Float
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Float
Data.ProtoLens.FloatField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Float)
(Packing
-> Lens' GPUOptions'Experimental'VirtualDevices [Float]
-> FieldAccessor GPUOptions'Experimental'VirtualDevices Float
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall s a (f :: * -> *).
(HasField s "memoryLimitMb" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"memoryLimitMb")) ::
Data.ProtoLens.FieldDescriptor GPUOptions'Experimental'VirtualDevices
priority__field_descriptor :: FieldDescriptor GPUOptions'Experimental'VirtualDevices
priority__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor GPUOptions'Experimental'VirtualDevices Int32
-> FieldDescriptor GPUOptions'Experimental'VirtualDevices
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"priority"
(ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Packing
-> Lens' GPUOptions'Experimental'VirtualDevices [Int32]
-> FieldAccessor GPUOptions'Experimental'VirtualDevices Int32
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "priority" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"priority")) ::
Data.ProtoLens.FieldDescriptor GPUOptions'Experimental'VirtualDevices
in
[(Tag, FieldDescriptor GPUOptions'Experimental'VirtualDevices)]
-> Map Tag (FieldDescriptor GPUOptions'Experimental'VirtualDevices)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor GPUOptions'Experimental'VirtualDevices
memoryLimitMb__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor GPUOptions'Experimental'VirtualDevices
priority__field_descriptor)]
unknownFields :: LensLike' f GPUOptions'Experimental'VirtualDevices FieldSet
unknownFields
= (GPUOptions'Experimental'VirtualDevices -> FieldSet)
-> (GPUOptions'Experimental'VirtualDevices
-> FieldSet -> GPUOptions'Experimental'VirtualDevices)
-> Lens' GPUOptions'Experimental'VirtualDevices FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GPUOptions'Experimental'VirtualDevices -> FieldSet
_GPUOptions'Experimental'VirtualDevices'_unknownFields
(\ x__ :: GPUOptions'Experimental'VirtualDevices
x__ y__ :: FieldSet
y__
-> GPUOptions'Experimental'VirtualDevices
x__
{_GPUOptions'Experimental'VirtualDevices'_unknownFields :: FieldSet
_GPUOptions'Experimental'VirtualDevices'_unknownFields = FieldSet
y__})
defMessage :: GPUOptions'Experimental'VirtualDevices
defMessage
= $WGPUOptions'Experimental'VirtualDevices'_constructor :: Vector Float
-> Vector Int32
-> FieldSet
-> GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices'_constructor
{_GPUOptions'Experimental'VirtualDevices'memoryLimitMb :: Vector Float
_GPUOptions'Experimental'VirtualDevices'memoryLimitMb = Vector Float
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_GPUOptions'Experimental'VirtualDevices'priority :: Vector Int32
_GPUOptions'Experimental'VirtualDevices'priority = Vector Int32
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_GPUOptions'Experimental'VirtualDevices'_unknownFields :: FieldSet
_GPUOptions'Experimental'VirtualDevices'_unknownFields = []}
parseMessage :: Parser GPUOptions'Experimental'VirtualDevices
parseMessage
= let
loop ::
GPUOptions'Experimental'VirtualDevices
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Float
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int32
-> Data.ProtoLens.Encoding.Bytes.Parser GPUOptions'Experimental'VirtualDevices
loop :: GPUOptions'Experimental'VirtualDevices
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Parser GPUOptions'Experimental'VirtualDevices
loop x :: GPUOptions'Experimental'VirtualDevices
x mutable'memoryLimitMb :: Growing Vector RealWorld Float
mutable'memoryLimitMb mutable'priority :: Growing Vector RealWorld Int32
mutable'priority
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Float
frozen'memoryLimitMb <- IO (Vector Float) -> Parser (Vector Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Float -> IO (Vector Float)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Float
Growing Vector (PrimState IO) Float
mutable'memoryLimitMb)
Vector Int32
frozen'priority <- IO (Vector Int32) -> Parser (Vector Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int32 -> IO (Vector Int32)
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 Int32
Growing Vector (PrimState IO) Int32
mutable'priority)
(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]))))
GPUOptions'Experimental'VirtualDevices
-> Parser GPUOptions'Experimental'VirtualDevices
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
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
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
FieldSet
FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
(Vector Float)
(Vector Float)
-> Vector Float
-> GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'memoryLimitMb" a, Functor f) =>
(a -> f a) -> s -> 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'memoryLimitMb")
Vector Float
frozen'memoryLimitMb
(Setter
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
(Vector Int32)
(Vector Int32)
-> Vector Int32
-> GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'priority" a, Functor f) =>
(a -> f a) -> s -> 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'priority") Vector Int32
frozen'priority GPUOptions'Experimental'VirtualDevices
x)))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
13
-> do !Float
y <- Parser Float -> String -> Parser Float
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word32 -> Float) -> Parser Word32 -> Parser Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word32 -> Float
Data.ProtoLens.Encoding.Bytes.wordToFloat
Parser Word32
Data.ProtoLens.Encoding.Bytes.getFixed32)
"memory_limit_mb"
Growing Vector RealWorld Float
v <- IO (Growing Vector RealWorld Float)
-> Parser (Growing Vector RealWorld Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Float
-> Float -> IO (Growing Vector (PrimState IO) Float)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld Float
Growing Vector (PrimState IO) Float
mutable'memoryLimitMb Float
y)
GPUOptions'Experimental'VirtualDevices
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Parser GPUOptions'Experimental'VirtualDevices
loop GPUOptions'Experimental'VirtualDevices
x Growing Vector RealWorld Float
v Growing Vector RealWorld Int32
mutable'priority
10
-> do Growing Vector RealWorld Float
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Float)
-> Parser (Growing Vector RealWorld Float)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld Float -> Parser (Growing v RealWorld Float)
ploop qs :: Growing v RealWorld Float
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Float -> Parser (Growing v RealWorld Float)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Float
qs
else
do !Float
q <- Parser Float -> String -> Parser Float
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word32 -> Float) -> Parser Word32 -> Parser Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word32 -> Float
Data.ProtoLens.Encoding.Bytes.wordToFloat
Parser Word32
Data.ProtoLens.Encoding.Bytes.getFixed32)
"memory_limit_mb"
Growing v RealWorld Float
qs' <- IO (Growing v RealWorld Float)
-> Parser (Growing v RealWorld Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Float
-> Float -> IO (Growing v (PrimState IO) Float)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld Float
Growing v (PrimState IO) Float
qs Float
q)
Growing v RealWorld Float -> Parser (Growing v RealWorld Float)
ploop Growing v RealWorld Float
qs'
in forall (v :: * -> *).
Vector v Float =>
Growing v RealWorld Float -> Parser (Growing v RealWorld Float)
ploop)
Growing Vector RealWorld Float
mutable'memoryLimitMb)
GPUOptions'Experimental'VirtualDevices
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Parser GPUOptions'Experimental'VirtualDevices
loop GPUOptions'Experimental'VirtualDevices
x Growing Vector RealWorld Float
y Growing Vector RealWorld Int32
mutable'priority
16
-> 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)
"priority"
Growing Vector RealWorld Int32
v <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int32
-> Int32 -> IO (Growing Vector (PrimState IO) Int32)
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 Int32
Growing Vector (PrimState IO) Int32
mutable'priority Int32
y)
GPUOptions'Experimental'VirtualDevices
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Parser GPUOptions'Experimental'VirtualDevices
loop GPUOptions'Experimental'VirtualDevices
x Growing Vector RealWorld Float
mutable'memoryLimitMb Growing Vector RealWorld Int32
v
18
-> do Growing Vector RealWorld Int32
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop qs :: Growing v RealWorld a
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
else
do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> a) -> Parser Word64 -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> a
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"priority"
Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld a
Growing v (PrimState IO) a
qs a
q)
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
in forall a (v :: * -> *).
(Num a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
Growing Vector RealWorld Int32
mutable'priority)
GPUOptions'Experimental'VirtualDevices
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Parser GPUOptions'Experimental'VirtualDevices
loop GPUOptions'Experimental'VirtualDevices
x Growing Vector RealWorld Float
mutable'memoryLimitMb Growing Vector RealWorld Int32
y
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
GPUOptions'Experimental'VirtualDevices
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Parser GPUOptions'Experimental'VirtualDevices
loop
(Setter
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> GPUOptions'Experimental'VirtualDevices
-> GPUOptions'Experimental'VirtualDevices
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
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) GPUOptions'Experimental'VirtualDevices
x)
Growing Vector RealWorld Float
mutable'memoryLimitMb
Growing Vector RealWorld Int32
mutable'priority
in
Parser GPUOptions'Experimental'VirtualDevices
-> String -> Parser GPUOptions'Experimental'VirtualDevices
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Float
mutable'memoryLimitMb <- IO (Growing Vector RealWorld Float)
-> Parser (Growing Vector RealWorld Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Float)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Int32
mutable'priority <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
GPUOptions'Experimental'VirtualDevices
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Parser GPUOptions'Experimental'VirtualDevices
loop
GPUOptions'Experimental'VirtualDevices
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Float
mutable'memoryLimitMb Growing Vector RealWorld Int32
mutable'priority)
"VirtualDevices"
buildMessage :: GPUOptions'Experimental'VirtualDevices -> Builder
buildMessage
= \ _x :: GPUOptions'Experimental'VirtualDevices
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Float
p = FoldLike
(Vector Float)
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
(Vector Float)
(Vector Float)
-> GPUOptions'Experimental'VirtualDevices -> Vector Float
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'memoryLimitMb" a, Functor f) =>
(a -> f a) -> s -> 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'memoryLimitMb") GPUOptions'Experimental'VirtualDevices
_x
in
if Vector Float -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Float
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Float -> Builder) -> Vector Float -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((Word32 -> Builder) -> (Float -> Word32) -> Float -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word32 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed32
Float -> Word32
Data.ProtoLens.Encoding.Bytes.floatToWord)
Vector Float
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Int32
p = FoldLike
(Vector Int32)
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
(Vector Int32)
(Vector Int32)
-> GPUOptions'Experimental'VirtualDevices -> Vector Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'priority" a, Functor f) =>
(a -> f a) -> s -> 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'priority") GPUOptions'Experimental'VirtualDevices
_x
in
if Vector Int32 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int32
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Int32 -> Builder) -> Vector Int32 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((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)
Vector Int32
p))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
FieldSet
FieldSet
-> GPUOptions'Experimental'VirtualDevices -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
GPUOptions'Experimental'VirtualDevices
GPUOptions'Experimental'VirtualDevices
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields GPUOptions'Experimental'VirtualDevices
_x)))
instance Control.DeepSeq.NFData GPUOptions'Experimental'VirtualDevices where
rnf :: GPUOptions'Experimental'VirtualDevices -> ()
rnf
= \ x__ :: GPUOptions'Experimental'VirtualDevices
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions'Experimental'VirtualDevices -> FieldSet
_GPUOptions'Experimental'VirtualDevices'_unknownFields GPUOptions'Experimental'VirtualDevices
x__)
(Vector Float -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions'Experimental'VirtualDevices -> Vector Float
_GPUOptions'Experimental'VirtualDevices'memoryLimitMb GPUOptions'Experimental'VirtualDevices
x__)
(Vector Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GPUOptions'Experimental'VirtualDevices -> Vector Int32
_GPUOptions'Experimental'VirtualDevices'priority GPUOptions'Experimental'VirtualDevices
x__) ()))
data GraphOptions
= GraphOptions'_constructor {GraphOptions -> Bool
_GraphOptions'enableRecvScheduling :: !Prelude.Bool,
GraphOptions -> Maybe OptimizerOptions
_GraphOptions'optimizerOptions :: !(Prelude.Maybe OptimizerOptions),
GraphOptions -> Int64
_GraphOptions'buildCostModel :: !Data.Int.Int64,
GraphOptions -> Int64
_GraphOptions'buildCostModelAfter :: !Data.Int.Int64,
GraphOptions -> Bool
_GraphOptions'inferShapes :: !Prelude.Bool,
GraphOptions -> Bool
_GraphOptions'placePrunedGraph :: !Prelude.Bool,
GraphOptions -> Bool
_GraphOptions'enableBfloat16Sendrecv :: !Prelude.Bool,
GraphOptions -> Int32
_GraphOptions'timelineStep :: !Data.Int.Int32,
GraphOptions -> Maybe RewriterConfig
_GraphOptions'rewriteOptions :: !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.RewriterConfig.RewriterConfig),
GraphOptions -> FieldSet
_GraphOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (GraphOptions -> GraphOptions -> Bool
(GraphOptions -> GraphOptions -> Bool)
-> (GraphOptions -> GraphOptions -> Bool) -> Eq GraphOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GraphOptions -> GraphOptions -> Bool
$c/= :: GraphOptions -> GraphOptions -> Bool
== :: GraphOptions -> GraphOptions -> Bool
$c== :: GraphOptions -> GraphOptions -> Bool
Prelude.Eq, Eq GraphOptions
Eq GraphOptions =>
(GraphOptions -> GraphOptions -> Ordering)
-> (GraphOptions -> GraphOptions -> Bool)
-> (GraphOptions -> GraphOptions -> Bool)
-> (GraphOptions -> GraphOptions -> Bool)
-> (GraphOptions -> GraphOptions -> Bool)
-> (GraphOptions -> GraphOptions -> GraphOptions)
-> (GraphOptions -> GraphOptions -> GraphOptions)
-> Ord GraphOptions
GraphOptions -> GraphOptions -> Bool
GraphOptions -> GraphOptions -> Ordering
GraphOptions -> GraphOptions -> GraphOptions
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 :: GraphOptions -> GraphOptions -> GraphOptions
$cmin :: GraphOptions -> GraphOptions -> GraphOptions
max :: GraphOptions -> GraphOptions -> GraphOptions
$cmax :: GraphOptions -> GraphOptions -> GraphOptions
>= :: GraphOptions -> GraphOptions -> Bool
$c>= :: GraphOptions -> GraphOptions -> Bool
> :: GraphOptions -> GraphOptions -> Bool
$c> :: GraphOptions -> GraphOptions -> Bool
<= :: GraphOptions -> GraphOptions -> Bool
$c<= :: GraphOptions -> GraphOptions -> Bool
< :: GraphOptions -> GraphOptions -> Bool
$c< :: GraphOptions -> GraphOptions -> Bool
compare :: GraphOptions -> GraphOptions -> Ordering
$ccompare :: GraphOptions -> GraphOptions -> Ordering
$cp1Ord :: Eq GraphOptions
Prelude.Ord)
instance Prelude.Show GraphOptions where
showsPrec :: Int -> GraphOptions -> ShowS
showsPrec _ __x :: GraphOptions
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(GraphOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort GraphOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField GraphOptions "enableRecvScheduling" Prelude.Bool where
fieldOf :: Proxy# "enableRecvScheduling"
-> (Bool -> f Bool) -> GraphOptions -> f GraphOptions
fieldOf _
= ((Bool -> f Bool) -> GraphOptions -> f GraphOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> GraphOptions
-> f GraphOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GraphOptions -> Bool)
-> (GraphOptions -> Bool -> GraphOptions)
-> Lens GraphOptions GraphOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GraphOptions -> Bool
_GraphOptions'enableRecvScheduling
(\ x__ :: GraphOptions
x__ y__ :: Bool
y__ -> GraphOptions
x__ {_GraphOptions'enableRecvScheduling :: Bool
_GraphOptions'enableRecvScheduling = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GraphOptions "optimizerOptions" OptimizerOptions where
fieldOf :: Proxy# "optimizerOptions"
-> (OptimizerOptions -> f OptimizerOptions)
-> GraphOptions
-> f GraphOptions
fieldOf _
= ((Maybe OptimizerOptions -> f (Maybe OptimizerOptions))
-> GraphOptions -> f GraphOptions)
-> ((OptimizerOptions -> f OptimizerOptions)
-> Maybe OptimizerOptions -> f (Maybe OptimizerOptions))
-> (OptimizerOptions -> f OptimizerOptions)
-> GraphOptions
-> f GraphOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GraphOptions -> Maybe OptimizerOptions)
-> (GraphOptions -> Maybe OptimizerOptions -> GraphOptions)
-> Lens
GraphOptions
GraphOptions
(Maybe OptimizerOptions)
(Maybe OptimizerOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GraphOptions -> Maybe OptimizerOptions
_GraphOptions'optimizerOptions
(\ x__ :: GraphOptions
x__ y__ :: Maybe OptimizerOptions
y__ -> GraphOptions
x__ {_GraphOptions'optimizerOptions :: Maybe OptimizerOptions
_GraphOptions'optimizerOptions = Maybe OptimizerOptions
y__}))
(OptimizerOptions -> Lens' (Maybe OptimizerOptions) OptimizerOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens OptimizerOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField GraphOptions "maybe'optimizerOptions" (Prelude.Maybe OptimizerOptions) where
fieldOf :: Proxy# "maybe'optimizerOptions"
-> (Maybe OptimizerOptions -> f (Maybe OptimizerOptions))
-> GraphOptions
-> f GraphOptions
fieldOf _
= ((Maybe OptimizerOptions -> f (Maybe OptimizerOptions))
-> GraphOptions -> f GraphOptions)
-> ((Maybe OptimizerOptions -> f (Maybe OptimizerOptions))
-> Maybe OptimizerOptions -> f (Maybe OptimizerOptions))
-> (Maybe OptimizerOptions -> f (Maybe OptimizerOptions))
-> GraphOptions
-> f GraphOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GraphOptions -> Maybe OptimizerOptions)
-> (GraphOptions -> Maybe OptimizerOptions -> GraphOptions)
-> Lens
GraphOptions
GraphOptions
(Maybe OptimizerOptions)
(Maybe OptimizerOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GraphOptions -> Maybe OptimizerOptions
_GraphOptions'optimizerOptions
(\ x__ :: GraphOptions
x__ y__ :: Maybe OptimizerOptions
y__ -> GraphOptions
x__ {_GraphOptions'optimizerOptions :: Maybe OptimizerOptions
_GraphOptions'optimizerOptions = Maybe OptimizerOptions
y__}))
(Maybe OptimizerOptions -> f (Maybe OptimizerOptions))
-> Maybe OptimizerOptions -> f (Maybe OptimizerOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GraphOptions "buildCostModel" Data.Int.Int64 where
fieldOf :: Proxy# "buildCostModel"
-> (Int64 -> f Int64) -> GraphOptions -> f GraphOptions
fieldOf _
= ((Int64 -> f Int64) -> GraphOptions -> f GraphOptions)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> GraphOptions
-> f GraphOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GraphOptions -> Int64)
-> (GraphOptions -> Int64 -> GraphOptions)
-> Lens GraphOptions GraphOptions Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GraphOptions -> Int64
_GraphOptions'buildCostModel
(\ x__ :: GraphOptions
x__ y__ :: Int64
y__ -> GraphOptions
x__ {_GraphOptions'buildCostModel :: Int64
_GraphOptions'buildCostModel = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GraphOptions "buildCostModelAfter" Data.Int.Int64 where
fieldOf :: Proxy# "buildCostModelAfter"
-> (Int64 -> f Int64) -> GraphOptions -> f GraphOptions
fieldOf _
= ((Int64 -> f Int64) -> GraphOptions -> f GraphOptions)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> GraphOptions
-> f GraphOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GraphOptions -> Int64)
-> (GraphOptions -> Int64 -> GraphOptions)
-> Lens GraphOptions GraphOptions Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GraphOptions -> Int64
_GraphOptions'buildCostModelAfter
(\ x__ :: GraphOptions
x__ y__ :: Int64
y__ -> GraphOptions
x__ {_GraphOptions'buildCostModelAfter :: Int64
_GraphOptions'buildCostModelAfter = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GraphOptions "inferShapes" Prelude.Bool where
fieldOf :: Proxy# "inferShapes"
-> (Bool -> f Bool) -> GraphOptions -> f GraphOptions
fieldOf _
= ((Bool -> f Bool) -> GraphOptions -> f GraphOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> GraphOptions
-> f GraphOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GraphOptions -> Bool)
-> (GraphOptions -> Bool -> GraphOptions)
-> Lens GraphOptions GraphOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GraphOptions -> Bool
_GraphOptions'inferShapes
(\ x__ :: GraphOptions
x__ y__ :: Bool
y__ -> GraphOptions
x__ {_GraphOptions'inferShapes :: Bool
_GraphOptions'inferShapes = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GraphOptions "placePrunedGraph" Prelude.Bool where
fieldOf :: Proxy# "placePrunedGraph"
-> (Bool -> f Bool) -> GraphOptions -> f GraphOptions
fieldOf _
= ((Bool -> f Bool) -> GraphOptions -> f GraphOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> GraphOptions
-> f GraphOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GraphOptions -> Bool)
-> (GraphOptions -> Bool -> GraphOptions)
-> Lens GraphOptions GraphOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GraphOptions -> Bool
_GraphOptions'placePrunedGraph
(\ x__ :: GraphOptions
x__ y__ :: Bool
y__ -> GraphOptions
x__ {_GraphOptions'placePrunedGraph :: Bool
_GraphOptions'placePrunedGraph = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GraphOptions "enableBfloat16Sendrecv" Prelude.Bool where
fieldOf :: Proxy# "enableBfloat16Sendrecv"
-> (Bool -> f Bool) -> GraphOptions -> f GraphOptions
fieldOf _
= ((Bool -> f Bool) -> GraphOptions -> f GraphOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> GraphOptions
-> f GraphOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GraphOptions -> Bool)
-> (GraphOptions -> Bool -> GraphOptions)
-> Lens GraphOptions GraphOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GraphOptions -> Bool
_GraphOptions'enableBfloat16Sendrecv
(\ x__ :: GraphOptions
x__ y__ :: Bool
y__ -> GraphOptions
x__ {_GraphOptions'enableBfloat16Sendrecv :: Bool
_GraphOptions'enableBfloat16Sendrecv = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GraphOptions "timelineStep" Data.Int.Int32 where
fieldOf :: Proxy# "timelineStep"
-> (Int32 -> f Int32) -> GraphOptions -> f GraphOptions
fieldOf _
= ((Int32 -> f Int32) -> GraphOptions -> f GraphOptions)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> GraphOptions
-> f GraphOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GraphOptions -> Int32)
-> (GraphOptions -> Int32 -> GraphOptions)
-> Lens GraphOptions GraphOptions Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GraphOptions -> Int32
_GraphOptions'timelineStep
(\ x__ :: GraphOptions
x__ y__ :: Int32
y__ -> GraphOptions
x__ {_GraphOptions'timelineStep :: Int32
_GraphOptions'timelineStep = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GraphOptions "rewriteOptions" Proto.Tensorflow.Core.Protobuf.RewriterConfig.RewriterConfig where
fieldOf :: Proxy# "rewriteOptions"
-> (RewriterConfig -> f RewriterConfig)
-> GraphOptions
-> f GraphOptions
fieldOf _
= ((Maybe RewriterConfig -> f (Maybe RewriterConfig))
-> GraphOptions -> f GraphOptions)
-> ((RewriterConfig -> f RewriterConfig)
-> Maybe RewriterConfig -> f (Maybe RewriterConfig))
-> (RewriterConfig -> f RewriterConfig)
-> GraphOptions
-> f GraphOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GraphOptions -> Maybe RewriterConfig)
-> (GraphOptions -> Maybe RewriterConfig -> GraphOptions)
-> Lens
GraphOptions
GraphOptions
(Maybe RewriterConfig)
(Maybe RewriterConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GraphOptions -> Maybe RewriterConfig
_GraphOptions'rewriteOptions
(\ x__ :: GraphOptions
x__ y__ :: Maybe RewriterConfig
y__ -> GraphOptions
x__ {_GraphOptions'rewriteOptions :: Maybe RewriterConfig
_GraphOptions'rewriteOptions = Maybe RewriterConfig
y__}))
(RewriterConfig -> Lens' (Maybe RewriterConfig) RewriterConfig
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RewriterConfig
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField GraphOptions "maybe'rewriteOptions" (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.RewriterConfig.RewriterConfig) where
fieldOf :: Proxy# "maybe'rewriteOptions"
-> (Maybe RewriterConfig -> f (Maybe RewriterConfig))
-> GraphOptions
-> f GraphOptions
fieldOf _
= ((Maybe RewriterConfig -> f (Maybe RewriterConfig))
-> GraphOptions -> f GraphOptions)
-> ((Maybe RewriterConfig -> f (Maybe RewriterConfig))
-> Maybe RewriterConfig -> f (Maybe RewriterConfig))
-> (Maybe RewriterConfig -> f (Maybe RewriterConfig))
-> GraphOptions
-> f GraphOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((GraphOptions -> Maybe RewriterConfig)
-> (GraphOptions -> Maybe RewriterConfig -> GraphOptions)
-> Lens
GraphOptions
GraphOptions
(Maybe RewriterConfig)
(Maybe RewriterConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GraphOptions -> Maybe RewriterConfig
_GraphOptions'rewriteOptions
(\ x__ :: GraphOptions
x__ y__ :: Maybe RewriterConfig
y__ -> GraphOptions
x__ {_GraphOptions'rewriteOptions :: Maybe RewriterConfig
_GraphOptions'rewriteOptions = Maybe RewriterConfig
y__}))
(Maybe RewriterConfig -> f (Maybe RewriterConfig))
-> Maybe RewriterConfig -> f (Maybe RewriterConfig)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message GraphOptions where
messageName :: Proxy GraphOptions -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.GraphOptions"
packedMessageDescriptor :: Proxy GraphOptions -> ByteString
packedMessageDescriptor _
= "\n\
\\fGraphOptions\DC24\n\
\\SYNenable_recv_scheduling\CAN\STX \SOH(\bR\DC4enableRecvScheduling\DC2I\n\
\\DC1optimizer_options\CAN\ETX \SOH(\v2\FS.tensorflow.OptimizerOptionsR\DLEoptimizerOptions\DC2(\n\
\\DLEbuild_cost_model\CAN\EOT \SOH(\ETXR\SObuildCostModel\DC23\n\
\\SYNbuild_cost_model_after\CAN\t \SOH(\ETXR\DC3buildCostModelAfter\DC2!\n\
\\finfer_shapes\CAN\ENQ \SOH(\bR\vinferShapes\DC2,\n\
\\DC2place_pruned_graph\CAN\ACK \SOH(\bR\DLEplacePrunedGraph\DC28\n\
\\CANenable_bfloat16_sendrecv\CAN\a \SOH(\bR\SYNenableBfloat16Sendrecv\DC2#\n\
\\rtimeline_step\CAN\b \SOH(\ENQR\ftimelineStep\DC2C\n\
\\SIrewrite_options\CAN\n\
\ \SOH(\v2\SUB.tensorflow.RewriterConfigR\SOrewriteOptionsJ\EOT\b\SOH\DLE\STXR%skip_common_subexpression_elimination"
packedFileDescriptor :: Proxy GraphOptions -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor GraphOptions)
fieldsByTag
= let
enableRecvScheduling__field_descriptor :: FieldDescriptor GraphOptions
enableRecvScheduling__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor GraphOptions Bool
-> FieldDescriptor GraphOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"enable_recv_scheduling"
(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 GraphOptions GraphOptions Bool Bool
-> FieldAccessor GraphOptions 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 "enableRecvScheduling" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enableRecvScheduling")) ::
Data.ProtoLens.FieldDescriptor GraphOptions
optimizerOptions__field_descriptor :: FieldDescriptor GraphOptions
optimizerOptions__field_descriptor
= String
-> FieldTypeDescriptor OptimizerOptions
-> FieldAccessor GraphOptions OptimizerOptions
-> FieldDescriptor GraphOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"optimizer_options"
(MessageOrGroup -> FieldTypeDescriptor OptimizerOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor OptimizerOptions)
(Lens
GraphOptions
GraphOptions
(Maybe OptimizerOptions)
(Maybe OptimizerOptions)
-> FieldAccessor GraphOptions OptimizerOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'optimizerOptions" a, Functor f) =>
(a -> f a) -> s -> 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'optimizerOptions")) ::
Data.ProtoLens.FieldDescriptor GraphOptions
buildCostModel__field_descriptor :: FieldDescriptor GraphOptions
buildCostModel__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor GraphOptions Int64
-> FieldDescriptor GraphOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"build_cost_model"
(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 GraphOptions GraphOptions Int64 Int64
-> FieldAccessor GraphOptions 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 "buildCostModel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"buildCostModel")) ::
Data.ProtoLens.FieldDescriptor GraphOptions
buildCostModelAfter__field_descriptor :: FieldDescriptor GraphOptions
buildCostModelAfter__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor GraphOptions Int64
-> FieldDescriptor GraphOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"build_cost_model_after"
(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 GraphOptions GraphOptions Int64 Int64
-> FieldAccessor GraphOptions 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 "buildCostModelAfter" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"buildCostModelAfter")) ::
Data.ProtoLens.FieldDescriptor GraphOptions
inferShapes__field_descriptor :: FieldDescriptor GraphOptions
inferShapes__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor GraphOptions Bool
-> FieldDescriptor GraphOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"infer_shapes"
(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 GraphOptions GraphOptions Bool Bool
-> FieldAccessor GraphOptions 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 "inferShapes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"inferShapes")) ::
Data.ProtoLens.FieldDescriptor GraphOptions
placePrunedGraph__field_descriptor :: FieldDescriptor GraphOptions
placePrunedGraph__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor GraphOptions Bool
-> FieldDescriptor GraphOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"place_pruned_graph"
(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 GraphOptions GraphOptions Bool Bool
-> FieldAccessor GraphOptions 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 "placePrunedGraph" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"placePrunedGraph")) ::
Data.ProtoLens.FieldDescriptor GraphOptions
enableBfloat16Sendrecv__field_descriptor :: FieldDescriptor GraphOptions
enableBfloat16Sendrecv__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor GraphOptions Bool
-> FieldDescriptor GraphOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"enable_bfloat16_sendrecv"
(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 GraphOptions GraphOptions Bool Bool
-> FieldAccessor GraphOptions 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 "enableBfloat16Sendrecv" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enableBfloat16Sendrecv")) ::
Data.ProtoLens.FieldDescriptor GraphOptions
timelineStep__field_descriptor :: FieldDescriptor GraphOptions
timelineStep__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor GraphOptions Int32
-> FieldDescriptor GraphOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"timeline_step"
(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 GraphOptions GraphOptions Int32 Int32
-> FieldAccessor GraphOptions 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 "timelineStep" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timelineStep")) ::
Data.ProtoLens.FieldDescriptor GraphOptions
rewriteOptions__field_descriptor :: FieldDescriptor GraphOptions
rewriteOptions__field_descriptor
= String
-> FieldTypeDescriptor RewriterConfig
-> FieldAccessor GraphOptions RewriterConfig
-> FieldDescriptor GraphOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"rewrite_options"
(MessageOrGroup -> FieldTypeDescriptor RewriterConfig
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.RewriterConfig.RewriterConfig)
(Lens
GraphOptions
GraphOptions
(Maybe RewriterConfig)
(Maybe RewriterConfig)
-> FieldAccessor GraphOptions RewriterConfig
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'rewriteOptions" a, Functor f) =>
(a -> f a) -> s -> 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'rewriteOptions")) ::
Data.ProtoLens.FieldDescriptor GraphOptions
in
[(Tag, FieldDescriptor GraphOptions)]
-> Map Tag (FieldDescriptor GraphOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor GraphOptions
enableRecvScheduling__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor GraphOptions
optimizerOptions__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor GraphOptions
buildCostModel__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor GraphOptions
buildCostModelAfter__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor GraphOptions
inferShapes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor GraphOptions
placePrunedGraph__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor GraphOptions
enableBfloat16Sendrecv__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor GraphOptions
timelineStep__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor GraphOptions
rewriteOptions__field_descriptor)]
unknownFields :: LensLike' f GraphOptions FieldSet
unknownFields
= (GraphOptions -> FieldSet)
-> (GraphOptions -> FieldSet -> GraphOptions)
-> Lens' GraphOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
GraphOptions -> FieldSet
_GraphOptions'_unknownFields
(\ x__ :: GraphOptions
x__ y__ :: FieldSet
y__ -> GraphOptions
x__ {_GraphOptions'_unknownFields :: FieldSet
_GraphOptions'_unknownFields = FieldSet
y__})
defMessage :: GraphOptions
defMessage
= $WGraphOptions'_constructor :: Bool
-> Maybe OptimizerOptions
-> Int64
-> Int64
-> Bool
-> Bool
-> Bool
-> Int32
-> Maybe RewriterConfig
-> FieldSet
-> GraphOptions
GraphOptions'_constructor
{_GraphOptions'enableRecvScheduling :: Bool
_GraphOptions'enableRecvScheduling = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GraphOptions'optimizerOptions :: Maybe OptimizerOptions
_GraphOptions'optimizerOptions = Maybe OptimizerOptions
forall a. Maybe a
Prelude.Nothing,
_GraphOptions'buildCostModel :: Int64
_GraphOptions'buildCostModel = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GraphOptions'buildCostModelAfter :: Int64
_GraphOptions'buildCostModelAfter = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GraphOptions'inferShapes :: Bool
_GraphOptions'inferShapes = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GraphOptions'placePrunedGraph :: Bool
_GraphOptions'placePrunedGraph = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GraphOptions'enableBfloat16Sendrecv :: Bool
_GraphOptions'enableBfloat16Sendrecv = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GraphOptions'timelineStep :: Int32
_GraphOptions'timelineStep = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_GraphOptions'rewriteOptions :: Maybe RewriterConfig
_GraphOptions'rewriteOptions = Maybe RewriterConfig
forall a. Maybe a
Prelude.Nothing,
_GraphOptions'_unknownFields :: FieldSet
_GraphOptions'_unknownFields = []}
parseMessage :: Parser GraphOptions
parseMessage
= let
loop ::
GraphOptions -> Data.ProtoLens.Encoding.Bytes.Parser GraphOptions
loop :: GraphOptions -> Parser GraphOptions
loop x :: GraphOptions
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]))))
GraphOptions -> Parser GraphOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter GraphOptions GraphOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> GraphOptions -> GraphOptions
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 GraphOptions GraphOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) GraphOptions
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
16
-> 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)
"enable_recv_scheduling"
GraphOptions -> Parser GraphOptions
loop
(Setter GraphOptions GraphOptions Bool Bool
-> Bool -> GraphOptions -> GraphOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "enableRecvScheduling" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enableRecvScheduling") Bool
y GraphOptions
x)
26
-> do OptimizerOptions
y <- Parser OptimizerOptions -> String -> Parser OptimizerOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser OptimizerOptions -> Parser OptimizerOptions
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 OptimizerOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"optimizer_options"
GraphOptions -> Parser GraphOptions
loop
(Setter GraphOptions GraphOptions OptimizerOptions OptimizerOptions
-> OptimizerOptions -> GraphOptions -> GraphOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "optimizerOptions" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"optimizerOptions") OptimizerOptions
y GraphOptions
x)
32
-> 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)
"build_cost_model"
GraphOptions -> Parser GraphOptions
loop
(Setter GraphOptions GraphOptions Int64 Int64
-> Int64 -> GraphOptions -> GraphOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "buildCostModel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"buildCostModel") Int64
y GraphOptions
x)
72
-> 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)
"build_cost_model_after"
GraphOptions -> Parser GraphOptions
loop
(Setter GraphOptions GraphOptions Int64 Int64
-> Int64 -> GraphOptions -> GraphOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "buildCostModelAfter" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"buildCostModelAfter") Int64
y GraphOptions
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)
"infer_shapes"
GraphOptions -> Parser GraphOptions
loop
(Setter GraphOptions GraphOptions Bool Bool
-> Bool -> GraphOptions -> GraphOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "inferShapes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"inferShapes") Bool
y GraphOptions
x)
48
-> 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)
"place_pruned_graph"
GraphOptions -> Parser GraphOptions
loop
(Setter GraphOptions GraphOptions Bool Bool
-> Bool -> GraphOptions -> GraphOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "placePrunedGraph" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"placePrunedGraph") Bool
y GraphOptions
x)
56
-> 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)
"enable_bfloat16_sendrecv"
GraphOptions -> Parser GraphOptions
loop
(Setter GraphOptions GraphOptions Bool Bool
-> Bool -> GraphOptions -> GraphOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "enableBfloat16Sendrecv" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enableBfloat16Sendrecv") Bool
y GraphOptions
x)
64
-> 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)
"timeline_step"
GraphOptions -> Parser GraphOptions
loop
(Setter GraphOptions GraphOptions Int32 Int32
-> Int32 -> GraphOptions -> GraphOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "timelineStep" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timelineStep") Int32
y GraphOptions
x)
82
-> do RewriterConfig
y <- Parser RewriterConfig -> String -> Parser RewriterConfig
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser RewriterConfig -> Parser RewriterConfig
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 RewriterConfig
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"rewrite_options"
GraphOptions -> Parser GraphOptions
loop
(Setter GraphOptions GraphOptions RewriterConfig RewriterConfig
-> RewriterConfig -> GraphOptions -> GraphOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "rewriteOptions" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rewriteOptions") RewriterConfig
y GraphOptions
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
GraphOptions -> Parser GraphOptions
loop
(Setter GraphOptions GraphOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> GraphOptions -> GraphOptions
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 GraphOptions GraphOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) GraphOptions
x)
in
Parser GraphOptions -> String -> Parser GraphOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do GraphOptions -> Parser GraphOptions
loop GraphOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "GraphOptions"
buildMessage :: GraphOptions -> Builder
buildMessage
= \ _x :: GraphOptions
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool GraphOptions GraphOptions Bool Bool
-> GraphOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "enableRecvScheduling" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enableRecvScheduling") GraphOptions
_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 16)
((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.<>)
(case
FoldLike
(Maybe OptimizerOptions)
GraphOptions
GraphOptions
(Maybe OptimizerOptions)
(Maybe OptimizerOptions)
-> GraphOptions -> Maybe OptimizerOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'optimizerOptions" a, Functor f) =>
(a -> f a) -> s -> 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'optimizerOptions") GraphOptions
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: OptimizerOptions
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (OptimizerOptions -> ByteString) -> OptimizerOptions -> 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))
OptimizerOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
OptimizerOptions
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 GraphOptions GraphOptions Int64 Int64
-> GraphOptions -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "buildCostModel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"buildCostModel") GraphOptions
_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 32)
((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.<>)
(let
_v :: Int64
_v
= FoldLike Int64 GraphOptions GraphOptions Int64 Int64
-> GraphOptions -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "buildCostModelAfter" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"buildCostModelAfter") GraphOptions
_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 72)
((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.<>)
(let
_v :: Bool
_v
= FoldLike Bool GraphOptions GraphOptions Bool Bool
-> GraphOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "inferShapes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"inferShapes") GraphOptions
_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 :: Bool
_v
= FoldLike Bool GraphOptions GraphOptions Bool Bool
-> GraphOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "placePrunedGraph" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"placePrunedGraph") GraphOptions
_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 48)
((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 GraphOptions GraphOptions Bool Bool
-> GraphOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "enableBfloat16Sendrecv" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enableBfloat16Sendrecv") GraphOptions
_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 56)
((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 :: Int32
_v
= FoldLike Int32 GraphOptions GraphOptions Int32 Int32
-> GraphOptions -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "timelineStep" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timelineStep") GraphOptions
_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 64)
((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.<>)
(case
FoldLike
(Maybe RewriterConfig)
GraphOptions
GraphOptions
(Maybe RewriterConfig)
(Maybe RewriterConfig)
-> GraphOptions -> Maybe RewriterConfig
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'rewriteOptions" a, Functor f) =>
(a -> f a) -> s -> 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'rewriteOptions") GraphOptions
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: RewriterConfig
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 82)
((ByteString -> Builder)
-> (RewriterConfig -> ByteString) -> RewriterConfig -> 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))
RewriterConfig -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
RewriterConfig
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet GraphOptions GraphOptions FieldSet FieldSet
-> GraphOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet GraphOptions GraphOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields GraphOptions
_x))))))))))
instance Control.DeepSeq.NFData GraphOptions where
rnf :: GraphOptions -> ()
rnf
= \ x__ :: GraphOptions
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GraphOptions -> FieldSet
_GraphOptions'_unknownFields GraphOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GraphOptions -> Bool
_GraphOptions'enableRecvScheduling GraphOptions
x__)
(Maybe OptimizerOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GraphOptions -> Maybe OptimizerOptions
_GraphOptions'optimizerOptions GraphOptions
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GraphOptions -> Int64
_GraphOptions'buildCostModel GraphOptions
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GraphOptions -> Int64
_GraphOptions'buildCostModelAfter GraphOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GraphOptions -> Bool
_GraphOptions'inferShapes GraphOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GraphOptions -> Bool
_GraphOptions'placePrunedGraph GraphOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GraphOptions -> Bool
_GraphOptions'enableBfloat16Sendrecv GraphOptions
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GraphOptions -> Int32
_GraphOptions'timelineStep GraphOptions
x__)
(Maybe RewriterConfig -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(GraphOptions -> Maybe RewriterConfig
_GraphOptions'rewriteOptions GraphOptions
x__) ())))))))))
data OptimizerOptions
= OptimizerOptions'_constructor {OptimizerOptions -> Bool
_OptimizerOptions'doCommonSubexpressionElimination :: !Prelude.Bool,
OptimizerOptions -> Bool
_OptimizerOptions'doConstantFolding :: !Prelude.Bool,
OptimizerOptions -> Int64
_OptimizerOptions'maxFoldedConstantInBytes :: !Data.Int.Int64,
OptimizerOptions -> Bool
_OptimizerOptions'doFunctionInlining :: !Prelude.Bool,
OptimizerOptions -> OptimizerOptions'Level
_OptimizerOptions'optLevel :: !OptimizerOptions'Level,
OptimizerOptions -> OptimizerOptions'GlobalJitLevel
_OptimizerOptions'globalJitLevel :: !OptimizerOptions'GlobalJitLevel,
OptimizerOptions -> FieldSet
_OptimizerOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (OptimizerOptions -> OptimizerOptions -> Bool
(OptimizerOptions -> OptimizerOptions -> Bool)
-> (OptimizerOptions -> OptimizerOptions -> Bool)
-> Eq OptimizerOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OptimizerOptions -> OptimizerOptions -> Bool
$c/= :: OptimizerOptions -> OptimizerOptions -> Bool
== :: OptimizerOptions -> OptimizerOptions -> Bool
$c== :: OptimizerOptions -> OptimizerOptions -> Bool
Prelude.Eq, Eq OptimizerOptions
Eq OptimizerOptions =>
(OptimizerOptions -> OptimizerOptions -> Ordering)
-> (OptimizerOptions -> OptimizerOptions -> Bool)
-> (OptimizerOptions -> OptimizerOptions -> Bool)
-> (OptimizerOptions -> OptimizerOptions -> Bool)
-> (OptimizerOptions -> OptimizerOptions -> Bool)
-> (OptimizerOptions -> OptimizerOptions -> OptimizerOptions)
-> (OptimizerOptions -> OptimizerOptions -> OptimizerOptions)
-> Ord OptimizerOptions
OptimizerOptions -> OptimizerOptions -> Bool
OptimizerOptions -> OptimizerOptions -> Ordering
OptimizerOptions -> OptimizerOptions -> OptimizerOptions
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 :: OptimizerOptions -> OptimizerOptions -> OptimizerOptions
$cmin :: OptimizerOptions -> OptimizerOptions -> OptimizerOptions
max :: OptimizerOptions -> OptimizerOptions -> OptimizerOptions
$cmax :: OptimizerOptions -> OptimizerOptions -> OptimizerOptions
>= :: OptimizerOptions -> OptimizerOptions -> Bool
$c>= :: OptimizerOptions -> OptimizerOptions -> Bool
> :: OptimizerOptions -> OptimizerOptions -> Bool
$c> :: OptimizerOptions -> OptimizerOptions -> Bool
<= :: OptimizerOptions -> OptimizerOptions -> Bool
$c<= :: OptimizerOptions -> OptimizerOptions -> Bool
< :: OptimizerOptions -> OptimizerOptions -> Bool
$c< :: OptimizerOptions -> OptimizerOptions -> Bool
compare :: OptimizerOptions -> OptimizerOptions -> Ordering
$ccompare :: OptimizerOptions -> OptimizerOptions -> Ordering
$cp1Ord :: Eq OptimizerOptions
Prelude.Ord)
instance Prelude.Show OptimizerOptions where
showsPrec :: Int -> OptimizerOptions -> ShowS
showsPrec _ __x :: OptimizerOptions
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(OptimizerOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OptimizerOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField OptimizerOptions "doCommonSubexpressionElimination" Prelude.Bool where
fieldOf :: Proxy# "doCommonSubexpressionElimination"
-> (Bool -> f Bool) -> OptimizerOptions -> f OptimizerOptions
fieldOf _
= ((Bool -> f Bool) -> OptimizerOptions -> f OptimizerOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> OptimizerOptions
-> f OptimizerOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OptimizerOptions -> Bool)
-> (OptimizerOptions -> Bool -> OptimizerOptions)
-> Lens OptimizerOptions OptimizerOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OptimizerOptions -> Bool
_OptimizerOptions'doCommonSubexpressionElimination
(\ x__ :: OptimizerOptions
x__ y__ :: Bool
y__
-> OptimizerOptions
x__ {_OptimizerOptions'doCommonSubexpressionElimination :: Bool
_OptimizerOptions'doCommonSubexpressionElimination = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OptimizerOptions "doConstantFolding" Prelude.Bool where
fieldOf :: Proxy# "doConstantFolding"
-> (Bool -> f Bool) -> OptimizerOptions -> f OptimizerOptions
fieldOf _
= ((Bool -> f Bool) -> OptimizerOptions -> f OptimizerOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> OptimizerOptions
-> f OptimizerOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OptimizerOptions -> Bool)
-> (OptimizerOptions -> Bool -> OptimizerOptions)
-> Lens OptimizerOptions OptimizerOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OptimizerOptions -> Bool
_OptimizerOptions'doConstantFolding
(\ x__ :: OptimizerOptions
x__ y__ :: Bool
y__ -> OptimizerOptions
x__ {_OptimizerOptions'doConstantFolding :: Bool
_OptimizerOptions'doConstantFolding = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OptimizerOptions "maxFoldedConstantInBytes" Data.Int.Int64 where
fieldOf :: Proxy# "maxFoldedConstantInBytes"
-> (Int64 -> f Int64) -> OptimizerOptions -> f OptimizerOptions
fieldOf _
= ((Int64 -> f Int64) -> OptimizerOptions -> f OptimizerOptions)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> OptimizerOptions
-> f OptimizerOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OptimizerOptions -> Int64)
-> (OptimizerOptions -> Int64 -> OptimizerOptions)
-> Lens OptimizerOptions OptimizerOptions Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OptimizerOptions -> Int64
_OptimizerOptions'maxFoldedConstantInBytes
(\ x__ :: OptimizerOptions
x__ y__ :: Int64
y__
-> OptimizerOptions
x__ {_OptimizerOptions'maxFoldedConstantInBytes :: Int64
_OptimizerOptions'maxFoldedConstantInBytes = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OptimizerOptions "doFunctionInlining" Prelude.Bool where
fieldOf :: Proxy# "doFunctionInlining"
-> (Bool -> f Bool) -> OptimizerOptions -> f OptimizerOptions
fieldOf _
= ((Bool -> f Bool) -> OptimizerOptions -> f OptimizerOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> OptimizerOptions
-> f OptimizerOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OptimizerOptions -> Bool)
-> (OptimizerOptions -> Bool -> OptimizerOptions)
-> Lens OptimizerOptions OptimizerOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OptimizerOptions -> Bool
_OptimizerOptions'doFunctionInlining
(\ x__ :: OptimizerOptions
x__ y__ :: Bool
y__ -> OptimizerOptions
x__ {_OptimizerOptions'doFunctionInlining :: Bool
_OptimizerOptions'doFunctionInlining = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OptimizerOptions "optLevel" OptimizerOptions'Level where
fieldOf :: Proxy# "optLevel"
-> (OptimizerOptions'Level -> f OptimizerOptions'Level)
-> OptimizerOptions
-> f OptimizerOptions
fieldOf _
= ((OptimizerOptions'Level -> f OptimizerOptions'Level)
-> OptimizerOptions -> f OptimizerOptions)
-> ((OptimizerOptions'Level -> f OptimizerOptions'Level)
-> OptimizerOptions'Level -> f OptimizerOptions'Level)
-> (OptimizerOptions'Level -> f OptimizerOptions'Level)
-> OptimizerOptions
-> f OptimizerOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OptimizerOptions -> OptimizerOptions'Level)
-> (OptimizerOptions -> OptimizerOptions'Level -> OptimizerOptions)
-> Lens
OptimizerOptions
OptimizerOptions
OptimizerOptions'Level
OptimizerOptions'Level
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OptimizerOptions -> OptimizerOptions'Level
_OptimizerOptions'optLevel
(\ x__ :: OptimizerOptions
x__ y__ :: OptimizerOptions'Level
y__ -> OptimizerOptions
x__ {_OptimizerOptions'optLevel :: OptimizerOptions'Level
_OptimizerOptions'optLevel = OptimizerOptions'Level
y__}))
(OptimizerOptions'Level -> f OptimizerOptions'Level)
-> OptimizerOptions'Level -> f OptimizerOptions'Level
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OptimizerOptions "globalJitLevel" OptimizerOptions'GlobalJitLevel where
fieldOf :: Proxy# "globalJitLevel"
-> (OptimizerOptions'GlobalJitLevel
-> f OptimizerOptions'GlobalJitLevel)
-> OptimizerOptions
-> f OptimizerOptions
fieldOf _
= ((OptimizerOptions'GlobalJitLevel
-> f OptimizerOptions'GlobalJitLevel)
-> OptimizerOptions -> f OptimizerOptions)
-> ((OptimizerOptions'GlobalJitLevel
-> f OptimizerOptions'GlobalJitLevel)
-> OptimizerOptions'GlobalJitLevel
-> f OptimizerOptions'GlobalJitLevel)
-> (OptimizerOptions'GlobalJitLevel
-> f OptimizerOptions'GlobalJitLevel)
-> OptimizerOptions
-> f OptimizerOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((OptimizerOptions -> OptimizerOptions'GlobalJitLevel)
-> (OptimizerOptions
-> OptimizerOptions'GlobalJitLevel -> OptimizerOptions)
-> Lens
OptimizerOptions
OptimizerOptions
OptimizerOptions'GlobalJitLevel
OptimizerOptions'GlobalJitLevel
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OptimizerOptions -> OptimizerOptions'GlobalJitLevel
_OptimizerOptions'globalJitLevel
(\ x__ :: OptimizerOptions
x__ y__ :: OptimizerOptions'GlobalJitLevel
y__ -> OptimizerOptions
x__ {_OptimizerOptions'globalJitLevel :: OptimizerOptions'GlobalJitLevel
_OptimizerOptions'globalJitLevel = OptimizerOptions'GlobalJitLevel
y__}))
(OptimizerOptions'GlobalJitLevel
-> f OptimizerOptions'GlobalJitLevel)
-> OptimizerOptions'GlobalJitLevel
-> f OptimizerOptions'GlobalJitLevel
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OptimizerOptions where
messageName :: Proxy OptimizerOptions -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.OptimizerOptions"
packedMessageDescriptor :: Proxy OptimizerOptions -> ByteString
packedMessageDescriptor _
= "\n\
\\DLEOptimizerOptions\DC2M\n\
\#do_common_subexpression_elimination\CAN\SOH \SOH(\bR doCommonSubexpressionElimination\DC2.\n\
\\DC3do_constant_folding\CAN\STX \SOH(\bR\DC1doConstantFolding\DC2>\n\
\\FSmax_folded_constant_in_bytes\CAN\ACK \SOH(\ETXR\CANmaxFoldedConstantInBytes\DC20\n\
\\DC4do_function_inlining\CAN\EOT \SOH(\bR\DC2doFunctionInlining\DC2?\n\
\\topt_level\CAN\ETX \SOH(\SO2\".tensorflow.OptimizerOptions.LevelR\boptLevel\DC2U\n\
\\DLEglobal_jit_level\CAN\ENQ \SOH(\SO2+.tensorflow.OptimizerOptions.GlobalJitLevelR\SOglobalJitLevel\" \n\
\\ENQLevel\DC2\ACK\n\
\\STXL1\DLE\NUL\DC2\SI\n\
\\STXL0\DLE\255\255\255\255\255\255\255\255\255\SOH\"C\n\
\\SOGlobalJitLevel\DC2\v\n\
\\aDEFAULT\DLE\NUL\DC2\DLE\n\
\\ETXOFF\DLE\255\255\255\255\255\255\255\255\255\SOH\DC2\b\n\
\\EOTON_1\DLE\SOH\DC2\b\n\
\\EOTON_2\DLE\STX"
packedFileDescriptor :: Proxy OptimizerOptions -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor OptimizerOptions)
fieldsByTag
= let
doCommonSubexpressionElimination__field_descriptor :: FieldDescriptor OptimizerOptions
doCommonSubexpressionElimination__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor OptimizerOptions Bool
-> FieldDescriptor OptimizerOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"do_common_subexpression_elimination"
(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 OptimizerOptions OptimizerOptions Bool Bool
-> FieldAccessor OptimizerOptions 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 "doCommonSubexpressionElimination" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"doCommonSubexpressionElimination")) ::
Data.ProtoLens.FieldDescriptor OptimizerOptions
doConstantFolding__field_descriptor :: FieldDescriptor OptimizerOptions
doConstantFolding__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor OptimizerOptions Bool
-> FieldDescriptor OptimizerOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"do_constant_folding"
(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 OptimizerOptions OptimizerOptions Bool Bool
-> FieldAccessor OptimizerOptions 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 "doConstantFolding" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"doConstantFolding")) ::
Data.ProtoLens.FieldDescriptor OptimizerOptions
maxFoldedConstantInBytes__field_descriptor :: FieldDescriptor OptimizerOptions
maxFoldedConstantInBytes__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor OptimizerOptions Int64
-> FieldDescriptor OptimizerOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"max_folded_constant_in_bytes"
(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 OptimizerOptions OptimizerOptions Int64 Int64
-> FieldAccessor OptimizerOptions 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 "maxFoldedConstantInBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maxFoldedConstantInBytes")) ::
Data.ProtoLens.FieldDescriptor OptimizerOptions
doFunctionInlining__field_descriptor :: FieldDescriptor OptimizerOptions
doFunctionInlining__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor OptimizerOptions Bool
-> FieldDescriptor OptimizerOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"do_function_inlining"
(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 OptimizerOptions OptimizerOptions Bool Bool
-> FieldAccessor OptimizerOptions 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 "doFunctionInlining" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"doFunctionInlining")) ::
Data.ProtoLens.FieldDescriptor OptimizerOptions
optLevel__field_descriptor :: FieldDescriptor OptimizerOptions
optLevel__field_descriptor
= String
-> FieldTypeDescriptor OptimizerOptions'Level
-> FieldAccessor OptimizerOptions OptimizerOptions'Level
-> FieldDescriptor OptimizerOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"opt_level"
(ScalarField OptimizerOptions'Level
-> FieldTypeDescriptor OptimizerOptions'Level
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField OptimizerOptions'Level
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor OptimizerOptions'Level)
(WireDefault OptimizerOptions'Level
-> Lens
OptimizerOptions
OptimizerOptions
OptimizerOptions'Level
OptimizerOptions'Level
-> FieldAccessor OptimizerOptions OptimizerOptions'Level
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault OptimizerOptions'Level
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "optLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"optLevel")) ::
Data.ProtoLens.FieldDescriptor OptimizerOptions
globalJitLevel__field_descriptor :: FieldDescriptor OptimizerOptions
globalJitLevel__field_descriptor
= String
-> FieldTypeDescriptor OptimizerOptions'GlobalJitLevel
-> FieldAccessor OptimizerOptions OptimizerOptions'GlobalJitLevel
-> FieldDescriptor OptimizerOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"global_jit_level"
(ScalarField OptimizerOptions'GlobalJitLevel
-> FieldTypeDescriptor OptimizerOptions'GlobalJitLevel
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField OptimizerOptions'GlobalJitLevel
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor OptimizerOptions'GlobalJitLevel)
(WireDefault OptimizerOptions'GlobalJitLevel
-> Lens
OptimizerOptions
OptimizerOptions
OptimizerOptions'GlobalJitLevel
OptimizerOptions'GlobalJitLevel
-> FieldAccessor OptimizerOptions OptimizerOptions'GlobalJitLevel
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault OptimizerOptions'GlobalJitLevel
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "globalJitLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"globalJitLevel")) ::
Data.ProtoLens.FieldDescriptor OptimizerOptions
in
[(Tag, FieldDescriptor OptimizerOptions)]
-> Map Tag (FieldDescriptor OptimizerOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1,
FieldDescriptor OptimizerOptions
doCommonSubexpressionElimination__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor OptimizerOptions
doConstantFolding__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor OptimizerOptions
maxFoldedConstantInBytes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor OptimizerOptions
doFunctionInlining__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor OptimizerOptions
optLevel__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor OptimizerOptions
globalJitLevel__field_descriptor)]
unknownFields :: LensLike' f OptimizerOptions FieldSet
unknownFields
= (OptimizerOptions -> FieldSet)
-> (OptimizerOptions -> FieldSet -> OptimizerOptions)
-> Lens' OptimizerOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
OptimizerOptions -> FieldSet
_OptimizerOptions'_unknownFields
(\ x__ :: OptimizerOptions
x__ y__ :: FieldSet
y__ -> OptimizerOptions
x__ {_OptimizerOptions'_unknownFields :: FieldSet
_OptimizerOptions'_unknownFields = FieldSet
y__})
defMessage :: OptimizerOptions
defMessage
= $WOptimizerOptions'_constructor :: Bool
-> Bool
-> Int64
-> Bool
-> OptimizerOptions'Level
-> OptimizerOptions'GlobalJitLevel
-> FieldSet
-> OptimizerOptions
OptimizerOptions'_constructor
{_OptimizerOptions'doCommonSubexpressionElimination :: Bool
_OptimizerOptions'doCommonSubexpressionElimination = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OptimizerOptions'doConstantFolding :: Bool
_OptimizerOptions'doConstantFolding = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OptimizerOptions'maxFoldedConstantInBytes :: Int64
_OptimizerOptions'maxFoldedConstantInBytes = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OptimizerOptions'doFunctionInlining :: Bool
_OptimizerOptions'doFunctionInlining = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OptimizerOptions'optLevel :: OptimizerOptions'Level
_OptimizerOptions'optLevel = OptimizerOptions'Level
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OptimizerOptions'globalJitLevel :: OptimizerOptions'GlobalJitLevel
_OptimizerOptions'globalJitLevel = OptimizerOptions'GlobalJitLevel
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_OptimizerOptions'_unknownFields :: FieldSet
_OptimizerOptions'_unknownFields = []}
parseMessage :: Parser OptimizerOptions
parseMessage
= let
loop ::
OptimizerOptions
-> Data.ProtoLens.Encoding.Bytes.Parser OptimizerOptions
loop :: OptimizerOptions -> Parser OptimizerOptions
loop x :: OptimizerOptions
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]))))
OptimizerOptions -> Parser OptimizerOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter OptimizerOptions OptimizerOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OptimizerOptions -> OptimizerOptions
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 OptimizerOptions OptimizerOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) OptimizerOptions
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> 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)
"do_common_subexpression_elimination"
OptimizerOptions -> Parser OptimizerOptions
loop
(Setter OptimizerOptions OptimizerOptions Bool Bool
-> Bool -> OptimizerOptions -> OptimizerOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "doCommonSubexpressionElimination" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"doCommonSubexpressionElimination")
Bool
y
OptimizerOptions
x)
16
-> 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)
"do_constant_folding"
OptimizerOptions -> Parser OptimizerOptions
loop
(Setter OptimizerOptions OptimizerOptions Bool Bool
-> Bool -> OptimizerOptions -> OptimizerOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "doConstantFolding" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"doConstantFolding") Bool
y OptimizerOptions
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)
"max_folded_constant_in_bytes"
OptimizerOptions -> Parser OptimizerOptions
loop
(Setter OptimizerOptions OptimizerOptions Int64 Int64
-> Int64 -> OptimizerOptions -> OptimizerOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "maxFoldedConstantInBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maxFoldedConstantInBytes") Int64
y OptimizerOptions
x)
32
-> 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)
"do_function_inlining"
OptimizerOptions -> Parser OptimizerOptions
loop
(Setter OptimizerOptions OptimizerOptions Bool Bool
-> Bool -> OptimizerOptions -> OptimizerOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "doFunctionInlining" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"doFunctionInlining") Bool
y OptimizerOptions
x)
24
-> do OptimizerOptions'Level
y <- Parser OptimizerOptions'Level
-> String -> Parser OptimizerOptions'Level
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> OptimizerOptions'Level)
-> Parser Int -> Parser OptimizerOptions'Level
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> OptimizerOptions'Level
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))
"opt_level"
OptimizerOptions -> Parser OptimizerOptions
loop
(Setter
OptimizerOptions
OptimizerOptions
OptimizerOptions'Level
OptimizerOptions'Level
-> OptimizerOptions'Level -> OptimizerOptions -> OptimizerOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "optLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"optLevel") OptimizerOptions'Level
y OptimizerOptions
x)
40
-> do OptimizerOptions'GlobalJitLevel
y <- Parser OptimizerOptions'GlobalJitLevel
-> String -> Parser OptimizerOptions'GlobalJitLevel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> OptimizerOptions'GlobalJitLevel)
-> Parser Int -> Parser OptimizerOptions'GlobalJitLevel
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> OptimizerOptions'GlobalJitLevel
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))
"global_jit_level"
OptimizerOptions -> Parser OptimizerOptions
loop
(Setter
OptimizerOptions
OptimizerOptions
OptimizerOptions'GlobalJitLevel
OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> OptimizerOptions
-> OptimizerOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "globalJitLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"globalJitLevel") OptimizerOptions'GlobalJitLevel
y OptimizerOptions
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
OptimizerOptions -> Parser OptimizerOptions
loop
(Setter OptimizerOptions OptimizerOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OptimizerOptions -> OptimizerOptions
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 OptimizerOptions OptimizerOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) OptimizerOptions
x)
in
Parser OptimizerOptions -> String -> Parser OptimizerOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do OptimizerOptions -> Parser OptimizerOptions
loop OptimizerOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "OptimizerOptions"
buildMessage :: OptimizerOptions -> Builder
buildMessage
= \ _x :: OptimizerOptions
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool OptimizerOptions OptimizerOptions Bool Bool
-> OptimizerOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "doCommonSubexpressionElimination" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"doCommonSubexpressionElimination") OptimizerOptions
_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 8)
((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 OptimizerOptions OptimizerOptions Bool Bool
-> OptimizerOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "doConstantFolding" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"doConstantFolding") OptimizerOptions
_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 16)
((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 OptimizerOptions OptimizerOptions Int64 Int64
-> OptimizerOptions -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maxFoldedConstantInBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maxFoldedConstantInBytes") OptimizerOptions
_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.<>)
(let
_v :: Bool
_v
= FoldLike Bool OptimizerOptions OptimizerOptions Bool Bool
-> OptimizerOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "doFunctionInlining" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"doFunctionInlining") OptimizerOptions
_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 32)
((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 :: OptimizerOptions'Level
_v = FoldLike
OptimizerOptions'Level
OptimizerOptions
OptimizerOptions
OptimizerOptions'Level
OptimizerOptions'Level
-> OptimizerOptions -> OptimizerOptions'Level
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "optLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"optLevel") OptimizerOptions
_x
in
if OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) OptimizerOptions'Level
_v OptimizerOptions'Level
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)
-> (OptimizerOptions'Level -> Int)
-> OptimizerOptions'Level
-> 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)
OptimizerOptions'Level -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
OptimizerOptions'Level
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: OptimizerOptions'GlobalJitLevel
_v
= FoldLike
OptimizerOptions'GlobalJitLevel
OptimizerOptions
OptimizerOptions
OptimizerOptions'GlobalJitLevel
OptimizerOptions'GlobalJitLevel
-> OptimizerOptions -> OptimizerOptions'GlobalJitLevel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "globalJitLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"globalJitLevel") OptimizerOptions
_x
in
if OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) OptimizerOptions'GlobalJitLevel
_v OptimizerOptions'GlobalJitLevel
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)
((Int -> Builder)
-> (OptimizerOptions'GlobalJitLevel -> Int)
-> OptimizerOptions'GlobalJitLevel
-> 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)
OptimizerOptions'GlobalJitLevel -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
OptimizerOptions'GlobalJitLevel
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet OptimizerOptions OptimizerOptions FieldSet FieldSet
-> OptimizerOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet OptimizerOptions OptimizerOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields OptimizerOptions
_x)))))))
instance Control.DeepSeq.NFData OptimizerOptions where
rnf :: OptimizerOptions -> ()
rnf
= \ x__ :: OptimizerOptions
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OptimizerOptions -> FieldSet
_OptimizerOptions'_unknownFields OptimizerOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OptimizerOptions -> Bool
_OptimizerOptions'doCommonSubexpressionElimination OptimizerOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OptimizerOptions -> Bool
_OptimizerOptions'doConstantFolding OptimizerOptions
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OptimizerOptions -> Int64
_OptimizerOptions'maxFoldedConstantInBytes OptimizerOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OptimizerOptions -> Bool
_OptimizerOptions'doFunctionInlining OptimizerOptions
x__)
(OptimizerOptions'Level -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OptimizerOptions -> OptimizerOptions'Level
_OptimizerOptions'optLevel OptimizerOptions
x__)
(OptimizerOptions'GlobalJitLevel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(OptimizerOptions -> OptimizerOptions'GlobalJitLevel
_OptimizerOptions'globalJitLevel OptimizerOptions
x__) ()))))))
newtype OptimizerOptions'GlobalJitLevel'UnrecognizedValue
= OptimizerOptions'GlobalJitLevel'UnrecognizedValue Data.Int.Int32
deriving stock (OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
(OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool)
-> (OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool)
-> Eq OptimizerOptions'GlobalJitLevel'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
$c/= :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
== :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
$c== :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
Prelude.Eq, Eq OptimizerOptions'GlobalJitLevel'UnrecognizedValue
Eq OptimizerOptions'GlobalJitLevel'UnrecognizedValue =>
(OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Ordering)
-> (OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool)
-> (OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool)
-> (OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool)
-> (OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool)
-> (OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue)
-> (OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue)
-> Ord OptimizerOptions'GlobalJitLevel'UnrecognizedValue
OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Ordering
OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
$cmin :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
max :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
$cmax :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
>= :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
$c>= :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
> :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
$c> :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
<= :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
$c<= :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
< :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
$c< :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Bool
compare :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Ordering
$ccompare :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> Ordering
$cp1Ord :: Eq OptimizerOptions'GlobalJitLevel'UnrecognizedValue
Prelude.Ord, Int -> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> ShowS
[OptimizerOptions'GlobalJitLevel'UnrecognizedValue] -> ShowS
OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> String
(Int -> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> ShowS)
-> (OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> String)
-> ([OptimizerOptions'GlobalJitLevel'UnrecognizedValue] -> ShowS)
-> Show OptimizerOptions'GlobalJitLevel'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OptimizerOptions'GlobalJitLevel'UnrecognizedValue] -> ShowS
$cshowList :: [OptimizerOptions'GlobalJitLevel'UnrecognizedValue] -> ShowS
show :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> String
$cshow :: OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> String
showsPrec :: Int -> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> ShowS
$cshowsPrec :: Int -> OptimizerOptions'GlobalJitLevel'UnrecognizedValue -> ShowS
Prelude.Show)
data OptimizerOptions'GlobalJitLevel
= OptimizerOptions'OFF |
OptimizerOptions'DEFAULT |
OptimizerOptions'ON_1 |
OptimizerOptions'ON_2 |
OptimizerOptions'GlobalJitLevel'Unrecognized !OptimizerOptions'GlobalJitLevel'UnrecognizedValue
deriving stock (Int -> OptimizerOptions'GlobalJitLevel -> ShowS
[OptimizerOptions'GlobalJitLevel] -> ShowS
OptimizerOptions'GlobalJitLevel -> String
(Int -> OptimizerOptions'GlobalJitLevel -> ShowS)
-> (OptimizerOptions'GlobalJitLevel -> String)
-> ([OptimizerOptions'GlobalJitLevel] -> ShowS)
-> Show OptimizerOptions'GlobalJitLevel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OptimizerOptions'GlobalJitLevel] -> ShowS
$cshowList :: [OptimizerOptions'GlobalJitLevel] -> ShowS
show :: OptimizerOptions'GlobalJitLevel -> String
$cshow :: OptimizerOptions'GlobalJitLevel -> String
showsPrec :: Int -> OptimizerOptions'GlobalJitLevel -> ShowS
$cshowsPrec :: Int -> OptimizerOptions'GlobalJitLevel -> ShowS
Prelude.Show, OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
(OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool)
-> (OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool)
-> Eq OptimizerOptions'GlobalJitLevel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
$c/= :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
== :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
$c== :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
Prelude.Eq, Eq OptimizerOptions'GlobalJitLevel
Eq OptimizerOptions'GlobalJitLevel =>
(OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Ordering)
-> (OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool)
-> (OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool)
-> (OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool)
-> (OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool)
-> (OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel)
-> (OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel)
-> Ord OptimizerOptions'GlobalJitLevel
OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Ordering
OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
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 :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
$cmin :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
max :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
$cmax :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
>= :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
$c>= :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
> :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
$c> :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
<= :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
$c<= :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
< :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
$c< :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Bool
compare :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Ordering
$ccompare :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel -> Ordering
$cp1Ord :: Eq OptimizerOptions'GlobalJitLevel
Prelude.Ord)
instance Data.ProtoLens.MessageEnum OptimizerOptions'GlobalJitLevel where
maybeToEnum :: Int -> Maybe OptimizerOptions'GlobalJitLevel
maybeToEnum (-1) = OptimizerOptions'GlobalJitLevel
-> Maybe OptimizerOptions'GlobalJitLevel
forall a. a -> Maybe a
Prelude.Just OptimizerOptions'GlobalJitLevel
OptimizerOptions'OFF
maybeToEnum 0 = OptimizerOptions'GlobalJitLevel
-> Maybe OptimizerOptions'GlobalJitLevel
forall a. a -> Maybe a
Prelude.Just OptimizerOptions'GlobalJitLevel
OptimizerOptions'DEFAULT
maybeToEnum 1 = OptimizerOptions'GlobalJitLevel
-> Maybe OptimizerOptions'GlobalJitLevel
forall a. a -> Maybe a
Prelude.Just OptimizerOptions'GlobalJitLevel
OptimizerOptions'ON_1
maybeToEnum 2 = OptimizerOptions'GlobalJitLevel
-> Maybe OptimizerOptions'GlobalJitLevel
forall a. a -> Maybe a
Prelude.Just OptimizerOptions'GlobalJitLevel
OptimizerOptions'ON_2
maybeToEnum k :: Int
k
= OptimizerOptions'GlobalJitLevel
-> Maybe OptimizerOptions'GlobalJitLevel
forall a. a -> Maybe a
Prelude.Just
(OptimizerOptions'GlobalJitLevel'UnrecognizedValue
-> OptimizerOptions'GlobalJitLevel
OptimizerOptions'GlobalJitLevel'Unrecognized
(Int32 -> OptimizerOptions'GlobalJitLevel'UnrecognizedValue
OptimizerOptions'GlobalJitLevel'UnrecognizedValue
(Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: OptimizerOptions'GlobalJitLevel -> String
showEnum OptimizerOptions'DEFAULT = "DEFAULT"
showEnum OptimizerOptions'OFF = "OFF"
showEnum OptimizerOptions'ON_1 = "ON_1"
showEnum OptimizerOptions'ON_2 = "ON_2"
showEnum
(OptimizerOptions'GlobalJitLevel'Unrecognized (OptimizerOptions'GlobalJitLevel'UnrecognizedValue k :: Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe OptimizerOptions'GlobalJitLevel
readEnum k :: String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "DEFAULT" = OptimizerOptions'GlobalJitLevel
-> Maybe OptimizerOptions'GlobalJitLevel
forall a. a -> Maybe a
Prelude.Just OptimizerOptions'GlobalJitLevel
OptimizerOptions'DEFAULT
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "OFF" = OptimizerOptions'GlobalJitLevel
-> Maybe OptimizerOptions'GlobalJitLevel
forall a. a -> Maybe a
Prelude.Just OptimizerOptions'GlobalJitLevel
OptimizerOptions'OFF
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "ON_1" = OptimizerOptions'GlobalJitLevel
-> Maybe OptimizerOptions'GlobalJitLevel
forall a. a -> Maybe a
Prelude.Just OptimizerOptions'GlobalJitLevel
OptimizerOptions'ON_1
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "ON_2" = OptimizerOptions'GlobalJitLevel
-> Maybe OptimizerOptions'GlobalJitLevel
forall a. a -> Maybe a
Prelude.Just OptimizerOptions'GlobalJitLevel
OptimizerOptions'ON_2
| Bool
Prelude.otherwise
= Maybe Int
-> (Int -> Maybe OptimizerOptions'GlobalJitLevel)
-> Maybe OptimizerOptions'GlobalJitLevel
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe OptimizerOptions'GlobalJitLevel
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded OptimizerOptions'GlobalJitLevel where
minBound :: OptimizerOptions'GlobalJitLevel
minBound = OptimizerOptions'GlobalJitLevel
OptimizerOptions'OFF
maxBound :: OptimizerOptions'GlobalJitLevel
maxBound = OptimizerOptions'GlobalJitLevel
OptimizerOptions'ON_2
instance Prelude.Enum OptimizerOptions'GlobalJitLevel where
toEnum :: Int -> OptimizerOptions'GlobalJitLevel
toEnum k__ :: Int
k__
= OptimizerOptions'GlobalJitLevel
-> (OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel)
-> Maybe OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> OptimizerOptions'GlobalJitLevel
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
"toEnum: unknown value for enum GlobalJitLevel: "
(Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
OptimizerOptions'GlobalJitLevel -> OptimizerOptions'GlobalJitLevel
forall a. a -> a
Prelude.id
(Int -> Maybe OptimizerOptions'GlobalJitLevel
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: OptimizerOptions'GlobalJitLevel -> Int
fromEnum OptimizerOptions'OFF = -1
fromEnum OptimizerOptions'DEFAULT = 0
fromEnum OptimizerOptions'ON_1 = 1
fromEnum OptimizerOptions'ON_2 = 2
fromEnum
(OptimizerOptions'GlobalJitLevel'Unrecognized (OptimizerOptions'GlobalJitLevel'UnrecognizedValue k :: Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: OptimizerOptions'GlobalJitLevel -> OptimizerOptions'GlobalJitLevel
succ OptimizerOptions'ON_2
= String -> OptimizerOptions'GlobalJitLevel
forall a. HasCallStack => String -> a
Prelude.error
"OptimizerOptions'GlobalJitLevel.succ: bad argument OptimizerOptions'ON_2. This value would be out of bounds."
succ OptimizerOptions'OFF = OptimizerOptions'GlobalJitLevel
OptimizerOptions'DEFAULT
succ OptimizerOptions'DEFAULT = OptimizerOptions'GlobalJitLevel
OptimizerOptions'ON_1
succ OptimizerOptions'ON_1 = OptimizerOptions'GlobalJitLevel
OptimizerOptions'ON_2
succ (OptimizerOptions'GlobalJitLevel'Unrecognized _)
= String -> OptimizerOptions'GlobalJitLevel
forall a. HasCallStack => String -> a
Prelude.error
"OptimizerOptions'GlobalJitLevel.succ: bad argument: unrecognized value"
pred :: OptimizerOptions'GlobalJitLevel -> OptimizerOptions'GlobalJitLevel
pred OptimizerOptions'OFF
= String -> OptimizerOptions'GlobalJitLevel
forall a. HasCallStack => String -> a
Prelude.error
"OptimizerOptions'GlobalJitLevel.pred: bad argument OptimizerOptions'OFF. This value would be out of bounds."
pred OptimizerOptions'DEFAULT = OptimizerOptions'GlobalJitLevel
OptimizerOptions'OFF
pred OptimizerOptions'ON_1 = OptimizerOptions'GlobalJitLevel
OptimizerOptions'DEFAULT
pred OptimizerOptions'ON_2 = OptimizerOptions'GlobalJitLevel
OptimizerOptions'ON_1
pred (OptimizerOptions'GlobalJitLevel'Unrecognized _)
= String -> OptimizerOptions'GlobalJitLevel
forall a. HasCallStack => String -> a
Prelude.error
"OptimizerOptions'GlobalJitLevel.pred: bad argument: unrecognized value"
enumFrom :: OptimizerOptions'GlobalJitLevel
-> [OptimizerOptions'GlobalJitLevel]
enumFrom = OptimizerOptions'GlobalJitLevel
-> [OptimizerOptions'GlobalJitLevel]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> [OptimizerOptions'GlobalJitLevel]
enumFromTo = OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> [OptimizerOptions'GlobalJitLevel]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> [OptimizerOptions'GlobalJitLevel]
enumFromThen = OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> [OptimizerOptions'GlobalJitLevel]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> [OptimizerOptions'GlobalJitLevel]
enumFromThenTo = OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> OptimizerOptions'GlobalJitLevel
-> [OptimizerOptions'GlobalJitLevel]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault OptimizerOptions'GlobalJitLevel where
fieldDefault :: OptimizerOptions'GlobalJitLevel
fieldDefault = OptimizerOptions'GlobalJitLevel
OptimizerOptions'OFF
instance Control.DeepSeq.NFData OptimizerOptions'GlobalJitLevel where
rnf :: OptimizerOptions'GlobalJitLevel -> ()
rnf x__ :: OptimizerOptions'GlobalJitLevel
x__ = OptimizerOptions'GlobalJitLevel -> () -> ()
forall a b. a -> b -> b
Prelude.seq OptimizerOptions'GlobalJitLevel
x__ ()
newtype OptimizerOptions'Level'UnrecognizedValue
= OptimizerOptions'Level'UnrecognizedValue Data.Int.Int32
deriving stock (OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
(OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool)
-> (OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool)
-> Eq OptimizerOptions'Level'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
$c/= :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
== :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
$c== :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
Prelude.Eq, Eq OptimizerOptions'Level'UnrecognizedValue
Eq OptimizerOptions'Level'UnrecognizedValue =>
(OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Ordering)
-> (OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool)
-> (OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool)
-> (OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool)
-> (OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool)
-> (OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue)
-> (OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue)
-> Ord OptimizerOptions'Level'UnrecognizedValue
OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Ordering
OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue
$cmin :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue
max :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue
$cmax :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue
>= :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
$c>= :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
> :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
$c> :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
<= :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
$c<= :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
< :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
$c< :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Bool
compare :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Ordering
$ccompare :: OptimizerOptions'Level'UnrecognizedValue
-> OptimizerOptions'Level'UnrecognizedValue -> Ordering
$cp1Ord :: Eq OptimizerOptions'Level'UnrecognizedValue
Prelude.Ord, Int -> OptimizerOptions'Level'UnrecognizedValue -> ShowS
[OptimizerOptions'Level'UnrecognizedValue] -> ShowS
OptimizerOptions'Level'UnrecognizedValue -> String
(Int -> OptimizerOptions'Level'UnrecognizedValue -> ShowS)
-> (OptimizerOptions'Level'UnrecognizedValue -> String)
-> ([OptimizerOptions'Level'UnrecognizedValue] -> ShowS)
-> Show OptimizerOptions'Level'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OptimizerOptions'Level'UnrecognizedValue] -> ShowS
$cshowList :: [OptimizerOptions'Level'UnrecognizedValue] -> ShowS
show :: OptimizerOptions'Level'UnrecognizedValue -> String
$cshow :: OptimizerOptions'Level'UnrecognizedValue -> String
showsPrec :: Int -> OptimizerOptions'Level'UnrecognizedValue -> ShowS
$cshowsPrec :: Int -> OptimizerOptions'Level'UnrecognizedValue -> ShowS
Prelude.Show)
data OptimizerOptions'Level
= OptimizerOptions'L0 |
OptimizerOptions'L1 |
OptimizerOptions'Level'Unrecognized !OptimizerOptions'Level'UnrecognizedValue
deriving stock (Int -> OptimizerOptions'Level -> ShowS
[OptimizerOptions'Level] -> ShowS
OptimizerOptions'Level -> String
(Int -> OptimizerOptions'Level -> ShowS)
-> (OptimizerOptions'Level -> String)
-> ([OptimizerOptions'Level] -> ShowS)
-> Show OptimizerOptions'Level
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OptimizerOptions'Level] -> ShowS
$cshowList :: [OptimizerOptions'Level] -> ShowS
show :: OptimizerOptions'Level -> String
$cshow :: OptimizerOptions'Level -> String
showsPrec :: Int -> OptimizerOptions'Level -> ShowS
$cshowsPrec :: Int -> OptimizerOptions'Level -> ShowS
Prelude.Show, OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
(OptimizerOptions'Level -> OptimizerOptions'Level -> Bool)
-> (OptimizerOptions'Level -> OptimizerOptions'Level -> Bool)
-> Eq OptimizerOptions'Level
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
$c/= :: OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
== :: OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
$c== :: OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
Prelude.Eq, Eq OptimizerOptions'Level
Eq OptimizerOptions'Level =>
(OptimizerOptions'Level -> OptimizerOptions'Level -> Ordering)
-> (OptimizerOptions'Level -> OptimizerOptions'Level -> Bool)
-> (OptimizerOptions'Level -> OptimizerOptions'Level -> Bool)
-> (OptimizerOptions'Level -> OptimizerOptions'Level -> Bool)
-> (OptimizerOptions'Level -> OptimizerOptions'Level -> Bool)
-> (OptimizerOptions'Level
-> OptimizerOptions'Level -> OptimizerOptions'Level)
-> (OptimizerOptions'Level
-> OptimizerOptions'Level -> OptimizerOptions'Level)
-> Ord OptimizerOptions'Level
OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
OptimizerOptions'Level -> OptimizerOptions'Level -> Ordering
OptimizerOptions'Level
-> OptimizerOptions'Level -> OptimizerOptions'Level
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 :: OptimizerOptions'Level
-> OptimizerOptions'Level -> OptimizerOptions'Level
$cmin :: OptimizerOptions'Level
-> OptimizerOptions'Level -> OptimizerOptions'Level
max :: OptimizerOptions'Level
-> OptimizerOptions'Level -> OptimizerOptions'Level
$cmax :: OptimizerOptions'Level
-> OptimizerOptions'Level -> OptimizerOptions'Level
>= :: OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
$c>= :: OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
> :: OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
$c> :: OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
<= :: OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
$c<= :: OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
< :: OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
$c< :: OptimizerOptions'Level -> OptimizerOptions'Level -> Bool
compare :: OptimizerOptions'Level -> OptimizerOptions'Level -> Ordering
$ccompare :: OptimizerOptions'Level -> OptimizerOptions'Level -> Ordering
$cp1Ord :: Eq OptimizerOptions'Level
Prelude.Ord)
instance Data.ProtoLens.MessageEnum OptimizerOptions'Level where
maybeToEnum :: Int -> Maybe OptimizerOptions'Level
maybeToEnum (-1) = OptimizerOptions'Level -> Maybe OptimizerOptions'Level
forall a. a -> Maybe a
Prelude.Just OptimizerOptions'Level
OptimizerOptions'L0
maybeToEnum 0 = OptimizerOptions'Level -> Maybe OptimizerOptions'Level
forall a. a -> Maybe a
Prelude.Just OptimizerOptions'Level
OptimizerOptions'L1
maybeToEnum k :: Int
k
= OptimizerOptions'Level -> Maybe OptimizerOptions'Level
forall a. a -> Maybe a
Prelude.Just
(OptimizerOptions'Level'UnrecognizedValue -> OptimizerOptions'Level
OptimizerOptions'Level'Unrecognized
(Int32 -> OptimizerOptions'Level'UnrecognizedValue
OptimizerOptions'Level'UnrecognizedValue
(Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: OptimizerOptions'Level -> String
showEnum OptimizerOptions'L1 = "L1"
showEnum OptimizerOptions'L0 = "L0"
showEnum
(OptimizerOptions'Level'Unrecognized (OptimizerOptions'Level'UnrecognizedValue k :: Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe OptimizerOptions'Level
readEnum k :: String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "L1" = OptimizerOptions'Level -> Maybe OptimizerOptions'Level
forall a. a -> Maybe a
Prelude.Just OptimizerOptions'Level
OptimizerOptions'L1
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "L0" = OptimizerOptions'Level -> Maybe OptimizerOptions'Level
forall a. a -> Maybe a
Prelude.Just OptimizerOptions'Level
OptimizerOptions'L0
| Bool
Prelude.otherwise
= Maybe Int
-> (Int -> Maybe OptimizerOptions'Level)
-> Maybe OptimizerOptions'Level
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe OptimizerOptions'Level
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded OptimizerOptions'Level where
minBound :: OptimizerOptions'Level
minBound = OptimizerOptions'Level
OptimizerOptions'L0
maxBound :: OptimizerOptions'Level
maxBound = OptimizerOptions'Level
OptimizerOptions'L1
instance Prelude.Enum OptimizerOptions'Level where
toEnum :: Int -> OptimizerOptions'Level
toEnum k__ :: Int
k__
= OptimizerOptions'Level
-> (OptimizerOptions'Level -> OptimizerOptions'Level)
-> Maybe OptimizerOptions'Level
-> OptimizerOptions'Level
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> OptimizerOptions'Level
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
"toEnum: unknown value for enum Level: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
OptimizerOptions'Level -> OptimizerOptions'Level
forall a. a -> a
Prelude.id
(Int -> Maybe OptimizerOptions'Level
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: OptimizerOptions'Level -> Int
fromEnum OptimizerOptions'L0 = -1
fromEnum OptimizerOptions'L1 = 0
fromEnum
(OptimizerOptions'Level'Unrecognized (OptimizerOptions'Level'UnrecognizedValue k :: Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: OptimizerOptions'Level -> OptimizerOptions'Level
succ OptimizerOptions'L1
= String -> OptimizerOptions'Level
forall a. HasCallStack => String -> a
Prelude.error
"OptimizerOptions'Level.succ: bad argument OptimizerOptions'L1. This value would be out of bounds."
succ OptimizerOptions'L0 = OptimizerOptions'Level
OptimizerOptions'L1
succ (OptimizerOptions'Level'Unrecognized _)
= String -> OptimizerOptions'Level
forall a. HasCallStack => String -> a
Prelude.error
"OptimizerOptions'Level.succ: bad argument: unrecognized value"
pred :: OptimizerOptions'Level -> OptimizerOptions'Level
pred OptimizerOptions'L0
= String -> OptimizerOptions'Level
forall a. HasCallStack => String -> a
Prelude.error
"OptimizerOptions'Level.pred: bad argument OptimizerOptions'L0. This value would be out of bounds."
pred OptimizerOptions'L1 = OptimizerOptions'Level
OptimizerOptions'L0
pred (OptimizerOptions'Level'Unrecognized _)
= String -> OptimizerOptions'Level
forall a. HasCallStack => String -> a
Prelude.error
"OptimizerOptions'Level.pred: bad argument: unrecognized value"
enumFrom :: OptimizerOptions'Level -> [OptimizerOptions'Level]
enumFrom = OptimizerOptions'Level -> [OptimizerOptions'Level]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: OptimizerOptions'Level
-> OptimizerOptions'Level -> [OptimizerOptions'Level]
enumFromTo = OptimizerOptions'Level
-> OptimizerOptions'Level -> [OptimizerOptions'Level]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: OptimizerOptions'Level
-> OptimizerOptions'Level -> [OptimizerOptions'Level]
enumFromThen = OptimizerOptions'Level
-> OptimizerOptions'Level -> [OptimizerOptions'Level]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: OptimizerOptions'Level
-> OptimizerOptions'Level
-> OptimizerOptions'Level
-> [OptimizerOptions'Level]
enumFromThenTo = OptimizerOptions'Level
-> OptimizerOptions'Level
-> OptimizerOptions'Level
-> [OptimizerOptions'Level]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault OptimizerOptions'Level where
fieldDefault :: OptimizerOptions'Level
fieldDefault = OptimizerOptions'Level
OptimizerOptions'L0
instance Control.DeepSeq.NFData OptimizerOptions'Level where
rnf :: OptimizerOptions'Level -> ()
rnf x__ :: OptimizerOptions'Level
x__ = OptimizerOptions'Level -> () -> ()
forall a b. a -> b -> b
Prelude.seq OptimizerOptions'Level
x__ ()
data RPCOptions
= RPCOptions'_constructor {RPCOptions -> Bool
_RPCOptions'useRpcForInprocessMaster :: !Prelude.Bool,
RPCOptions -> Text
_RPCOptions'compressionAlgorithm :: !Data.Text.Text,
RPCOptions -> Int32
_RPCOptions'compressionLevel :: !Data.Int.Int32,
RPCOptions -> Bool
_RPCOptions'cacheRpcResponse :: !Prelude.Bool,
RPCOptions -> Bool
_RPCOptions'disableSessionConnectionSharing :: !Prelude.Bool,
RPCOptions -> FieldSet
_RPCOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RPCOptions -> RPCOptions -> Bool
(RPCOptions -> RPCOptions -> Bool)
-> (RPCOptions -> RPCOptions -> Bool) -> Eq RPCOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RPCOptions -> RPCOptions -> Bool
$c/= :: RPCOptions -> RPCOptions -> Bool
== :: RPCOptions -> RPCOptions -> Bool
$c== :: RPCOptions -> RPCOptions -> Bool
Prelude.Eq, Eq RPCOptions
Eq RPCOptions =>
(RPCOptions -> RPCOptions -> Ordering)
-> (RPCOptions -> RPCOptions -> Bool)
-> (RPCOptions -> RPCOptions -> Bool)
-> (RPCOptions -> RPCOptions -> Bool)
-> (RPCOptions -> RPCOptions -> Bool)
-> (RPCOptions -> RPCOptions -> RPCOptions)
-> (RPCOptions -> RPCOptions -> RPCOptions)
-> Ord RPCOptions
RPCOptions -> RPCOptions -> Bool
RPCOptions -> RPCOptions -> Ordering
RPCOptions -> RPCOptions -> RPCOptions
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 :: RPCOptions -> RPCOptions -> RPCOptions
$cmin :: RPCOptions -> RPCOptions -> RPCOptions
max :: RPCOptions -> RPCOptions -> RPCOptions
$cmax :: RPCOptions -> RPCOptions -> RPCOptions
>= :: RPCOptions -> RPCOptions -> Bool
$c>= :: RPCOptions -> RPCOptions -> Bool
> :: RPCOptions -> RPCOptions -> Bool
$c> :: RPCOptions -> RPCOptions -> Bool
<= :: RPCOptions -> RPCOptions -> Bool
$c<= :: RPCOptions -> RPCOptions -> Bool
< :: RPCOptions -> RPCOptions -> Bool
$c< :: RPCOptions -> RPCOptions -> Bool
compare :: RPCOptions -> RPCOptions -> Ordering
$ccompare :: RPCOptions -> RPCOptions -> Ordering
$cp1Ord :: Eq RPCOptions
Prelude.Ord)
instance Prelude.Show RPCOptions where
showsPrec :: Int -> RPCOptions -> ShowS
showsPrec _ __x :: RPCOptions
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(RPCOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RPCOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField RPCOptions "useRpcForInprocessMaster" Prelude.Bool where
fieldOf :: Proxy# "useRpcForInprocessMaster"
-> (Bool -> f Bool) -> RPCOptions -> f RPCOptions
fieldOf _
= ((Bool -> f Bool) -> RPCOptions -> f RPCOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> RPCOptions
-> f RPCOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RPCOptions -> Bool)
-> (RPCOptions -> Bool -> RPCOptions)
-> Lens RPCOptions RPCOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RPCOptions -> Bool
_RPCOptions'useRpcForInprocessMaster
(\ x__ :: RPCOptions
x__ y__ :: Bool
y__ -> RPCOptions
x__ {_RPCOptions'useRpcForInprocessMaster :: Bool
_RPCOptions'useRpcForInprocessMaster = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RPCOptions "compressionAlgorithm" Data.Text.Text where
fieldOf :: Proxy# "compressionAlgorithm"
-> (Text -> f Text) -> RPCOptions -> f RPCOptions
fieldOf _
= ((Text -> f Text) -> RPCOptions -> f RPCOptions)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> RPCOptions
-> f RPCOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RPCOptions -> Text)
-> (RPCOptions -> Text -> RPCOptions)
-> Lens RPCOptions RPCOptions Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RPCOptions -> Text
_RPCOptions'compressionAlgorithm
(\ x__ :: RPCOptions
x__ y__ :: Text
y__ -> RPCOptions
x__ {_RPCOptions'compressionAlgorithm :: Text
_RPCOptions'compressionAlgorithm = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RPCOptions "compressionLevel" Data.Int.Int32 where
fieldOf :: Proxy# "compressionLevel"
-> (Int32 -> f Int32) -> RPCOptions -> f RPCOptions
fieldOf _
= ((Int32 -> f Int32) -> RPCOptions -> f RPCOptions)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> RPCOptions
-> f RPCOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RPCOptions -> Int32)
-> (RPCOptions -> Int32 -> RPCOptions)
-> Lens RPCOptions RPCOptions Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RPCOptions -> Int32
_RPCOptions'compressionLevel
(\ x__ :: RPCOptions
x__ y__ :: Int32
y__ -> RPCOptions
x__ {_RPCOptions'compressionLevel :: Int32
_RPCOptions'compressionLevel = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RPCOptions "cacheRpcResponse" Prelude.Bool where
fieldOf :: Proxy# "cacheRpcResponse"
-> (Bool -> f Bool) -> RPCOptions -> f RPCOptions
fieldOf _
= ((Bool -> f Bool) -> RPCOptions -> f RPCOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> RPCOptions
-> f RPCOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RPCOptions -> Bool)
-> (RPCOptions -> Bool -> RPCOptions)
-> Lens RPCOptions RPCOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RPCOptions -> Bool
_RPCOptions'cacheRpcResponse
(\ x__ :: RPCOptions
x__ y__ :: Bool
y__ -> RPCOptions
x__ {_RPCOptions'cacheRpcResponse :: Bool
_RPCOptions'cacheRpcResponse = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RPCOptions "disableSessionConnectionSharing" Prelude.Bool where
fieldOf :: Proxy# "disableSessionConnectionSharing"
-> (Bool -> f Bool) -> RPCOptions -> f RPCOptions
fieldOf _
= ((Bool -> f Bool) -> RPCOptions -> f RPCOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> RPCOptions
-> f RPCOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RPCOptions -> Bool)
-> (RPCOptions -> Bool -> RPCOptions)
-> Lens RPCOptions RPCOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RPCOptions -> Bool
_RPCOptions'disableSessionConnectionSharing
(\ x__ :: RPCOptions
x__ y__ :: Bool
y__
-> RPCOptions
x__ {_RPCOptions'disableSessionConnectionSharing :: Bool
_RPCOptions'disableSessionConnectionSharing = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RPCOptions where
messageName :: Proxy RPCOptions -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.RPCOptions"
packedMessageDescriptor :: Proxy RPCOptions -> ByteString
packedMessageDescriptor _
= "\n\
\\n\
\RPCOptions\DC2>\n\
\\FSuse_rpc_for_inprocess_master\CAN\SOH \SOH(\bR\CANuseRpcForInprocessMaster\DC23\n\
\\NAKcompression_algorithm\CAN\STX \SOH(\tR\DC4compressionAlgorithm\DC2+\n\
\\DC1compression_level\CAN\ETX \SOH(\ENQR\DLEcompressionLevel\DC2,\n\
\\DC2cache_rpc_response\CAN\EOT \SOH(\bR\DLEcacheRpcResponse\DC2K\n\
\\"disable_session_connection_sharing\CAN\ENQ \SOH(\bR\USdisableSessionConnectionSharing"
packedFileDescriptor :: Proxy RPCOptions -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor RPCOptions)
fieldsByTag
= let
useRpcForInprocessMaster__field_descriptor :: FieldDescriptor RPCOptions
useRpcForInprocessMaster__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor RPCOptions Bool
-> FieldDescriptor RPCOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"use_rpc_for_inprocess_master"
(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 RPCOptions RPCOptions Bool Bool
-> FieldAccessor RPCOptions 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 "useRpcForInprocessMaster" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"useRpcForInprocessMaster")) ::
Data.ProtoLens.FieldDescriptor RPCOptions
compressionAlgorithm__field_descriptor :: FieldDescriptor RPCOptions
compressionAlgorithm__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor RPCOptions Text
-> FieldDescriptor RPCOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"compression_algorithm"
(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 RPCOptions RPCOptions Text Text
-> FieldAccessor RPCOptions 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 "compressionAlgorithm" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"compressionAlgorithm")) ::
Data.ProtoLens.FieldDescriptor RPCOptions
compressionLevel__field_descriptor :: FieldDescriptor RPCOptions
compressionLevel__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor RPCOptions Int32
-> FieldDescriptor RPCOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"compression_level"
(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 RPCOptions RPCOptions Int32 Int32
-> FieldAccessor RPCOptions 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 "compressionLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"compressionLevel")) ::
Data.ProtoLens.FieldDescriptor RPCOptions
cacheRpcResponse__field_descriptor :: FieldDescriptor RPCOptions
cacheRpcResponse__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor RPCOptions Bool
-> FieldDescriptor RPCOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"cache_rpc_response"
(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 RPCOptions RPCOptions Bool Bool
-> FieldAccessor RPCOptions 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 "cacheRpcResponse" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cacheRpcResponse")) ::
Data.ProtoLens.FieldDescriptor RPCOptions
disableSessionConnectionSharing__field_descriptor :: FieldDescriptor RPCOptions
disableSessionConnectionSharing__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor RPCOptions Bool
-> FieldDescriptor RPCOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"disable_session_connection_sharing"
(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 RPCOptions RPCOptions Bool Bool
-> FieldAccessor RPCOptions 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 "disableSessionConnectionSharing" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"disableSessionConnectionSharing")) ::
Data.ProtoLens.FieldDescriptor RPCOptions
in
[(Tag, FieldDescriptor RPCOptions)]
-> Map Tag (FieldDescriptor RPCOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1,
FieldDescriptor RPCOptions
useRpcForInprocessMaster__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor RPCOptions
compressionAlgorithm__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor RPCOptions
compressionLevel__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor RPCOptions
cacheRpcResponse__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5,
FieldDescriptor RPCOptions
disableSessionConnectionSharing__field_descriptor)]
unknownFields :: LensLike' f RPCOptions FieldSet
unknownFields
= (RPCOptions -> FieldSet)
-> (RPCOptions -> FieldSet -> RPCOptions)
-> Lens' RPCOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RPCOptions -> FieldSet
_RPCOptions'_unknownFields
(\ x__ :: RPCOptions
x__ y__ :: FieldSet
y__ -> RPCOptions
x__ {_RPCOptions'_unknownFields :: FieldSet
_RPCOptions'_unknownFields = FieldSet
y__})
defMessage :: RPCOptions
defMessage
= $WRPCOptions'_constructor :: Bool -> Text -> Int32 -> Bool -> Bool -> FieldSet -> RPCOptions
RPCOptions'_constructor
{_RPCOptions'useRpcForInprocessMaster :: Bool
_RPCOptions'useRpcForInprocessMaster = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RPCOptions'compressionAlgorithm :: Text
_RPCOptions'compressionAlgorithm = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RPCOptions'compressionLevel :: Int32
_RPCOptions'compressionLevel = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RPCOptions'cacheRpcResponse :: Bool
_RPCOptions'cacheRpcResponse = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RPCOptions'disableSessionConnectionSharing :: Bool
_RPCOptions'disableSessionConnectionSharing = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RPCOptions'_unknownFields :: FieldSet
_RPCOptions'_unknownFields = []}
parseMessage :: Parser RPCOptions
parseMessage
= let
loop ::
RPCOptions -> Data.ProtoLens.Encoding.Bytes.Parser RPCOptions
loop :: RPCOptions -> Parser RPCOptions
loop x :: RPCOptions
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]))))
RPCOptions -> Parser RPCOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter RPCOptions RPCOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> RPCOptions -> RPCOptions
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 RPCOptions RPCOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) RPCOptions
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> 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)
"use_rpc_for_inprocess_master"
RPCOptions -> Parser RPCOptions
loop
(Setter RPCOptions RPCOptions Bool Bool
-> Bool -> RPCOptions -> RPCOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "useRpcForInprocessMaster" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"useRpcForInprocessMaster") Bool
y RPCOptions
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))
"compression_algorithm"
RPCOptions -> Parser RPCOptions
loop
(Setter RPCOptions RPCOptions Text Text
-> Text -> RPCOptions -> RPCOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "compressionAlgorithm" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"compressionAlgorithm") Text
y RPCOptions
x)
24
-> 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)
"compression_level"
RPCOptions -> Parser RPCOptions
loop
(Setter RPCOptions RPCOptions Int32 Int32
-> Int32 -> RPCOptions -> RPCOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "compressionLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"compressionLevel") Int32
y RPCOptions
x)
32
-> 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)
"cache_rpc_response"
RPCOptions -> Parser RPCOptions
loop
(Setter RPCOptions RPCOptions Bool Bool
-> Bool -> RPCOptions -> RPCOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "cacheRpcResponse" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cacheRpcResponse") Bool
y RPCOptions
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)
"disable_session_connection_sharing"
RPCOptions -> Parser RPCOptions
loop
(Setter RPCOptions RPCOptions Bool Bool
-> Bool -> RPCOptions -> RPCOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "disableSessionConnectionSharing" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"disableSessionConnectionSharing")
Bool
y
RPCOptions
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
RPCOptions -> Parser RPCOptions
loop
(Setter RPCOptions RPCOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> RPCOptions -> RPCOptions
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 RPCOptions RPCOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) RPCOptions
x)
in
Parser RPCOptions -> String -> Parser RPCOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do RPCOptions -> Parser RPCOptions
loop RPCOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "RPCOptions"
buildMessage :: RPCOptions -> Builder
buildMessage
= \ _x :: RPCOptions
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool RPCOptions RPCOptions Bool Bool -> RPCOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "useRpcForInprocessMaster" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"useRpcForInprocessMaster") RPCOptions
_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 8)
((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 :: Text
_v
= FoldLike Text RPCOptions RPCOptions Text Text -> RPCOptions -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "compressionAlgorithm" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"compressionAlgorithm") RPCOptions
_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 :: Int32
_v
= FoldLike Int32 RPCOptions RPCOptions Int32 Int32
-> RPCOptions -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "compressionLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"compressionLevel") RPCOptions
_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 24)
((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 :: Bool
_v
= FoldLike Bool RPCOptions RPCOptions Bool Bool -> RPCOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "cacheRpcResponse" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cacheRpcResponse") RPCOptions
_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 32)
((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 RPCOptions RPCOptions Bool Bool -> RPCOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "disableSessionConnectionSharing" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"disableSessionConnectionSharing") RPCOptions
_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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet RPCOptions RPCOptions FieldSet FieldSet
-> RPCOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet RPCOptions RPCOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields RPCOptions
_x))))))
instance Control.DeepSeq.NFData RPCOptions where
rnf :: RPCOptions -> ()
rnf
= \ x__ :: RPCOptions
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RPCOptions -> FieldSet
_RPCOptions'_unknownFields RPCOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RPCOptions -> Bool
_RPCOptions'useRpcForInprocessMaster RPCOptions
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RPCOptions -> Text
_RPCOptions'compressionAlgorithm RPCOptions
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RPCOptions -> Int32
_RPCOptions'compressionLevel RPCOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RPCOptions -> Bool
_RPCOptions'cacheRpcResponse RPCOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RPCOptions -> Bool
_RPCOptions'disableSessionConnectionSharing RPCOptions
x__) ())))))
data RunMetadata
= RunMetadata'_constructor {RunMetadata -> Maybe StepStats
_RunMetadata'stepStats :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.StepStats.StepStats),
RunMetadata -> Maybe CostGraphDef
_RunMetadata'costGraph :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.CostGraph.CostGraphDef),
RunMetadata -> Vector GraphDef
_RunMetadata'partitionGraphs :: !(Data.Vector.Vector Proto.Tensorflow.Core.Framework.Graph.GraphDef),
RunMetadata -> Vector RunMetadata'FunctionGraphs
_RunMetadata'functionGraphs :: !(Data.Vector.Vector RunMetadata'FunctionGraphs),
RunMetadata -> FieldSet
_RunMetadata'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RunMetadata -> RunMetadata -> Bool
(RunMetadata -> RunMetadata -> Bool)
-> (RunMetadata -> RunMetadata -> Bool) -> Eq RunMetadata
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RunMetadata -> RunMetadata -> Bool
$c/= :: RunMetadata -> RunMetadata -> Bool
== :: RunMetadata -> RunMetadata -> Bool
$c== :: RunMetadata -> RunMetadata -> Bool
Prelude.Eq, Eq RunMetadata
Eq RunMetadata =>
(RunMetadata -> RunMetadata -> Ordering)
-> (RunMetadata -> RunMetadata -> Bool)
-> (RunMetadata -> RunMetadata -> Bool)
-> (RunMetadata -> RunMetadata -> Bool)
-> (RunMetadata -> RunMetadata -> Bool)
-> (RunMetadata -> RunMetadata -> RunMetadata)
-> (RunMetadata -> RunMetadata -> RunMetadata)
-> Ord RunMetadata
RunMetadata -> RunMetadata -> Bool
RunMetadata -> RunMetadata -> Ordering
RunMetadata -> RunMetadata -> RunMetadata
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 :: RunMetadata -> RunMetadata -> RunMetadata
$cmin :: RunMetadata -> RunMetadata -> RunMetadata
max :: RunMetadata -> RunMetadata -> RunMetadata
$cmax :: RunMetadata -> RunMetadata -> RunMetadata
>= :: RunMetadata -> RunMetadata -> Bool
$c>= :: RunMetadata -> RunMetadata -> Bool
> :: RunMetadata -> RunMetadata -> Bool
$c> :: RunMetadata -> RunMetadata -> Bool
<= :: RunMetadata -> RunMetadata -> Bool
$c<= :: RunMetadata -> RunMetadata -> Bool
< :: RunMetadata -> RunMetadata -> Bool
$c< :: RunMetadata -> RunMetadata -> Bool
compare :: RunMetadata -> RunMetadata -> Ordering
$ccompare :: RunMetadata -> RunMetadata -> Ordering
$cp1Ord :: Eq RunMetadata
Prelude.Ord)
instance Prelude.Show RunMetadata where
showsPrec :: Int -> RunMetadata -> ShowS
showsPrec _ __x :: RunMetadata
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(RunMetadata -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RunMetadata
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField RunMetadata "stepStats" Proto.Tensorflow.Core.Framework.StepStats.StepStats where
fieldOf :: Proxy# "stepStats"
-> (StepStats -> f StepStats) -> RunMetadata -> f RunMetadata
fieldOf _
= ((Maybe StepStats -> f (Maybe StepStats))
-> RunMetadata -> f RunMetadata)
-> ((StepStats -> f StepStats)
-> Maybe StepStats -> f (Maybe StepStats))
-> (StepStats -> f StepStats)
-> RunMetadata
-> f RunMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata -> Maybe StepStats)
-> (RunMetadata -> Maybe StepStats -> RunMetadata)
-> Lens RunMetadata RunMetadata (Maybe StepStats) (Maybe StepStats)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata -> Maybe StepStats
_RunMetadata'stepStats
(\ x__ :: RunMetadata
x__ y__ :: Maybe StepStats
y__ -> RunMetadata
x__ {_RunMetadata'stepStats :: Maybe StepStats
_RunMetadata'stepStats = Maybe StepStats
y__}))
(StepStats -> Lens' (Maybe StepStats) StepStats
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StepStats
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RunMetadata "maybe'stepStats" (Prelude.Maybe Proto.Tensorflow.Core.Framework.StepStats.StepStats) where
fieldOf :: Proxy# "maybe'stepStats"
-> (Maybe StepStats -> f (Maybe StepStats))
-> RunMetadata
-> f RunMetadata
fieldOf _
= ((Maybe StepStats -> f (Maybe StepStats))
-> RunMetadata -> f RunMetadata)
-> ((Maybe StepStats -> f (Maybe StepStats))
-> Maybe StepStats -> f (Maybe StepStats))
-> (Maybe StepStats -> f (Maybe StepStats))
-> RunMetadata
-> f RunMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata -> Maybe StepStats)
-> (RunMetadata -> Maybe StepStats -> RunMetadata)
-> Lens RunMetadata RunMetadata (Maybe StepStats) (Maybe StepStats)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata -> Maybe StepStats
_RunMetadata'stepStats
(\ x__ :: RunMetadata
x__ y__ :: Maybe StepStats
y__ -> RunMetadata
x__ {_RunMetadata'stepStats :: Maybe StepStats
_RunMetadata'stepStats = Maybe StepStats
y__}))
(Maybe StepStats -> f (Maybe StepStats))
-> Maybe StepStats -> f (Maybe StepStats)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunMetadata "costGraph" Proto.Tensorflow.Core.Framework.CostGraph.CostGraphDef where
fieldOf :: Proxy# "costGraph"
-> (CostGraphDef -> f CostGraphDef) -> RunMetadata -> f RunMetadata
fieldOf _
= ((Maybe CostGraphDef -> f (Maybe CostGraphDef))
-> RunMetadata -> f RunMetadata)
-> ((CostGraphDef -> f CostGraphDef)
-> Maybe CostGraphDef -> f (Maybe CostGraphDef))
-> (CostGraphDef -> f CostGraphDef)
-> RunMetadata
-> f RunMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata -> Maybe CostGraphDef)
-> (RunMetadata -> Maybe CostGraphDef -> RunMetadata)
-> Lens
RunMetadata RunMetadata (Maybe CostGraphDef) (Maybe CostGraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata -> Maybe CostGraphDef
_RunMetadata'costGraph
(\ x__ :: RunMetadata
x__ y__ :: Maybe CostGraphDef
y__ -> RunMetadata
x__ {_RunMetadata'costGraph :: Maybe CostGraphDef
_RunMetadata'costGraph = Maybe CostGraphDef
y__}))
(CostGraphDef -> Lens' (Maybe CostGraphDef) CostGraphDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostGraphDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RunMetadata "maybe'costGraph" (Prelude.Maybe Proto.Tensorflow.Core.Framework.CostGraph.CostGraphDef) where
fieldOf :: Proxy# "maybe'costGraph"
-> (Maybe CostGraphDef -> f (Maybe CostGraphDef))
-> RunMetadata
-> f RunMetadata
fieldOf _
= ((Maybe CostGraphDef -> f (Maybe CostGraphDef))
-> RunMetadata -> f RunMetadata)
-> ((Maybe CostGraphDef -> f (Maybe CostGraphDef))
-> Maybe CostGraphDef -> f (Maybe CostGraphDef))
-> (Maybe CostGraphDef -> f (Maybe CostGraphDef))
-> RunMetadata
-> f RunMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata -> Maybe CostGraphDef)
-> (RunMetadata -> Maybe CostGraphDef -> RunMetadata)
-> Lens
RunMetadata RunMetadata (Maybe CostGraphDef) (Maybe CostGraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata -> Maybe CostGraphDef
_RunMetadata'costGraph
(\ x__ :: RunMetadata
x__ y__ :: Maybe CostGraphDef
y__ -> RunMetadata
x__ {_RunMetadata'costGraph :: Maybe CostGraphDef
_RunMetadata'costGraph = Maybe CostGraphDef
y__}))
(Maybe CostGraphDef -> f (Maybe CostGraphDef))
-> Maybe CostGraphDef -> f (Maybe CostGraphDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunMetadata "partitionGraphs" [Proto.Tensorflow.Core.Framework.Graph.GraphDef] where
fieldOf :: Proxy# "partitionGraphs"
-> ([GraphDef] -> f [GraphDef]) -> RunMetadata -> f RunMetadata
fieldOf _
= ((Vector GraphDef -> f (Vector GraphDef))
-> RunMetadata -> f RunMetadata)
-> (([GraphDef] -> f [GraphDef])
-> Vector GraphDef -> f (Vector GraphDef))
-> ([GraphDef] -> f [GraphDef])
-> RunMetadata
-> f RunMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata -> Vector GraphDef)
-> (RunMetadata -> Vector GraphDef -> RunMetadata)
-> Lens RunMetadata RunMetadata (Vector GraphDef) (Vector GraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata -> Vector GraphDef
_RunMetadata'partitionGraphs
(\ x__ :: RunMetadata
x__ y__ :: Vector GraphDef
y__ -> RunMetadata
x__ {_RunMetadata'partitionGraphs :: Vector GraphDef
_RunMetadata'partitionGraphs = Vector GraphDef
y__}))
((Vector GraphDef -> [GraphDef])
-> (Vector GraphDef -> [GraphDef] -> Vector GraphDef)
-> Lens (Vector GraphDef) (Vector GraphDef) [GraphDef] [GraphDef]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector GraphDef -> [GraphDef]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [GraphDef]
y__ -> [GraphDef] -> Vector GraphDef
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [GraphDef]
y__))
instance Data.ProtoLens.Field.HasField RunMetadata "vec'partitionGraphs" (Data.Vector.Vector Proto.Tensorflow.Core.Framework.Graph.GraphDef) where
fieldOf :: Proxy# "vec'partitionGraphs"
-> (Vector GraphDef -> f (Vector GraphDef))
-> RunMetadata
-> f RunMetadata
fieldOf _
= ((Vector GraphDef -> f (Vector GraphDef))
-> RunMetadata -> f RunMetadata)
-> ((Vector GraphDef -> f (Vector GraphDef))
-> Vector GraphDef -> f (Vector GraphDef))
-> (Vector GraphDef -> f (Vector GraphDef))
-> RunMetadata
-> f RunMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata -> Vector GraphDef)
-> (RunMetadata -> Vector GraphDef -> RunMetadata)
-> Lens RunMetadata RunMetadata (Vector GraphDef) (Vector GraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata -> Vector GraphDef
_RunMetadata'partitionGraphs
(\ x__ :: RunMetadata
x__ y__ :: Vector GraphDef
y__ -> RunMetadata
x__ {_RunMetadata'partitionGraphs :: Vector GraphDef
_RunMetadata'partitionGraphs = Vector GraphDef
y__}))
(Vector GraphDef -> f (Vector GraphDef))
-> Vector GraphDef -> f (Vector GraphDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunMetadata "functionGraphs" [RunMetadata'FunctionGraphs] where
fieldOf :: Proxy# "functionGraphs"
-> ([RunMetadata'FunctionGraphs] -> f [RunMetadata'FunctionGraphs])
-> RunMetadata
-> f RunMetadata
fieldOf _
= ((Vector RunMetadata'FunctionGraphs
-> f (Vector RunMetadata'FunctionGraphs))
-> RunMetadata -> f RunMetadata)
-> (([RunMetadata'FunctionGraphs]
-> f [RunMetadata'FunctionGraphs])
-> Vector RunMetadata'FunctionGraphs
-> f (Vector RunMetadata'FunctionGraphs))
-> ([RunMetadata'FunctionGraphs] -> f [RunMetadata'FunctionGraphs])
-> RunMetadata
-> f RunMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata -> Vector RunMetadata'FunctionGraphs)
-> (RunMetadata
-> Vector RunMetadata'FunctionGraphs -> RunMetadata)
-> Lens
RunMetadata
RunMetadata
(Vector RunMetadata'FunctionGraphs)
(Vector RunMetadata'FunctionGraphs)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata -> Vector RunMetadata'FunctionGraphs
_RunMetadata'functionGraphs
(\ x__ :: RunMetadata
x__ y__ :: Vector RunMetadata'FunctionGraphs
y__ -> RunMetadata
x__ {_RunMetadata'functionGraphs :: Vector RunMetadata'FunctionGraphs
_RunMetadata'functionGraphs = Vector RunMetadata'FunctionGraphs
y__}))
((Vector RunMetadata'FunctionGraphs -> [RunMetadata'FunctionGraphs])
-> (Vector RunMetadata'FunctionGraphs
-> [RunMetadata'FunctionGraphs]
-> Vector RunMetadata'FunctionGraphs)
-> Lens
(Vector RunMetadata'FunctionGraphs)
(Vector RunMetadata'FunctionGraphs)
[RunMetadata'FunctionGraphs]
[RunMetadata'FunctionGraphs]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector RunMetadata'FunctionGraphs -> [RunMetadata'FunctionGraphs]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [RunMetadata'FunctionGraphs]
y__ -> [RunMetadata'FunctionGraphs] -> Vector RunMetadata'FunctionGraphs
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [RunMetadata'FunctionGraphs]
y__))
instance Data.ProtoLens.Field.HasField RunMetadata "vec'functionGraphs" (Data.Vector.Vector RunMetadata'FunctionGraphs) where
fieldOf :: Proxy# "vec'functionGraphs"
-> (Vector RunMetadata'FunctionGraphs
-> f (Vector RunMetadata'FunctionGraphs))
-> RunMetadata
-> f RunMetadata
fieldOf _
= ((Vector RunMetadata'FunctionGraphs
-> f (Vector RunMetadata'FunctionGraphs))
-> RunMetadata -> f RunMetadata)
-> ((Vector RunMetadata'FunctionGraphs
-> f (Vector RunMetadata'FunctionGraphs))
-> Vector RunMetadata'FunctionGraphs
-> f (Vector RunMetadata'FunctionGraphs))
-> (Vector RunMetadata'FunctionGraphs
-> f (Vector RunMetadata'FunctionGraphs))
-> RunMetadata
-> f RunMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata -> Vector RunMetadata'FunctionGraphs)
-> (RunMetadata
-> Vector RunMetadata'FunctionGraphs -> RunMetadata)
-> Lens
RunMetadata
RunMetadata
(Vector RunMetadata'FunctionGraphs)
(Vector RunMetadata'FunctionGraphs)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata -> Vector RunMetadata'FunctionGraphs
_RunMetadata'functionGraphs
(\ x__ :: RunMetadata
x__ y__ :: Vector RunMetadata'FunctionGraphs
y__ -> RunMetadata
x__ {_RunMetadata'functionGraphs :: Vector RunMetadata'FunctionGraphs
_RunMetadata'functionGraphs = Vector RunMetadata'FunctionGraphs
y__}))
(Vector RunMetadata'FunctionGraphs
-> f (Vector RunMetadata'FunctionGraphs))
-> Vector RunMetadata'FunctionGraphs
-> f (Vector RunMetadata'FunctionGraphs)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RunMetadata where
messageName :: Proxy RunMetadata -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.RunMetadata"
packedMessageDescriptor :: Proxy RunMetadata -> ByteString
packedMessageDescriptor _
= "\n\
\\vRunMetadata\DC24\n\
\\n\
\step_stats\CAN\SOH \SOH(\v2\NAK.tensorflow.StepStatsR\tstepStats\DC27\n\
\\n\
\cost_graph\CAN\STX \SOH(\v2\CAN.tensorflow.CostGraphDefR\tcostGraph\DC2?\n\
\\DLEpartition_graphs\CAN\ETX \ETX(\v2\DC4.tensorflow.GraphDefR\SIpartitionGraphs\DC2O\n\
\\SIfunction_graphs\CAN\EOT \ETX(\v2&.tensorflow.RunMetadata.FunctionGraphsR\SOfunctionGraphs\SUB\235\SOH\n\
\\SOFunctionGraphs\DC2?\n\
\\DLEpartition_graphs\CAN\SOH \ETX(\v2\DC4.tensorflow.GraphDefR\SIpartitionGraphs\DC2J\n\
\\SYNpre_optimization_graph\CAN\STX \SOH(\v2\DC4.tensorflow.GraphDefR\DC4preOptimizationGraph\DC2L\n\
\\ETBpost_optimization_graph\CAN\ETX \SOH(\v2\DC4.tensorflow.GraphDefR\NAKpostOptimizationGraph"
packedFileDescriptor :: Proxy RunMetadata -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor RunMetadata)
fieldsByTag
= let
stepStats__field_descriptor :: FieldDescriptor RunMetadata
stepStats__field_descriptor
= String
-> FieldTypeDescriptor StepStats
-> FieldAccessor RunMetadata StepStats
-> FieldDescriptor RunMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"step_stats"
(MessageOrGroup -> FieldTypeDescriptor StepStats
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.StepStats.StepStats)
(Lens RunMetadata RunMetadata (Maybe StepStats) (Maybe StepStats)
-> FieldAccessor RunMetadata StepStats
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'stepStats" a, Functor f) =>
(a -> f a) -> s -> 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'stepStats")) ::
Data.ProtoLens.FieldDescriptor RunMetadata
costGraph__field_descriptor :: FieldDescriptor RunMetadata
costGraph__field_descriptor
= String
-> FieldTypeDescriptor CostGraphDef
-> FieldAccessor RunMetadata CostGraphDef
-> FieldDescriptor RunMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"cost_graph"
(MessageOrGroup -> FieldTypeDescriptor CostGraphDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.CostGraph.CostGraphDef)
(Lens
RunMetadata RunMetadata (Maybe CostGraphDef) (Maybe CostGraphDef)
-> FieldAccessor RunMetadata CostGraphDef
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'costGraph" a, Functor f) =>
(a -> f a) -> s -> 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'costGraph")) ::
Data.ProtoLens.FieldDescriptor RunMetadata
partitionGraphs__field_descriptor :: FieldDescriptor RunMetadata
partitionGraphs__field_descriptor
= String
-> FieldTypeDescriptor GraphDef
-> FieldAccessor RunMetadata GraphDef
-> FieldDescriptor RunMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"partition_graphs"
(MessageOrGroup -> FieldTypeDescriptor GraphDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Graph.GraphDef)
(Packing
-> Lens' RunMetadata [GraphDef]
-> FieldAccessor RunMetadata GraphDef
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "partitionGraphs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"partitionGraphs")) ::
Data.ProtoLens.FieldDescriptor RunMetadata
functionGraphs__field_descriptor :: FieldDescriptor RunMetadata
functionGraphs__field_descriptor
= String
-> FieldTypeDescriptor RunMetadata'FunctionGraphs
-> FieldAccessor RunMetadata RunMetadata'FunctionGraphs
-> FieldDescriptor RunMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"function_graphs"
(MessageOrGroup -> FieldTypeDescriptor RunMetadata'FunctionGraphs
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RunMetadata'FunctionGraphs)
(Packing
-> Lens' RunMetadata [RunMetadata'FunctionGraphs]
-> FieldAccessor RunMetadata RunMetadata'FunctionGraphs
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "functionGraphs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"functionGraphs")) ::
Data.ProtoLens.FieldDescriptor RunMetadata
in
[(Tag, FieldDescriptor RunMetadata)]
-> Map Tag (FieldDescriptor RunMetadata)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor RunMetadata
stepStats__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor RunMetadata
costGraph__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor RunMetadata
partitionGraphs__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor RunMetadata
functionGraphs__field_descriptor)]
unknownFields :: LensLike' f RunMetadata FieldSet
unknownFields
= (RunMetadata -> FieldSet)
-> (RunMetadata -> FieldSet -> RunMetadata)
-> Lens' RunMetadata FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata -> FieldSet
_RunMetadata'_unknownFields
(\ x__ :: RunMetadata
x__ y__ :: FieldSet
y__ -> RunMetadata
x__ {_RunMetadata'_unknownFields :: FieldSet
_RunMetadata'_unknownFields = FieldSet
y__})
defMessage :: RunMetadata
defMessage
= $WRunMetadata'_constructor :: Maybe StepStats
-> Maybe CostGraphDef
-> Vector GraphDef
-> Vector RunMetadata'FunctionGraphs
-> FieldSet
-> RunMetadata
RunMetadata'_constructor
{_RunMetadata'stepStats :: Maybe StepStats
_RunMetadata'stepStats = Maybe StepStats
forall a. Maybe a
Prelude.Nothing,
_RunMetadata'costGraph :: Maybe CostGraphDef
_RunMetadata'costGraph = Maybe CostGraphDef
forall a. Maybe a
Prelude.Nothing,
_RunMetadata'partitionGraphs :: Vector GraphDef
_RunMetadata'partitionGraphs = Vector GraphDef
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_RunMetadata'functionGraphs :: Vector RunMetadata'FunctionGraphs
_RunMetadata'functionGraphs = Vector RunMetadata'FunctionGraphs
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_RunMetadata'_unknownFields :: FieldSet
_RunMetadata'_unknownFields = []}
parseMessage :: Parser RunMetadata
parseMessage
= let
loop ::
RunMetadata
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RunMetadata'FunctionGraphs
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Tensorflow.Core.Framework.Graph.GraphDef
-> Data.ProtoLens.Encoding.Bytes.Parser RunMetadata
loop :: RunMetadata
-> Growing Vector RealWorld RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata
loop x :: RunMetadata
x mutable'functionGraphs :: Growing Vector RealWorld RunMetadata'FunctionGraphs
mutable'functionGraphs mutable'partitionGraphs :: Growing Vector RealWorld GraphDef
mutable'partitionGraphs
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector RunMetadata'FunctionGraphs
frozen'functionGraphs <- IO (Vector RunMetadata'FunctionGraphs)
-> Parser (Vector RunMetadata'FunctionGraphs)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) RunMetadata'FunctionGraphs
-> IO (Vector RunMetadata'FunctionGraphs)
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 RunMetadata'FunctionGraphs
Growing Vector (PrimState IO) RunMetadata'FunctionGraphs
mutable'functionGraphs)
Vector GraphDef
frozen'partitionGraphs <- IO (Vector GraphDef) -> Parser (Vector GraphDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) GraphDef -> IO (Vector GraphDef)
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 GraphDef
Growing Vector (PrimState IO) GraphDef
mutable'partitionGraphs)
(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]))))
RunMetadata -> Parser RunMetadata
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter RunMetadata RunMetadata FieldSet FieldSet
-> (FieldSet -> FieldSet) -> RunMetadata -> RunMetadata
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 RunMetadata RunMetadata FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
RunMetadata
RunMetadata
(Vector RunMetadata'FunctionGraphs)
(Vector RunMetadata'FunctionGraphs)
-> Vector RunMetadata'FunctionGraphs -> RunMetadata -> RunMetadata
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'functionGraphs" a, Functor f) =>
(a -> f a) -> s -> 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'functionGraphs")
Vector RunMetadata'FunctionGraphs
frozen'functionGraphs
(Setter RunMetadata RunMetadata (Vector GraphDef) (Vector GraphDef)
-> Vector GraphDef -> RunMetadata -> RunMetadata
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'partitionGraphs" a, Functor f) =>
(a -> f a) -> s -> 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'partitionGraphs")
Vector GraphDef
frozen'partitionGraphs
RunMetadata
x)))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do StepStats
y <- Parser StepStats -> String -> Parser StepStats
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser StepStats -> Parser StepStats
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 StepStats
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"step_stats"
RunMetadata
-> Growing Vector RealWorld RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata
loop
(Setter RunMetadata RunMetadata StepStats StepStats
-> StepStats -> RunMetadata -> RunMetadata
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stepStats" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepStats") StepStats
y RunMetadata
x)
Growing Vector RealWorld RunMetadata'FunctionGraphs
mutable'functionGraphs
Growing Vector RealWorld GraphDef
mutable'partitionGraphs
18
-> do CostGraphDef
y <- Parser CostGraphDef -> String -> Parser CostGraphDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser CostGraphDef -> Parser CostGraphDef
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 CostGraphDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"cost_graph"
RunMetadata
-> Growing Vector RealWorld RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata
loop
(Setter RunMetadata RunMetadata CostGraphDef CostGraphDef
-> CostGraphDef -> RunMetadata -> RunMetadata
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "costGraph" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"costGraph") CostGraphDef
y RunMetadata
x)
Growing Vector RealWorld RunMetadata'FunctionGraphs
mutable'functionGraphs
Growing Vector RealWorld GraphDef
mutable'partitionGraphs
26
-> do !GraphDef
y <- Parser GraphDef -> String -> Parser GraphDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser GraphDef -> Parser GraphDef
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser GraphDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"partition_graphs"
Growing Vector RealWorld GraphDef
v <- IO (Growing Vector RealWorld GraphDef)
-> Parser (Growing Vector RealWorld GraphDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) GraphDef
-> GraphDef -> IO (Growing Vector (PrimState IO) GraphDef)
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 GraphDef
Growing Vector (PrimState IO) GraphDef
mutable'partitionGraphs GraphDef
y)
RunMetadata
-> Growing Vector RealWorld RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata
loop RunMetadata
x Growing Vector RealWorld RunMetadata'FunctionGraphs
mutable'functionGraphs Growing Vector RealWorld GraphDef
v
34
-> do !RunMetadata'FunctionGraphs
y <- Parser RunMetadata'FunctionGraphs
-> String -> Parser RunMetadata'FunctionGraphs
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser RunMetadata'FunctionGraphs
-> Parser RunMetadata'FunctionGraphs
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 RunMetadata'FunctionGraphs
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"function_graphs"
Growing Vector RealWorld RunMetadata'FunctionGraphs
v <- IO (Growing Vector RealWorld RunMetadata'FunctionGraphs)
-> Parser (Growing Vector RealWorld RunMetadata'FunctionGraphs)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs
-> IO (Growing Vector (PrimState IO) RunMetadata'FunctionGraphs)
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 RunMetadata'FunctionGraphs
Growing Vector (PrimState IO) RunMetadata'FunctionGraphs
mutable'functionGraphs RunMetadata'FunctionGraphs
y)
RunMetadata
-> Growing Vector RealWorld RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata
loop RunMetadata
x Growing Vector RealWorld RunMetadata'FunctionGraphs
v Growing Vector RealWorld GraphDef
mutable'partitionGraphs
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
RunMetadata
-> Growing Vector RealWorld RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata
loop
(Setter RunMetadata RunMetadata FieldSet FieldSet
-> (FieldSet -> FieldSet) -> RunMetadata -> RunMetadata
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 RunMetadata RunMetadata FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) RunMetadata
x)
Growing Vector RealWorld RunMetadata'FunctionGraphs
mutable'functionGraphs
Growing Vector RealWorld GraphDef
mutable'partitionGraphs
in
Parser RunMetadata -> String -> Parser RunMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld RunMetadata'FunctionGraphs
mutable'functionGraphs <- IO (Growing Vector RealWorld RunMetadata'FunctionGraphs)
-> Parser (Growing Vector RealWorld RunMetadata'FunctionGraphs)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld RunMetadata'FunctionGraphs)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld GraphDef
mutable'partitionGraphs <- IO (Growing Vector RealWorld GraphDef)
-> Parser (Growing Vector RealWorld GraphDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld GraphDef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
RunMetadata
-> Growing Vector RealWorld RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata
loop
RunMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage
Growing Vector RealWorld RunMetadata'FunctionGraphs
mutable'functionGraphs
Growing Vector RealWorld GraphDef
mutable'partitionGraphs)
"RunMetadata"
buildMessage :: RunMetadata -> Builder
buildMessage
= \ _x :: RunMetadata
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe StepStats)
RunMetadata
RunMetadata
(Maybe StepStats)
(Maybe StepStats)
-> RunMetadata -> Maybe StepStats
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'stepStats" a, Functor f) =>
(a -> f a) -> s -> 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'stepStats") RunMetadata
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: StepStats
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (StepStats -> ByteString) -> StepStats -> 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))
StepStats -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
StepStats
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe CostGraphDef)
RunMetadata
RunMetadata
(Maybe CostGraphDef)
(Maybe CostGraphDef)
-> RunMetadata -> Maybe CostGraphDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'costGraph" a, Functor f) =>
(a -> f a) -> s -> 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'costGraph") RunMetadata
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: CostGraphDef
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (CostGraphDef -> ByteString) -> CostGraphDef -> 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))
CostGraphDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
CostGraphDef
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((GraphDef -> Builder) -> Vector GraphDef -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: GraphDef
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (GraphDef -> ByteString) -> GraphDef -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
GraphDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
GraphDef
_v))
(FoldLike
(Vector GraphDef)
RunMetadata
RunMetadata
(Vector GraphDef)
(Vector GraphDef)
-> RunMetadata -> Vector GraphDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'partitionGraphs" a, Functor f) =>
(a -> f a) -> s -> 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'partitionGraphs") RunMetadata
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((RunMetadata'FunctionGraphs -> Builder)
-> Vector RunMetadata'FunctionGraphs -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: RunMetadata'FunctionGraphs
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder)
-> (RunMetadata'FunctionGraphs -> ByteString)
-> RunMetadata'FunctionGraphs
-> 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))
RunMetadata'FunctionGraphs -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
RunMetadata'FunctionGraphs
_v))
(FoldLike
(Vector RunMetadata'FunctionGraphs)
RunMetadata
RunMetadata
(Vector RunMetadata'FunctionGraphs)
(Vector RunMetadata'FunctionGraphs)
-> RunMetadata -> Vector RunMetadata'FunctionGraphs
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'functionGraphs" a, Functor f) =>
(a -> f a) -> s -> 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'functionGraphs") RunMetadata
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet RunMetadata RunMetadata FieldSet FieldSet
-> RunMetadata -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet RunMetadata RunMetadata FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields RunMetadata
_x)))))
instance Control.DeepSeq.NFData RunMetadata where
rnf :: RunMetadata -> ()
rnf
= \ x__ :: RunMetadata
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunMetadata -> FieldSet
_RunMetadata'_unknownFields RunMetadata
x__)
(Maybe StepStats -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunMetadata -> Maybe StepStats
_RunMetadata'stepStats RunMetadata
x__)
(Maybe CostGraphDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunMetadata -> Maybe CostGraphDef
_RunMetadata'costGraph RunMetadata
x__)
(Vector GraphDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunMetadata -> Vector GraphDef
_RunMetadata'partitionGraphs RunMetadata
x__)
(Vector RunMetadata'FunctionGraphs -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (RunMetadata -> Vector RunMetadata'FunctionGraphs
_RunMetadata'functionGraphs RunMetadata
x__) ()))))
data RunMetadata'FunctionGraphs
= RunMetadata'FunctionGraphs'_constructor {RunMetadata'FunctionGraphs -> Vector GraphDef
_RunMetadata'FunctionGraphs'partitionGraphs :: !(Data.Vector.Vector Proto.Tensorflow.Core.Framework.Graph.GraphDef),
RunMetadata'FunctionGraphs -> Maybe GraphDef
_RunMetadata'FunctionGraphs'preOptimizationGraph :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.Graph.GraphDef),
RunMetadata'FunctionGraphs -> Maybe GraphDef
_RunMetadata'FunctionGraphs'postOptimizationGraph :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.Graph.GraphDef),
RunMetadata'FunctionGraphs -> FieldSet
_RunMetadata'FunctionGraphs'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
(RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool)
-> (RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> Bool)
-> Eq RunMetadata'FunctionGraphs
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
$c/= :: RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
== :: RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
$c== :: RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
Prelude.Eq, Eq RunMetadata'FunctionGraphs
Eq RunMetadata'FunctionGraphs =>
(RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> Ordering)
-> (RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> Bool)
-> (RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> Bool)
-> (RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> Bool)
-> (RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> Bool)
-> (RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs)
-> (RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs)
-> Ord RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> Ordering
RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs
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 :: RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs
$cmin :: RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs
max :: RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs
$cmax :: RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs
>= :: RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
$c>= :: RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
> :: RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
$c> :: RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
<= :: RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
$c<= :: RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
< :: RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
$c< :: RunMetadata'FunctionGraphs -> RunMetadata'FunctionGraphs -> Bool
compare :: RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> Ordering
$ccompare :: RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs -> Ordering
$cp1Ord :: Eq RunMetadata'FunctionGraphs
Prelude.Ord)
instance Prelude.Show RunMetadata'FunctionGraphs where
showsPrec :: Int -> RunMetadata'FunctionGraphs -> ShowS
showsPrec _ __x :: RunMetadata'FunctionGraphs
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(RunMetadata'FunctionGraphs -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RunMetadata'FunctionGraphs
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField RunMetadata'FunctionGraphs "partitionGraphs" [Proto.Tensorflow.Core.Framework.Graph.GraphDef] where
fieldOf :: Proxy# "partitionGraphs"
-> ([GraphDef] -> f [GraphDef])
-> RunMetadata'FunctionGraphs
-> f RunMetadata'FunctionGraphs
fieldOf _
= ((Vector GraphDef -> f (Vector GraphDef))
-> RunMetadata'FunctionGraphs -> f RunMetadata'FunctionGraphs)
-> (([GraphDef] -> f [GraphDef])
-> Vector GraphDef -> f (Vector GraphDef))
-> ([GraphDef] -> f [GraphDef])
-> RunMetadata'FunctionGraphs
-> f RunMetadata'FunctionGraphs
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata'FunctionGraphs -> Vector GraphDef)
-> (RunMetadata'FunctionGraphs
-> Vector GraphDef -> RunMetadata'FunctionGraphs)
-> Lens
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
(Vector GraphDef)
(Vector GraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata'FunctionGraphs -> Vector GraphDef
_RunMetadata'FunctionGraphs'partitionGraphs
(\ x__ :: RunMetadata'FunctionGraphs
x__ y__ :: Vector GraphDef
y__
-> RunMetadata'FunctionGraphs
x__ {_RunMetadata'FunctionGraphs'partitionGraphs :: Vector GraphDef
_RunMetadata'FunctionGraphs'partitionGraphs = Vector GraphDef
y__}))
((Vector GraphDef -> [GraphDef])
-> (Vector GraphDef -> [GraphDef] -> Vector GraphDef)
-> Lens (Vector GraphDef) (Vector GraphDef) [GraphDef] [GraphDef]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector GraphDef -> [GraphDef]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [GraphDef]
y__ -> [GraphDef] -> Vector GraphDef
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [GraphDef]
y__))
instance Data.ProtoLens.Field.HasField RunMetadata'FunctionGraphs "vec'partitionGraphs" (Data.Vector.Vector Proto.Tensorflow.Core.Framework.Graph.GraphDef) where
fieldOf :: Proxy# "vec'partitionGraphs"
-> (Vector GraphDef -> f (Vector GraphDef))
-> RunMetadata'FunctionGraphs
-> f RunMetadata'FunctionGraphs
fieldOf _
= ((Vector GraphDef -> f (Vector GraphDef))
-> RunMetadata'FunctionGraphs -> f RunMetadata'FunctionGraphs)
-> ((Vector GraphDef -> f (Vector GraphDef))
-> Vector GraphDef -> f (Vector GraphDef))
-> (Vector GraphDef -> f (Vector GraphDef))
-> RunMetadata'FunctionGraphs
-> f RunMetadata'FunctionGraphs
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata'FunctionGraphs -> Vector GraphDef)
-> (RunMetadata'FunctionGraphs
-> Vector GraphDef -> RunMetadata'FunctionGraphs)
-> Lens
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
(Vector GraphDef)
(Vector GraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata'FunctionGraphs -> Vector GraphDef
_RunMetadata'FunctionGraphs'partitionGraphs
(\ x__ :: RunMetadata'FunctionGraphs
x__ y__ :: Vector GraphDef
y__
-> RunMetadata'FunctionGraphs
x__ {_RunMetadata'FunctionGraphs'partitionGraphs :: Vector GraphDef
_RunMetadata'FunctionGraphs'partitionGraphs = Vector GraphDef
y__}))
(Vector GraphDef -> f (Vector GraphDef))
-> Vector GraphDef -> f (Vector GraphDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunMetadata'FunctionGraphs "preOptimizationGraph" Proto.Tensorflow.Core.Framework.Graph.GraphDef where
fieldOf :: Proxy# "preOptimizationGraph"
-> (GraphDef -> f GraphDef)
-> RunMetadata'FunctionGraphs
-> f RunMetadata'FunctionGraphs
fieldOf _
= ((Maybe GraphDef -> f (Maybe GraphDef))
-> RunMetadata'FunctionGraphs -> f RunMetadata'FunctionGraphs)
-> ((GraphDef -> f GraphDef)
-> Maybe GraphDef -> f (Maybe GraphDef))
-> (GraphDef -> f GraphDef)
-> RunMetadata'FunctionGraphs
-> f RunMetadata'FunctionGraphs
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata'FunctionGraphs -> Maybe GraphDef)
-> (RunMetadata'FunctionGraphs
-> Maybe GraphDef -> RunMetadata'FunctionGraphs)
-> Lens
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
(Maybe GraphDef)
(Maybe GraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata'FunctionGraphs -> Maybe GraphDef
_RunMetadata'FunctionGraphs'preOptimizationGraph
(\ x__ :: RunMetadata'FunctionGraphs
x__ y__ :: Maybe GraphDef
y__
-> RunMetadata'FunctionGraphs
x__ {_RunMetadata'FunctionGraphs'preOptimizationGraph :: Maybe GraphDef
_RunMetadata'FunctionGraphs'preOptimizationGraph = Maybe GraphDef
y__}))
(GraphDef -> Lens' (Maybe GraphDef) GraphDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens GraphDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RunMetadata'FunctionGraphs "maybe'preOptimizationGraph" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Graph.GraphDef) where
fieldOf :: Proxy# "maybe'preOptimizationGraph"
-> (Maybe GraphDef -> f (Maybe GraphDef))
-> RunMetadata'FunctionGraphs
-> f RunMetadata'FunctionGraphs
fieldOf _
= ((Maybe GraphDef -> f (Maybe GraphDef))
-> RunMetadata'FunctionGraphs -> f RunMetadata'FunctionGraphs)
-> ((Maybe GraphDef -> f (Maybe GraphDef))
-> Maybe GraphDef -> f (Maybe GraphDef))
-> (Maybe GraphDef -> f (Maybe GraphDef))
-> RunMetadata'FunctionGraphs
-> f RunMetadata'FunctionGraphs
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata'FunctionGraphs -> Maybe GraphDef)
-> (RunMetadata'FunctionGraphs
-> Maybe GraphDef -> RunMetadata'FunctionGraphs)
-> Lens
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
(Maybe GraphDef)
(Maybe GraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata'FunctionGraphs -> Maybe GraphDef
_RunMetadata'FunctionGraphs'preOptimizationGraph
(\ x__ :: RunMetadata'FunctionGraphs
x__ y__ :: Maybe GraphDef
y__
-> RunMetadata'FunctionGraphs
x__ {_RunMetadata'FunctionGraphs'preOptimizationGraph :: Maybe GraphDef
_RunMetadata'FunctionGraphs'preOptimizationGraph = Maybe GraphDef
y__}))
(Maybe GraphDef -> f (Maybe GraphDef))
-> Maybe GraphDef -> f (Maybe GraphDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunMetadata'FunctionGraphs "postOptimizationGraph" Proto.Tensorflow.Core.Framework.Graph.GraphDef where
fieldOf :: Proxy# "postOptimizationGraph"
-> (GraphDef -> f GraphDef)
-> RunMetadata'FunctionGraphs
-> f RunMetadata'FunctionGraphs
fieldOf _
= ((Maybe GraphDef -> f (Maybe GraphDef))
-> RunMetadata'FunctionGraphs -> f RunMetadata'FunctionGraphs)
-> ((GraphDef -> f GraphDef)
-> Maybe GraphDef -> f (Maybe GraphDef))
-> (GraphDef -> f GraphDef)
-> RunMetadata'FunctionGraphs
-> f RunMetadata'FunctionGraphs
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata'FunctionGraphs -> Maybe GraphDef)
-> (RunMetadata'FunctionGraphs
-> Maybe GraphDef -> RunMetadata'FunctionGraphs)
-> Lens
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
(Maybe GraphDef)
(Maybe GraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata'FunctionGraphs -> Maybe GraphDef
_RunMetadata'FunctionGraphs'postOptimizationGraph
(\ x__ :: RunMetadata'FunctionGraphs
x__ y__ :: Maybe GraphDef
y__
-> RunMetadata'FunctionGraphs
x__ {_RunMetadata'FunctionGraphs'postOptimizationGraph :: Maybe GraphDef
_RunMetadata'FunctionGraphs'postOptimizationGraph = Maybe GraphDef
y__}))
(GraphDef -> Lens' (Maybe GraphDef) GraphDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens GraphDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RunMetadata'FunctionGraphs "maybe'postOptimizationGraph" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Graph.GraphDef) where
fieldOf :: Proxy# "maybe'postOptimizationGraph"
-> (Maybe GraphDef -> f (Maybe GraphDef))
-> RunMetadata'FunctionGraphs
-> f RunMetadata'FunctionGraphs
fieldOf _
= ((Maybe GraphDef -> f (Maybe GraphDef))
-> RunMetadata'FunctionGraphs -> f RunMetadata'FunctionGraphs)
-> ((Maybe GraphDef -> f (Maybe GraphDef))
-> Maybe GraphDef -> f (Maybe GraphDef))
-> (Maybe GraphDef -> f (Maybe GraphDef))
-> RunMetadata'FunctionGraphs
-> f RunMetadata'FunctionGraphs
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunMetadata'FunctionGraphs -> Maybe GraphDef)
-> (RunMetadata'FunctionGraphs
-> Maybe GraphDef -> RunMetadata'FunctionGraphs)
-> Lens
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
(Maybe GraphDef)
(Maybe GraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata'FunctionGraphs -> Maybe GraphDef
_RunMetadata'FunctionGraphs'postOptimizationGraph
(\ x__ :: RunMetadata'FunctionGraphs
x__ y__ :: Maybe GraphDef
y__
-> RunMetadata'FunctionGraphs
x__ {_RunMetadata'FunctionGraphs'postOptimizationGraph :: Maybe GraphDef
_RunMetadata'FunctionGraphs'postOptimizationGraph = Maybe GraphDef
y__}))
(Maybe GraphDef -> f (Maybe GraphDef))
-> Maybe GraphDef -> f (Maybe GraphDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RunMetadata'FunctionGraphs where
messageName :: Proxy RunMetadata'FunctionGraphs -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.RunMetadata.FunctionGraphs"
packedMessageDescriptor :: Proxy RunMetadata'FunctionGraphs -> ByteString
packedMessageDescriptor _
= "\n\
\\SOFunctionGraphs\DC2?\n\
\\DLEpartition_graphs\CAN\SOH \ETX(\v2\DC4.tensorflow.GraphDefR\SIpartitionGraphs\DC2J\n\
\\SYNpre_optimization_graph\CAN\STX \SOH(\v2\DC4.tensorflow.GraphDefR\DC4preOptimizationGraph\DC2L\n\
\\ETBpost_optimization_graph\CAN\ETX \SOH(\v2\DC4.tensorflow.GraphDefR\NAKpostOptimizationGraph"
packedFileDescriptor :: Proxy RunMetadata'FunctionGraphs -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor RunMetadata'FunctionGraphs)
fieldsByTag
= let
partitionGraphs__field_descriptor :: FieldDescriptor RunMetadata'FunctionGraphs
partitionGraphs__field_descriptor
= String
-> FieldTypeDescriptor GraphDef
-> FieldAccessor RunMetadata'FunctionGraphs GraphDef
-> FieldDescriptor RunMetadata'FunctionGraphs
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"partition_graphs"
(MessageOrGroup -> FieldTypeDescriptor GraphDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Graph.GraphDef)
(Packing
-> Lens' RunMetadata'FunctionGraphs [GraphDef]
-> FieldAccessor RunMetadata'FunctionGraphs GraphDef
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "partitionGraphs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"partitionGraphs")) ::
Data.ProtoLens.FieldDescriptor RunMetadata'FunctionGraphs
preOptimizationGraph__field_descriptor :: FieldDescriptor RunMetadata'FunctionGraphs
preOptimizationGraph__field_descriptor
= String
-> FieldTypeDescriptor GraphDef
-> FieldAccessor RunMetadata'FunctionGraphs GraphDef
-> FieldDescriptor RunMetadata'FunctionGraphs
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"pre_optimization_graph"
(MessageOrGroup -> FieldTypeDescriptor GraphDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Graph.GraphDef)
(Lens
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
(Maybe GraphDef)
(Maybe GraphDef)
-> FieldAccessor RunMetadata'FunctionGraphs GraphDef
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'preOptimizationGraph" a, Functor f) =>
(a -> f a) -> s -> 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'preOptimizationGraph")) ::
Data.ProtoLens.FieldDescriptor RunMetadata'FunctionGraphs
postOptimizationGraph__field_descriptor :: FieldDescriptor RunMetadata'FunctionGraphs
postOptimizationGraph__field_descriptor
= String
-> FieldTypeDescriptor GraphDef
-> FieldAccessor RunMetadata'FunctionGraphs GraphDef
-> FieldDescriptor RunMetadata'FunctionGraphs
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"post_optimization_graph"
(MessageOrGroup -> FieldTypeDescriptor GraphDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Graph.GraphDef)
(Lens
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
(Maybe GraphDef)
(Maybe GraphDef)
-> FieldAccessor RunMetadata'FunctionGraphs GraphDef
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'postOptimizationGraph" a, Functor f) =>
(a -> f a) -> s -> 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'postOptimizationGraph")) ::
Data.ProtoLens.FieldDescriptor RunMetadata'FunctionGraphs
in
[(Tag, FieldDescriptor RunMetadata'FunctionGraphs)]
-> Map Tag (FieldDescriptor RunMetadata'FunctionGraphs)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor RunMetadata'FunctionGraphs
partitionGraphs__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor RunMetadata'FunctionGraphs
preOptimizationGraph__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor RunMetadata'FunctionGraphs
postOptimizationGraph__field_descriptor)]
unknownFields :: LensLike' f RunMetadata'FunctionGraphs FieldSet
unknownFields
= (RunMetadata'FunctionGraphs -> FieldSet)
-> (RunMetadata'FunctionGraphs
-> FieldSet -> RunMetadata'FunctionGraphs)
-> Lens' RunMetadata'FunctionGraphs FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunMetadata'FunctionGraphs -> FieldSet
_RunMetadata'FunctionGraphs'_unknownFields
(\ x__ :: RunMetadata'FunctionGraphs
x__ y__ :: FieldSet
y__
-> RunMetadata'FunctionGraphs
x__ {_RunMetadata'FunctionGraphs'_unknownFields :: FieldSet
_RunMetadata'FunctionGraphs'_unknownFields = FieldSet
y__})
defMessage :: RunMetadata'FunctionGraphs
defMessage
= $WRunMetadata'FunctionGraphs'_constructor :: Vector GraphDef
-> Maybe GraphDef
-> Maybe GraphDef
-> FieldSet
-> RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs'_constructor
{_RunMetadata'FunctionGraphs'partitionGraphs :: Vector GraphDef
_RunMetadata'FunctionGraphs'partitionGraphs = Vector GraphDef
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_RunMetadata'FunctionGraphs'preOptimizationGraph :: Maybe GraphDef
_RunMetadata'FunctionGraphs'preOptimizationGraph = Maybe GraphDef
forall a. Maybe a
Prelude.Nothing,
_RunMetadata'FunctionGraphs'postOptimizationGraph :: Maybe GraphDef
_RunMetadata'FunctionGraphs'postOptimizationGraph = Maybe GraphDef
forall a. Maybe a
Prelude.Nothing,
_RunMetadata'FunctionGraphs'_unknownFields :: FieldSet
_RunMetadata'FunctionGraphs'_unknownFields = []}
parseMessage :: Parser RunMetadata'FunctionGraphs
parseMessage
= let
loop ::
RunMetadata'FunctionGraphs
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Tensorflow.Core.Framework.Graph.GraphDef
-> Data.ProtoLens.Encoding.Bytes.Parser RunMetadata'FunctionGraphs
loop :: RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata'FunctionGraphs
loop x :: RunMetadata'FunctionGraphs
x mutable'partitionGraphs :: Growing Vector RealWorld GraphDef
mutable'partitionGraphs
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector GraphDef
frozen'partitionGraphs <- IO (Vector GraphDef) -> Parser (Vector GraphDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) GraphDef -> IO (Vector GraphDef)
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 GraphDef
Growing Vector (PrimState IO) GraphDef
mutable'partitionGraphs)
(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]))))
RunMetadata'FunctionGraphs -> Parser RunMetadata'FunctionGraphs
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs
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
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
FieldSet
FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
(Vector GraphDef)
(Vector GraphDef)
-> Vector GraphDef
-> RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'partitionGraphs" a, Functor f) =>
(a -> f a) -> s -> 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'partitionGraphs")
Vector GraphDef
frozen'partitionGraphs
RunMetadata'FunctionGraphs
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !GraphDef
y <- Parser GraphDef -> String -> Parser GraphDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser GraphDef -> Parser GraphDef
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser GraphDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"partition_graphs"
Growing Vector RealWorld GraphDef
v <- IO (Growing Vector RealWorld GraphDef)
-> Parser (Growing Vector RealWorld GraphDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) GraphDef
-> GraphDef -> IO (Growing Vector (PrimState IO) GraphDef)
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 GraphDef
Growing Vector (PrimState IO) GraphDef
mutable'partitionGraphs GraphDef
y)
RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata'FunctionGraphs
loop RunMetadata'FunctionGraphs
x Growing Vector RealWorld GraphDef
v
18
-> do GraphDef
y <- Parser GraphDef -> String -> Parser GraphDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser GraphDef -> Parser GraphDef
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser GraphDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"pre_optimization_graph"
RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata'FunctionGraphs
loop
(Setter
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
GraphDef
GraphDef
-> GraphDef
-> RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "preOptimizationGraph" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"preOptimizationGraph") GraphDef
y RunMetadata'FunctionGraphs
x)
Growing Vector RealWorld GraphDef
mutable'partitionGraphs
26
-> do GraphDef
y <- Parser GraphDef -> String -> Parser GraphDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser GraphDef -> Parser GraphDef
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser GraphDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"post_optimization_graph"
RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata'FunctionGraphs
loop
(Setter
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
GraphDef
GraphDef
-> GraphDef
-> RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "postOptimizationGraph" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"postOptimizationGraph") GraphDef
y RunMetadata'FunctionGraphs
x)
Growing Vector RealWorld GraphDef
mutable'partitionGraphs
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata'FunctionGraphs
loop
(Setter
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> RunMetadata'FunctionGraphs
-> RunMetadata'FunctionGraphs
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
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) RunMetadata'FunctionGraphs
x)
Growing Vector RealWorld GraphDef
mutable'partitionGraphs
in
Parser RunMetadata'FunctionGraphs
-> String -> Parser RunMetadata'FunctionGraphs
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld GraphDef
mutable'partitionGraphs <- IO (Growing Vector RealWorld GraphDef)
-> Parser (Growing Vector RealWorld GraphDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld GraphDef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
RunMetadata'FunctionGraphs
-> Growing Vector RealWorld GraphDef
-> Parser RunMetadata'FunctionGraphs
loop RunMetadata'FunctionGraphs
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld GraphDef
mutable'partitionGraphs)
"FunctionGraphs"
buildMessage :: RunMetadata'FunctionGraphs -> Builder
buildMessage
= \ _x :: RunMetadata'FunctionGraphs
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((GraphDef -> Builder) -> Vector GraphDef -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: GraphDef
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (GraphDef -> ByteString) -> GraphDef -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
GraphDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
GraphDef
_v))
(FoldLike
(Vector GraphDef)
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
(Vector GraphDef)
(Vector GraphDef)
-> RunMetadata'FunctionGraphs -> Vector GraphDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'partitionGraphs" a, Functor f) =>
(a -> f a) -> s -> 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'partitionGraphs") RunMetadata'FunctionGraphs
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe GraphDef)
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
(Maybe GraphDef)
(Maybe GraphDef)
-> RunMetadata'FunctionGraphs -> Maybe GraphDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'preOptimizationGraph" a, Functor f) =>
(a -> f a) -> s -> 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'preOptimizationGraph") RunMetadata'FunctionGraphs
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: GraphDef
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (GraphDef -> ByteString) -> GraphDef -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
GraphDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
GraphDef
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe GraphDef)
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
(Maybe GraphDef)
(Maybe GraphDef)
-> RunMetadata'FunctionGraphs -> Maybe GraphDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'postOptimizationGraph" a, Functor f) =>
(a -> f a) -> s -> 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'postOptimizationGraph") RunMetadata'FunctionGraphs
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: GraphDef
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (GraphDef -> ByteString) -> GraphDef -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
GraphDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
GraphDef
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
FieldSet
FieldSet
-> RunMetadata'FunctionGraphs -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
RunMetadata'FunctionGraphs
RunMetadata'FunctionGraphs
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields RunMetadata'FunctionGraphs
_x))))
instance Control.DeepSeq.NFData RunMetadata'FunctionGraphs where
rnf :: RunMetadata'FunctionGraphs -> ()
rnf
= \ x__ :: RunMetadata'FunctionGraphs
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunMetadata'FunctionGraphs -> FieldSet
_RunMetadata'FunctionGraphs'_unknownFields RunMetadata'FunctionGraphs
x__)
(Vector GraphDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunMetadata'FunctionGraphs -> Vector GraphDef
_RunMetadata'FunctionGraphs'partitionGraphs RunMetadata'FunctionGraphs
x__)
(Maybe GraphDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunMetadata'FunctionGraphs -> Maybe GraphDef
_RunMetadata'FunctionGraphs'preOptimizationGraph RunMetadata'FunctionGraphs
x__)
(Maybe GraphDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunMetadata'FunctionGraphs -> Maybe GraphDef
_RunMetadata'FunctionGraphs'postOptimizationGraph RunMetadata'FunctionGraphs
x__) ())))
data RunOptions
= RunOptions'_constructor {RunOptions -> RunOptions'TraceLevel
_RunOptions'traceLevel :: !RunOptions'TraceLevel,
RunOptions -> Int64
_RunOptions'timeoutInMs :: !Data.Int.Int64,
RunOptions -> Int32
_RunOptions'interOpThreadPool :: !Data.Int.Int32,
RunOptions -> Bool
_RunOptions'outputPartitionGraphs :: !Prelude.Bool,
RunOptions -> Maybe DebugOptions
_RunOptions'debugOptions :: !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Debug.DebugOptions),
RunOptions -> Bool
_RunOptions'reportTensorAllocationsUponOom :: !Prelude.Bool,
RunOptions -> Maybe RunOptions'Experimental
_RunOptions'experimental :: !(Prelude.Maybe RunOptions'Experimental),
RunOptions -> FieldSet
_RunOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RunOptions -> RunOptions -> Bool
(RunOptions -> RunOptions -> Bool)
-> (RunOptions -> RunOptions -> Bool) -> Eq RunOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RunOptions -> RunOptions -> Bool
$c/= :: RunOptions -> RunOptions -> Bool
== :: RunOptions -> RunOptions -> Bool
$c== :: RunOptions -> RunOptions -> Bool
Prelude.Eq, Eq RunOptions
Eq RunOptions =>
(RunOptions -> RunOptions -> Ordering)
-> (RunOptions -> RunOptions -> Bool)
-> (RunOptions -> RunOptions -> Bool)
-> (RunOptions -> RunOptions -> Bool)
-> (RunOptions -> RunOptions -> Bool)
-> (RunOptions -> RunOptions -> RunOptions)
-> (RunOptions -> RunOptions -> RunOptions)
-> Ord RunOptions
RunOptions -> RunOptions -> Bool
RunOptions -> RunOptions -> Ordering
RunOptions -> RunOptions -> RunOptions
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 :: RunOptions -> RunOptions -> RunOptions
$cmin :: RunOptions -> RunOptions -> RunOptions
max :: RunOptions -> RunOptions -> RunOptions
$cmax :: RunOptions -> RunOptions -> RunOptions
>= :: RunOptions -> RunOptions -> Bool
$c>= :: RunOptions -> RunOptions -> Bool
> :: RunOptions -> RunOptions -> Bool
$c> :: RunOptions -> RunOptions -> Bool
<= :: RunOptions -> RunOptions -> Bool
$c<= :: RunOptions -> RunOptions -> Bool
< :: RunOptions -> RunOptions -> Bool
$c< :: RunOptions -> RunOptions -> Bool
compare :: RunOptions -> RunOptions -> Ordering
$ccompare :: RunOptions -> RunOptions -> Ordering
$cp1Ord :: Eq RunOptions
Prelude.Ord)
instance Prelude.Show RunOptions where
showsPrec :: Int -> RunOptions -> ShowS
showsPrec _ __x :: RunOptions
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(RunOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RunOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField RunOptions "traceLevel" RunOptions'TraceLevel where
fieldOf :: Proxy# "traceLevel"
-> (RunOptions'TraceLevel -> f RunOptions'TraceLevel)
-> RunOptions
-> f RunOptions
fieldOf _
= ((RunOptions'TraceLevel -> f RunOptions'TraceLevel)
-> RunOptions -> f RunOptions)
-> ((RunOptions'TraceLevel -> f RunOptions'TraceLevel)
-> RunOptions'TraceLevel -> f RunOptions'TraceLevel)
-> (RunOptions'TraceLevel -> f RunOptions'TraceLevel)
-> RunOptions
-> f RunOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions -> RunOptions'TraceLevel)
-> (RunOptions -> RunOptions'TraceLevel -> RunOptions)
-> Lens
RunOptions RunOptions RunOptions'TraceLevel RunOptions'TraceLevel
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions -> RunOptions'TraceLevel
_RunOptions'traceLevel
(\ x__ :: RunOptions
x__ y__ :: RunOptions'TraceLevel
y__ -> RunOptions
x__ {_RunOptions'traceLevel :: RunOptions'TraceLevel
_RunOptions'traceLevel = RunOptions'TraceLevel
y__}))
(RunOptions'TraceLevel -> f RunOptions'TraceLevel)
-> RunOptions'TraceLevel -> f RunOptions'TraceLevel
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunOptions "timeoutInMs" Data.Int.Int64 where
fieldOf :: Proxy# "timeoutInMs"
-> (Int64 -> f Int64) -> RunOptions -> f RunOptions
fieldOf _
= ((Int64 -> f Int64) -> RunOptions -> f RunOptions)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RunOptions
-> f RunOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions -> Int64)
-> (RunOptions -> Int64 -> RunOptions)
-> Lens RunOptions RunOptions Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions -> Int64
_RunOptions'timeoutInMs
(\ x__ :: RunOptions
x__ y__ :: Int64
y__ -> RunOptions
x__ {_RunOptions'timeoutInMs :: Int64
_RunOptions'timeoutInMs = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunOptions "interOpThreadPool" Data.Int.Int32 where
fieldOf :: Proxy# "interOpThreadPool"
-> (Int32 -> f Int32) -> RunOptions -> f RunOptions
fieldOf _
= ((Int32 -> f Int32) -> RunOptions -> f RunOptions)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> RunOptions
-> f RunOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions -> Int32)
-> (RunOptions -> Int32 -> RunOptions)
-> Lens RunOptions RunOptions Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions -> Int32
_RunOptions'interOpThreadPool
(\ x__ :: RunOptions
x__ y__ :: Int32
y__ -> RunOptions
x__ {_RunOptions'interOpThreadPool :: Int32
_RunOptions'interOpThreadPool = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunOptions "outputPartitionGraphs" Prelude.Bool where
fieldOf :: Proxy# "outputPartitionGraphs"
-> (Bool -> f Bool) -> RunOptions -> f RunOptions
fieldOf _
= ((Bool -> f Bool) -> RunOptions -> f RunOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> RunOptions
-> f RunOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions -> Bool)
-> (RunOptions -> Bool -> RunOptions)
-> Lens RunOptions RunOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions -> Bool
_RunOptions'outputPartitionGraphs
(\ x__ :: RunOptions
x__ y__ :: Bool
y__ -> RunOptions
x__ {_RunOptions'outputPartitionGraphs :: Bool
_RunOptions'outputPartitionGraphs = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunOptions "debugOptions" Proto.Tensorflow.Core.Protobuf.Debug.DebugOptions where
fieldOf :: Proxy# "debugOptions"
-> (DebugOptions -> f DebugOptions) -> RunOptions -> f RunOptions
fieldOf _
= ((Maybe DebugOptions -> f (Maybe DebugOptions))
-> RunOptions -> f RunOptions)
-> ((DebugOptions -> f DebugOptions)
-> Maybe DebugOptions -> f (Maybe DebugOptions))
-> (DebugOptions -> f DebugOptions)
-> RunOptions
-> f RunOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions -> Maybe DebugOptions)
-> (RunOptions -> Maybe DebugOptions -> RunOptions)
-> Lens
RunOptions RunOptions (Maybe DebugOptions) (Maybe DebugOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions -> Maybe DebugOptions
_RunOptions'debugOptions
(\ x__ :: RunOptions
x__ y__ :: Maybe DebugOptions
y__ -> RunOptions
x__ {_RunOptions'debugOptions :: Maybe DebugOptions
_RunOptions'debugOptions = Maybe DebugOptions
y__}))
(DebugOptions -> Lens' (Maybe DebugOptions) DebugOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens DebugOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RunOptions "maybe'debugOptions" (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Debug.DebugOptions) where
fieldOf :: Proxy# "maybe'debugOptions"
-> (Maybe DebugOptions -> f (Maybe DebugOptions))
-> RunOptions
-> f RunOptions
fieldOf _
= ((Maybe DebugOptions -> f (Maybe DebugOptions))
-> RunOptions -> f RunOptions)
-> ((Maybe DebugOptions -> f (Maybe DebugOptions))
-> Maybe DebugOptions -> f (Maybe DebugOptions))
-> (Maybe DebugOptions -> f (Maybe DebugOptions))
-> RunOptions
-> f RunOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions -> Maybe DebugOptions)
-> (RunOptions -> Maybe DebugOptions -> RunOptions)
-> Lens
RunOptions RunOptions (Maybe DebugOptions) (Maybe DebugOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions -> Maybe DebugOptions
_RunOptions'debugOptions
(\ x__ :: RunOptions
x__ y__ :: Maybe DebugOptions
y__ -> RunOptions
x__ {_RunOptions'debugOptions :: Maybe DebugOptions
_RunOptions'debugOptions = Maybe DebugOptions
y__}))
(Maybe DebugOptions -> f (Maybe DebugOptions))
-> Maybe DebugOptions -> f (Maybe DebugOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunOptions "reportTensorAllocationsUponOom" Prelude.Bool where
fieldOf :: Proxy# "reportTensorAllocationsUponOom"
-> (Bool -> f Bool) -> RunOptions -> f RunOptions
fieldOf _
= ((Bool -> f Bool) -> RunOptions -> f RunOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> RunOptions
-> f RunOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions -> Bool)
-> (RunOptions -> Bool -> RunOptions)
-> Lens RunOptions RunOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions -> Bool
_RunOptions'reportTensorAllocationsUponOom
(\ x__ :: RunOptions
x__ y__ :: Bool
y__
-> RunOptions
x__ {_RunOptions'reportTensorAllocationsUponOom :: Bool
_RunOptions'reportTensorAllocationsUponOom = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunOptions "experimental" RunOptions'Experimental where
fieldOf :: Proxy# "experimental"
-> (RunOptions'Experimental -> f RunOptions'Experimental)
-> RunOptions
-> f RunOptions
fieldOf _
= ((Maybe RunOptions'Experimental
-> f (Maybe RunOptions'Experimental))
-> RunOptions -> f RunOptions)
-> ((RunOptions'Experimental -> f RunOptions'Experimental)
-> Maybe RunOptions'Experimental
-> f (Maybe RunOptions'Experimental))
-> (RunOptions'Experimental -> f RunOptions'Experimental)
-> RunOptions
-> f RunOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions -> Maybe RunOptions'Experimental)
-> (RunOptions -> Maybe RunOptions'Experimental -> RunOptions)
-> Lens
RunOptions
RunOptions
(Maybe RunOptions'Experimental)
(Maybe RunOptions'Experimental)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions -> Maybe RunOptions'Experimental
_RunOptions'experimental
(\ x__ :: RunOptions
x__ y__ :: Maybe RunOptions'Experimental
y__ -> RunOptions
x__ {_RunOptions'experimental :: Maybe RunOptions'Experimental
_RunOptions'experimental = Maybe RunOptions'Experimental
y__}))
(RunOptions'Experimental
-> Lens' (Maybe RunOptions'Experimental) RunOptions'Experimental
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RunOptions'Experimental
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RunOptions "maybe'experimental" (Prelude.Maybe RunOptions'Experimental) where
fieldOf :: Proxy# "maybe'experimental"
-> (Maybe RunOptions'Experimental
-> f (Maybe RunOptions'Experimental))
-> RunOptions
-> f RunOptions
fieldOf _
= ((Maybe RunOptions'Experimental
-> f (Maybe RunOptions'Experimental))
-> RunOptions -> f RunOptions)
-> ((Maybe RunOptions'Experimental
-> f (Maybe RunOptions'Experimental))
-> Maybe RunOptions'Experimental
-> f (Maybe RunOptions'Experimental))
-> (Maybe RunOptions'Experimental
-> f (Maybe RunOptions'Experimental))
-> RunOptions
-> f RunOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions -> Maybe RunOptions'Experimental)
-> (RunOptions -> Maybe RunOptions'Experimental -> RunOptions)
-> Lens
RunOptions
RunOptions
(Maybe RunOptions'Experimental)
(Maybe RunOptions'Experimental)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions -> Maybe RunOptions'Experimental
_RunOptions'experimental
(\ x__ :: RunOptions
x__ y__ :: Maybe RunOptions'Experimental
y__ -> RunOptions
x__ {_RunOptions'experimental :: Maybe RunOptions'Experimental
_RunOptions'experimental = Maybe RunOptions'Experimental
y__}))
(Maybe RunOptions'Experimental
-> f (Maybe RunOptions'Experimental))
-> Maybe RunOptions'Experimental
-> f (Maybe RunOptions'Experimental)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RunOptions where
messageName :: Proxy RunOptions -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.RunOptions"
packedMessageDescriptor :: Proxy RunOptions -> ByteString
packedMessageDescriptor _
= "\n\
\\n\
\RunOptions\DC2B\n\
\\vtrace_level\CAN\SOH \SOH(\SO2!.tensorflow.RunOptions.TraceLevelR\n\
\traceLevel\DC2\"\n\
\\rtimeout_in_ms\CAN\STX \SOH(\ETXR\vtimeoutInMs\DC2/\n\
\\DC4inter_op_thread_pool\CAN\ETX \SOH(\ENQR\DC1interOpThreadPool\DC26\n\
\\ETBoutput_partition_graphs\CAN\ENQ \SOH(\bR\NAKoutputPartitionGraphs\DC2=\n\
\\rdebug_options\CAN\ACK \SOH(\v2\CAN.tensorflow.DebugOptionsR\fdebugOptions\DC2J\n\
\\"report_tensor_allocations_upon_oom\CAN\a \SOH(\bR\RSreportTensorAllocationsUponOom\DC2G\n\
\\fexperimental\CAN\b \SOH(\v2#.tensorflow.RunOptions.ExperimentalR\fexperimental\SUB\154\STX\n\
\\fExperimental\DC20\n\
\\DC4collective_graph_key\CAN\SOH \SOH(\ETXR\DC2collectiveGraphKey\DC2/\n\
\\DC4use_run_handler_pool\CAN\STX \SOH(\bR\DC1useRunHandlerPool\DC2r\n\
\\CANrun_handler_pool_options\CAN\ETX \SOH(\v29.tensorflow.RunOptions.Experimental.RunHandlerPoolOptionsR\NAKrunHandlerPoolOptions\SUB3\n\
\\NAKRunHandlerPoolOptions\DC2\SUB\n\
\\bpriority\CAN\SOH \SOH(\ETXR\bpriority\"R\n\
\\n\
\TraceLevel\DC2\f\n\
\\bNO_TRACE\DLE\NUL\DC2\DC2\n\
\\SOSOFTWARE_TRACE\DLE\SOH\DC2\DC2\n\
\\SO\&HARDWARE_TRACE\DLE\STX\DC2\SO\n\
\\n\
\FULL_TRACE\DLE\ETXJ\EOT\b\EOT\DLE\ENQ"
packedFileDescriptor :: Proxy RunOptions -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor RunOptions)
fieldsByTag
= let
traceLevel__field_descriptor :: FieldDescriptor RunOptions
traceLevel__field_descriptor
= String
-> FieldTypeDescriptor RunOptions'TraceLevel
-> FieldAccessor RunOptions RunOptions'TraceLevel
-> FieldDescriptor RunOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"trace_level"
(ScalarField RunOptions'TraceLevel
-> FieldTypeDescriptor RunOptions'TraceLevel
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField RunOptions'TraceLevel
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor RunOptions'TraceLevel)
(WireDefault RunOptions'TraceLevel
-> Lens
RunOptions RunOptions RunOptions'TraceLevel RunOptions'TraceLevel
-> FieldAccessor RunOptions RunOptions'TraceLevel
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault RunOptions'TraceLevel
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "traceLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"traceLevel")) ::
Data.ProtoLens.FieldDescriptor RunOptions
timeoutInMs__field_descriptor :: FieldDescriptor RunOptions
timeoutInMs__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor RunOptions Int64
-> FieldDescriptor RunOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"timeout_in_ms"
(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 RunOptions RunOptions Int64 Int64
-> FieldAccessor RunOptions 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 "timeoutInMs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeoutInMs")) ::
Data.ProtoLens.FieldDescriptor RunOptions
interOpThreadPool__field_descriptor :: FieldDescriptor RunOptions
interOpThreadPool__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor RunOptions Int32
-> FieldDescriptor RunOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"inter_op_thread_pool"
(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 RunOptions RunOptions Int32 Int32
-> FieldAccessor RunOptions 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 "interOpThreadPool" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"interOpThreadPool")) ::
Data.ProtoLens.FieldDescriptor RunOptions
outputPartitionGraphs__field_descriptor :: FieldDescriptor RunOptions
outputPartitionGraphs__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor RunOptions Bool
-> FieldDescriptor RunOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"output_partition_graphs"
(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 RunOptions RunOptions Bool Bool
-> FieldAccessor RunOptions 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 "outputPartitionGraphs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputPartitionGraphs")) ::
Data.ProtoLens.FieldDescriptor RunOptions
debugOptions__field_descriptor :: FieldDescriptor RunOptions
debugOptions__field_descriptor
= String
-> FieldTypeDescriptor DebugOptions
-> FieldAccessor RunOptions DebugOptions
-> FieldDescriptor RunOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"debug_options"
(MessageOrGroup -> FieldTypeDescriptor DebugOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.Debug.DebugOptions)
(Lens
RunOptions RunOptions (Maybe DebugOptions) (Maybe DebugOptions)
-> FieldAccessor RunOptions DebugOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'debugOptions" a, Functor f) =>
(a -> f a) -> s -> 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'debugOptions")) ::
Data.ProtoLens.FieldDescriptor RunOptions
reportTensorAllocationsUponOom__field_descriptor :: FieldDescriptor RunOptions
reportTensorAllocationsUponOom__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor RunOptions Bool
-> FieldDescriptor RunOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"report_tensor_allocations_upon_oom"
(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 RunOptions RunOptions Bool Bool
-> FieldAccessor RunOptions 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 "reportTensorAllocationsUponOom" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reportTensorAllocationsUponOom")) ::
Data.ProtoLens.FieldDescriptor RunOptions
experimental__field_descriptor :: FieldDescriptor RunOptions
experimental__field_descriptor
= String
-> FieldTypeDescriptor RunOptions'Experimental
-> FieldAccessor RunOptions RunOptions'Experimental
-> FieldDescriptor RunOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"experimental"
(MessageOrGroup -> FieldTypeDescriptor RunOptions'Experimental
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RunOptions'Experimental)
(Lens
RunOptions
RunOptions
(Maybe RunOptions'Experimental)
(Maybe RunOptions'Experimental)
-> FieldAccessor RunOptions RunOptions'Experimental
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'experimental" a, Functor f) =>
(a -> f a) -> s -> 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'experimental")) ::
Data.ProtoLens.FieldDescriptor RunOptions
in
[(Tag, FieldDescriptor RunOptions)]
-> Map Tag (FieldDescriptor RunOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor RunOptions
traceLevel__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor RunOptions
timeoutInMs__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor RunOptions
interOpThreadPool__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor RunOptions
outputPartitionGraphs__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor RunOptions
debugOptions__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7,
FieldDescriptor RunOptions
reportTensorAllocationsUponOom__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor RunOptions
experimental__field_descriptor)]
unknownFields :: LensLike' f RunOptions FieldSet
unknownFields
= (RunOptions -> FieldSet)
-> (RunOptions -> FieldSet -> RunOptions)
-> Lens' RunOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions -> FieldSet
_RunOptions'_unknownFields
(\ x__ :: RunOptions
x__ y__ :: FieldSet
y__ -> RunOptions
x__ {_RunOptions'_unknownFields :: FieldSet
_RunOptions'_unknownFields = FieldSet
y__})
defMessage :: RunOptions
defMessage
= $WRunOptions'_constructor :: RunOptions'TraceLevel
-> Int64
-> Int32
-> Bool
-> Maybe DebugOptions
-> Bool
-> Maybe RunOptions'Experimental
-> FieldSet
-> RunOptions
RunOptions'_constructor
{_RunOptions'traceLevel :: RunOptions'TraceLevel
_RunOptions'traceLevel = RunOptions'TraceLevel
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RunOptions'timeoutInMs :: Int64
_RunOptions'timeoutInMs = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RunOptions'interOpThreadPool :: Int32
_RunOptions'interOpThreadPool = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RunOptions'outputPartitionGraphs :: Bool
_RunOptions'outputPartitionGraphs = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RunOptions'debugOptions :: Maybe DebugOptions
_RunOptions'debugOptions = Maybe DebugOptions
forall a. Maybe a
Prelude.Nothing,
_RunOptions'reportTensorAllocationsUponOom :: Bool
_RunOptions'reportTensorAllocationsUponOom = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RunOptions'experimental :: Maybe RunOptions'Experimental
_RunOptions'experimental = Maybe RunOptions'Experimental
forall a. Maybe a
Prelude.Nothing,
_RunOptions'_unknownFields :: FieldSet
_RunOptions'_unknownFields = []}
parseMessage :: Parser RunOptions
parseMessage
= let
loop ::
RunOptions -> Data.ProtoLens.Encoding.Bytes.Parser RunOptions
loop :: RunOptions -> Parser RunOptions
loop x :: RunOptions
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]))))
RunOptions -> Parser RunOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter RunOptions RunOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> RunOptions -> RunOptions
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 RunOptions RunOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) RunOptions
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do RunOptions'TraceLevel
y <- Parser RunOptions'TraceLevel
-> String -> Parser RunOptions'TraceLevel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> RunOptions'TraceLevel)
-> Parser Int -> Parser RunOptions'TraceLevel
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> RunOptions'TraceLevel
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))
"trace_level"
RunOptions -> Parser RunOptions
loop
(Setter
RunOptions RunOptions RunOptions'TraceLevel RunOptions'TraceLevel
-> RunOptions'TraceLevel -> RunOptions -> RunOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "traceLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"traceLevel") RunOptions'TraceLevel
y RunOptions
x)
16
-> 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)
"timeout_in_ms"
RunOptions -> Parser RunOptions
loop
(Setter RunOptions RunOptions Int64 Int64
-> Int64 -> RunOptions -> RunOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "timeoutInMs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeoutInMs") Int64
y RunOptions
x)
24
-> 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)
"inter_op_thread_pool"
RunOptions -> Parser RunOptions
loop
(Setter RunOptions RunOptions Int32 Int32
-> Int32 -> RunOptions -> RunOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "interOpThreadPool" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"interOpThreadPool") Int32
y RunOptions
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)
"output_partition_graphs"
RunOptions -> Parser RunOptions
loop
(Setter RunOptions RunOptions Bool Bool
-> Bool -> RunOptions -> RunOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "outputPartitionGraphs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputPartitionGraphs") Bool
y RunOptions
x)
50
-> do DebugOptions
y <- Parser DebugOptions -> String -> Parser DebugOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser DebugOptions -> Parser DebugOptions
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 DebugOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"debug_options"
RunOptions -> Parser RunOptions
loop
(Setter RunOptions RunOptions DebugOptions DebugOptions
-> DebugOptions -> RunOptions -> RunOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "debugOptions" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"debugOptions") DebugOptions
y RunOptions
x)
56
-> 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)
"report_tensor_allocations_upon_oom"
RunOptions -> Parser RunOptions
loop
(Setter RunOptions RunOptions Bool Bool
-> Bool -> RunOptions -> RunOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "reportTensorAllocationsUponOom" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reportTensorAllocationsUponOom")
Bool
y
RunOptions
x)
66
-> do RunOptions'Experimental
y <- Parser RunOptions'Experimental
-> String -> Parser RunOptions'Experimental
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser RunOptions'Experimental -> Parser RunOptions'Experimental
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 RunOptions'Experimental
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"experimental"
RunOptions -> Parser RunOptions
loop
(Setter
RunOptions
RunOptions
RunOptions'Experimental
RunOptions'Experimental
-> RunOptions'Experimental -> RunOptions -> RunOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "experimental" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"experimental") RunOptions'Experimental
y RunOptions
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
RunOptions -> Parser RunOptions
loop
(Setter RunOptions RunOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> RunOptions -> RunOptions
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 RunOptions RunOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) RunOptions
x)
in
Parser RunOptions -> String -> Parser RunOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do RunOptions -> Parser RunOptions
loop RunOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "RunOptions"
buildMessage :: RunOptions -> Builder
buildMessage
= \ _x :: RunOptions
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: RunOptions'TraceLevel
_v
= FoldLike
RunOptions'TraceLevel
RunOptions
RunOptions
RunOptions'TraceLevel
RunOptions'TraceLevel
-> RunOptions -> RunOptions'TraceLevel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "traceLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"traceLevel") RunOptions
_x
in
if RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) RunOptions'TraceLevel
_v RunOptions'TraceLevel
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Int -> Builder)
-> (RunOptions'TraceLevel -> Int)
-> RunOptions'TraceLevel
-> 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)
RunOptions'TraceLevel -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
RunOptions'TraceLevel
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 RunOptions RunOptions Int64 Int64
-> RunOptions -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "timeoutInMs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeoutInMs") RunOptions
_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 16)
((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.<>)
(let
_v :: Int32
_v
= FoldLike Int32 RunOptions RunOptions Int32 Int32
-> RunOptions -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "interOpThreadPool" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"interOpThreadPool") RunOptions
_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 24)
((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 :: Bool
_v
= FoldLike Bool RunOptions RunOptions Bool Bool -> RunOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "outputPartitionGraphs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputPartitionGraphs") RunOptions
_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.<>)
(case
FoldLike
(Maybe DebugOptions)
RunOptions
RunOptions
(Maybe DebugOptions)
(Maybe DebugOptions)
-> RunOptions -> Maybe DebugOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'debugOptions" a, Functor f) =>
(a -> f a) -> s -> 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'debugOptions") RunOptions
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: DebugOptions
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((ByteString -> Builder)
-> (DebugOptions -> ByteString) -> DebugOptions -> 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))
DebugOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
DebugOptions
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool RunOptions RunOptions Bool Bool -> RunOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "reportTensorAllocationsUponOom" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reportTensorAllocationsUponOom")
RunOptions
_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 56)
((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.<>)
(case
FoldLike
(Maybe RunOptions'Experimental)
RunOptions
RunOptions
(Maybe RunOptions'Experimental)
(Maybe RunOptions'Experimental)
-> RunOptions -> Maybe RunOptions'Experimental
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'experimental" a, Functor f) =>
(a -> f a) -> s -> 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'experimental") RunOptions
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: RunOptions'Experimental
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
((ByteString -> Builder)
-> (RunOptions'Experimental -> ByteString)
-> RunOptions'Experimental
-> 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))
RunOptions'Experimental -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
RunOptions'Experimental
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet RunOptions RunOptions FieldSet FieldSet
-> RunOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet RunOptions RunOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields RunOptions
_x))))))))
instance Control.DeepSeq.NFData RunOptions where
rnf :: RunOptions -> ()
rnf
= \ x__ :: RunOptions
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions -> FieldSet
_RunOptions'_unknownFields RunOptions
x__)
(RunOptions'TraceLevel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions -> RunOptions'TraceLevel
_RunOptions'traceLevel RunOptions
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions -> Int64
_RunOptions'timeoutInMs RunOptions
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions -> Int32
_RunOptions'interOpThreadPool RunOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions -> Bool
_RunOptions'outputPartitionGraphs RunOptions
x__)
(Maybe DebugOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions -> Maybe DebugOptions
_RunOptions'debugOptions RunOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions -> Bool
_RunOptions'reportTensorAllocationsUponOom RunOptions
x__)
(Maybe RunOptions'Experimental -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (RunOptions -> Maybe RunOptions'Experimental
_RunOptions'experimental RunOptions
x__) ())))))))
data RunOptions'Experimental
= RunOptions'Experimental'_constructor {RunOptions'Experimental -> Int64
_RunOptions'Experimental'collectiveGraphKey :: !Data.Int.Int64,
RunOptions'Experimental -> Bool
_RunOptions'Experimental'useRunHandlerPool :: !Prelude.Bool,
RunOptions'Experimental
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions
_RunOptions'Experimental'runHandlerPoolOptions :: !(Prelude.Maybe RunOptions'Experimental'RunHandlerPoolOptions),
RunOptions'Experimental -> FieldSet
_RunOptions'Experimental'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RunOptions'Experimental -> RunOptions'Experimental -> Bool
(RunOptions'Experimental -> RunOptions'Experimental -> Bool)
-> (RunOptions'Experimental -> RunOptions'Experimental -> Bool)
-> Eq RunOptions'Experimental
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RunOptions'Experimental -> RunOptions'Experimental -> Bool
$c/= :: RunOptions'Experimental -> RunOptions'Experimental -> Bool
== :: RunOptions'Experimental -> RunOptions'Experimental -> Bool
$c== :: RunOptions'Experimental -> RunOptions'Experimental -> Bool
Prelude.Eq, Eq RunOptions'Experimental
Eq RunOptions'Experimental =>
(RunOptions'Experimental -> RunOptions'Experimental -> Ordering)
-> (RunOptions'Experimental -> RunOptions'Experimental -> Bool)
-> (RunOptions'Experimental -> RunOptions'Experimental -> Bool)
-> (RunOptions'Experimental -> RunOptions'Experimental -> Bool)
-> (RunOptions'Experimental -> RunOptions'Experimental -> Bool)
-> (RunOptions'Experimental
-> RunOptions'Experimental -> RunOptions'Experimental)
-> (RunOptions'Experimental
-> RunOptions'Experimental -> RunOptions'Experimental)
-> Ord RunOptions'Experimental
RunOptions'Experimental -> RunOptions'Experimental -> Bool
RunOptions'Experimental -> RunOptions'Experimental -> Ordering
RunOptions'Experimental
-> RunOptions'Experimental -> RunOptions'Experimental
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 :: RunOptions'Experimental
-> RunOptions'Experimental -> RunOptions'Experimental
$cmin :: RunOptions'Experimental
-> RunOptions'Experimental -> RunOptions'Experimental
max :: RunOptions'Experimental
-> RunOptions'Experimental -> RunOptions'Experimental
$cmax :: RunOptions'Experimental
-> RunOptions'Experimental -> RunOptions'Experimental
>= :: RunOptions'Experimental -> RunOptions'Experimental -> Bool
$c>= :: RunOptions'Experimental -> RunOptions'Experimental -> Bool
> :: RunOptions'Experimental -> RunOptions'Experimental -> Bool
$c> :: RunOptions'Experimental -> RunOptions'Experimental -> Bool
<= :: RunOptions'Experimental -> RunOptions'Experimental -> Bool
$c<= :: RunOptions'Experimental -> RunOptions'Experimental -> Bool
< :: RunOptions'Experimental -> RunOptions'Experimental -> Bool
$c< :: RunOptions'Experimental -> RunOptions'Experimental -> Bool
compare :: RunOptions'Experimental -> RunOptions'Experimental -> Ordering
$ccompare :: RunOptions'Experimental -> RunOptions'Experimental -> Ordering
$cp1Ord :: Eq RunOptions'Experimental
Prelude.Ord)
instance Prelude.Show RunOptions'Experimental where
showsPrec :: Int -> RunOptions'Experimental -> ShowS
showsPrec _ __x :: RunOptions'Experimental
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(RunOptions'Experimental -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RunOptions'Experimental
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField RunOptions'Experimental "collectiveGraphKey" Data.Int.Int64 where
fieldOf :: Proxy# "collectiveGraphKey"
-> (Int64 -> f Int64)
-> RunOptions'Experimental
-> f RunOptions'Experimental
fieldOf _
= ((Int64 -> f Int64)
-> RunOptions'Experimental -> f RunOptions'Experimental)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RunOptions'Experimental
-> f RunOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions'Experimental -> Int64)
-> (RunOptions'Experimental -> Int64 -> RunOptions'Experimental)
-> Lens RunOptions'Experimental RunOptions'Experimental Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions'Experimental -> Int64
_RunOptions'Experimental'collectiveGraphKey
(\ x__ :: RunOptions'Experimental
x__ y__ :: Int64
y__
-> RunOptions'Experimental
x__ {_RunOptions'Experimental'collectiveGraphKey :: Int64
_RunOptions'Experimental'collectiveGraphKey = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunOptions'Experimental "useRunHandlerPool" Prelude.Bool where
fieldOf :: Proxy# "useRunHandlerPool"
-> (Bool -> f Bool)
-> RunOptions'Experimental
-> f RunOptions'Experimental
fieldOf _
= ((Bool -> f Bool)
-> RunOptions'Experimental -> f RunOptions'Experimental)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> RunOptions'Experimental
-> f RunOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions'Experimental -> Bool)
-> (RunOptions'Experimental -> Bool -> RunOptions'Experimental)
-> Lens RunOptions'Experimental RunOptions'Experimental Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions'Experimental -> Bool
_RunOptions'Experimental'useRunHandlerPool
(\ x__ :: RunOptions'Experimental
x__ y__ :: Bool
y__
-> RunOptions'Experimental
x__ {_RunOptions'Experimental'useRunHandlerPool :: Bool
_RunOptions'Experimental'useRunHandlerPool = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunOptions'Experimental "runHandlerPoolOptions" RunOptions'Experimental'RunHandlerPoolOptions where
fieldOf :: Proxy# "runHandlerPoolOptions"
-> (RunOptions'Experimental'RunHandlerPoolOptions
-> f RunOptions'Experimental'RunHandlerPoolOptions)
-> RunOptions'Experimental
-> f RunOptions'Experimental
fieldOf _
= ((Maybe RunOptions'Experimental'RunHandlerPoolOptions
-> f (Maybe RunOptions'Experimental'RunHandlerPoolOptions))
-> RunOptions'Experimental -> f RunOptions'Experimental)
-> ((RunOptions'Experimental'RunHandlerPoolOptions
-> f RunOptions'Experimental'RunHandlerPoolOptions)
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions
-> f (Maybe RunOptions'Experimental'RunHandlerPoolOptions))
-> (RunOptions'Experimental'RunHandlerPoolOptions
-> f RunOptions'Experimental'RunHandlerPoolOptions)
-> RunOptions'Experimental
-> f RunOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions'Experimental
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions)
-> (RunOptions'Experimental
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental)
-> Lens
RunOptions'Experimental
RunOptions'Experimental
(Maybe RunOptions'Experimental'RunHandlerPoolOptions)
(Maybe RunOptions'Experimental'RunHandlerPoolOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions'Experimental
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions
_RunOptions'Experimental'runHandlerPoolOptions
(\ x__ :: RunOptions'Experimental
x__ y__ :: Maybe RunOptions'Experimental'RunHandlerPoolOptions
y__
-> RunOptions'Experimental
x__ {_RunOptions'Experimental'runHandlerPoolOptions :: Maybe RunOptions'Experimental'RunHandlerPoolOptions
_RunOptions'Experimental'runHandlerPoolOptions = Maybe RunOptions'Experimental'RunHandlerPoolOptions
y__}))
(RunOptions'Experimental'RunHandlerPoolOptions
-> Lens'
(Maybe RunOptions'Experimental'RunHandlerPoolOptions)
RunOptions'Experimental'RunHandlerPoolOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RunOptions'Experimental'RunHandlerPoolOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RunOptions'Experimental "maybe'runHandlerPoolOptions" (Prelude.Maybe RunOptions'Experimental'RunHandlerPoolOptions) where
fieldOf :: Proxy# "maybe'runHandlerPoolOptions"
-> (Maybe RunOptions'Experimental'RunHandlerPoolOptions
-> f (Maybe RunOptions'Experimental'RunHandlerPoolOptions))
-> RunOptions'Experimental
-> f RunOptions'Experimental
fieldOf _
= ((Maybe RunOptions'Experimental'RunHandlerPoolOptions
-> f (Maybe RunOptions'Experimental'RunHandlerPoolOptions))
-> RunOptions'Experimental -> f RunOptions'Experimental)
-> ((Maybe RunOptions'Experimental'RunHandlerPoolOptions
-> f (Maybe RunOptions'Experimental'RunHandlerPoolOptions))
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions
-> f (Maybe RunOptions'Experimental'RunHandlerPoolOptions))
-> (Maybe RunOptions'Experimental'RunHandlerPoolOptions
-> f (Maybe RunOptions'Experimental'RunHandlerPoolOptions))
-> RunOptions'Experimental
-> f RunOptions'Experimental
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions'Experimental
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions)
-> (RunOptions'Experimental
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental)
-> Lens
RunOptions'Experimental
RunOptions'Experimental
(Maybe RunOptions'Experimental'RunHandlerPoolOptions)
(Maybe RunOptions'Experimental'RunHandlerPoolOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions'Experimental
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions
_RunOptions'Experimental'runHandlerPoolOptions
(\ x__ :: RunOptions'Experimental
x__ y__ :: Maybe RunOptions'Experimental'RunHandlerPoolOptions
y__
-> RunOptions'Experimental
x__ {_RunOptions'Experimental'runHandlerPoolOptions :: Maybe RunOptions'Experimental'RunHandlerPoolOptions
_RunOptions'Experimental'runHandlerPoolOptions = Maybe RunOptions'Experimental'RunHandlerPoolOptions
y__}))
(Maybe RunOptions'Experimental'RunHandlerPoolOptions
-> f (Maybe RunOptions'Experimental'RunHandlerPoolOptions))
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions
-> f (Maybe RunOptions'Experimental'RunHandlerPoolOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RunOptions'Experimental where
messageName :: Proxy RunOptions'Experimental -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.RunOptions.Experimental"
packedMessageDescriptor :: Proxy RunOptions'Experimental -> ByteString
packedMessageDescriptor _
= "\n\
\\fExperimental\DC20\n\
\\DC4collective_graph_key\CAN\SOH \SOH(\ETXR\DC2collectiveGraphKey\DC2/\n\
\\DC4use_run_handler_pool\CAN\STX \SOH(\bR\DC1useRunHandlerPool\DC2r\n\
\\CANrun_handler_pool_options\CAN\ETX \SOH(\v29.tensorflow.RunOptions.Experimental.RunHandlerPoolOptionsR\NAKrunHandlerPoolOptions\SUB3\n\
\\NAKRunHandlerPoolOptions\DC2\SUB\n\
\\bpriority\CAN\SOH \SOH(\ETXR\bpriority"
packedFileDescriptor :: Proxy RunOptions'Experimental -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor RunOptions'Experimental)
fieldsByTag
= let
collectiveGraphKey__field_descriptor :: FieldDescriptor RunOptions'Experimental
collectiveGraphKey__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor RunOptions'Experimental Int64
-> FieldDescriptor RunOptions'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"collective_graph_key"
(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 RunOptions'Experimental RunOptions'Experimental Int64 Int64
-> FieldAccessor RunOptions'Experimental 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 "collectiveGraphKey" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectiveGraphKey")) ::
Data.ProtoLens.FieldDescriptor RunOptions'Experimental
useRunHandlerPool__field_descriptor :: FieldDescriptor RunOptions'Experimental
useRunHandlerPool__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor RunOptions'Experimental Bool
-> FieldDescriptor RunOptions'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"use_run_handler_pool"
(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 RunOptions'Experimental RunOptions'Experimental Bool Bool
-> FieldAccessor RunOptions'Experimental 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 "useRunHandlerPool" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"useRunHandlerPool")) ::
Data.ProtoLens.FieldDescriptor RunOptions'Experimental
runHandlerPoolOptions__field_descriptor :: FieldDescriptor RunOptions'Experimental
runHandlerPoolOptions__field_descriptor
= String
-> FieldTypeDescriptor
RunOptions'Experimental'RunHandlerPoolOptions
-> FieldAccessor
RunOptions'Experimental
RunOptions'Experimental'RunHandlerPoolOptions
-> FieldDescriptor RunOptions'Experimental
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"run_handler_pool_options"
(MessageOrGroup
-> FieldTypeDescriptor
RunOptions'Experimental'RunHandlerPoolOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RunOptions'Experimental'RunHandlerPoolOptions)
(Lens
RunOptions'Experimental
RunOptions'Experimental
(Maybe RunOptions'Experimental'RunHandlerPoolOptions)
(Maybe RunOptions'Experimental'RunHandlerPoolOptions)
-> FieldAccessor
RunOptions'Experimental
RunOptions'Experimental'RunHandlerPoolOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'runHandlerPoolOptions" a, Functor f) =>
(a -> f a) -> s -> 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'runHandlerPoolOptions")) ::
Data.ProtoLens.FieldDescriptor RunOptions'Experimental
in
[(Tag, FieldDescriptor RunOptions'Experimental)]
-> Map Tag (FieldDescriptor RunOptions'Experimental)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor RunOptions'Experimental
collectiveGraphKey__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor RunOptions'Experimental
useRunHandlerPool__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor RunOptions'Experimental
runHandlerPoolOptions__field_descriptor)]
unknownFields :: LensLike' f RunOptions'Experimental FieldSet
unknownFields
= (RunOptions'Experimental -> FieldSet)
-> (RunOptions'Experimental -> FieldSet -> RunOptions'Experimental)
-> Lens' RunOptions'Experimental FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions'Experimental -> FieldSet
_RunOptions'Experimental'_unknownFields
(\ x__ :: RunOptions'Experimental
x__ y__ :: FieldSet
y__ -> RunOptions'Experimental
x__ {_RunOptions'Experimental'_unknownFields :: FieldSet
_RunOptions'Experimental'_unknownFields = FieldSet
y__})
defMessage :: RunOptions'Experimental
defMessage
= $WRunOptions'Experimental'_constructor :: Int64
-> Bool
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions
-> FieldSet
-> RunOptions'Experimental
RunOptions'Experimental'_constructor
{_RunOptions'Experimental'collectiveGraphKey :: Int64
_RunOptions'Experimental'collectiveGraphKey = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RunOptions'Experimental'useRunHandlerPool :: Bool
_RunOptions'Experimental'useRunHandlerPool = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RunOptions'Experimental'runHandlerPoolOptions :: Maybe RunOptions'Experimental'RunHandlerPoolOptions
_RunOptions'Experimental'runHandlerPoolOptions = Maybe RunOptions'Experimental'RunHandlerPoolOptions
forall a. Maybe a
Prelude.Nothing,
_RunOptions'Experimental'_unknownFields :: FieldSet
_RunOptions'Experimental'_unknownFields = []}
parseMessage :: Parser RunOptions'Experimental
parseMessage
= let
loop ::
RunOptions'Experimental
-> Data.ProtoLens.Encoding.Bytes.Parser RunOptions'Experimental
loop :: RunOptions'Experimental -> Parser RunOptions'Experimental
loop x :: RunOptions'Experimental
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]))))
RunOptions'Experimental -> Parser RunOptions'Experimental
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
RunOptions'Experimental RunOptions'Experimental FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> RunOptions'Experimental
-> RunOptions'Experimental
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
RunOptions'Experimental RunOptions'Experimental FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) RunOptions'Experimental
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"collective_graph_key"
RunOptions'Experimental -> Parser RunOptions'Experimental
loop
(Setter RunOptions'Experimental RunOptions'Experimental Int64 Int64
-> Int64 -> RunOptions'Experimental -> RunOptions'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "collectiveGraphKey" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectiveGraphKey") Int64
y RunOptions'Experimental
x)
16
-> 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)
"use_run_handler_pool"
RunOptions'Experimental -> Parser RunOptions'Experimental
loop
(Setter RunOptions'Experimental RunOptions'Experimental Bool Bool
-> Bool -> RunOptions'Experimental -> RunOptions'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "useRunHandlerPool" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"useRunHandlerPool") Bool
y RunOptions'Experimental
x)
26
-> do RunOptions'Experimental'RunHandlerPoolOptions
y <- Parser RunOptions'Experimental'RunHandlerPoolOptions
-> String -> Parser RunOptions'Experimental'RunHandlerPoolOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser RunOptions'Experimental'RunHandlerPoolOptions
-> Parser RunOptions'Experimental'RunHandlerPoolOptions
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 RunOptions'Experimental'RunHandlerPoolOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"run_handler_pool_options"
RunOptions'Experimental -> Parser RunOptions'Experimental
loop
(Setter
RunOptions'Experimental
RunOptions'Experimental
RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental
-> RunOptions'Experimental
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "runHandlerPoolOptions" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runHandlerPoolOptions") RunOptions'Experimental'RunHandlerPoolOptions
y RunOptions'Experimental
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
RunOptions'Experimental -> Parser RunOptions'Experimental
loop
(Setter
RunOptions'Experimental RunOptions'Experimental FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> RunOptions'Experimental
-> RunOptions'Experimental
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
RunOptions'Experimental RunOptions'Experimental FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) RunOptions'Experimental
x)
in
Parser RunOptions'Experimental
-> String -> Parser RunOptions'Experimental
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do RunOptions'Experimental -> Parser RunOptions'Experimental
loop RunOptions'Experimental
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "Experimental"
buildMessage :: RunOptions'Experimental -> Builder
buildMessage
= \ _x :: RunOptions'Experimental
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike
Int64 RunOptions'Experimental RunOptions'Experimental Int64 Int64
-> RunOptions'Experimental -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "collectiveGraphKey" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectiveGraphKey") RunOptions'Experimental
_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 8)
((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.<>)
(let
_v :: Bool
_v
= FoldLike
Bool RunOptions'Experimental RunOptions'Experimental Bool Bool
-> RunOptions'Experimental -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "useRunHandlerPool" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"useRunHandlerPool") RunOptions'Experimental
_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 16)
((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.<>)
(case
FoldLike
(Maybe RunOptions'Experimental'RunHandlerPoolOptions)
RunOptions'Experimental
RunOptions'Experimental
(Maybe RunOptions'Experimental'RunHandlerPoolOptions)
(Maybe RunOptions'Experimental'RunHandlerPoolOptions)
-> RunOptions'Experimental
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'runHandlerPoolOptions" a, Functor f) =>
(a -> f a) -> s -> 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'runHandlerPoolOptions") RunOptions'Experimental
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: RunOptions'Experimental'RunHandlerPoolOptions
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (RunOptions'Experimental'RunHandlerPoolOptions -> ByteString)
-> RunOptions'Experimental'RunHandlerPoolOptions
-> 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))
RunOptions'Experimental'RunHandlerPoolOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
RunOptions'Experimental'RunHandlerPoolOptions
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
RunOptions'Experimental
RunOptions'Experimental
FieldSet
FieldSet
-> RunOptions'Experimental -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
RunOptions'Experimental
RunOptions'Experimental
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields RunOptions'Experimental
_x))))
instance Control.DeepSeq.NFData RunOptions'Experimental where
rnf :: RunOptions'Experimental -> ()
rnf
= \ x__ :: RunOptions'Experimental
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions'Experimental -> FieldSet
_RunOptions'Experimental'_unknownFields RunOptions'Experimental
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions'Experimental -> Int64
_RunOptions'Experimental'collectiveGraphKey RunOptions'Experimental
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions'Experimental -> Bool
_RunOptions'Experimental'useRunHandlerPool RunOptions'Experimental
x__)
(Maybe RunOptions'Experimental'RunHandlerPoolOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions'Experimental
-> Maybe RunOptions'Experimental'RunHandlerPoolOptions
_RunOptions'Experimental'runHandlerPoolOptions RunOptions'Experimental
x__) ())))
data RunOptions'Experimental'RunHandlerPoolOptions
= RunOptions'Experimental'RunHandlerPoolOptions'_constructor {RunOptions'Experimental'RunHandlerPoolOptions -> Int64
_RunOptions'Experimental'RunHandlerPoolOptions'priority :: !Data.Int.Int64,
RunOptions'Experimental'RunHandlerPoolOptions -> FieldSet
_RunOptions'Experimental'RunHandlerPoolOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
(RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool)
-> (RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool)
-> Eq RunOptions'Experimental'RunHandlerPoolOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
$c/= :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
== :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
$c== :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
Prelude.Eq, Eq RunOptions'Experimental'RunHandlerPoolOptions
Eq RunOptions'Experimental'RunHandlerPoolOptions =>
(RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Ordering)
-> (RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool)
-> (RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool)
-> (RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool)
-> (RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool)
-> (RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions)
-> (RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions)
-> Ord RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Ordering
RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
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 :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
$cmin :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
max :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
$cmax :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
>= :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
$c>= :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
> :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
$c> :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
<= :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
$c<= :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
< :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
$c< :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Bool
compare :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Ordering
$ccompare :: RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions -> Ordering
$cp1Ord :: Eq RunOptions'Experimental'RunHandlerPoolOptions
Prelude.Ord)
instance Prelude.Show RunOptions'Experimental'RunHandlerPoolOptions where
showsPrec :: Int -> RunOptions'Experimental'RunHandlerPoolOptions -> ShowS
showsPrec _ __x :: RunOptions'Experimental'RunHandlerPoolOptions
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(RunOptions'Experimental'RunHandlerPoolOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RunOptions'Experimental'RunHandlerPoolOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField RunOptions'Experimental'RunHandlerPoolOptions "priority" Data.Int.Int64 where
fieldOf :: Proxy# "priority"
-> (Int64 -> f Int64)
-> RunOptions'Experimental'RunHandlerPoolOptions
-> f RunOptions'Experimental'RunHandlerPoolOptions
fieldOf _
= ((Int64 -> f Int64)
-> RunOptions'Experimental'RunHandlerPoolOptions
-> f RunOptions'Experimental'RunHandlerPoolOptions)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RunOptions'Experimental'RunHandlerPoolOptions
-> f RunOptions'Experimental'RunHandlerPoolOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RunOptions'Experimental'RunHandlerPoolOptions -> Int64)
-> (RunOptions'Experimental'RunHandlerPoolOptions
-> Int64 -> RunOptions'Experimental'RunHandlerPoolOptions)
-> Lens
RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions
Int64
Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions'Experimental'RunHandlerPoolOptions -> Int64
_RunOptions'Experimental'RunHandlerPoolOptions'priority
(\ x__ :: RunOptions'Experimental'RunHandlerPoolOptions
x__ y__ :: Int64
y__
-> RunOptions'Experimental'RunHandlerPoolOptions
x__
{_RunOptions'Experimental'RunHandlerPoolOptions'priority :: Int64
_RunOptions'Experimental'RunHandlerPoolOptions'priority = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RunOptions'Experimental'RunHandlerPoolOptions where
messageName :: Proxy RunOptions'Experimental'RunHandlerPoolOptions -> Text
messageName _
= String -> Text
Data.Text.pack
"tensorflow.RunOptions.Experimental.RunHandlerPoolOptions"
packedMessageDescriptor :: Proxy RunOptions'Experimental'RunHandlerPoolOptions -> ByteString
packedMessageDescriptor _
= "\n\
\\NAKRunHandlerPoolOptions\DC2\SUB\n\
\\bpriority\CAN\SOH \SOH(\ETXR\bpriority"
packedFileDescriptor :: Proxy RunOptions'Experimental'RunHandlerPoolOptions -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag (FieldDescriptor RunOptions'Experimental'RunHandlerPoolOptions)
fieldsByTag
= let
priority__field_descriptor :: FieldDescriptor RunOptions'Experimental'RunHandlerPoolOptions
priority__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor
RunOptions'Experimental'RunHandlerPoolOptions Int64
-> FieldDescriptor RunOptions'Experimental'RunHandlerPoolOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"priority"
(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
RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions
Int64
Int64
-> FieldAccessor
RunOptions'Experimental'RunHandlerPoolOptions 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 "priority" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"priority")) ::
Data.ProtoLens.FieldDescriptor RunOptions'Experimental'RunHandlerPoolOptions
in
[(Tag,
FieldDescriptor RunOptions'Experimental'RunHandlerPoolOptions)]
-> Map
Tag (FieldDescriptor RunOptions'Experimental'RunHandlerPoolOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor RunOptions'Experimental'RunHandlerPoolOptions
priority__field_descriptor)]
unknownFields :: LensLike' f RunOptions'Experimental'RunHandlerPoolOptions FieldSet
unknownFields
= (RunOptions'Experimental'RunHandlerPoolOptions -> FieldSet)
-> (RunOptions'Experimental'RunHandlerPoolOptions
-> FieldSet -> RunOptions'Experimental'RunHandlerPoolOptions)
-> Lens' RunOptions'Experimental'RunHandlerPoolOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RunOptions'Experimental'RunHandlerPoolOptions -> FieldSet
_RunOptions'Experimental'RunHandlerPoolOptions'_unknownFields
(\ x__ :: RunOptions'Experimental'RunHandlerPoolOptions
x__ y__ :: FieldSet
y__
-> RunOptions'Experimental'RunHandlerPoolOptions
x__
{_RunOptions'Experimental'RunHandlerPoolOptions'_unknownFields :: FieldSet
_RunOptions'Experimental'RunHandlerPoolOptions'_unknownFields = FieldSet
y__})
defMessage :: RunOptions'Experimental'RunHandlerPoolOptions
defMessage
= $WRunOptions'Experimental'RunHandlerPoolOptions'_constructor :: Int64 -> FieldSet -> RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions'_constructor
{_RunOptions'Experimental'RunHandlerPoolOptions'priority :: Int64
_RunOptions'Experimental'RunHandlerPoolOptions'priority = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RunOptions'Experimental'RunHandlerPoolOptions'_unknownFields :: FieldSet
_RunOptions'Experimental'RunHandlerPoolOptions'_unknownFields = []}
parseMessage :: Parser RunOptions'Experimental'RunHandlerPoolOptions
parseMessage
= let
loop ::
RunOptions'Experimental'RunHandlerPoolOptions
-> Data.ProtoLens.Encoding.Bytes.Parser RunOptions'Experimental'RunHandlerPoolOptions
loop :: RunOptions'Experimental'RunHandlerPoolOptions
-> Parser RunOptions'Experimental'RunHandlerPoolOptions
loop x :: RunOptions'Experimental'RunHandlerPoolOptions
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]))))
RunOptions'Experimental'RunHandlerPoolOptions
-> Parser RunOptions'Experimental'RunHandlerPoolOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
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
RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) RunOptions'Experimental'RunHandlerPoolOptions
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"priority"
RunOptions'Experimental'RunHandlerPoolOptions
-> Parser RunOptions'Experimental'RunHandlerPoolOptions
loop
(Setter
RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions
Int64
Int64
-> Int64
-> RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "priority" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"priority") Int64
y RunOptions'Experimental'RunHandlerPoolOptions
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
RunOptions'Experimental'RunHandlerPoolOptions
-> Parser RunOptions'Experimental'RunHandlerPoolOptions
loop
(Setter
RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> RunOptions'Experimental'RunHandlerPoolOptions
-> RunOptions'Experimental'RunHandlerPoolOptions
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
RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) RunOptions'Experimental'RunHandlerPoolOptions
x)
in
Parser RunOptions'Experimental'RunHandlerPoolOptions
-> String -> Parser RunOptions'Experimental'RunHandlerPoolOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do RunOptions'Experimental'RunHandlerPoolOptions
-> Parser RunOptions'Experimental'RunHandlerPoolOptions
loop RunOptions'Experimental'RunHandlerPoolOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "RunHandlerPoolOptions"
buildMessage :: RunOptions'Experimental'RunHandlerPoolOptions -> Builder
buildMessage
= \ _x :: RunOptions'Experimental'RunHandlerPoolOptions
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike
Int64
RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions
Int64
Int64
-> RunOptions'Experimental'RunHandlerPoolOptions -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "priority" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"priority") RunOptions'Experimental'RunHandlerPoolOptions
_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 8)
((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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions
FieldSet
FieldSet
-> RunOptions'Experimental'RunHandlerPoolOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
RunOptions'Experimental'RunHandlerPoolOptions
RunOptions'Experimental'RunHandlerPoolOptions
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields RunOptions'Experimental'RunHandlerPoolOptions
_x))
instance Control.DeepSeq.NFData RunOptions'Experimental'RunHandlerPoolOptions where
rnf :: RunOptions'Experimental'RunHandlerPoolOptions -> ()
rnf
= \ x__ :: RunOptions'Experimental'RunHandlerPoolOptions
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions'Experimental'RunHandlerPoolOptions -> FieldSet
_RunOptions'Experimental'RunHandlerPoolOptions'_unknownFields RunOptions'Experimental'RunHandlerPoolOptions
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RunOptions'Experimental'RunHandlerPoolOptions -> Int64
_RunOptions'Experimental'RunHandlerPoolOptions'priority RunOptions'Experimental'RunHandlerPoolOptions
x__) ())
newtype RunOptions'TraceLevel'UnrecognizedValue
= RunOptions'TraceLevel'UnrecognizedValue Data.Int.Int32
deriving stock (RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
(RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool)
-> (RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool)
-> Eq RunOptions'TraceLevel'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
$c/= :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
== :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
$c== :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
Prelude.Eq, Eq RunOptions'TraceLevel'UnrecognizedValue
Eq RunOptions'TraceLevel'UnrecognizedValue =>
(RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Ordering)
-> (RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool)
-> (RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool)
-> (RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool)
-> (RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool)
-> (RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue)
-> (RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue)
-> Ord RunOptions'TraceLevel'UnrecognizedValue
RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Ordering
RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue
$cmin :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue
max :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue
$cmax :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue
>= :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
$c>= :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
> :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
$c> :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
<= :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
$c<= :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
< :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
$c< :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Bool
compare :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Ordering
$ccompare :: RunOptions'TraceLevel'UnrecognizedValue
-> RunOptions'TraceLevel'UnrecognizedValue -> Ordering
$cp1Ord :: Eq RunOptions'TraceLevel'UnrecognizedValue
Prelude.Ord, Int -> RunOptions'TraceLevel'UnrecognizedValue -> ShowS
[RunOptions'TraceLevel'UnrecognizedValue] -> ShowS
RunOptions'TraceLevel'UnrecognizedValue -> String
(Int -> RunOptions'TraceLevel'UnrecognizedValue -> ShowS)
-> (RunOptions'TraceLevel'UnrecognizedValue -> String)
-> ([RunOptions'TraceLevel'UnrecognizedValue] -> ShowS)
-> Show RunOptions'TraceLevel'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RunOptions'TraceLevel'UnrecognizedValue] -> ShowS
$cshowList :: [RunOptions'TraceLevel'UnrecognizedValue] -> ShowS
show :: RunOptions'TraceLevel'UnrecognizedValue -> String
$cshow :: RunOptions'TraceLevel'UnrecognizedValue -> String
showsPrec :: Int -> RunOptions'TraceLevel'UnrecognizedValue -> ShowS
$cshowsPrec :: Int -> RunOptions'TraceLevel'UnrecognizedValue -> ShowS
Prelude.Show)
data RunOptions'TraceLevel
= RunOptions'NO_TRACE |
RunOptions'SOFTWARE_TRACE |
RunOptions'HARDWARE_TRACE |
RunOptions'FULL_TRACE |
RunOptions'TraceLevel'Unrecognized !RunOptions'TraceLevel'UnrecognizedValue
deriving stock (Int -> RunOptions'TraceLevel -> ShowS
[RunOptions'TraceLevel] -> ShowS
RunOptions'TraceLevel -> String
(Int -> RunOptions'TraceLevel -> ShowS)
-> (RunOptions'TraceLevel -> String)
-> ([RunOptions'TraceLevel] -> ShowS)
-> Show RunOptions'TraceLevel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RunOptions'TraceLevel] -> ShowS
$cshowList :: [RunOptions'TraceLevel] -> ShowS
show :: RunOptions'TraceLevel -> String
$cshow :: RunOptions'TraceLevel -> String
showsPrec :: Int -> RunOptions'TraceLevel -> ShowS
$cshowsPrec :: Int -> RunOptions'TraceLevel -> ShowS
Prelude.Show, RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
(RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool)
-> (RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool)
-> Eq RunOptions'TraceLevel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
$c/= :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
== :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
$c== :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
Prelude.Eq, Eq RunOptions'TraceLevel
Eq RunOptions'TraceLevel =>
(RunOptions'TraceLevel -> RunOptions'TraceLevel -> Ordering)
-> (RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool)
-> (RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool)
-> (RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool)
-> (RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool)
-> (RunOptions'TraceLevel
-> RunOptions'TraceLevel -> RunOptions'TraceLevel)
-> (RunOptions'TraceLevel
-> RunOptions'TraceLevel -> RunOptions'TraceLevel)
-> Ord RunOptions'TraceLevel
RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
RunOptions'TraceLevel -> RunOptions'TraceLevel -> Ordering
RunOptions'TraceLevel
-> RunOptions'TraceLevel -> RunOptions'TraceLevel
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 :: RunOptions'TraceLevel
-> RunOptions'TraceLevel -> RunOptions'TraceLevel
$cmin :: RunOptions'TraceLevel
-> RunOptions'TraceLevel -> RunOptions'TraceLevel
max :: RunOptions'TraceLevel
-> RunOptions'TraceLevel -> RunOptions'TraceLevel
$cmax :: RunOptions'TraceLevel
-> RunOptions'TraceLevel -> RunOptions'TraceLevel
>= :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
$c>= :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
> :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
$c> :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
<= :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
$c<= :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
< :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
$c< :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Bool
compare :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Ordering
$ccompare :: RunOptions'TraceLevel -> RunOptions'TraceLevel -> Ordering
$cp1Ord :: Eq RunOptions'TraceLevel
Prelude.Ord)
instance Data.ProtoLens.MessageEnum RunOptions'TraceLevel where
maybeToEnum :: Int -> Maybe RunOptions'TraceLevel
maybeToEnum 0 = RunOptions'TraceLevel -> Maybe RunOptions'TraceLevel
forall a. a -> Maybe a
Prelude.Just RunOptions'TraceLevel
RunOptions'NO_TRACE
maybeToEnum 1 = RunOptions'TraceLevel -> Maybe RunOptions'TraceLevel
forall a. a -> Maybe a
Prelude.Just RunOptions'TraceLevel
RunOptions'SOFTWARE_TRACE
maybeToEnum 2 = RunOptions'TraceLevel -> Maybe RunOptions'TraceLevel
forall a. a -> Maybe a
Prelude.Just RunOptions'TraceLevel
RunOptions'HARDWARE_TRACE
maybeToEnum 3 = RunOptions'TraceLevel -> Maybe RunOptions'TraceLevel
forall a. a -> Maybe a
Prelude.Just RunOptions'TraceLevel
RunOptions'FULL_TRACE
maybeToEnum k :: Int
k
= RunOptions'TraceLevel -> Maybe RunOptions'TraceLevel
forall a. a -> Maybe a
Prelude.Just
(RunOptions'TraceLevel'UnrecognizedValue -> RunOptions'TraceLevel
RunOptions'TraceLevel'Unrecognized
(Int32 -> RunOptions'TraceLevel'UnrecognizedValue
RunOptions'TraceLevel'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: RunOptions'TraceLevel -> String
showEnum RunOptions'NO_TRACE = "NO_TRACE"
showEnum RunOptions'SOFTWARE_TRACE = "SOFTWARE_TRACE"
showEnum RunOptions'HARDWARE_TRACE = "HARDWARE_TRACE"
showEnum RunOptions'FULL_TRACE = "FULL_TRACE"
showEnum
(RunOptions'TraceLevel'Unrecognized (RunOptions'TraceLevel'UnrecognizedValue k :: Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe RunOptions'TraceLevel
readEnum k :: String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "NO_TRACE" = RunOptions'TraceLevel -> Maybe RunOptions'TraceLevel
forall a. a -> Maybe a
Prelude.Just RunOptions'TraceLevel
RunOptions'NO_TRACE
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "SOFTWARE_TRACE"
= RunOptions'TraceLevel -> Maybe RunOptions'TraceLevel
forall a. a -> Maybe a
Prelude.Just RunOptions'TraceLevel
RunOptions'SOFTWARE_TRACE
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "HARDWARE_TRACE"
= RunOptions'TraceLevel -> Maybe RunOptions'TraceLevel
forall a. a -> Maybe a
Prelude.Just RunOptions'TraceLevel
RunOptions'HARDWARE_TRACE
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "FULL_TRACE" = RunOptions'TraceLevel -> Maybe RunOptions'TraceLevel
forall a. a -> Maybe a
Prelude.Just RunOptions'TraceLevel
RunOptions'FULL_TRACE
| Bool
Prelude.otherwise
= Maybe Int
-> (Int -> Maybe RunOptions'TraceLevel)
-> Maybe RunOptions'TraceLevel
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe RunOptions'TraceLevel
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded RunOptions'TraceLevel where
minBound :: RunOptions'TraceLevel
minBound = RunOptions'TraceLevel
RunOptions'NO_TRACE
maxBound :: RunOptions'TraceLevel
maxBound = RunOptions'TraceLevel
RunOptions'FULL_TRACE
instance Prelude.Enum RunOptions'TraceLevel where
toEnum :: Int -> RunOptions'TraceLevel
toEnum k__ :: Int
k__
= RunOptions'TraceLevel
-> (RunOptions'TraceLevel -> RunOptions'TraceLevel)
-> Maybe RunOptions'TraceLevel
-> RunOptions'TraceLevel
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> RunOptions'TraceLevel
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
"toEnum: unknown value for enum TraceLevel: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
RunOptions'TraceLevel -> RunOptions'TraceLevel
forall a. a -> a
Prelude.id
(Int -> Maybe RunOptions'TraceLevel
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: RunOptions'TraceLevel -> Int
fromEnum RunOptions'NO_TRACE = 0
fromEnum RunOptions'SOFTWARE_TRACE = 1
fromEnum RunOptions'HARDWARE_TRACE = 2
fromEnum RunOptions'FULL_TRACE = 3
fromEnum
(RunOptions'TraceLevel'Unrecognized (RunOptions'TraceLevel'UnrecognizedValue k :: Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: RunOptions'TraceLevel -> RunOptions'TraceLevel
succ RunOptions'FULL_TRACE
= String -> RunOptions'TraceLevel
forall a. HasCallStack => String -> a
Prelude.error
"RunOptions'TraceLevel.succ: bad argument RunOptions'FULL_TRACE. This value would be out of bounds."
succ RunOptions'NO_TRACE = RunOptions'TraceLevel
RunOptions'SOFTWARE_TRACE
succ RunOptions'SOFTWARE_TRACE = RunOptions'TraceLevel
RunOptions'HARDWARE_TRACE
succ RunOptions'HARDWARE_TRACE = RunOptions'TraceLevel
RunOptions'FULL_TRACE
succ (RunOptions'TraceLevel'Unrecognized _)
= String -> RunOptions'TraceLevel
forall a. HasCallStack => String -> a
Prelude.error
"RunOptions'TraceLevel.succ: bad argument: unrecognized value"
pred :: RunOptions'TraceLevel -> RunOptions'TraceLevel
pred RunOptions'NO_TRACE
= String -> RunOptions'TraceLevel
forall a. HasCallStack => String -> a
Prelude.error
"RunOptions'TraceLevel.pred: bad argument RunOptions'NO_TRACE. This value would be out of bounds."
pred RunOptions'SOFTWARE_TRACE = RunOptions'TraceLevel
RunOptions'NO_TRACE
pred RunOptions'HARDWARE_TRACE = RunOptions'TraceLevel
RunOptions'SOFTWARE_TRACE
pred RunOptions'FULL_TRACE = RunOptions'TraceLevel
RunOptions'HARDWARE_TRACE
pred (RunOptions'TraceLevel'Unrecognized _)
= String -> RunOptions'TraceLevel
forall a. HasCallStack => String -> a
Prelude.error
"RunOptions'TraceLevel.pred: bad argument: unrecognized value"
enumFrom :: RunOptions'TraceLevel -> [RunOptions'TraceLevel]
enumFrom = RunOptions'TraceLevel -> [RunOptions'TraceLevel]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: RunOptions'TraceLevel
-> RunOptions'TraceLevel -> [RunOptions'TraceLevel]
enumFromTo = RunOptions'TraceLevel
-> RunOptions'TraceLevel -> [RunOptions'TraceLevel]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: RunOptions'TraceLevel
-> RunOptions'TraceLevel -> [RunOptions'TraceLevel]
enumFromThen = RunOptions'TraceLevel
-> RunOptions'TraceLevel -> [RunOptions'TraceLevel]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: RunOptions'TraceLevel
-> RunOptions'TraceLevel
-> RunOptions'TraceLevel
-> [RunOptions'TraceLevel]
enumFromThenTo = RunOptions'TraceLevel
-> RunOptions'TraceLevel
-> RunOptions'TraceLevel
-> [RunOptions'TraceLevel]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault RunOptions'TraceLevel where
fieldDefault :: RunOptions'TraceLevel
fieldDefault = RunOptions'TraceLevel
RunOptions'NO_TRACE
instance Control.DeepSeq.NFData RunOptions'TraceLevel where
rnf :: RunOptions'TraceLevel -> ()
rnf x__ :: RunOptions'TraceLevel
x__ = RunOptions'TraceLevel -> () -> ()
forall a b. a -> b -> b
Prelude.seq RunOptions'TraceLevel
x__ ()
data SessionMetadata
= SessionMetadata'_constructor {SessionMetadata -> Text
_SessionMetadata'name :: !Data.Text.Text,
SessionMetadata -> Int64
_SessionMetadata'version :: !Data.Int.Int64,
SessionMetadata -> FieldSet
_SessionMetadata'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SessionMetadata -> SessionMetadata -> Bool
(SessionMetadata -> SessionMetadata -> Bool)
-> (SessionMetadata -> SessionMetadata -> Bool)
-> Eq SessionMetadata
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SessionMetadata -> SessionMetadata -> Bool
$c/= :: SessionMetadata -> SessionMetadata -> Bool
== :: SessionMetadata -> SessionMetadata -> Bool
$c== :: SessionMetadata -> SessionMetadata -> Bool
Prelude.Eq, Eq SessionMetadata
Eq SessionMetadata =>
(SessionMetadata -> SessionMetadata -> Ordering)
-> (SessionMetadata -> SessionMetadata -> Bool)
-> (SessionMetadata -> SessionMetadata -> Bool)
-> (SessionMetadata -> SessionMetadata -> Bool)
-> (SessionMetadata -> SessionMetadata -> Bool)
-> (SessionMetadata -> SessionMetadata -> SessionMetadata)
-> (SessionMetadata -> SessionMetadata -> SessionMetadata)
-> Ord SessionMetadata
SessionMetadata -> SessionMetadata -> Bool
SessionMetadata -> SessionMetadata -> Ordering
SessionMetadata -> SessionMetadata -> SessionMetadata
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 :: SessionMetadata -> SessionMetadata -> SessionMetadata
$cmin :: SessionMetadata -> SessionMetadata -> SessionMetadata
max :: SessionMetadata -> SessionMetadata -> SessionMetadata
$cmax :: SessionMetadata -> SessionMetadata -> SessionMetadata
>= :: SessionMetadata -> SessionMetadata -> Bool
$c>= :: SessionMetadata -> SessionMetadata -> Bool
> :: SessionMetadata -> SessionMetadata -> Bool
$c> :: SessionMetadata -> SessionMetadata -> Bool
<= :: SessionMetadata -> SessionMetadata -> Bool
$c<= :: SessionMetadata -> SessionMetadata -> Bool
< :: SessionMetadata -> SessionMetadata -> Bool
$c< :: SessionMetadata -> SessionMetadata -> Bool
compare :: SessionMetadata -> SessionMetadata -> Ordering
$ccompare :: SessionMetadata -> SessionMetadata -> Ordering
$cp1Ord :: Eq SessionMetadata
Prelude.Ord)
instance Prelude.Show SessionMetadata where
showsPrec :: Int -> SessionMetadata -> ShowS
showsPrec _ __x :: SessionMetadata
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SessionMetadata -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SessionMetadata
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SessionMetadata "name" Data.Text.Text where
fieldOf :: Proxy# "name"
-> (Text -> f Text) -> SessionMetadata -> f SessionMetadata
fieldOf _
= ((Text -> f Text) -> SessionMetadata -> f SessionMetadata)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SessionMetadata
-> f SessionMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SessionMetadata -> Text)
-> (SessionMetadata -> Text -> SessionMetadata)
-> Lens SessionMetadata SessionMetadata Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SessionMetadata -> Text
_SessionMetadata'name
(\ x__ :: SessionMetadata
x__ y__ :: Text
y__ -> SessionMetadata
x__ {_SessionMetadata'name :: Text
_SessionMetadata'name = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SessionMetadata "version" Data.Int.Int64 where
fieldOf :: Proxy# "version"
-> (Int64 -> f Int64) -> SessionMetadata -> f SessionMetadata
fieldOf _
= ((Int64 -> f Int64) -> SessionMetadata -> f SessionMetadata)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> SessionMetadata
-> f SessionMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SessionMetadata -> Int64)
-> (SessionMetadata -> Int64 -> SessionMetadata)
-> Lens SessionMetadata SessionMetadata Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SessionMetadata -> Int64
_SessionMetadata'version
(\ x__ :: SessionMetadata
x__ y__ :: Int64
y__ -> SessionMetadata
x__ {_SessionMetadata'version :: Int64
_SessionMetadata'version = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SessionMetadata where
messageName :: Proxy SessionMetadata -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SessionMetadata"
packedMessageDescriptor :: Proxy SessionMetadata -> ByteString
packedMessageDescriptor _
= "\n\
\\SISessionMetadata\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\CAN\n\
\\aversion\CAN\STX \SOH(\ETXR\aversion"
packedFileDescriptor :: Proxy SessionMetadata -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SessionMetadata)
fieldsByTag
= let
name__field_descriptor :: FieldDescriptor SessionMetadata
name__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SessionMetadata Text
-> FieldDescriptor SessionMetadata
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 SessionMetadata SessionMetadata Text Text
-> FieldAccessor SessionMetadata 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 SessionMetadata
version__field_descriptor :: FieldDescriptor SessionMetadata
version__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor SessionMetadata Int64
-> FieldDescriptor SessionMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"version"
(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 SessionMetadata SessionMetadata Int64 Int64
-> FieldAccessor SessionMetadata 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 "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 SessionMetadata
in
[(Tag, FieldDescriptor SessionMetadata)]
-> Map Tag (FieldDescriptor SessionMetadata)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SessionMetadata
name__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SessionMetadata
version__field_descriptor)]
unknownFields :: LensLike' f SessionMetadata FieldSet
unknownFields
= (SessionMetadata -> FieldSet)
-> (SessionMetadata -> FieldSet -> SessionMetadata)
-> Lens' SessionMetadata FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SessionMetadata -> FieldSet
_SessionMetadata'_unknownFields
(\ x__ :: SessionMetadata
x__ y__ :: FieldSet
y__ -> SessionMetadata
x__ {_SessionMetadata'_unknownFields :: FieldSet
_SessionMetadata'_unknownFields = FieldSet
y__})
defMessage :: SessionMetadata
defMessage
= $WSessionMetadata'_constructor :: Text -> Int64 -> FieldSet -> SessionMetadata
SessionMetadata'_constructor
{_SessionMetadata'name :: Text
_SessionMetadata'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SessionMetadata'version :: Int64
_SessionMetadata'version = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SessionMetadata'_unknownFields :: FieldSet
_SessionMetadata'_unknownFields = []}
parseMessage :: Parser SessionMetadata
parseMessage
= let
loop ::
SessionMetadata
-> Data.ProtoLens.Encoding.Bytes.Parser SessionMetadata
loop :: SessionMetadata -> Parser SessionMetadata
loop x :: SessionMetadata
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]))))
SessionMetadata -> Parser SessionMetadata
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SessionMetadata SessionMetadata FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SessionMetadata -> SessionMetadata
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 SessionMetadata SessionMetadata FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SessionMetadata
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"
SessionMetadata -> Parser SessionMetadata
loop (Setter SessionMetadata SessionMetadata Text Text
-> Text -> SessionMetadata -> SessionMetadata
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 SessionMetadata
x)
16
-> 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)
"version"
SessionMetadata -> Parser SessionMetadata
loop (Setter SessionMetadata SessionMetadata Int64 Int64
-> Int64 -> SessionMetadata -> SessionMetadata
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") Int64
y SessionMetadata
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SessionMetadata -> Parser SessionMetadata
loop
(Setter SessionMetadata SessionMetadata FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SessionMetadata -> SessionMetadata
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 SessionMetadata SessionMetadata FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SessionMetadata
x)
in
Parser SessionMetadata -> String -> Parser SessionMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SessionMetadata -> Parser SessionMetadata
loop SessionMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SessionMetadata"
buildMessage :: SessionMetadata -> Builder
buildMessage
= \ _x :: SessionMetadata
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text SessionMetadata SessionMetadata Text Text
-> SessionMetadata -> 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") SessionMetadata
_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 :: Int64
_v = FoldLike Int64 SessionMetadata SessionMetadata Int64 Int64
-> SessionMetadata -> Int64
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") SessionMetadata
_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 16)
((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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet SessionMetadata SessionMetadata FieldSet FieldSet
-> SessionMetadata -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SessionMetadata SessionMetadata FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SessionMetadata
_x)))
instance Control.DeepSeq.NFData SessionMetadata where
rnf :: SessionMetadata -> ()
rnf
= \ x__ :: SessionMetadata
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SessionMetadata -> FieldSet
_SessionMetadata'_unknownFields SessionMetadata
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SessionMetadata -> Text
_SessionMetadata'name SessionMetadata
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SessionMetadata -> Int64
_SessionMetadata'version SessionMetadata
x__) ()))
data TensorConnection
= TensorConnection'_constructor {TensorConnection -> Text
_TensorConnection'fromTensor :: !Data.Text.Text,
TensorConnection -> Text
_TensorConnection'toTensor :: !Data.Text.Text,
TensorConnection -> FieldSet
_TensorConnection'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TensorConnection -> TensorConnection -> Bool
(TensorConnection -> TensorConnection -> Bool)
-> (TensorConnection -> TensorConnection -> Bool)
-> Eq TensorConnection
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TensorConnection -> TensorConnection -> Bool
$c/= :: TensorConnection -> TensorConnection -> Bool
== :: TensorConnection -> TensorConnection -> Bool
$c== :: TensorConnection -> TensorConnection -> Bool
Prelude.Eq, Eq TensorConnection
Eq TensorConnection =>
(TensorConnection -> TensorConnection -> Ordering)
-> (TensorConnection -> TensorConnection -> Bool)
-> (TensorConnection -> TensorConnection -> Bool)
-> (TensorConnection -> TensorConnection -> Bool)
-> (TensorConnection -> TensorConnection -> Bool)
-> (TensorConnection -> TensorConnection -> TensorConnection)
-> (TensorConnection -> TensorConnection -> TensorConnection)
-> Ord TensorConnection
TensorConnection -> TensorConnection -> Bool
TensorConnection -> TensorConnection -> Ordering
TensorConnection -> TensorConnection -> TensorConnection
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 :: TensorConnection -> TensorConnection -> TensorConnection
$cmin :: TensorConnection -> TensorConnection -> TensorConnection
max :: TensorConnection -> TensorConnection -> TensorConnection
$cmax :: TensorConnection -> TensorConnection -> TensorConnection
>= :: TensorConnection -> TensorConnection -> Bool
$c>= :: TensorConnection -> TensorConnection -> Bool
> :: TensorConnection -> TensorConnection -> Bool
$c> :: TensorConnection -> TensorConnection -> Bool
<= :: TensorConnection -> TensorConnection -> Bool
$c<= :: TensorConnection -> TensorConnection -> Bool
< :: TensorConnection -> TensorConnection -> Bool
$c< :: TensorConnection -> TensorConnection -> Bool
compare :: TensorConnection -> TensorConnection -> Ordering
$ccompare :: TensorConnection -> TensorConnection -> Ordering
$cp1Ord :: Eq TensorConnection
Prelude.Ord)
instance Prelude.Show TensorConnection where
showsPrec :: Int -> TensorConnection -> ShowS
showsPrec _ __x :: TensorConnection
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(TensorConnection -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TensorConnection
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TensorConnection "fromTensor" Data.Text.Text where
fieldOf :: Proxy# "fromTensor"
-> (Text -> f Text) -> TensorConnection -> f TensorConnection
fieldOf _
= ((Text -> f Text) -> TensorConnection -> f TensorConnection)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TensorConnection
-> f TensorConnection
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorConnection -> Text)
-> (TensorConnection -> Text -> TensorConnection)
-> Lens TensorConnection TensorConnection Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorConnection -> Text
_TensorConnection'fromTensor
(\ x__ :: TensorConnection
x__ y__ :: Text
y__ -> TensorConnection
x__ {_TensorConnection'fromTensor :: Text
_TensorConnection'fromTensor = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorConnection "toTensor" Data.Text.Text where
fieldOf :: Proxy# "toTensor"
-> (Text -> f Text) -> TensorConnection -> f TensorConnection
fieldOf _
= ((Text -> f Text) -> TensorConnection -> f TensorConnection)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TensorConnection
-> f TensorConnection
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorConnection -> Text)
-> (TensorConnection -> Text -> TensorConnection)
-> Lens TensorConnection TensorConnection Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorConnection -> Text
_TensorConnection'toTensor
(\ x__ :: TensorConnection
x__ y__ :: Text
y__ -> TensorConnection
x__ {_TensorConnection'toTensor :: Text
_TensorConnection'toTensor = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TensorConnection where
messageName :: Proxy TensorConnection -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.TensorConnection"
packedMessageDescriptor :: Proxy TensorConnection -> ByteString
packedMessageDescriptor _
= "\n\
\\DLETensorConnection\DC2\US\n\
\\vfrom_tensor\CAN\SOH \SOH(\tR\n\
\fromTensor\DC2\ESC\n\
\\tto_tensor\CAN\STX \SOH(\tR\btoTensor"
packedFileDescriptor :: Proxy TensorConnection -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TensorConnection)
fieldsByTag
= let
fromTensor__field_descriptor :: FieldDescriptor TensorConnection
fromTensor__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TensorConnection Text
-> FieldDescriptor TensorConnection
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"from_tensor"
(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 TensorConnection TensorConnection Text Text
-> FieldAccessor TensorConnection 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 "fromTensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fromTensor")) ::
Data.ProtoLens.FieldDescriptor TensorConnection
toTensor__field_descriptor :: FieldDescriptor TensorConnection
toTensor__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TensorConnection Text
-> FieldDescriptor TensorConnection
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"to_tensor"
(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 TensorConnection TensorConnection Text Text
-> FieldAccessor TensorConnection 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 "toTensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"toTensor")) ::
Data.ProtoLens.FieldDescriptor TensorConnection
in
[(Tag, FieldDescriptor TensorConnection)]
-> Map Tag (FieldDescriptor TensorConnection)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TensorConnection
fromTensor__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor TensorConnection
toTensor__field_descriptor)]
unknownFields :: LensLike' f TensorConnection FieldSet
unknownFields
= (TensorConnection -> FieldSet)
-> (TensorConnection -> FieldSet -> TensorConnection)
-> Lens' TensorConnection FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorConnection -> FieldSet
_TensorConnection'_unknownFields
(\ x__ :: TensorConnection
x__ y__ :: FieldSet
y__ -> TensorConnection
x__ {_TensorConnection'_unknownFields :: FieldSet
_TensorConnection'_unknownFields = FieldSet
y__})
defMessage :: TensorConnection
defMessage
= $WTensorConnection'_constructor :: Text -> Text -> FieldSet -> TensorConnection
TensorConnection'_constructor
{_TensorConnection'fromTensor :: Text
_TensorConnection'fromTensor = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TensorConnection'toTensor :: Text
_TensorConnection'toTensor = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TensorConnection'_unknownFields :: FieldSet
_TensorConnection'_unknownFields = []}
parseMessage :: Parser TensorConnection
parseMessage
= let
loop ::
TensorConnection
-> Data.ProtoLens.Encoding.Bytes.Parser TensorConnection
loop :: TensorConnection -> Parser TensorConnection
loop x :: TensorConnection
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]))))
TensorConnection -> Parser TensorConnection
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter TensorConnection TensorConnection FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TensorConnection -> TensorConnection
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 TensorConnection TensorConnection FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TensorConnection
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))
"from_tensor"
TensorConnection -> Parser TensorConnection
loop
(Setter TensorConnection TensorConnection Text Text
-> Text -> TensorConnection -> TensorConnection
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "fromTensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fromTensor") Text
y TensorConnection
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))
"to_tensor"
TensorConnection -> Parser TensorConnection
loop
(Setter TensorConnection TensorConnection Text Text
-> Text -> TensorConnection -> TensorConnection
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "toTensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"toTensor") Text
y TensorConnection
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
TensorConnection -> Parser TensorConnection
loop
(Setter TensorConnection TensorConnection FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TensorConnection -> TensorConnection
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 TensorConnection TensorConnection FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TensorConnection
x)
in
Parser TensorConnection -> String -> Parser TensorConnection
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TensorConnection -> Parser TensorConnection
loop TensorConnection
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "TensorConnection"
buildMessage :: TensorConnection -> Builder
buildMessage
= \ _x :: TensorConnection
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text TensorConnection TensorConnection Text Text
-> TensorConnection -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "fromTensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fromTensor") TensorConnection
_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 TensorConnection TensorConnection Text Text
-> TensorConnection -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "toTensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"toTensor") TensorConnection
_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 TensorConnection TensorConnection FieldSet FieldSet
-> TensorConnection -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet TensorConnection TensorConnection FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TensorConnection
_x)))
instance Control.DeepSeq.NFData TensorConnection where
rnf :: TensorConnection -> ()
rnf
= \ x__ :: TensorConnection
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorConnection -> FieldSet
_TensorConnection'_unknownFields TensorConnection
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorConnection -> Text
_TensorConnection'fromTensor TensorConnection
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TensorConnection -> Text
_TensorConnection'toTensor TensorConnection
x__) ()))
data ThreadPoolOptionProto
= ThreadPoolOptionProto'_constructor {ThreadPoolOptionProto -> Int32
_ThreadPoolOptionProto'numThreads :: !Data.Int.Int32,
ThreadPoolOptionProto -> Text
_ThreadPoolOptionProto'globalName :: !Data.Text.Text,
ThreadPoolOptionProto -> FieldSet
_ThreadPoolOptionProto'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
(ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool)
-> (ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool)
-> Eq ThreadPoolOptionProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
$c/= :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
== :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
$c== :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
Prelude.Eq, Eq ThreadPoolOptionProto
Eq ThreadPoolOptionProto =>
(ThreadPoolOptionProto -> ThreadPoolOptionProto -> Ordering)
-> (ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool)
-> (ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool)
-> (ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool)
-> (ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool)
-> (ThreadPoolOptionProto
-> ThreadPoolOptionProto -> ThreadPoolOptionProto)
-> (ThreadPoolOptionProto
-> ThreadPoolOptionProto -> ThreadPoolOptionProto)
-> Ord ThreadPoolOptionProto
ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
ThreadPoolOptionProto -> ThreadPoolOptionProto -> Ordering
ThreadPoolOptionProto
-> ThreadPoolOptionProto -> ThreadPoolOptionProto
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 :: ThreadPoolOptionProto
-> ThreadPoolOptionProto -> ThreadPoolOptionProto
$cmin :: ThreadPoolOptionProto
-> ThreadPoolOptionProto -> ThreadPoolOptionProto
max :: ThreadPoolOptionProto
-> ThreadPoolOptionProto -> ThreadPoolOptionProto
$cmax :: ThreadPoolOptionProto
-> ThreadPoolOptionProto -> ThreadPoolOptionProto
>= :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
$c>= :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
> :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
$c> :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
<= :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
$c<= :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
< :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
$c< :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Bool
compare :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Ordering
$ccompare :: ThreadPoolOptionProto -> ThreadPoolOptionProto -> Ordering
$cp1Ord :: Eq ThreadPoolOptionProto
Prelude.Ord)
instance Prelude.Show ThreadPoolOptionProto where
showsPrec :: Int -> ThreadPoolOptionProto -> ShowS
showsPrec _ __x :: ThreadPoolOptionProto
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(ThreadPoolOptionProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ThreadPoolOptionProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ThreadPoolOptionProto "numThreads" Data.Int.Int32 where
fieldOf :: Proxy# "numThreads"
-> (Int32 -> f Int32)
-> ThreadPoolOptionProto
-> f ThreadPoolOptionProto
fieldOf _
= ((Int32 -> f Int32)
-> ThreadPoolOptionProto -> f ThreadPoolOptionProto)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ThreadPoolOptionProto
-> f ThreadPoolOptionProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ThreadPoolOptionProto -> Int32)
-> (ThreadPoolOptionProto -> Int32 -> ThreadPoolOptionProto)
-> Lens ThreadPoolOptionProto ThreadPoolOptionProto Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ThreadPoolOptionProto -> Int32
_ThreadPoolOptionProto'numThreads
(\ x__ :: ThreadPoolOptionProto
x__ y__ :: Int32
y__ -> ThreadPoolOptionProto
x__ {_ThreadPoolOptionProto'numThreads :: Int32
_ThreadPoolOptionProto'numThreads = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ThreadPoolOptionProto "globalName" Data.Text.Text where
fieldOf :: Proxy# "globalName"
-> (Text -> f Text)
-> ThreadPoolOptionProto
-> f ThreadPoolOptionProto
fieldOf _
= ((Text -> f Text)
-> ThreadPoolOptionProto -> f ThreadPoolOptionProto)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ThreadPoolOptionProto
-> f ThreadPoolOptionProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ThreadPoolOptionProto -> Text)
-> (ThreadPoolOptionProto -> Text -> ThreadPoolOptionProto)
-> Lens ThreadPoolOptionProto ThreadPoolOptionProto Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ThreadPoolOptionProto -> Text
_ThreadPoolOptionProto'globalName
(\ x__ :: ThreadPoolOptionProto
x__ y__ :: Text
y__ -> ThreadPoolOptionProto
x__ {_ThreadPoolOptionProto'globalName :: Text
_ThreadPoolOptionProto'globalName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ThreadPoolOptionProto where
messageName :: Proxy ThreadPoolOptionProto -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.ThreadPoolOptionProto"
packedMessageDescriptor :: Proxy ThreadPoolOptionProto -> ByteString
packedMessageDescriptor _
= "\n\
\\NAKThreadPoolOptionProto\DC2\US\n\
\\vnum_threads\CAN\SOH \SOH(\ENQR\n\
\numThreads\DC2\US\n\
\\vglobal_name\CAN\STX \SOH(\tR\n\
\globalName"
packedFileDescriptor :: Proxy ThreadPoolOptionProto -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ThreadPoolOptionProto)
fieldsByTag
= let
numThreads__field_descriptor :: FieldDescriptor ThreadPoolOptionProto
numThreads__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor ThreadPoolOptionProto Int32
-> FieldDescriptor ThreadPoolOptionProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"num_threads"
(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 ThreadPoolOptionProto ThreadPoolOptionProto Int32 Int32
-> FieldAccessor ThreadPoolOptionProto 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 "numThreads" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numThreads")) ::
Data.ProtoLens.FieldDescriptor ThreadPoolOptionProto
globalName__field_descriptor :: FieldDescriptor ThreadPoolOptionProto
globalName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ThreadPoolOptionProto Text
-> FieldDescriptor ThreadPoolOptionProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"global_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 ThreadPoolOptionProto ThreadPoolOptionProto Text Text
-> FieldAccessor ThreadPoolOptionProto 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 "globalName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"globalName")) ::
Data.ProtoLens.FieldDescriptor ThreadPoolOptionProto
in
[(Tag, FieldDescriptor ThreadPoolOptionProto)]
-> Map Tag (FieldDescriptor ThreadPoolOptionProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ThreadPoolOptionProto
numThreads__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor ThreadPoolOptionProto
globalName__field_descriptor)]
unknownFields :: LensLike' f ThreadPoolOptionProto FieldSet
unknownFields
= (ThreadPoolOptionProto -> FieldSet)
-> (ThreadPoolOptionProto -> FieldSet -> ThreadPoolOptionProto)
-> Lens' ThreadPoolOptionProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ThreadPoolOptionProto -> FieldSet
_ThreadPoolOptionProto'_unknownFields
(\ x__ :: ThreadPoolOptionProto
x__ y__ :: FieldSet
y__ -> ThreadPoolOptionProto
x__ {_ThreadPoolOptionProto'_unknownFields :: FieldSet
_ThreadPoolOptionProto'_unknownFields = FieldSet
y__})
defMessage :: ThreadPoolOptionProto
defMessage
= $WThreadPoolOptionProto'_constructor :: Int32 -> Text -> FieldSet -> ThreadPoolOptionProto
ThreadPoolOptionProto'_constructor
{_ThreadPoolOptionProto'numThreads :: Int32
_ThreadPoolOptionProto'numThreads = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ThreadPoolOptionProto'globalName :: Text
_ThreadPoolOptionProto'globalName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ThreadPoolOptionProto'_unknownFields :: FieldSet
_ThreadPoolOptionProto'_unknownFields = []}
parseMessage :: Parser ThreadPoolOptionProto
parseMessage
= let
loop ::
ThreadPoolOptionProto
-> Data.ProtoLens.Encoding.Bytes.Parser ThreadPoolOptionProto
loop :: ThreadPoolOptionProto -> Parser ThreadPoolOptionProto
loop x :: ThreadPoolOptionProto
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]))))
ThreadPoolOptionProto -> Parser ThreadPoolOptionProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
ThreadPoolOptionProto ThreadPoolOptionProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ThreadPoolOptionProto
-> ThreadPoolOptionProto
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
ThreadPoolOptionProto ThreadPoolOptionProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ThreadPoolOptionProto
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)
"num_threads"
ThreadPoolOptionProto -> Parser ThreadPoolOptionProto
loop
(Setter ThreadPoolOptionProto ThreadPoolOptionProto Int32 Int32
-> Int32 -> ThreadPoolOptionProto -> ThreadPoolOptionProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "numThreads" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numThreads") Int32
y ThreadPoolOptionProto
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))
"global_name"
ThreadPoolOptionProto -> Parser ThreadPoolOptionProto
loop
(Setter ThreadPoolOptionProto ThreadPoolOptionProto Text Text
-> Text -> ThreadPoolOptionProto -> ThreadPoolOptionProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "globalName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"globalName") Text
y ThreadPoolOptionProto
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ThreadPoolOptionProto -> Parser ThreadPoolOptionProto
loop
(Setter
ThreadPoolOptionProto ThreadPoolOptionProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ThreadPoolOptionProto
-> ThreadPoolOptionProto
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
ThreadPoolOptionProto ThreadPoolOptionProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ThreadPoolOptionProto
x)
in
Parser ThreadPoolOptionProto
-> String -> Parser ThreadPoolOptionProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ThreadPoolOptionProto -> Parser ThreadPoolOptionProto
loop ThreadPoolOptionProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "ThreadPoolOptionProto"
buildMessage :: ThreadPoolOptionProto -> Builder
buildMessage
= \ _x :: ThreadPoolOptionProto
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v
= FoldLike
Int32 ThreadPoolOptionProto ThreadPoolOptionProto Int32 Int32
-> ThreadPoolOptionProto -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "numThreads" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numThreads") ThreadPoolOptionProto
_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 ThreadPoolOptionProto ThreadPoolOptionProto Text Text
-> ThreadPoolOptionProto -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "globalName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"globalName") ThreadPoolOptionProto
_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
ThreadPoolOptionProto
ThreadPoolOptionProto
FieldSet
FieldSet
-> ThreadPoolOptionProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ThreadPoolOptionProto
ThreadPoolOptionProto
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ThreadPoolOptionProto
_x)))
instance Control.DeepSeq.NFData ThreadPoolOptionProto where
rnf :: ThreadPoolOptionProto -> ()
rnf
= \ x__ :: ThreadPoolOptionProto
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ThreadPoolOptionProto -> FieldSet
_ThreadPoolOptionProto'_unknownFields ThreadPoolOptionProto
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ThreadPoolOptionProto -> Int32
_ThreadPoolOptionProto'numThreads ThreadPoolOptionProto
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ThreadPoolOptionProto -> Text
_ThreadPoolOptionProto'globalName ThreadPoolOptionProto
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\%tensorflow/core/protobuf/config.proto\DC2\n\
\tensorflow\SUB*tensorflow/core/framework/cost_graph.proto\SUB%tensorflow/core/framework/graph.proto\SUB*tensorflow/core/framework/step_stats.proto\SUB&tensorflow/core/protobuf/cluster.proto\SUB$tensorflow/core/protobuf/debug.proto\SUB.tensorflow/core/protobuf/rewriter_config.proto\"\202\b\n\
\\n\
\GPUOptions\DC2D\n\
\\USper_process_gpu_memory_fraction\CAN\SOH \SOH(\SOHR\ESCperProcessGpuMemoryFraction\DC2!\n\
\\fallow_growth\CAN\EOT \SOH(\bR\vallowGrowth\DC2%\n\
\\SOallocator_type\CAN\STX \SOH(\tR\rallocatorType\DC26\n\
\\ETBdeferred_deletion_bytes\CAN\ETX \SOH(\ETXR\NAKdeferredDeletionBytes\DC2.\n\
\\DC3visible_device_list\CAN\ENQ \SOH(\tR\DC1visibleDeviceList\DC2;\n\
\\SUBpolling_active_delay_usecs\CAN\ACK \SOH(\ENQR\ETBpollingActiveDelayUsecs\DC2?\n\
\\FSpolling_inactive_delay_msecs\CAN\a \SOH(\ENQR\EMpollingInactiveDelayMsecs\DC20\n\
\\DC4force_gpu_compatible\CAN\b \SOH(\bR\DC2forceGpuCompatible\DC2G\n\
\\fexperimental\CAN\t \SOH(\v2#.tensorflow.GPUOptions.ExperimentalR\fexperimental\SUB\202\EOT\n\
\\fExperimental\DC2[\n\
\\SIvirtual_devices\CAN\SOH \ETX(\v22.tensorflow.GPUOptions.Experimental.VirtualDevicesR\SOvirtualDevices\DC2,\n\
\\DC2use_unified_memory\CAN\STX \SOH(\bR\DLEuseUnifiedMemory\DC2;\n\
\\ESCnum_dev_to_dev_copy_streams\CAN\ETX \SOH(\ENQR\SYNnumDevToDevCopyStreams\DC22\n\
\\NAKcollective_ring_order\CAN\EOT \SOH(\tR\DC3collectiveRingOrder\DC23\n\
\\NAKtimestamped_allocator\CAN\ENQ \SOH(\bR\DC4timestampedAllocator\DC2=\n\
\\ESCkernel_tracker_max_interval\CAN\a \SOH(\ENQR\CANkernelTrackerMaxInterval\DC27\n\
\\CANkernel_tracker_max_bytes\CAN\b \SOH(\ENQR\NAKkernelTrackerMaxBytes\DC2;\n\
\\SUBkernel_tracker_max_pending\CAN\t \SOH(\ENQR\ETBkernelTrackerMaxPending\SUBT\n\
\\SOVirtualDevices\DC2&\n\
\\SImemory_limit_mb\CAN\SOH \ETX(\STXR\rmemoryLimitMb\DC2\SUB\n\
\\bpriority\CAN\STX \ETX(\ENQR\bpriority\"\130\EOT\n\
\\DLEOptimizerOptions\DC2M\n\
\#do_common_subexpression_elimination\CAN\SOH \SOH(\bR doCommonSubexpressionElimination\DC2.\n\
\\DC3do_constant_folding\CAN\STX \SOH(\bR\DC1doConstantFolding\DC2>\n\
\\FSmax_folded_constant_in_bytes\CAN\ACK \SOH(\ETXR\CANmaxFoldedConstantInBytes\DC20\n\
\\DC4do_function_inlining\CAN\EOT \SOH(\bR\DC2doFunctionInlining\DC2?\n\
\\topt_level\CAN\ETX \SOH(\SO2\".tensorflow.OptimizerOptions.LevelR\boptLevel\DC2U\n\
\\DLEglobal_jit_level\CAN\ENQ \SOH(\SO2+.tensorflow.OptimizerOptions.GlobalJitLevelR\SOglobalJitLevel\" \n\
\\ENQLevel\DC2\ACK\n\
\\STXL1\DLE\NUL\DC2\SI\n\
\\STXL0\DLE\255\255\255\255\255\255\255\255\255\SOH\"C\n\
\\SOGlobalJitLevel\DC2\v\n\
\\aDEFAULT\DLE\NUL\DC2\DLE\n\
\\ETXOFF\DLE\255\255\255\255\255\255\255\255\255\SOH\DC2\b\n\
\\EOTON_1\DLE\SOH\DC2\b\n\
\\EOTON_2\DLE\STX\"\144\EOT\n\
\\fGraphOptions\DC24\n\
\\SYNenable_recv_scheduling\CAN\STX \SOH(\bR\DC4enableRecvScheduling\DC2I\n\
\\DC1optimizer_options\CAN\ETX \SOH(\v2\FS.tensorflow.OptimizerOptionsR\DLEoptimizerOptions\DC2(\n\
\\DLEbuild_cost_model\CAN\EOT \SOH(\ETXR\SObuildCostModel\DC23\n\
\\SYNbuild_cost_model_after\CAN\t \SOH(\ETXR\DC3buildCostModelAfter\DC2!\n\
\\finfer_shapes\CAN\ENQ \SOH(\bR\vinferShapes\DC2,\n\
\\DC2place_pruned_graph\CAN\ACK \SOH(\bR\DLEplacePrunedGraph\DC28\n\
\\CANenable_bfloat16_sendrecv\CAN\a \SOH(\bR\SYNenableBfloat16Sendrecv\DC2#\n\
\\rtimeline_step\CAN\b \SOH(\ENQR\ftimelineStep\DC2C\n\
\\SIrewrite_options\CAN\n\
\ \SOH(\v2\SUB.tensorflow.RewriterConfigR\SOrewriteOptionsJ\EOT\b\SOH\DLE\STXR%skip_common_subexpression_elimination\"Y\n\
\\NAKThreadPoolOptionProto\DC2\US\n\
\\vnum_threads\CAN\SOH \SOH(\ENQR\n\
\numThreads\DC2\US\n\
\\vglobal_name\CAN\STX \SOH(\tR\n\
\globalName\"\169\STX\n\
\\n\
\RPCOptions\DC2>\n\
\\FSuse_rpc_for_inprocess_master\CAN\SOH \SOH(\bR\CANuseRpcForInprocessMaster\DC23\n\
\\NAKcompression_algorithm\CAN\STX \SOH(\tR\DC4compressionAlgorithm\DC2+\n\
\\DC1compression_level\CAN\ETX \SOH(\ENQR\DLEcompressionLevel\DC2,\n\
\\DC2cache_rpc_response\CAN\EOT \SOH(\bR\DLEcacheRpcResponse\DC2K\n\
\\"disable_session_connection_sharing\CAN\ENQ \SOH(\bR\USdisableSessionConnectionSharing\"?\n\
\\SISessionMetadata\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\CAN\n\
\\aversion\CAN\STX \SOH(\ETXR\aversion\"\139\DLE\n\
\\vConfigProto\DC2K\n\
\\fdevice_count\CAN\SOH \ETX(\v2(.tensorflow.ConfigProto.DeviceCountEntryR\vdeviceCount\DC2?\n\
\\FSintra_op_parallelism_threads\CAN\STX \SOH(\ENQR\EMintraOpParallelismThreads\DC2?\n\
\\FSinter_op_parallelism_threads\CAN\ENQ \SOH(\ENQR\EMinterOpParallelismThreads\DC25\n\
\\ETBuse_per_session_threads\CAN\t \SOH(\bR\DC4usePerSessionThreads\DC2a\n\
\\FSsession_inter_op_thread_pool\CAN\f \ETX(\v2!.tensorflow.ThreadPoolOptionProtoR\CANsessionInterOpThreadPool\DC2)\n\
\\DLEplacement_period\CAN\ETX \SOH(\ENQR\SIplacementPeriod\DC2%\n\
\\SOdevice_filters\CAN\EOT \ETX(\tR\rdeviceFilters\DC27\n\
\\vgpu_options\CAN\ACK \SOH(\v2\SYN.tensorflow.GPUOptionsR\n\
\gpuOptions\DC20\n\
\\DC4allow_soft_placement\CAN\a \SOH(\bR\DC2allowSoftPlacement\DC20\n\
\\DC4log_device_placement\CAN\b \SOH(\bR\DC2logDevicePlacement\DC2=\n\
\\rgraph_options\CAN\n\
\ \SOH(\v2\CAN.tensorflow.GraphOptionsR\fgraphOptions\DC25\n\
\\ETBoperation_timeout_in_ms\CAN\v \SOH(\ETXR\DC4operationTimeoutInMs\DC27\n\
\\vrpc_options\CAN\r \SOH(\v2\SYN.tensorflow.RPCOptionsR\n\
\rpcOptions\DC27\n\
\\vcluster_def\CAN\SO \SOH(\v2\SYN.tensorflow.ClusterDefR\n\
\clusterDef\DC22\n\
\\NAKisolate_session_state\CAN\SI \SOH(\bR\DC3isolateSessionState\DC2F\n\
\ share_cluster_devices_in_session\CAN\DC1 \SOH(\bR\FSshareClusterDevicesInSession\DC2H\n\
\\fexperimental\CAN\DLE \SOH(\v2$.tensorflow.ConfigProto.ExperimentalR\fexperimental\SUB>\n\
\\DLEDeviceCountEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUB\181\a\n\
\\fExperimental\DC26\n\
\\ETBcollective_group_leader\CAN\SOH \SOH(\tR\NAKcollectiveGroupLeader\DC2#\n\
\\rexecutor_type\CAN\ETX \SOH(\tR\fexecutorType\DC2+\n\
\\DC2recv_buf_max_chunk\CAN\EOT \SOH(\ENQR\SIrecvBufMaxChunk\DC2*\n\
\\DC1use_numa_affinity\CAN\ENQ \SOH(\bR\SIuseNumaAffinity\DC2a\n\
\-collective_deterministic_sequential_execution\CAN\ACK \SOH(\bR*collectiveDeterministicSequentialExecution\DC2'\n\
\\SIcollective_nccl\CAN\a \SOH(\bR\SOcollectiveNccl\DC2a\n\
\.share_session_state_in_clusterspec_propagation\CAN\b \SOH(\bR)shareSessionStateInClusterspecPropagation\DC26\n\
\\ETBdisable_thread_spinning\CAN\t \SOH(\bR\NAKdisableThreadSpinning\DC2F\n\
\ share_cluster_devices_in_session\CAN\n\
\ \SOH(\bR\FSshareClusterDevicesInSession\DC2F\n\
\\DLEsession_metadata\CAN\v \SOH(\v2\ESC.tensorflow.SessionMetadataR\SIsessionMetadata\DC29\n\
\\EMoptimize_for_static_graph\CAN\f \SOH(\bR\SYNoptimizeForStaticGraph\DC2,\n\
\\DC2enable_mlir_bridge\CAN\r \SOH(\bR\DLEenableMlirBridge\DC2C\n\
\\RSenable_mlir_graph_optimization\CAN\DLE \SOH(\bR\ESCenableMlirGraphOptimization\DC2E\n\
\\USdisable_output_partition_graphs\CAN\SO \SOH(\bR\FSdisableOutputPartitionGraphs\DC2=\n\
\\ESCxla_fusion_autotuner_thresh\CAN\SI \SOH(\ETXR\CANxlaFusionAutotunerThreshJ\EOT\b\STX\DLE\ETX\"\168\ACK\n\
\\n\
\RunOptions\DC2B\n\
\\vtrace_level\CAN\SOH \SOH(\SO2!.tensorflow.RunOptions.TraceLevelR\n\
\traceLevel\DC2\"\n\
\\rtimeout_in_ms\CAN\STX \SOH(\ETXR\vtimeoutInMs\DC2/\n\
\\DC4inter_op_thread_pool\CAN\ETX \SOH(\ENQR\DC1interOpThreadPool\DC26\n\
\\ETBoutput_partition_graphs\CAN\ENQ \SOH(\bR\NAKoutputPartitionGraphs\DC2=\n\
\\rdebug_options\CAN\ACK \SOH(\v2\CAN.tensorflow.DebugOptionsR\fdebugOptions\DC2J\n\
\\"report_tensor_allocations_upon_oom\CAN\a \SOH(\bR\RSreportTensorAllocationsUponOom\DC2G\n\
\\fexperimental\CAN\b \SOH(\v2#.tensorflow.RunOptions.ExperimentalR\fexperimental\SUB\154\STX\n\
\\fExperimental\DC20\n\
\\DC4collective_graph_key\CAN\SOH \SOH(\ETXR\DC2collectiveGraphKey\DC2/\n\
\\DC4use_run_handler_pool\CAN\STX \SOH(\bR\DC1useRunHandlerPool\DC2r\n\
\\CANrun_handler_pool_options\CAN\ETX \SOH(\v29.tensorflow.RunOptions.Experimental.RunHandlerPoolOptionsR\NAKrunHandlerPoolOptions\SUB3\n\
\\NAKRunHandlerPoolOptions\DC2\SUB\n\
\\bpriority\CAN\SOH \SOH(\ETXR\bpriority\"R\n\
\\n\
\TraceLevel\DC2\f\n\
\\bNO_TRACE\DLE\NUL\DC2\DC2\n\
\\SOSOFTWARE_TRACE\DLE\SOH\DC2\DC2\n\
\\SO\&HARDWARE_TRACE\DLE\STX\DC2\SO\n\
\\n\
\FULL_TRACE\DLE\ETXJ\EOT\b\EOT\DLE\ENQ\"\252\ETX\n\
\\vRunMetadata\DC24\n\
\\n\
\step_stats\CAN\SOH \SOH(\v2\NAK.tensorflow.StepStatsR\tstepStats\DC27\n\
\\n\
\cost_graph\CAN\STX \SOH(\v2\CAN.tensorflow.CostGraphDefR\tcostGraph\DC2?\n\
\\DLEpartition_graphs\CAN\ETX \ETX(\v2\DC4.tensorflow.GraphDefR\SIpartitionGraphs\DC2O\n\
\\SIfunction_graphs\CAN\EOT \ETX(\v2&.tensorflow.RunMetadata.FunctionGraphsR\SOfunctionGraphs\SUB\235\SOH\n\
\\SOFunctionGraphs\DC2?\n\
\\DLEpartition_graphs\CAN\SOH \ETX(\v2\DC4.tensorflow.GraphDefR\SIpartitionGraphs\DC2J\n\
\\SYNpre_optimization_graph\CAN\STX \SOH(\v2\DC4.tensorflow.GraphDefR\DC4preOptimizationGraph\DC2L\n\
\\ETBpost_optimization_graph\CAN\ETX \SOH(\v2\DC4.tensorflow.GraphDefR\NAKpostOptimizationGraph\"P\n\
\\DLETensorConnection\DC2\US\n\
\\vfrom_tensor\CAN\SOH \SOH(\tR\n\
\fromTensor\DC2\ESC\n\
\\tto_tensor\CAN\STX \SOH(\tR\btoTensor\"\165\EOT\n\
\\SICallableOptions\DC2\DC2\n\
\\EOTfeed\CAN\SOH \ETX(\tR\EOTfeed\DC2\DC4\n\
\\ENQfetch\CAN\STX \ETX(\tR\ENQfetch\DC2\SYN\n\
\\ACKtarget\CAN\ETX \ETX(\tR\ACKtarget\DC27\n\
\\vrun_options\CAN\EOT \SOH(\v2\SYN.tensorflow.RunOptionsR\n\
\runOptions\DC2I\n\
\\DC1tensor_connection\CAN\ENQ \ETX(\v2\FS.tensorflow.TensorConnectionR\DLEtensorConnection\DC2O\n\
\\ffeed_devices\CAN\ACK \ETX(\v2,.tensorflow.CallableOptions.FeedDevicesEntryR\vfeedDevices\DC2R\n\
\\rfetch_devices\CAN\a \ETX(\v2-.tensorflow.CallableOptions.FetchDevicesEntryR\ffetchDevices\DC2&\n\
\\SIfetch_skip_sync\CAN\b \SOH(\bR\rfetchSkipSync\SUB>\n\
\\DLEFeedDevicesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\SUB?\n\
\\DC1FetchDevicesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHBw\n\
\\CANorg.tensorflow.frameworkB\fConfigProtosP\SOHZHgithub.com/tensorflow/tensorflow/tensorflow/go/core/core_protos_go_proto\248\SOH\SOHJ\232\150\STX\n\
\\a\DC2\ENQ\NUL\NUL\167\ACK\SOH\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
\\b\n\
\\SOH\STX\DC2\ETX\STX\NUL\DC3\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\EOT\NUL4\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\ENQ\NUL/\n\
\\t\n\
\\STX\ETX\STX\DC2\ETX\ACK\NUL4\n\
\\t\n\
\\STX\ETX\ETX\DC2\ETX\a\NUL0\n\
\\t\n\
\\STX\ETX\EOT\DC2\ETX\b\NUL.\n\
\\t\n\
\\STX\ETX\ENQ\DC2\ETX\t\NUL8\n\
\\b\n\
\\SOH\b\DC2\ETX\v\NUL\US\n\
\\t\n\
\\STX\b\US\DC2\ETX\v\NUL\US\n\
\\b\n\
\\SOH\b\DC2\ETX\f\NUL-\n\
\\t\n\
\\STX\b\b\DC2\ETX\f\NUL-\n\
\\b\n\
\\SOH\b\DC2\ETX\r\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\r\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\SO\NUL1\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\SO\NUL1\n\
\\b\n\
\\SOH\b\DC2\ETX\SI\NUL_\n\
\\t\n\
\\STX\b\v\DC2\ETX\SI\NUL_\n\
\\v\n\
\\STX\EOT\NUL\DC2\ENQ\DC1\NUL\205\SOH\SOH\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\DC1\b\DC2\n\
\\226\a\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX#\STX-\SUB\212\a Fraction of the available GPU memory to allocate for each process.\n\
\ 1 means to allocate all of the GPU memory, 0.5 means the process\n\
\ allocates up to ~50% of the available GPU memory.\n\
\\n\
\ GPU memory is pre-allocated unless the allow_growth option is enabled.\n\
\\n\
\ If greater than 1.0, uses CUDA unified memory to potentially oversubscribe\n\
\ the amount of memory available on the GPU device by using host memory as a\n\
\ swap space. Accessing memory not available on the device will be\n\
\ significantly slower as that would require memory transfer between the host\n\
\ and the device. Options to reduce the memory requirement should be\n\
\ considered before enabling this option as this may come with a negative\n\
\ performance impact. Oversubscription using the unified memory requires\n\
\ Pascal class or newer GPUs and it is currently only supported on the Linux\n\
\ operating system. See\n\
\ https://docs.nvidia.com/cuda/cuda-c-programming-guide/index.html#um-requirements\n\
\ for the detailed requirements.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX#\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX#\t(\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX#+,\n\
\\147\SOH\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX'\STX\CAN\SUB\133\SOH If true, the allocator does not pre-allocate the entire specified\n\
\ GPU memory region, instead starting small and growing as needed.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX'\STX\ACK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX'\a\DC3\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX'\SYN\ETB\n\
\\139\STX\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX1\STX\FS\SUB\253\SOH The type of GPU allocation strategy to use.\n\
\\n\
\ Allowed values:\n\
\ \"\": The empty string (default) uses a system-chosen default\n\
\ which may change over time.\n\
\\n\
\ \"BFC\": A \"Best-fit with coalescing\" algorithm, simplified from a\n\
\ version of dlmalloc.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX1\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX1\t\ETB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX1\SUB\ESC\n\
\\178\SOH\n\
\\EOT\EOT\NUL\STX\ETX\DC2\ETX6\STX$\SUB\164\SOH Delay deletion of up to this many bytes to reduce the number of\n\
\ interactions with gpu driver code. If 0, the system chooses\n\
\ a reasonable default (several MBs).\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX6\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX6\b\US\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX6\"#\n\
\\220\t\n\
\\EOT\EOT\NUL\STX\EOT\DC2\ETXM\STX!\SUB\206\t A comma-separated list of GPU ids that determines the 'visible'\n\
\ to 'virtual' mapping of GPU devices. For example, if TensorFlow\n\
\ can see 8 GPU devices in the process, and one wanted to map\n\
\ visible GPU devices 5 and 3 as \"/device:GPU:0\", and \"/device:GPU:1\",\n\
\ then one would specify this field as \"5,3\". This field is similar in\n\
\ spirit to the CUDA_VISIBLE_DEVICES environment variable, except\n\
\ it applies to the visible GPU devices in the process.\n\
\\n\
\ NOTE:\n\
\ 1. The GPU driver provides the process with the visible GPUs\n\
\ in an order which is not guaranteed to have any correlation to\n\
\ the *physical* GPU id in the machine. This field is used for\n\
\ remapping \"visible\" to \"virtual\", which means this operates only\n\
\ after the process starts. Users are required to use vendor\n\
\ specific mechanisms (e.g., CUDA_VISIBLE_DEVICES) to control the\n\
\ physical to visible device mapping prior to invoking TensorFlow.\n\
\ 2. In the code, the ids in this list are also called \"platform GPU id\"s,\n\
\ and the 'virtual' ids of GPU devices (i.e. the ids in the device\n\
\ name \"/device:GPU:<id>\") are also called \"TF GPU id\"s. Please\n\
\ refer to third_party/tensorflow/core/common_runtime/gpu/gpu_id.h\n\
\ for more information.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ENQ\DC2\ETXM\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETXM\t\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETXM\US \n\
\\193\SOH\n\
\\EOT\EOT\NUL\STX\ENQ\DC2\ETXR\STX'\SUB\179\SOH In the event polling loop sleep this many microseconds between\n\
\ PollEvents calls, when the queue is not empty. If value is not\n\
\ set or set to 0, gets set to a non-zero default.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ENQ\DC2\ETXR\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETXR\b\"\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETXR%&\n\
\4\n\
\\EOT\EOT\NUL\STX\ACK\DC2\ETXU\STX)\SUB' This field is deprecated and ignored.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ENQ\DC2\ETXU\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\SOH\DC2\ETXU\b$\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ETX\DC2\ETXU'(\n\
\\154\ENQ\n\
\\EOT\EOT\NUL\STX\a\DC2\ETXa\STX \SUB\140\ENQ Force all tensors to be gpu_compatible. On a GPU-enabled TensorFlow,\n\
\ enabling this option forces all CPU tensors to be allocated with Cuda\n\
\ pinned memory. Normally, TensorFlow will infer which tensors should be\n\
\ allocated as the pinned memory. But in case where the inference is\n\
\ incomplete, this option can significantly speed up the cross-device memory\n\
\ copy performance as long as it fits the memory.\n\
\ Note that this option is not something that should be\n\
\ enabled by default for unknown or very large models, since all Cuda pinned\n\
\ memory is unpageable, having too much pinned memory might negatively impact\n\
\ the overall host system performance.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\ENQ\DC2\ETXa\STX\ACK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\SOH\DC2\ETXa\a\ESC\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\ETX\DC2\ETXa\RS\US\n\
\\r\n\
\\EOT\EOT\NUL\ETX\NUL\DC2\ENQc\STX\199\SOH\ETX\n\
\\f\n\
\\ENQ\EOT\NUL\ETX\NUL\SOH\DC2\ETXc\n\
\\SYN\n\
\a\n\
\\ACK\EOT\NUL\ETX\NUL\ETX\NUL\DC2\EOTf\EOT|\ENQ\SUBQ Configuration for breaking down a visible GPU into multiple \"virtual\"\n\
\ devices.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\ETX\NUL\SOH\DC2\ETXf\f\SUB\n\
\\165\ETX\n\
\\b\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\DC2\ETXo\ACK)\SUB\147\ETX Per \"virtual\" device memory limit, in MB. The number of elements in\n\
\ the list is the number of virtual devices to create on the\n\
\ corresponding visible GPU (see \"virtual_devices\" below).\n\
\ If empty, it will create single virtual device taking all available\n\
\ memory from the device.\n\
\\n\
\ For the concept of \"visible\" and \"virtual\" GPU, see the comments for\n\
\ \"visible_device_list\" above for more information.\n\
\\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\EOT\DC2\ETXo\ACK\SO\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\ENQ\DC2\ETXo\SI\DC4\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETXo\NAK$\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETXo'(\n\
\\225\ETX\n\
\\b\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\DC2\ETX{\ACK\"\SUB\207\ETX Priority values to use with the virtual devices. Use the cuda function\n\
\ cudaDeviceGetStreamPriorityRange to query for valid range of values for\n\
\ priority.\n\
\\n\
\ On a P4000 GPU with cuda 10.1, the priority range reported was 0 for\n\
\ least priority and -1 for greatest priority.\n\
\\n\
\ If this field is not specified, then the virtual devices will be\n\
\ created with the default. If this field has values set, then the size\n\
\ of this must match with the above memory_limit_mb.\n\
\\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\EOT\DC2\ETX{\ACK\SO\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\ENQ\DC2\ETX{\SI\DC4\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX{\NAK\GS\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX{ !\n\
\\174\t\n\
\\ACK\EOT\NUL\ETX\NUL\STX\NUL\DC2\EOT\149\SOH\EOT0\SUB\157\t The multi virtual device settings. If empty (not set), it will create\n\
\ single virtual device on each visible GPU, according to the settings\n\
\ in \"visible_device_list\" above. Otherwise, the number of elements in the\n\
\ list must be the same as the number of visible GPUs (after\n\
\ \"visible_device_list\" filtering if it is set), and the string represented\n\
\ device names (e.g. /device:GPU:<id>) will refer to the virtual\n\
\ devices and have the <id> field assigned sequentially starting from 0,\n\
\ according to the order they appear in this list and the \"memory_limit\"\n\
\ list inside each element. For example,\n\
\ visible_device_list = \"1,0\"\n\
\ virtual_devices { memory_limit: 1GB memory_limit: 2GB }\n\
\ virtual_devices {}\n\
\ will create three virtual devices as:\n\
\ /device:GPU:0 -> visible GPU 1 with 1GB memory\n\
\ /device:GPU:1 -> visible GPU 1 with 2GB memory\n\
\ /device:GPU:2 -> visible GPU 0 with all available memory\n\
\\n\
\ NOTE:\n\
\ 1. It's invalid to set both this and \"per_process_gpu_memory_fraction\"\n\
\ at the same time.\n\
\ 2. Currently this setting is per-process, not per-session. Using\n\
\ different settings in different sessions within same process will\n\
\ result in undefined behavior.\n\
\\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\EOT\DC2\EOT\149\SOH\EOT\f\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\ACK\DC2\EOT\149\SOH\r\ESC\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\SOH\DC2\EOT\149\SOH\FS+\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\ETX\DC2\EOT\149\SOH./\n\
\\230\ETX\n\
\\ACK\EOT\NUL\ETX\NUL\STX\SOH\DC2\EOT\158\SOH\EOT \SUB\213\ETX If true, uses CUDA unified memory for memory allocations. If\n\
\ per_process_gpu_memory_fraction option is greater than 1.0, then unified\n\
\ memory is used regardless of the value for this field. See comments for\n\
\ per_process_gpu_memory_fraction field for more details and requirements\n\
\ of the unified memory. This option is useful to oversubscribe memory if\n\
\ multiple processes are sharing a single GPU while individually using less\n\
\ than 1.0 per process memory fraction.\n\
\\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\ENQ\DC2\EOT\158\SOH\EOT\b\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\SOH\DC2\EOT\158\SOH\t\ESC\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\ETX\DC2\EOT\158\SOH\RS\US\n\
\\162\SOH\n\
\\ACK\EOT\NUL\ETX\NUL\STX\STX\DC2\EOT\163\SOH\EOT*\SUB\145\SOH If > 1, the number of device-to-device copy streams to create\n\
\ for each GPUDevice. Default value is 0, which is automatically\n\
\ converted to 1.\n\
\\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\ENQ\DC2\EOT\163\SOH\EOT\t\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\SOH\DC2\EOT\163\SOH\n\
\%\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\ETX\DC2\EOT\163\SOH()\n\
\\180\ETX\n\
\\ACK\EOT\NUL\ETX\NUL\STX\ETX\DC2\EOT\171\SOH\EOT%\SUB\163\ETX If non-empty, defines a good GPU ring order on a single worker based on\n\
\ device interconnect. This assumes that all workers have the same GPU\n\
\ topology. Specify as a comma-separated string, e.g. \"3,2,1,0,7,6,5,4\".\n\
\ This ring order is used by the RingReducer implementation of\n\
\ CollectiveReduce, and serves as an override to automatic ring order\n\
\ generation in OrderTaskDeviceMap() during CollectiveParam resolution.\n\
\\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\ETX\ENQ\DC2\EOT\171\SOH\EOT\n\
\\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\ETX\SOH\DC2\EOT\171\SOH\v \n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\ETX\ETX\DC2\EOT\171\SOH#$\n\
\\128\STX\n\
\\ACK\EOT\NUL\ETX\NUL\STX\EOT\DC2\EOT\177\SOH\EOT#\SUB\239\SOH If true then extra work is done by GPUDevice and GPUBFCAllocator to\n\
\ keep track of when GPU memory is freed and when kernels actually\n\
\ complete so that we can know when a nominally free memory chunk\n\
\ is really not subject to pending use.\n\
\\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\EOT\ENQ\DC2\EOT\177\SOH\EOT\b\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\EOT\SOH\DC2\EOT\177\SOH\t\RS\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\EOT\ETX\DC2\EOT\177\SOH!\"\n\
\\181\STX\n\
\\ACK\EOT\NUL\ETX\NUL\STX\ENQ\DC2\EOT\187\SOH\EOT*\SUB\146\STX Parameters for GPUKernelTracker. By default no kernel tracking is done.\n\
\ Note that timestamped_allocator is only effective if some tracking is\n\
\ specified.\n\
\\n\
\ If kernel_tracker_max_interval = n > 0, then a tracking event\n\
\ is inserted after every n kernels without an event.\n\
\2\DLE reserved id: 6\n\
\\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\ENQ\ENQ\DC2\EOT\187\SOH\EOT\t\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\ENQ\SOH\DC2\EOT\187\SOH\n\
\%\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\ENQ\ETX\DC2\EOT\187\SOH()\n\
\\158\STX\n\
\\ACK\EOT\NUL\ETX\NUL\STX\ACK\DC2\EOT\193\SOH\EOT'\SUB\141\STX If kernel_tracker_max_bytes = n > 0, then a tracking event is\n\
\ inserted after every series of kernels allocating a sum of\n\
\ memory >= n. If one kernel allocates b * n bytes, then one\n\
\ event will be inserted after it, but it will count as b against\n\
\ the pending limit.\n\
\\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\ACK\ENQ\DC2\EOT\193\SOH\EOT\t\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\ACK\SOH\DC2\EOT\193\SOH\n\
\\"\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\ACK\ETX\DC2\EOT\193\SOH%&\n\
\\209\SOH\n\
\\ACK\EOT\NUL\ETX\NUL\STX\a\DC2\EOT\198\SOH\EOT)\SUB\192\SOH If kernel_tracker_max_pending > 0 then no more than this many\n\
\ tracking events can be outstanding at a time. An attempt to\n\
\ launch an additional kernel will stall until an event\n\
\ completes.\n\
\\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\a\ENQ\DC2\EOT\198\SOH\EOT\t\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\a\SOH\DC2\EOT\198\SOH\n\
\$\n\
\\SI\n\
\\a\EOT\NUL\ETX\NUL\STX\a\ETX\DC2\EOT\198\SOH'(\n\
\\169\SOH\n\
\\EOT\EOT\NUL\STX\b\DC2\EOT\204\SOH\STX \SUB\154\SOH Everything inside experimental is subject to change and is not subject\n\
\ to API stability guarantees in\n\
\ https://www.tensorflow.org/guide/version_compat.\n\
\\n\
\\r\n\
\\ENQ\EOT\NUL\STX\b\ACK\DC2\EOT\204\SOH\STX\SO\n\
\\r\n\
\\ENQ\EOT\NUL\STX\b\SOH\DC2\EOT\204\SOH\SI\ESC\n\
\\r\n\
\\ENQ\EOT\NUL\STX\b\ETX\DC2\EOT\204\SOH\RS\US\n\
\5\n\
\\STX\EOT\SOH\DC2\ACK\208\SOH\NUL\253\SOH\SOH\SUB' Options passed to the graph optimizer\n\
\\n\
\\v\n\
\\ETX\EOT\SOH\SOH\DC2\EOT\208\SOH\b\CAN\n\
\S\n\
\\EOT\EOT\SOH\STX\NUL\DC2\EOT\210\SOH\STX/\SUBE If true, optimize the graph using common subexpression elimination.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\EOT\210\SOH\STX\ACK\n\
\\r\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\EOT\210\SOH\a*\n\
\\r\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\EOT\210\SOH-.\n\
\L\n\
\\EOT\EOT\SOH\STX\SOH\DC2\EOT\213\SOH\STX\US\SUB> If true, perform constant folding optimization on the graph.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\EOT\213\SOH\STX\ACK\n\
\\r\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\EOT\213\SOH\a\SUB\n\
\\r\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\EOT\213\SOH\GS\RS\n\
\\220\STX\n\
\\EOT\EOT\SOH\STX\STX\DC2\EOT\220\SOH\STX)\SUB\205\STX Constant folding optimization replaces tensors whose values can be\n\
\ predetermined, with constant nodes. To avoid inserting too large constants,\n\
\ the size of each constant created can be limited. If this value is zero, a\n\
\ default limit of 10 MiB will be applied. If constant folding optimization\n\
\ is disabled, this value is ignored.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\STX\ENQ\DC2\EOT\220\SOH\STX\a\n\
\\r\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\EOT\220\SOH\b$\n\
\\r\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\EOT\220\SOH'(\n\
\@\n\
\\EOT\EOT\SOH\STX\ETX\DC2\EOT\223\SOH\STX \SUB2 If true, perform function inlining on the graph.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ETX\ENQ\DC2\EOT\223\SOH\STX\ACK\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ETX\SOH\DC2\EOT\223\SOH\a\ESC\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ETX\ETX\DC2\EOT\223\SOH\RS\US\n\
\$\n\
\\EOT\EOT\SOH\EOT\NUL\DC2\ACK\226\SOH\STX\235\SOH\ETX\SUB\DC4 Optimization level\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\EOT\NUL\SOH\DC2\EOT\226\SOH\a\f\n\
\\132\SOH\n\
\\ACK\EOT\SOH\EOT\NUL\STX\NUL\DC2\EOT\231\SOH\EOT\v\SUBt L1 is the default level.\n\
\ Optimization performed at L1 :\n\
\ 1. Common subexpression elimination\n\
\ 2. Constant folding\n\
\\n\
\\SI\n\
\\a\EOT\SOH\EOT\NUL\STX\NUL\SOH\DC2\EOT\231\SOH\EOT\ACK\n\
\\SI\n\
\\a\EOT\SOH\EOT\NUL\STX\NUL\STX\DC2\EOT\231\SOH\t\n\
\\n\
\\"\n\
\\ACK\EOT\SOH\EOT\NUL\STX\SOH\DC2\EOT\234\SOH\EOT\f\SUB\DC2 No optimizations\n\
\\n\
\\SI\n\
\\a\EOT\SOH\EOT\NUL\STX\SOH\SOH\DC2\EOT\234\SOH\EOT\ACK\n\
\\SI\n\
\\a\EOT\SOH\EOT\NUL\STX\SOH\STX\DC2\EOT\234\SOH\t\v\n\
\\165\SOH\n\
\\EOT\EOT\SOH\STX\EOT\DC2\EOT\239\SOH\STX\SYN\SUB\150\SOH Overall optimization level. The actual optimizations applied will be the\n\
\ logical OR of the flags that this level implies and any flags already set.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\EOT\ACK\DC2\EOT\239\SOH\STX\a\n\
\\r\n\
\\ENQ\EOT\SOH\STX\EOT\SOH\DC2\EOT\239\SOH\b\DC1\n\
\\r\n\
\\ENQ\EOT\SOH\STX\EOT\ETX\DC2\EOT\239\SOH\DC4\NAK\n\
\E\n\
\\EOT\EOT\SOH\EOT\SOH\DC2\ACK\242\SOH\STX\251\SOH\ETX\SUB5 Control the use of the compiler/jit. Experimental.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\EOT\SOH\SOH\DC2\EOT\242\SOH\a\NAK\n\
\L\n\
\\ACK\EOT\SOH\EOT\SOH\STX\NUL\DC2\EOT\243\SOH\EOT\DLE\"< Default setting (\"off\" now, but later expected to be \"on\")\n\
\\n\
\\SI\n\
\\a\EOT\SOH\EOT\SOH\STX\NUL\SOH\DC2\EOT\243\SOH\EOT\v\n\
\\SI\n\
\\a\EOT\SOH\EOT\SOH\STX\NUL\STX\DC2\EOT\243\SOH\SO\SI\n\
\\SO\n\
\\ACK\EOT\SOH\EOT\SOH\STX\SOH\DC2\EOT\244\SOH\EOT\r\n\
\\SI\n\
\\a\EOT\SOH\EOT\SOH\STX\SOH\SOH\DC2\EOT\244\SOH\EOT\a\n\
\\SI\n\
\\a\EOT\SOH\EOT\SOH\STX\SOH\STX\DC2\EOT\244\SOH\n\
\\f\n\
\\132\STX\n\
\\ACK\EOT\SOH\EOT\SOH\STX\STX\DC2\EOT\249\SOH\EOT\r\SUB\243\SOH The following settings turn on compilation, with higher values being\n\
\ more aggressive. Higher values may reduce opportunities for parallelism\n\
\ and may use more memory. (At present, there is no distinction, but this\n\
\ is expected to change.)\n\
\\n\
\\SI\n\
\\a\EOT\SOH\EOT\SOH\STX\STX\SOH\DC2\EOT\249\SOH\EOT\b\n\
\\SI\n\
\\a\EOT\SOH\EOT\SOH\STX\STX\STX\DC2\EOT\249\SOH\v\f\n\
\\SO\n\
\\ACK\EOT\SOH\EOT\SOH\STX\ETX\DC2\EOT\250\SOH\EOT\r\n\
\\SI\n\
\\a\EOT\SOH\EOT\SOH\STX\ETX\SOH\DC2\EOT\250\SOH\EOT\b\n\
\\SI\n\
\\a\EOT\SOH\EOT\SOH\STX\ETX\STX\DC2\EOT\250\SOH\v\f\n\
\\f\n\
\\EOT\EOT\SOH\STX\ENQ\DC2\EOT\252\SOH\STX&\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ENQ\ACK\DC2\EOT\252\SOH\STX\DLE\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ENQ\SOH\DC2\EOT\252\SOH\DC1!\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ENQ\ETX\DC2\EOT\252\SOH$%\n\
\\f\n\
\\STX\EOT\STX\DC2\ACK\255\SOH\NUL\172\STX\SOH\n\
\\v\n\
\\ETX\EOT\STX\SOH\DC2\EOT\255\SOH\b\DC4\n\
\4\n\
\\ETX\EOT\STX\n\
\\DC2\EOT\129\STX\STX3\SUB' Removed, use optimizer_options below.\n\
\\n\
\\f\n\
\\EOT\EOT\STX\n\
\\NUL\DC2\EOT\129\STX\v2\n\
\\v\n\
\\ETX\EOT\STX\t\DC2\EOT\130\STX\STX\r\n\
\\f\n\
\\EOT\EOT\STX\t\NUL\DC2\EOT\130\STX\v\f\n\
\\r\n\
\\ENQ\EOT\STX\t\NUL\SOH\DC2\EOT\130\STX\v\f\n\
\\r\n\
\\ENQ\EOT\STX\t\NUL\STX\DC2\EOT\130\STX\v\f\n\
\i\n\
\\EOT\EOT\STX\STX\NUL\DC2\EOT\134\STX\STX\"\SUB[ If true, use control flow to schedule the activation of Recv nodes.\n\
\ (Currently ignored.)\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\EOT\134\STX\STX\ACK\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\EOT\134\STX\a\GS\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\EOT\134\STX !\n\
\;\n\
\\EOT\EOT\STX\STX\SOH\DC2\EOT\137\STX\STX)\SUB- Options controlling how graph is optimized.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\SOH\ACK\DC2\EOT\137\STX\STX\DC2\n\
\\r\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\EOT\137\STX\DC3$\n\
\\r\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\EOT\137\STX'(\n\
\\168\SOH\n\
\\EOT\EOT\STX\STX\STX\DC2\EOT\142\STX\STX\GS\SUB\153\SOH The number of steps to run before returning a cost model detailing\n\
\ the memory usage and performance of each node of the graph. 0 means\n\
\ no cost model.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\STX\ENQ\DC2\EOT\142\STX\STX\a\n\
\\r\n\
\\ENQ\EOT\STX\STX\STX\SOH\DC2\EOT\142\STX\b\CAN\n\
\\r\n\
\\ENQ\EOT\STX\STX\STX\ETX\DC2\EOT\142\STX\ESC\FS\n\
\]\n\
\\EOT\EOT\STX\STX\ETX\DC2\EOT\146\STX\STX#\SUBO The number of steps to skip before collecting statistics for the\n\
\ cost model.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\ETX\ENQ\DC2\EOT\146\STX\STX\a\n\
\\r\n\
\\ENQ\EOT\STX\STX\ETX\SOH\DC2\EOT\146\STX\b\RS\n\
\\r\n\
\\ENQ\EOT\STX\STX\ETX\ETX\DC2\EOT\146\STX!\"\n\
\k\n\
\\EOT\EOT\STX\STX\EOT\DC2\EOT\150\STX\STX\CAN\SUB] Annotate each Node with Op output shape data, to the extent it can\n\
\ be statically inferred.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\EOT\ENQ\DC2\EOT\150\STX\STX\ACK\n\
\\r\n\
\\ENQ\EOT\STX\STX\EOT\SOH\DC2\EOT\150\STX\a\DC3\n\
\\r\n\
\\ENQ\EOT\STX\STX\EOT\ETX\DC2\EOT\150\STX\SYN\ETB\n\
\\238\STX\n\
\\EOT\EOT\STX\STX\ENQ\DC2\EOT\159\STX\STX\RS\SUB\223\STX Only place the subgraphs that are run, rather than the entire graph.\n\
\\n\
\ This is useful for interactive graph building, where one might\n\
\ produce graphs that cannot be placed during the debugging\n\
\ process. In particular, it allows the client to continue work in\n\
\ a session after adding a node to a graph whose placement\n\
\ constraints are unsatisfiable.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\ENQ\ENQ\DC2\EOT\159\STX\STX\ACK\n\
\\r\n\
\\ENQ\EOT\STX\STX\ENQ\SOH\DC2\EOT\159\STX\a\EM\n\
\\r\n\
\\ENQ\EOT\STX\STX\ENQ\ETX\DC2\EOT\159\STX\FS\GS\n\
\M\n\
\\EOT\EOT\STX\STX\ACK\DC2\EOT\162\STX\STX$\SUB? If true, transfer float values between processes as bfloat16.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\ACK\ENQ\DC2\EOT\162\STX\STX\ACK\n\
\\r\n\
\\ENQ\EOT\STX\STX\ACK\SOH\DC2\EOT\162\STX\a\US\n\
\\r\n\
\\ENQ\EOT\STX\STX\ACK\ETX\DC2\EOT\162\STX\"#\n\
\~\n\
\\EOT\EOT\STX\STX\a\DC2\EOT\166\STX\STX\SUB\SUBp If > 0, record a timeline every this many steps.\n\
\ EXPERIMENTAL: This currently has no effect in MasterSession.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\a\ENQ\DC2\EOT\166\STX\STX\a\n\
\\r\n\
\\ENQ\EOT\STX\STX\a\SOH\DC2\EOT\166\STX\b\NAK\n\
\\r\n\
\\ENQ\EOT\STX\STX\a\ETX\DC2\EOT\166\STX\CAN\EM\n\
\\216\SOH\n\
\\EOT\EOT\STX\STX\b\DC2\EOT\171\STX\STX&\SUB\201\SOH Options that control the type and amount of graph rewriting.\n\
\ Not currently configurable via the public Python API (i.e. there is no API\n\
\ stability guarantee if you import RewriterConfig explicitly).\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\b\ACK\DC2\EOT\171\STX\STX\DLE\n\
\\r\n\
\\ENQ\EOT\STX\STX\b\SOH\DC2\EOT\171\STX\DC1 \n\
\\r\n\
\\ENQ\EOT\STX\STX\b\ETX\DC2\EOT\171\STX#%\n\
\\f\n\
\\STX\EOT\ETX\DC2\ACK\174\STX\NUL\197\STX\SOH\n\
\\v\n\
\\ETX\EOT\ETX\SOH\DC2\EOT\174\STX\b\GS\n\
\\187\SOH\n\
\\EOT\EOT\ETX\STX\NUL\DC2\EOT\179\STX\STX\CAN\SUB\172\SOH The number of threads in the pool.\n\
\\n\
\ 0 means the system picks a value based on where this option proto is used\n\
\ (see the declaration of the specific field for more info).\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\EOT\179\STX\STX\a\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\EOT\179\STX\b\DC3\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\EOT\179\STX\SYN\ETB\n\
\\247\ENQ\n\
\\EOT\EOT\ETX\STX\SOH\DC2\EOT\196\STX\STX\EM\SUB\232\ENQ The global name of the threadpool.\n\
\\n\
\ If empty, then the threadpool is made and used according to the scope it's\n\
\ in - e.g., for a session threadpool, it is used by that session only.\n\
\\n\
\ If non-empty, then:\n\
\ - a global threadpool associated with this name is looked\n\
\ up or created. This allows, for example, sharing one threadpool across\n\
\ many sessions (e.g., like the default behavior, if\n\
\ inter_op_parallelism_threads is not configured), but still partitioning\n\
\ into a large and small pool.\n\
\ - if the threadpool for this global_name already exists, then it is an\n\
\ error if the existing pool was created using a different num_threads\n\
\ value as is specified on this call.\n\
\ - threadpools created this way are never garbage collected.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\EOT\196\STX\STX\b\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\EOT\196\STX\t\DC4\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\EOT\196\STX\ETB\CAN\n\
\\f\n\
\\STX\EOT\EOT\DC2\ACK\199\STX\NUL\224\STX\SOH\n\
\\v\n\
\\ETX\EOT\EOT\SOH\DC2\EOT\199\STX\b\DC2\n\
\\136\STX\n\
\\EOT\EOT\EOT\STX\NUL\DC2\EOT\205\STX\STX(\SUB\249\SOH If true, always use RPC to contact the session target.\n\
\\n\
\ If false (the default option), TensorFlow may use an optimized\n\
\ transport for client-master communication that avoids the RPC\n\
\ stack. This option is primarily for used testing the RPC stack.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\EOT\205\STX\STX\ACK\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\EOT\205\STX\a#\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\EOT\205\STX&'\n\
\O\n\
\\EOT\EOT\EOT\STX\SOH\DC2\EOT\208\STX\STX#\SUBA The compression algorithm to be used. One of \"deflate\", \"gzip\".\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\EOT\208\STX\STX\b\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\SOH\DC2\EOT\208\STX\t\RS\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\ETX\DC2\EOT\208\STX!\"\n\
\u\n\
\\EOT\EOT\EOT\STX\STX\DC2\EOT\212\STX\STX\RS\SUBg If compression_algorithm is set, the compression level to be used.\n\
\ From 0 (no compression), up to 3.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\STX\ENQ\DC2\EOT\212\STX\STX\a\n\
\\r\n\
\\ENQ\EOT\EOT\STX\STX\SOH\DC2\EOT\212\STX\b\EM\n\
\\r\n\
\\ENQ\EOT\EOT\STX\STX\ETX\DC2\EOT\212\STX\FS\GS\n\
\\195\ETX\n\
\\EOT\EOT\EOT\STX\ETX\DC2\EOT\220\STX\STX\RS\SUB\180\ETX Setting cache_rpc_response to true will enable sender side caching of\n\
\ response for RecvTensorAsync and RecvBufAsync to allow receiver to retry\n\
\ requests . This is only necessary when the network fabric is experiencing a\n\
\ significant error rate. Without it we'll fail a step on an network error,\n\
\ while with it we'll be able to complete long steps (like complex\n\
\ initializations) in the face of some network errors during RecvTensor.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ETX\ENQ\DC2\EOT\220\STX\STX\ACK\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ETX\SOH\DC2\EOT\220\STX\a\EM\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ETX\ETX\DC2\EOT\220\STX\FS\GS\n\
\O\n\
\\EOT\EOT\EOT\STX\EOT\DC2\EOT\223\STX\STX.\SUBA Disables TCP connection sharing when opening a new RPC channel.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\EOT\ENQ\DC2\EOT\223\STX\STX\ACK\n\
\\r\n\
\\ENQ\EOT\EOT\STX\EOT\SOH\DC2\EOT\223\STX\a)\n\
\\r\n\
\\ENQ\EOT\EOT\STX\EOT\ETX\DC2\EOT\223\STX,-\n\
\\173\STX\n\
\\STX\EOT\ENQ\DC2\ACK\234\STX\NUL\239\STX\SOH\SUB\158\STX Metadata about the session.\n\
\\n\
\ This can be used by the runtime and the Ops for debugging, monitoring, etc.\n\
\\n\
\ The (name, version) tuple is expected to be a unique identifier for\n\
\ sessions within the same process.\n\
\\n\
\ NOTE: This is currently used and propagated only by the direct session.\n\
\\n\
\\v\n\
\\ETX\EOT\ENQ\SOH\DC2\EOT\234\STX\b\ETB\n\
\\f\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\EOT\235\STX\STX\DC2\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\EOT\235\STX\STX\b\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\EOT\235\STX\t\r\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\EOT\235\STX\DLE\DC1\n\
\B\n\
\\EOT\EOT\ENQ\STX\SOH\DC2\EOT\238\STX\STX\DC4\SUB4 The version is optional. If set, needs to be >= 0.\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\SOH\ENQ\DC2\EOT\238\STX\STX\a\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\EOT\238\STX\b\SI\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\EOT\238\STX\DC2\DC3\n\
\s\n\
\\STX\EOT\ACK\DC2\ACK\243\STX\NUL\224\EOT\SOH\SUBe Session configuration parameters.\n\
\ The system picks appropriate values for fields that are not set.\n\
\\n\
\\v\n\
\\ETX\EOT\ACK\SOH\DC2\EOT\243\STX\b\DC3\n\
\\213\SOH\n\
\\EOT\EOT\ACK\STX\NUL\DC2\EOT\248\STX\STX&\SUB\198\SOH Map from device type name (e.g., \"CPU\" or \"GPU\" ) to maximum\n\
\ number of devices of that type to use. If a particular device\n\
\ type is not found in the map, the system picks an appropriate\n\
\ number.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\ACK\DC2\EOT\248\STX\STX\DC4\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\EOT\248\STX\NAK!\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\EOT\248\STX$%\n\
\\238\ENQ\n\
\\EOT\EOT\ACK\STX\SOH\DC2\EOT\136\ETX\STX)\SUB\223\ENQ The execution of an individual op (for some op types) can be\n\
\ parallelized on a pool of intra_op_parallelism_threads.\n\
\ 0 means the system picks an appropriate number.\n\
\\n\
\ If you create an ordinary session, e.g., from Python or C++,\n\
\ then there is exactly one intra op thread pool per process.\n\
\ The first session created determines the number of threads in this pool.\n\
\ All subsequent sessions reuse/share this one global pool.\n\
\\n\
\ There are notable exceptions to the default behavior describe above:\n\
\ 1. There is an environment variable for overriding this thread pool,\n\
\ named TF_OVERRIDE_GLOBAL_THREADPOOL.\n\
\ 2. When connecting to a server, such as a remote `tf.train.Server`\n\
\ instance, then this option will be ignored altogether.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\EOT\136\ETX\STX\a\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\EOT\136\ETX\b$\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\EOT\136\ETX'(\n\
\\189\ETX\n\
\\EOT\EOT\ACK\STX\STX\DC2\EOT\147\ETX\STX)\SUB\174\ETX Nodes that perform blocking operations are enqueued on a pool of\n\
\ inter_op_parallelism_threads available in each process.\n\
\\n\
\ 0 means the system picks an appropriate number.\n\
\ Negative means all operations are performed in caller's thread.\n\
\\n\
\ Note that the first Session created in the process sets the\n\
\ number of threads for all future sessions unless use_per_session_threads is\n\
\ true or session_inter_op_thread_pool is configured.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\STX\ENQ\DC2\EOT\147\ETX\STX\a\n\
\\r\n\
\\ENQ\EOT\ACK\STX\STX\SOH\DC2\EOT\147\ETX\b$\n\
\\r\n\
\\ENQ\EOT\ACK\STX\STX\ETX\DC2\EOT\147\ETX'(\n\
\\208\ETX\n\
\\EOT\EOT\ACK\STX\ETX\DC2\EOT\158\ETX\STX#\SUB\193\ETX If true, use a new set of threads for this session rather than the global\n\
\ pool of threads. Only supported by direct sessions.\n\
\\n\
\ If false, use the global threads created by the first session, or the\n\
\ per-session thread pools configured by session_inter_op_thread_pool.\n\
\\n\
\ This option is deprecated. The same effect can be achieved by setting\n\
\ session_inter_op_thread_pool to have one element, whose num_threads equals\n\
\ inter_op_parallelism_threads.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\ETX\ENQ\DC2\EOT\158\ETX\STX\ACK\n\
\\r\n\
\\ENQ\EOT\ACK\STX\ETX\SOH\DC2\EOT\158\ETX\a\RS\n\
\\r\n\
\\ENQ\EOT\ACK\STX\ETX\ETX\DC2\EOT\158\ETX!\"\n\
\\145\b\n\
\\EOT\EOT\ACK\STX\EOT\DC2\EOT\179\ETX\STXC\SUB\130\b This option is experimental - it may be replaced with a different mechanism\n\
\ in the future.\n\
\\n\
\ Configures session thread pools. If this is configured, then RunOptions for\n\
\ a Run call can select the thread pool to use.\n\
\\n\
\ The intended use is for when some session invocations need to run in a\n\
\ background pool limited to a small number of threads:\n\
\ - For example, a session may be configured to have one large pool (for\n\
\ regular compute) and one small pool (for periodic, low priority work);\n\
\ using the small pool is currently the mechanism for limiting the inter-op\n\
\ parallelism of the low priority work. Note that it does not limit the\n\
\ parallelism of work spawned by a single op kernel implementation.\n\
\ - Using this setting is normally not needed in training, but may help some\n\
\ serving use cases.\n\
\ - It is also generally recommended to set the global_name field of this\n\
\ proto, to avoid creating multiple large pools. It is typically better to\n\
\ run the non-low-priority work, even across sessions, in a single large\n\
\ pool.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\EOT\EOT\DC2\EOT\179\ETX\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\EOT\ACK\DC2\EOT\179\ETX\v \n\
\\r\n\
\\ENQ\EOT\ACK\STX\EOT\SOH\DC2\EOT\179\ETX!=\n\
\\r\n\
\\ENQ\EOT\ACK\STX\EOT\ETX\DC2\EOT\179\ETX@B\n\
\\189\SOH\n\
\\EOT\EOT\ACK\STX\ENQ\DC2\EOT\184\ETX\STX\GS\SUB\174\SOH Assignment of Nodes to Devices is recomputed every placement_period\n\
\ steps until the system warms up (at which point the recomputation\n\
\ typically slows down automatically).\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\ENQ\ENQ\DC2\EOT\184\ETX\STX\a\n\
\\r\n\
\\ENQ\EOT\ACK\STX\ENQ\SOH\DC2\EOT\184\ETX\b\CAN\n\
\\r\n\
\\ENQ\EOT\ACK\STX\ENQ\ETX\DC2\EOT\184\ETX\ESC\FS\n\
\\197\SOH\n\
\\EOT\EOT\ACK\STX\ACK\DC2\EOT\189\ETX\STX%\SUB\182\SOH When any filters are present sessions will ignore all devices which do not\n\
\ match the filters. Each filter can be partially specified, e.g. \"/job:ps\"\n\
\ \"/job:worker/replica:3\", etc.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\ACK\EOT\DC2\EOT\189\ETX\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\ACK\ENQ\DC2\EOT\189\ETX\v\DC1\n\
\\r\n\
\\ENQ\EOT\ACK\STX\ACK\SOH\DC2\EOT\189\ETX\DC2 \n\
\\r\n\
\\ENQ\EOT\ACK\STX\ACK\ETX\DC2\EOT\189\ETX#$\n\
\/\n\
\\EOT\EOT\ACK\STX\a\DC2\EOT\192\ETX\STX\GS\SUB! Options that apply to all GPUs.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\a\ACK\DC2\EOT\192\ETX\STX\f\n\
\\r\n\
\\ENQ\EOT\ACK\STX\a\SOH\DC2\EOT\192\ETX\r\CAN\n\
\\r\n\
\\ENQ\EOT\ACK\STX\a\ETX\DC2\EOT\192\ETX\ESC\FS\n\
\\154\STX\n\
\\EOT\EOT\ACK\STX\b\DC2\EOT\201\ETX\STX \SUB\139\STX Whether soft placement is allowed. If allow_soft_placement is true,\n\
\ an op will be placed on CPU if\n\
\ 1. there's no GPU implementation for the OP\n\
\ or\n\
\ 2. no GPU devices are known or registered\n\
\ or\n\
\ 3. need to co-locate with reftype input(s) which are from CPU.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\b\ENQ\DC2\EOT\201\ETX\STX\ACK\n\
\\r\n\
\\ENQ\EOT\ACK\STX\b\SOH\DC2\EOT\201\ETX\a\ESC\n\
\\r\n\
\\ENQ\EOT\ACK\STX\b\ETX\DC2\EOT\201\ETX\RS\US\n\
\;\n\
\\EOT\EOT\ACK\STX\t\DC2\EOT\204\ETX\STX \SUB- Whether device placements should be logged.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\t\ENQ\DC2\EOT\204\ETX\STX\ACK\n\
\\r\n\
\\ENQ\EOT\ACK\STX\t\SOH\DC2\EOT\204\ETX\a\ESC\n\
\\r\n\
\\ENQ\EOT\ACK\STX\t\ETX\DC2\EOT\204\ETX\RS\US\n\
\1\n\
\\EOT\EOT\ACK\STX\n\
\\DC2\EOT\207\ETX\STX\"\SUB# Options that apply to all graphs.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\n\
\\ACK\DC2\EOT\207\ETX\STX\SO\n\
\\r\n\
\\ENQ\EOT\ACK\STX\n\
\\SOH\DC2\EOT\207\ETX\SI\FS\n\
\\r\n\
\\ENQ\EOT\ACK\STX\n\
\\ETX\DC2\EOT\207\ETX\US!\n\
\\206\SOH\n\
\\EOT\EOT\ACK\STX\v\DC2\EOT\212\ETX\STX%\SUB\191\SOH Global timeout for all blocking operations in this session. If non-zero,\n\
\ and not overridden on a per-operation basis, this value will be used as the\n\
\ deadline for all blocking operations.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\v\ENQ\DC2\EOT\212\ETX\STX\a\n\
\\r\n\
\\ENQ\EOT\ACK\STX\v\SOH\DC2\EOT\212\ETX\b\US\n\
\\r\n\
\\ENQ\EOT\ACK\STX\v\ETX\DC2\EOT\212\ETX\"$\n\
\R\n\
\\EOT\EOT\ACK\STX\f\DC2\EOT\215\ETX\STX\RS\SUBD Options that apply when this session uses the distributed runtime.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\f\ACK\DC2\EOT\215\ETX\STX\f\n\
\\r\n\
\\ENQ\EOT\ACK\STX\f\SOH\DC2\EOT\215\ETX\r\CAN\n\
\\r\n\
\\ENQ\EOT\ACK\STX\f\ETX\DC2\EOT\215\ETX\ESC\GS\n\
\D\n\
\\EOT\EOT\ACK\STX\r\DC2\EOT\218\ETX\STX\RS\SUB6 Optional list of all workers to use in this session.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\r\ACK\DC2\EOT\218\ETX\STX\f\n\
\\r\n\
\\ENQ\EOT\ACK\STX\r\SOH\DC2\EOT\218\ETX\r\CAN\n\
\\r\n\
\\ENQ\EOT\ACK\STX\r\ETX\DC2\EOT\218\ETX\ESC\GS\n\
\\225\SOH\n\
\\EOT\EOT\ACK\STX\SO\DC2\EOT\223\ETX\STX\"\SUB\210\SOH If true, any resources such as Variables used in the session will not be\n\
\ shared with other sessions. However, when clusterspec propagation is\n\
\ enabled, this field is ignored and sessions are always isolated.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SO\ENQ\DC2\EOT\223\ETX\STX\ACK\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SO\SOH\DC2\EOT\223\ETX\a\FS\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SO\ETX\DC2\EOT\223\ETX\US!\n\
\\202\SOH\n\
\\EOT\EOT\ACK\STX\SI\DC2\EOT\229\ETX\STX-\SUB\187\SOH When true, WorkerSessions are created with device attributes from the\n\
\ full cluster.\n\
\ This is helpful when a worker wants to partition a graph\n\
\ (for example during a PartitionedCallOp).\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SI\ENQ\DC2\EOT\229\ETX\STX\ACK\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SI\SOH\DC2\EOT\229\ETX\a'\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SI\ETX\DC2\EOT\229\ETX*,\n\
\\171\SOH\n\
\\EOT\EOT\ACK\ETX\SOH\DC2\ACK\234\ETX\STX\219\EOT\ETX\SUB\154\SOH Everything inside Experimental is subject to change and is not subject\n\
\ to API stability guarantees in\n\
\ https://www.tensorflow.org/guide/version_compat.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\ETX\SOH\SOH\DC2\EOT\234\ETX\n\
\\SYN\n\
\1\n\
\\ACK\EOT\ACK\ETX\SOH\STX\NUL\DC2\EOT\236\ETX\EOT'\SUB! Task name for group resolution.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\NUL\ENQ\DC2\EOT\236\ETX\EOT\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\NUL\SOH\DC2\EOT\236\ETX\v\"\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\NUL\ETX\DC2\EOT\236\ETX%&\n\
\\214\SOH\n\
\\ENQ\EOT\ACK\ETX\SOH\t\DC2\EOT\242\ETX\EOT\SI\SUB\198\SOH We removed the flag client_handles_error_formatting. Marking the tag\n\
\ number as reserved.\n\
\ TODO(shikharagarwal): Should we just remove this tag so that it can be\n\
\ used in future for other purpose?\n\
\\n\
\\SO\n\
\\ACK\EOT\ACK\ETX\SOH\t\NUL\DC2\EOT\242\ETX\r\SO\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\t\NUL\SOH\DC2\EOT\242\ETX\r\SO\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\t\NUL\STX\DC2\EOT\242\ETX\r\SO\n\
\q\n\
\\ACK\EOT\ACK\ETX\SOH\STX\SOH\DC2\EOT\246\ETX\EOT\GS\SUBa Which executor to use, the default executor will be used\n\
\ if it is an empty string or \"DEFAULT\"\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\SOH\ENQ\DC2\EOT\246\ETX\EOT\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\SOH\SOH\DC2\EOT\246\ETX\v\CAN\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\SOH\ETX\DC2\EOT\246\ETX\ESC\FS\n\
\\204\SOH\n\
\\ACK\EOT\ACK\ETX\SOH\STX\STX\DC2\EOT\251\ETX\EOT!\SUB\187\SOH Guidance to formatting of large RecvBuf fields for transfer.\n\
\ Any positive value sets the max chunk size. 0 defaults to 4096.\n\
\ Any negative value indicates no max, i.e. one chunk only.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\STX\ENQ\DC2\EOT\251\ETX\EOT\t\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\STX\SOH\DC2\EOT\251\ETX\n\
\\FS\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\STX\ETX\DC2\EOT\251\ETX\US \n\
\\221\SOH\n\
\\ACK\EOT\ACK\ETX\SOH\STX\ETX\DC2\EOT\128\EOT\EOT\US\SUB\204\SOH If true, and supported by the platform, the runtime will attempt to\n\
\ use NUMA affinity where applicable. One consequence will be the\n\
\ existence of as many CPU devices as there are available NUMA nodes.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\ETX\ENQ\DC2\EOT\128\EOT\EOT\b\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\ETX\SOH\DC2\EOT\128\EOT\t\SUB\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\ETX\ETX\DC2\EOT\128\EOT\GS\RS\n\
\\140\SOH\n\
\\ACK\EOT\ACK\ETX\SOH\STX\EOT\DC2\EOT\132\EOT\EOT;\SUB| If true, make collective op execution order sequential and deterministic\n\
\ for potentially concurrent collective instances.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\EOT\ENQ\DC2\EOT\132\EOT\EOT\b\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\EOT\SOH\DC2\EOT\132\EOT\t6\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\EOT\ETX\DC2\EOT\132\EOT9:\n\
\]\n\
\\ACK\EOT\ACK\ETX\SOH\STX\ENQ\DC2\EOT\136\EOT\EOT\GS\SUBM If true, use NCCL for CollectiveOps. This feature is highly\n\
\ experimental.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\ENQ\ENQ\DC2\EOT\136\EOT\EOT\b\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\ENQ\SOH\DC2\EOT\136\EOT\t\CAN\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\ENQ\ETX\DC2\EOT\136\EOT\ESC\FS\n\
\\218\a\n\
\\ACK\EOT\ACK\ETX\SOH\STX\ACK\DC2\EOT\158\EOT\EOT<\SUB\201\a In the following, session state means the value of a variable, elements\n\
\ in a hash table, or any other resource, accessible by worker sessions\n\
\ held by a TF server.\n\
\\n\
\ When ClusterSpec propagation is enabled, the value of\n\
\ isolate_session_state is ignored when deciding whether to share session\n\
\ states in a TF server (for backwards compatibility reasons).\n\
\ - If share_session_state_in_clusterspec_propagation is true, the session\n\
\ states are shared.\n\
\ - If share_session_state_in_clusterspec_propagation is false, session\n\
\ states are isolated.\n\
\\n\
\ When clusterspec propagation is not used, the value of\n\
\ share_session_state_in_clusterspec_propagation is ignored when deciding\n\
\ whether to share session states in a TF server.\n\
\ - If isolate_session_state is true, session states are isolated.\n\
\ - If isolate_session_state is false, session states are shared.\n\
\\n\
\ TODO(b/129330037): Add a single API that consistently treats\n\
\ isolate_session_state and ClusterSpec propagation.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\ACK\ENQ\DC2\EOT\158\EOT\EOT\b\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\ACK\SOH\DC2\EOT\158\EOT\t7\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\ACK\ETX\DC2\EOT\158\EOT:;\n\
\\242\SOH\n\
\\ACK\EOT\ACK\ETX\SOH\STX\a\DC2\EOT\164\EOT\EOT%\SUB\225\SOH If using a direct session, disable spinning while waiting for work in\n\
\ the thread pool. This may result in higher latency for completing ops,\n\
\ but in the case where there is a lot of spinning may result in lower\n\
\ CPU usage.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\a\ENQ\DC2\EOT\164\EOT\EOT\b\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\a\SOH\DC2\EOT\164\EOT\t \n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\a\ETX\DC2\EOT\164\EOT#$\n\
\\128\SOH\n\
\\ACK\EOT\ACK\ETX\SOH\STX\b\DC2\EOT\168\EOT\EOT/\SUBp This was promoted to a non-experimental API. Please use\n\
\ ConfigProto.share_cluster_devices_in_session instead.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\b\ENQ\DC2\EOT\168\EOT\EOT\b\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\b\SOH\DC2\EOT\168\EOT\t)\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\b\ETX\DC2\EOT\168\EOT,.\n\
\\207\SOH\n\
\\ACK\EOT\ACK\ETX\SOH\STX\t\DC2\EOT\176\EOT\EOT*\SUB\190\SOH Metadata about the session.\n\
\\n\
\ If set, this can be used by the runtime and the Ops for debugging,\n\
\ monitoring, etc.\n\
\\n\
\ NOTE: This is currently used and propagated only by the direct session.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\t\ACK\DC2\EOT\176\EOT\EOT\DC3\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\t\SOH\DC2\EOT\176\EOT\DC4$\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\t\ETX\DC2\EOT\176\EOT')\n\
\\152\STX\n\
\\ACK\EOT\ACK\ETX\SOH\STX\n\
\\DC2\EOT\184\EOT\EOT(\SUB\135\STX If true, the session may treat the graph as being static for optimization\n\
\ purposes.\n\
\\n\
\ If this option is set to true when a session is created, the full\n\
\ GraphDef must be passed in a single call to Session::Create(), and\n\
\ Session::Extend() may not be supported.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\n\
\\ENQ\DC2\EOT\184\EOT\EOT\b\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\n\
\\SOH\DC2\EOT\184\EOT\t\"\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\n\
\\ETX\DC2\EOT\184\EOT%'\n\
\\134\ENQ\n\
\\ACK\EOT\ACK\ETX\SOH\STX\v\DC2\EOT\197\EOT\EOT!\SUB\245\EOT Whether to enable the MLIR-based TF->XLA bridge.\n\
\\n\
\ This is a replacement to the existing bridge, and not ready for\n\
\ production usage yet.\n\
\ If this option is set to true when a session is created, MLIR is used to\n\
\ perform the set of graph transformations to put the graph in a form that\n\
\ can be executed with delegation of some computations to an accelerator.\n\
\ This builds on the model of XLA where a subset of the graph is\n\
\ encapsulated and attached to a \"compile\" operation, whose result is fed\n\
\ to an \"execute\" operation. The kernel for these operations is responsible\n\
\ to lower the encapsulated graph to a particular device.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\v\ENQ\DC2\EOT\197\EOT\EOT\b\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\v\SOH\DC2\EOT\197\EOT\t\ESC\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\v\ETX\DC2\EOT\197\EOT\RS \n\
\\152\STX\n\
\\ACK\EOT\ACK\ETX\SOH\STX\f\DC2\EOT\204\EOT\EOT-\SUB\135\STX Whether to enable the MLIR-based Graph optimizations.\n\
\\n\
\ This will become a part of standard Tensorflow graph optimization\n\
\ pipeline, currently this is only used for gradual migration and testing\n\
\ new passes that are replacing existing optimizations in Grappler.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\f\ENQ\DC2\EOT\204\EOT\EOT\b\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\f\SOH\DC2\EOT\204\EOT\t'\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\f\ETX\DC2\EOT\204\EOT*,\n\
\\232\SOH\n\
\\ACK\EOT\ACK\ETX\SOH\STX\r\DC2\EOT\211\EOT\EOT.\SUB\215\SOH If true, the session will not store an additional copy of the graph for\n\
\ each subgraph.\n\
\\n\
\ If this option is set to true when a session is created, the\n\
\ `RunOptions.output_partition_graphs` options must not be set.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\r\ENQ\DC2\EOT\211\EOT\EOT\b\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\r\SOH\DC2\EOT\211\EOT\t(\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\r\ETX\DC2\EOT\211\EOT+-\n\
\\141\STX\n\
\\ACK\EOT\ACK\ETX\SOH\STX\SO\DC2\EOT\218\EOT\EOT+\SUB\252\SOH Minimum number of batches run through the XLA graph before XLA fusion\n\
\ autotuner is enabled. Default value of zero disables the autotuner.\n\
\\n\
\ The XLA fusion autotuner can improve performance by executing a heuristic\n\
\ search on the compiler parameters.\n\
\\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\SO\ENQ\DC2\EOT\218\EOT\EOT\t\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\SO\SOH\DC2\EOT\218\EOT\n\
\%\n\
\\SI\n\
\\a\EOT\ACK\ETX\SOH\STX\SO\ETX\DC2\EOT\218\EOT(*\n\
\\f\n\
\\EOT\EOT\ACK\STX\DLE\DC2\EOT\221\EOT\STX!\n\
\\r\n\
\\ENQ\EOT\ACK\STX\DLE\ACK\DC2\EOT\221\EOT\STX\SO\n\
\\r\n\
\\ENQ\EOT\ACK\STX\DLE\SOH\DC2\EOT\221\EOT\SI\ESC\n\
\\r\n\
\\ENQ\EOT\ACK\STX\DLE\ETX\DC2\EOT\221\EOT\RS \n\
\0\n\
\\STX\EOT\a\DC2\ACK\227\EOT\NUL\161\ENQ\SOH\SUB\" Options for a single Run() call.\n\
\\n\
\\v\n\
\\ETX\EOT\a\SOH\DC2\EOT\227\EOT\b\DC2\n\
\\132\SOH\n\
\\EOT\EOT\a\EOT\NUL\DC2\ACK\230\EOT\STX\235\EOT\ETX\SUBt TODO(pbar) Turn this into a TraceOptions proto which allows\n\
\ tracing to be controlled in a more orthogonal manner?\n\
\\n\
\\r\n\
\\ENQ\EOT\a\EOT\NUL\SOH\DC2\EOT\230\EOT\a\DC1\n\
\\SO\n\
\\ACK\EOT\a\EOT\NUL\STX\NUL\DC2\EOT\231\EOT\EOT\DC1\n\
\\SI\n\
\\a\EOT\a\EOT\NUL\STX\NUL\SOH\DC2\EOT\231\EOT\EOT\f\n\
\\SI\n\
\\a\EOT\a\EOT\NUL\STX\NUL\STX\DC2\EOT\231\EOT\SI\DLE\n\
\\SO\n\
\\ACK\EOT\a\EOT\NUL\STX\SOH\DC2\EOT\232\EOT\EOT\ETB\n\
\\SI\n\
\\a\EOT\a\EOT\NUL\STX\SOH\SOH\DC2\EOT\232\EOT\EOT\DC2\n\
\\SI\n\
\\a\EOT\a\EOT\NUL\STX\SOH\STX\DC2\EOT\232\EOT\NAK\SYN\n\
\\SO\n\
\\ACK\EOT\a\EOT\NUL\STX\STX\DC2\EOT\233\EOT\EOT\ETB\n\
\\SI\n\
\\a\EOT\a\EOT\NUL\STX\STX\SOH\DC2\EOT\233\EOT\EOT\DC2\n\
\\SI\n\
\\a\EOT\a\EOT\NUL\STX\STX\STX\DC2\EOT\233\EOT\NAK\SYN\n\
\\SO\n\
\\ACK\EOT\a\EOT\NUL\STX\ETX\DC2\EOT\234\EOT\EOT\DC3\n\
\\SI\n\
\\a\EOT\a\EOT\NUL\STX\ETX\SOH\DC2\EOT\234\EOT\EOT\SO\n\
\\SI\n\
\\a\EOT\a\EOT\NUL\STX\ETX\STX\DC2\EOT\234\EOT\DC1\DC2\n\
\\f\n\
\\EOT\EOT\a\STX\NUL\DC2\EOT\236\EOT\STX\GS\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\ACK\DC2\EOT\236\EOT\STX\f\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\EOT\236\EOT\r\CAN\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\EOT\236\EOT\ESC\FS\n\
\G\n\
\\EOT\EOT\a\STX\SOH\DC2\EOT\239\EOT\STX\SUB\SUB9 Time to wait for operation to complete in milliseconds.\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\SOH\ENQ\DC2\EOT\239\EOT\STX\a\n\
\\r\n\
\\ENQ\EOT\a\STX\SOH\SOH\DC2\EOT\239\EOT\b\NAK\n\
\\r\n\
\\ENQ\EOT\a\STX\SOH\ETX\DC2\EOT\239\EOT\CAN\EM\n\
\\157\ETX\n\
\\EOT\EOT\a\STX\STX\DC2\EOT\247\EOT\STX!\SUB\142\ETX The thread pool to use, if session_inter_op_thread_pool is configured.\n\
\ To use the caller thread set this to -1 - this uses the caller thread\n\
\ to execute Session::Run() and thus avoids a context switch. Using the\n\
\ caller thread to execute Session::Run() should be done ONLY for simple\n\
\ graphs, where the overhead of an additional context switch is\n\
\ comparable with the overhead of Session::Run().\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\STX\ENQ\DC2\EOT\247\EOT\STX\a\n\
\\r\n\
\\ENQ\EOT\a\STX\STX\SOH\DC2\EOT\247\EOT\b\FS\n\
\\r\n\
\\ENQ\EOT\a\STX\STX\ETX\DC2\EOT\247\EOT\US \n\
\p\n\
\\EOT\EOT\a\STX\ETX\DC2\EOT\251\EOT\STX#\SUBb Whether the partition graph(s) executed by the executor(s) should be\n\
\ outputted via RunMetadata.\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\ETX\ENQ\DC2\EOT\251\EOT\STX\ACK\n\
\\r\n\
\\ENQ\EOT\a\STX\ETX\SOH\DC2\EOT\251\EOT\a\RS\n\
\\r\n\
\\ENQ\EOT\a\STX\ETX\ETX\DC2\EOT\251\EOT!\"\n\
\T\n\
\\EOT\EOT\a\STX\EOT\DC2\EOT\254\EOT\STX!\SUBF EXPERIMENTAL. Options used to initialize DebuggerState, if enabled.\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\EOT\ACK\DC2\EOT\254\EOT\STX\SO\n\
\\r\n\
\\ENQ\EOT\a\STX\EOT\SOH\DC2\EOT\254\EOT\SI\FS\n\
\\r\n\
\\ENQ\EOT\a\STX\EOT\ETX\DC2\EOT\254\EOT\US \n\
\\231\SOH\n\
\\EOT\EOT\a\STX\ENQ\DC2\EOT\133\ENQ\STX.\SUB\216\SOH When enabled, causes tensor allocation information to be included in\n\
\ the error message when the Run() call fails because the allocator ran\n\
\ out of memory (OOM).\n\
\\n\
\ Enabling this option can slow down the Run() call.\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\ENQ\ENQ\DC2\EOT\133\ENQ\STX\ACK\n\
\\r\n\
\\ENQ\EOT\a\STX\ENQ\SOH\DC2\EOT\133\ENQ\a)\n\
\\r\n\
\\ENQ\EOT\a\STX\ENQ\ETX\DC2\EOT\133\ENQ,-\n\
\\171\SOH\n\
\\EOT\EOT\a\ETX\NUL\DC2\ACK\138\ENQ\STX\156\ENQ\ETX\SUB\154\SOH Everything inside Experimental is subject to change and is not subject\n\
\ to API stability guarantees in\n\
\ https://www.tensorflow.org/guide/version_compat.\n\
\\n\
\\r\n\
\\ENQ\EOT\a\ETX\NUL\SOH\DC2\EOT\138\ENQ\n\
\\SYN\n\
\\236\SOH\n\
\\ACK\EOT\a\ETX\NUL\STX\NUL\DC2\EOT\143\ENQ\EOT#\SUB\219\SOH If non-zero, declares that this graph is going to use collective\n\
\ ops and must synchronize step_ids with any other graph with this\n\
\ same group_key value (in a distributed computation where tasks\n\
\ run disjoint graphs).\n\
\\n\
\\SI\n\
\\a\EOT\a\ETX\NUL\STX\NUL\ENQ\DC2\EOT\143\ENQ\EOT\t\n\
\\SI\n\
\\a\EOT\a\ETX\NUL\STX\NUL\SOH\DC2\EOT\143\ENQ\n\
\\RS\n\
\\SI\n\
\\a\EOT\a\ETX\NUL\STX\NUL\ETX\DC2\EOT\143\ENQ!\"\n\
\\242\SOH\n\
\\ACK\EOT\a\ETX\NUL\STX\SOH\DC2\EOT\148\ENQ\EOT\"\SUB\225\SOH If true, then operations (using the inter-op pool) across all\n\
\ session::run() calls will be centrally scheduled, optimizing for (median\n\
\ and tail) latency.\n\
\ Consider using this option for CPU-bound workloads like inference.\n\
\\n\
\\SI\n\
\\a\EOT\a\ETX\NUL\STX\SOH\ENQ\DC2\EOT\148\ENQ\EOT\b\n\
\\SI\n\
\\a\EOT\a\ETX\NUL\STX\SOH\SOH\DC2\EOT\148\ENQ\t\GS\n\
\\SI\n\
\\a\EOT\a\ETX\NUL\STX\SOH\ETX\DC2\EOT\148\ENQ !\n\
\8\n\
\\ACK\EOT\a\ETX\NUL\ETX\NUL\DC2\ACK\150\ENQ\EOT\154\ENQ\ENQ\SUB& Options for run handler thread pool.\n\
\\n\
\\SI\n\
\\a\EOT\a\ETX\NUL\ETX\NUL\SOH\DC2\EOT\150\ENQ\f!\n\
\\163\SOH\n\
\\b\EOT\a\ETX\NUL\ETX\NUL\STX\NUL\DC2\EOT\153\ENQ\ACK\EM\SUB\144\SOH Priority of the request. The run handler thread pool will schedule ops\n\
\ based on the priority number. The larger number means higher priority.\n\
\\n\
\\DC1\n\
\\t\EOT\a\ETX\NUL\ETX\NUL\STX\NUL\ENQ\DC2\EOT\153\ENQ\ACK\v\n\
\\DC1\n\
\\t\EOT\a\ETX\NUL\ETX\NUL\STX\NUL\SOH\DC2\EOT\153\ENQ\f\DC4\n\
\\DC1\n\
\\t\EOT\a\ETX\NUL\ETX\NUL\STX\NUL\ETX\DC2\EOT\153\ENQ\ETB\CAN\n\
\\SO\n\
\\ACK\EOT\a\ETX\NUL\STX\STX\DC2\EOT\155\ENQ\EOT7\n\
\\SI\n\
\\a\EOT\a\ETX\NUL\STX\STX\ACK\DC2\EOT\155\ENQ\EOT\EM\n\
\\SI\n\
\\a\EOT\a\ETX\NUL\STX\STX\SOH\DC2\EOT\155\ENQ\SUB2\n\
\\SI\n\
\\a\EOT\a\ETX\NUL\STX\STX\ETX\DC2\EOT\155\ENQ56\n\
\\f\n\
\\EOT\EOT\a\STX\ACK\DC2\EOT\158\ENQ\STX \n\
\\r\n\
\\ENQ\EOT\a\STX\ACK\ACK\DC2\EOT\158\ENQ\STX\SO\n\
\\r\n\
\\ENQ\EOT\a\STX\ACK\SOH\DC2\EOT\158\ENQ\SI\ESC\n\
\\r\n\
\\ENQ\EOT\a\STX\ACK\ETX\DC2\EOT\158\ENQ\RS\US\n\
\\v\n\
\\ETX\EOT\a\t\DC2\EOT\160\ENQ\STX\r\n\
\\f\n\
\\EOT\EOT\a\t\NUL\DC2\EOT\160\ENQ\v\f\n\
\\r\n\
\\ENQ\EOT\a\t\NUL\SOH\DC2\EOT\160\ENQ\v\f\n\
\\r\n\
\\ENQ\EOT\a\t\NUL\STX\DC2\EOT\160\ENQ\v\f\n\
\K\n\
\\STX\EOT\b\DC2\ACK\164\ENQ\NUL\194\ENQ\SOH\SUB= Metadata output (i.e., non-Tensor) for a single Run() call.\n\
\\n\
\\v\n\
\\ETX\EOT\b\SOH\DC2\EOT\164\ENQ\b\DC3\n\
\\187\SOH\n\
\\EOT\EOT\b\STX\NUL\DC2\EOT\168\ENQ\STX\ESC\SUB\172\SOH Statistics traced for this step. Populated if tracing is turned on via the\n\
\ \"RunOptions\" proto.\n\
\ EXPERIMENTAL: The format and set of events may change in future versions.\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\ACK\DC2\EOT\168\ENQ\STX\v\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\EOT\168\ENQ\f\SYN\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\EOT\168\ENQ\EM\SUB\n\
\K\n\
\\EOT\EOT\b\STX\SOH\DC2\EOT\171\ENQ\STX\RS\SUB= The cost graph for the computation defined by the run call.\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\ACK\DC2\EOT\171\ENQ\STX\SO\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\SOH\DC2\EOT\171\ENQ\SI\EM\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\ETX\DC2\EOT\171\ENQ\FS\GS\n\
\?\n\
\\EOT\EOT\b\STX\STX\DC2\EOT\174\ENQ\STX)\SUB1 Graphs of the partitions executed by executors.\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\EOT\DC2\EOT\174\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\ACK\DC2\EOT\174\ENQ\v\DC3\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\SOH\DC2\EOT\174\ENQ\DC4$\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\ETX\DC2\EOT\174\ENQ'(\n\
\\SO\n\
\\EOT\EOT\b\ETX\NUL\DC2\ACK\176\ENQ\STX\182\ENQ\ETX\n\
\\r\n\
\\ENQ\EOT\b\ETX\NUL\SOH\DC2\EOT\176\ENQ\n\
\\CAN\n\
\W\n\
\\ACK\EOT\b\ETX\NUL\STX\NUL\DC2\EOT\178\ENQ\EOT+\SUBG TODO(nareshmodi): Include some sort of function/cache-key identifier?\n\
\\n\
\\SI\n\
\\a\EOT\b\ETX\NUL\STX\NUL\EOT\DC2\EOT\178\ENQ\EOT\f\n\
\\SI\n\
\\a\EOT\b\ETX\NUL\STX\NUL\ACK\DC2\EOT\178\ENQ\r\NAK\n\
\\SI\n\
\\a\EOT\b\ETX\NUL\STX\NUL\SOH\DC2\EOT\178\ENQ\SYN&\n\
\\SI\n\
\\a\EOT\b\ETX\NUL\STX\NUL\ETX\DC2\EOT\178\ENQ)*\n\
\\SO\n\
\\ACK\EOT\b\ETX\NUL\STX\SOH\DC2\EOT\180\ENQ\EOT(\n\
\\SI\n\
\\a\EOT\b\ETX\NUL\STX\SOH\ACK\DC2\EOT\180\ENQ\EOT\f\n\
\\SI\n\
\\a\EOT\b\ETX\NUL\STX\SOH\SOH\DC2\EOT\180\ENQ\r#\n\
\\SI\n\
\\a\EOT\b\ETX\NUL\STX\SOH\ETX\DC2\EOT\180\ENQ&'\n\
\\SO\n\
\\ACK\EOT\b\ETX\NUL\STX\STX\DC2\EOT\181\ENQ\EOT)\n\
\\SI\n\
\\a\EOT\b\ETX\NUL\STX\STX\ACK\DC2\EOT\181\ENQ\EOT\f\n\
\\SI\n\
\\a\EOT\b\ETX\NUL\STX\STX\SOH\DC2\EOT\181\ENQ\r$\n\
\\SI\n\
\\a\EOT\b\ETX\NUL\STX\STX\ETX\DC2\EOT\181\ENQ'(\n\
\\184\ENQ\n\
\\EOT\EOT\b\STX\ETX\DC2\EOT\193\ENQ\STX.\SUB\169\ENQ This is only populated for graphs that are run as functions in TensorFlow\n\
\ V2. There will be an entry below for each function that is traced.\n\
\ The main use cases of the post_optimization_graph and the partition_graphs\n\
\ is to give the caller insight into the graphs that were actually run by the\n\
\ runtime. Additional information (such as those in step_stats) will match\n\
\ these graphs.\n\
\ We also include the pre_optimization_graph since it is usually easier to\n\
\ read, and is helpful in situations where the caller wants to get a high\n\
\ level idea of what the built graph looks like (since the various graph\n\
\ optimization passes might change the structure of the graph significantly).\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\EOT\DC2\EOT\193\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\ACK\DC2\EOT\193\ENQ\v\EM\n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\SOH\DC2\EOT\193\ENQ\SUB)\n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\ETX\DC2\EOT\193\ENQ,-\n\
\I\n\
\\STX\EOT\t\DC2\ACK\197\ENQ\NUL\205\ENQ\SOH\SUB; Defines a connection between two tensors in a `GraphDef`.\n\
\\n\
\\v\n\
\\ETX\EOT\t\SOH\DC2\EOT\197\ENQ\b\CAN\n\
\q\n\
\\EOT\EOT\t\STX\NUL\DC2\EOT\200\ENQ\STX\EM\SUBc A tensor name. The value of this tensor will be substituted for\n\
\ the tensor named in `to_tensor`.\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\ENQ\DC2\EOT\200\ENQ\STX\b\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\EOT\200\ENQ\t\DC4\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\EOT\200\ENQ\ETB\CAN\n\
\y\n\
\\EOT\EOT\t\STX\SOH\DC2\EOT\204\ENQ\STX\ETB\SUBk A tensor name. The value of this tensor will be bound to the\n\
\ value of the tensor named in `from_tensor`.\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\ENQ\DC2\EOT\204\ENQ\STX\b\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\SOH\DC2\EOT\204\ENQ\t\DC2\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\ETX\DC2\EOT\204\ENQ\NAK\SYN\n\
\\169\SOH\n\
\\STX\EOT\n\
\\DC2\ACK\211\ENQ\NUL\167\ACK\SOH\SUB\154\SOH Defines a subgraph in another `GraphDef` as a set of feed points and nodes\n\
\ to be fetched or executed.\n\
\\n\
\ Compare with the arguments to `Session::Run()`.\n\
\\n\
\\v\n\
\\ETX\EOT\n\
\\SOH\DC2\EOT\211\ENQ\b\ETB\n\
\U\n\
\\EOT\EOT\n\
\\STX\NUL\DC2\EOT\213\ENQ\STX\ESC\SUBG Tensors to be fed in the callable. Each feed is the name of a tensor.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\EOT\DC2\EOT\213\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ENQ\DC2\EOT\213\ENQ\v\DC1\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\EOT\213\ENQ\DC2\SYN\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\EOT\213\ENQ\EM\SUB\n\
\\226\SOH\n\
\\EOT\EOT\n\
\\STX\SOH\DC2\EOT\218\ENQ\STX\FS\SUB\211\SOH Fetches. A list of tensor names. The caller of the callable expects a\n\
\ tensor to be returned for each fetch[i] (see RunStepResponse.tensor). The\n\
\ order of specified fetches does not change the execution order.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\EOT\DC2\EOT\218\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\ENQ\DC2\EOT\218\ENQ\v\DC1\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\SOH\DC2\EOT\218\ENQ\DC2\ETB\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\ETX\DC2\EOT\218\ENQ\SUB\ESC\n\
\\136\SOH\n\
\\EOT\EOT\n\
\\STX\STX\DC2\EOT\222\ENQ\STX\GS\SUBz Target Nodes. A list of node names. The named nodes will be run by the\n\
\ callable but their outputs will not be returned.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\EOT\DC2\EOT\222\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\ENQ\DC2\EOT\222\ENQ\v\DC1\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\SOH\DC2\EOT\222\ENQ\DC2\CAN\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\ETX\DC2\EOT\222\ENQ\ESC\FS\n\
\9\n\
\\EOT\EOT\n\
\\STX\ETX\DC2\EOT\225\ENQ\STX\GS\SUB+ Options that will be applied to each run.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\ACK\DC2\EOT\225\ENQ\STX\f\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\SOH\DC2\EOT\225\ENQ\r\CAN\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\ETX\DC2\EOT\225\ENQ\ESC\FS\n\
\\176\SOH\n\
\\EOT\EOT\n\
\\STX\EOT\DC2\EOT\230\ENQ\STX2\SUB\161\SOH Tensors to be connected in the callable. Each TensorConnection denotes\n\
\ a pair of tensors in the graph, between which an edge will be created\n\
\ in the callable.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\EOT\DC2\EOT\230\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\ACK\DC2\EOT\230\ENQ\v\ESC\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\SOH\DC2\EOT\230\ENQ\FS-\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\ETX\DC2\EOT\230\ENQ01\n\
\\183\r\n\
\\EOT\EOT\n\
\\STX\ENQ\DC2\EOT\151\ACK\STX'\SUB\168\r The Tensor objects fed in the callable and fetched from the callable\n\
\ are expected to be backed by host (CPU) memory by default.\n\
\\n\
\ The options below allow changing that - feeding tensors backed by\n\
\ device memory, or returning tensors that are backed by device memory.\n\
\\n\
\ The maps below map the name of a feed/fetch tensor (which appears in\n\
\ 'feed' or 'fetch' fields above), to the fully qualified name of the device\n\
\ owning the memory backing the contents of the tensor.\n\
\\n\
\ For example, creating a callable with the following options:\n\
\\n\
\ CallableOptions {\n\
\ feed: \"a:0\"\n\
\ feed: \"b:0\"\n\
\\n\
\ fetch: \"x:0\"\n\
\ fetch: \"y:0\"\n\
\\n\
\ feed_devices: {\n\
\ \"a:0\": \"/job:localhost/replica:0/task:0/device:GPU:0\"\n\
\ }\n\
\\n\
\ fetch_devices: {\n\
\ \"y:0\": \"/job:localhost/replica:0/task:0/device:GPU:0\"\n\
\ }\n\
\ }\n\
\\n\
\ means that the Callable expects:\n\
\ - The first argument (\"a:0\") is a Tensor backed by GPU memory.\n\
\ - The second argument (\"b:0\") is a Tensor backed by host memory.\n\
\ and of its return values:\n\
\ - The first output (\"x:0\") will be backed by host memory.\n\
\ - The second output (\"y:0\") will be backed by GPU memory.\n\
\\n\
\ FEEDS:\n\
\ It is the responsibility of the caller to ensure that the memory of the fed\n\
\ tensors will be correctly initialized and synchronized before it is\n\
\ accessed by operations executed during the call to Session::RunCallable().\n\
\\n\
\ This is typically ensured by using the TensorFlow memory allocators\n\
\ (Device::GetAllocator()) to create the Tensor to be fed.\n\
\\n\
\ Alternatively, for CUDA-enabled GPU devices, this typically means that the\n\
\ operation that produced the contents of the tensor has completed, i.e., the\n\
\ CUDA stream has been synchronized (e.g., via cuCtxSynchronize() or\n\
\ cuStreamSynchronize()).\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ENQ\ACK\DC2\EOT\151\ACK\STX\NAK\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ENQ\SOH\DC2\EOT\151\ACK\SYN\"\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ENQ\ETX\DC2\EOT\151\ACK%&\n\
\\f\n\
\\EOT\EOT\n\
\\STX\ACK\DC2\EOT\152\ACK\STX(\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ACK\ACK\DC2\EOT\152\ACK\STX\NAK\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ACK\SOH\DC2\EOT\152\ACK\SYN#\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ACK\ETX\DC2\EOT\152\ACK&'\n\
\\245\EOT\n\
\\EOT\EOT\n\
\\STX\a\DC2\EOT\164\ACK\STX\ESC\SUB\230\EOT By default, RunCallable() will synchronize the GPU stream before returning\n\
\ fetched tensors on a GPU device, to ensure that the values in those tensors\n\
\ have been produced. This simplifies interacting with the tensors, but\n\
\ potentially incurs a performance hit.\n\
\\n\
\ If this options is set to true, the caller is responsible for ensuring\n\
\ that the values in the fetched tensors have been produced before they are\n\
\ used. The caller can do this by invoking `Device::Sync()` on the underlying\n\
\ device(s), or by feeding the tensors back to the same Session using\n\
\ `feed_devices` with the same corresponding device name.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\a\ENQ\DC2\EOT\164\ACK\STX\ACK\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\a\SOH\DC2\EOT\164\ACK\a\SYN\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\a\ETX\DC2\EOT\164\ACK\EM\SUBb\ACKproto3"