{-# 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.Util.Event (
Event(), Event'What(..), _Event'FileVersion, _Event'GraphDef,
_Event'Summary, _Event'LogMessage, _Event'SessionLog,
_Event'TaggedRunMetadata, _Event'MetaGraphDef, LogMessage(),
LogMessage'Level(..), LogMessage'Level(),
LogMessage'Level'UnrecognizedValue, RequestedExitCode(),
SessionLog(), SessionLog'SessionStatus(..),
SessionLog'SessionStatus(),
SessionLog'SessionStatus'UnrecognizedValue, TaggedRunMetadata(),
WatchdogConfig(), WorkerHealth(..), WorkerHealth(),
WorkerHealth'UnrecognizedValue, WorkerHeartbeatRequest(),
WorkerHeartbeatResponse(), WorkerShutdownMode(..),
WorkerShutdownMode(), WorkerShutdownMode'UnrecognizedValue
) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Tensorflow.Core.Framework.Summary
data Event
= Event'_constructor {Event -> Double
_Event'wallTime :: !Prelude.Double,
Event -> Int64
_Event'step :: !Data.Int.Int64,
Event -> Maybe Event'What
_Event'what :: !(Prelude.Maybe Event'What),
Event -> FieldSet
_Event'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Event -> Event -> Bool
(Event -> Event -> Bool) -> (Event -> Event -> Bool) -> Eq Event
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Event -> Event -> Bool
$c/= :: Event -> Event -> Bool
== :: Event -> Event -> Bool
$c== :: Event -> Event -> Bool
Prelude.Eq, Eq Event
Eq Event =>
(Event -> Event -> Ordering)
-> (Event -> Event -> Bool)
-> (Event -> Event -> Bool)
-> (Event -> Event -> Bool)
-> (Event -> Event -> Bool)
-> (Event -> Event -> Event)
-> (Event -> Event -> Event)
-> Ord Event
Event -> Event -> Bool
Event -> Event -> Ordering
Event -> Event -> Event
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 :: Event -> Event -> Event
$cmin :: Event -> Event -> Event
max :: Event -> Event -> Event
$cmax :: Event -> Event -> Event
>= :: Event -> Event -> Bool
$c>= :: Event -> Event -> Bool
> :: Event -> Event -> Bool
$c> :: Event -> Event -> Bool
<= :: Event -> Event -> Bool
$c<= :: Event -> Event -> Bool
< :: Event -> Event -> Bool
$c< :: Event -> Event -> Bool
compare :: Event -> Event -> Ordering
$ccompare :: Event -> Event -> Ordering
$cp1Ord :: Eq Event
Prelude.Ord)
instance Prelude.Show Event where
showsPrec :: Int -> Event -> ShowS
showsPrec _ __x :: Event
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(Event -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Event
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data Event'What
= Event'FileVersion !Data.Text.Text |
Event'GraphDef !Data.ByteString.ByteString |
Event'Summary !Proto.Tensorflow.Core.Framework.Summary.Summary |
Event'LogMessage !LogMessage |
Event'SessionLog !SessionLog |
Event'TaggedRunMetadata !TaggedRunMetadata |
Event'MetaGraphDef !Data.ByteString.ByteString
deriving stock (Int -> Event'What -> ShowS
[Event'What] -> ShowS
Event'What -> String
(Int -> Event'What -> ShowS)
-> (Event'What -> String)
-> ([Event'What] -> ShowS)
-> Show Event'What
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Event'What] -> ShowS
$cshowList :: [Event'What] -> ShowS
show :: Event'What -> String
$cshow :: Event'What -> String
showsPrec :: Int -> Event'What -> ShowS
$cshowsPrec :: Int -> Event'What -> ShowS
Prelude.Show, Event'What -> Event'What -> Bool
(Event'What -> Event'What -> Bool)
-> (Event'What -> Event'What -> Bool) -> Eq Event'What
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Event'What -> Event'What -> Bool
$c/= :: Event'What -> Event'What -> Bool
== :: Event'What -> Event'What -> Bool
$c== :: Event'What -> Event'What -> Bool
Prelude.Eq, Eq Event'What
Eq Event'What =>
(Event'What -> Event'What -> Ordering)
-> (Event'What -> Event'What -> Bool)
-> (Event'What -> Event'What -> Bool)
-> (Event'What -> Event'What -> Bool)
-> (Event'What -> Event'What -> Bool)
-> (Event'What -> Event'What -> Event'What)
-> (Event'What -> Event'What -> Event'What)
-> Ord Event'What
Event'What -> Event'What -> Bool
Event'What -> Event'What -> Ordering
Event'What -> Event'What -> Event'What
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 :: Event'What -> Event'What -> Event'What
$cmin :: Event'What -> Event'What -> Event'What
max :: Event'What -> Event'What -> Event'What
$cmax :: Event'What -> Event'What -> Event'What
>= :: Event'What -> Event'What -> Bool
$c>= :: Event'What -> Event'What -> Bool
> :: Event'What -> Event'What -> Bool
$c> :: Event'What -> Event'What -> Bool
<= :: Event'What -> Event'What -> Bool
$c<= :: Event'What -> Event'What -> Bool
< :: Event'What -> Event'What -> Bool
$c< :: Event'What -> Event'What -> Bool
compare :: Event'What -> Event'What -> Ordering
$ccompare :: Event'What -> Event'What -> Ordering
$cp1Ord :: Eq Event'What
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Event "wallTime" Prelude.Double where
fieldOf :: Proxy# "wallTime" -> (Double -> f Double) -> Event -> f Event
fieldOf _
= ((Double -> f Double) -> Event -> f Event)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Double)
-> (Event -> Double -> Event) -> Lens Event Event Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Double
_Event'wallTime (\ x__ :: Event
x__ y__ :: Double
y__ -> Event
x__ {_Event'wallTime :: Double
_Event'wallTime = Double
y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Event "step" Data.Int.Int64 where
fieldOf :: Proxy# "step" -> (Int64 -> f Int64) -> Event -> f Event
fieldOf _
= ((Int64 -> f Int64) -> Event -> f Event)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Int64)
-> (Event -> Int64 -> Event) -> Lens Event Event Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Int64
_Event'step (\ x__ :: Event
x__ y__ :: Int64
y__ -> Event
x__ {_Event'step :: Int64
_Event'step = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Event "maybe'what" (Prelude.Maybe Event'What) where
fieldOf :: Proxy# "maybe'what"
-> (Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((Maybe Event'What -> f (Maybe Event'What))
-> Maybe Event'What -> f (Maybe Event'What))
-> (Maybe Event'What -> f (Maybe Event'What))
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
(Maybe Event'What -> f (Maybe Event'What))
-> Maybe Event'What -> f (Maybe Event'What)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Event "maybe'fileVersion" (Prelude.Maybe Data.Text.Text) where
fieldOf :: Proxy# "maybe'fileVersion"
-> (Maybe Text -> f (Maybe Text)) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((Maybe Text -> f (Maybe Text))
-> Maybe Event'What -> f (Maybe Event'What))
-> (Maybe Text -> f (Maybe Text))
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
((Maybe Event'What -> Maybe Text)
-> (Maybe Event'What -> Maybe Text -> Maybe Event'What)
-> Lens
(Maybe Event'What) (Maybe Event'What) (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'FileVersion x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe Text
y__ -> (Text -> Event'What) -> Maybe Text -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> Event'What
Event'FileVersion Maybe Text
y__))
instance Data.ProtoLens.Field.HasField Event "fileVersion" Data.Text.Text where
fieldOf :: Proxy# "fileVersion" -> (Text -> f Text) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((Text -> f Text) -> Maybe Event'What -> f (Maybe Event'What))
-> (Text -> f Text)
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
(((Maybe Text -> f (Maybe Text))
-> Maybe Event'What -> f (Maybe Event'What))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe Event'What
-> f (Maybe Event'What)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Event'What -> Maybe Text)
-> (Maybe Event'What -> Maybe Text -> Maybe Event'What)
-> Lens
(Maybe Event'What) (Maybe Event'What) (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'FileVersion x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe Text
y__ -> (Text -> Event'What) -> Maybe Text -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> Event'What
Event'FileVersion Maybe Text
y__))
(Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField Event "maybe'graphDef" (Prelude.Maybe Data.ByteString.ByteString) where
fieldOf :: Proxy# "maybe'graphDef"
-> (Maybe ByteString -> f (Maybe ByteString)) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((Maybe ByteString -> f (Maybe ByteString))
-> Maybe Event'What -> f (Maybe Event'What))
-> (Maybe ByteString -> f (Maybe ByteString))
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
((Maybe Event'What -> Maybe ByteString)
-> (Maybe Event'What -> Maybe ByteString -> Maybe Event'What)
-> Lens
(Maybe Event'What)
(Maybe Event'What)
(Maybe ByteString)
(Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'GraphDef x__val :: ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe ByteString
y__ -> (ByteString -> Event'What) -> Maybe ByteString -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Event'What
Event'GraphDef Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField Event "graphDef" Data.ByteString.ByteString where
fieldOf :: Proxy# "graphDef"
-> (ByteString -> f ByteString) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((ByteString -> f ByteString)
-> Maybe Event'What -> f (Maybe Event'What))
-> (ByteString -> f ByteString)
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
(((Maybe ByteString -> f (Maybe ByteString))
-> Maybe Event'What -> f (Maybe Event'What))
-> ((ByteString -> f ByteString)
-> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe Event'What
-> f (Maybe Event'What)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Event'What -> Maybe ByteString)
-> (Maybe Event'What -> Maybe ByteString -> Maybe Event'What)
-> Lens
(Maybe Event'What)
(Maybe Event'What)
(Maybe ByteString)
(Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'GraphDef x__val :: ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe ByteString
y__ -> (ByteString -> Event'What) -> Maybe ByteString -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Event'What
Event'GraphDef Maybe ByteString
y__))
(ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField Event "maybe'summary" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Summary.Summary) where
fieldOf :: Proxy# "maybe'summary"
-> (Maybe Summary -> f (Maybe Summary)) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((Maybe Summary -> f (Maybe Summary))
-> Maybe Event'What -> f (Maybe Event'What))
-> (Maybe Summary -> f (Maybe Summary))
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
((Maybe Event'What -> Maybe Summary)
-> (Maybe Event'What -> Maybe Summary -> Maybe Event'What)
-> Lens
(Maybe Event'What)
(Maybe Event'What)
(Maybe Summary)
(Maybe Summary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'Summary x__val :: Summary
x__val)) -> Summary -> Maybe Summary
forall a. a -> Maybe a
Prelude.Just Summary
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe Summary
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe Summary
y__ -> (Summary -> Event'What) -> Maybe Summary -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Summary -> Event'What
Event'Summary Maybe Summary
y__))
instance Data.ProtoLens.Field.HasField Event "summary" Proto.Tensorflow.Core.Framework.Summary.Summary where
fieldOf :: Proxy# "summary" -> (Summary -> f Summary) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((Summary -> f Summary)
-> Maybe Event'What -> f (Maybe Event'What))
-> (Summary -> f Summary)
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
(((Maybe Summary -> f (Maybe Summary))
-> Maybe Event'What -> f (Maybe Event'What))
-> ((Summary -> f Summary) -> Maybe Summary -> f (Maybe Summary))
-> (Summary -> f Summary)
-> Maybe Event'What
-> f (Maybe Event'What)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Event'What -> Maybe Summary)
-> (Maybe Event'What -> Maybe Summary -> Maybe Event'What)
-> Lens
(Maybe Event'What)
(Maybe Event'What)
(Maybe Summary)
(Maybe Summary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'Summary x__val :: Summary
x__val)) -> Summary -> Maybe Summary
forall a. a -> Maybe a
Prelude.Just Summary
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe Summary
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe Summary
y__ -> (Summary -> Event'What) -> Maybe Summary -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Summary -> Event'What
Event'Summary Maybe Summary
y__))
(Summary -> Lens' (Maybe Summary) Summary
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Summary
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Event "maybe'logMessage" (Prelude.Maybe LogMessage) where
fieldOf :: Proxy# "maybe'logMessage"
-> (Maybe LogMessage -> f (Maybe LogMessage)) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((Maybe LogMessage -> f (Maybe LogMessage))
-> Maybe Event'What -> f (Maybe Event'What))
-> (Maybe LogMessage -> f (Maybe LogMessage))
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
((Maybe Event'What -> Maybe LogMessage)
-> (Maybe Event'What -> Maybe LogMessage -> Maybe Event'What)
-> Lens
(Maybe Event'What)
(Maybe Event'What)
(Maybe LogMessage)
(Maybe LogMessage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'LogMessage x__val :: LogMessage
x__val)) -> LogMessage -> Maybe LogMessage
forall a. a -> Maybe a
Prelude.Just LogMessage
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe LogMessage
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe LogMessage
y__ -> (LogMessage -> Event'What) -> Maybe LogMessage -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap LogMessage -> Event'What
Event'LogMessage Maybe LogMessage
y__))
instance Data.ProtoLens.Field.HasField Event "logMessage" LogMessage where
fieldOf :: Proxy# "logMessage"
-> (LogMessage -> f LogMessage) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((LogMessage -> f LogMessage)
-> Maybe Event'What -> f (Maybe Event'What))
-> (LogMessage -> f LogMessage)
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
(((Maybe LogMessage -> f (Maybe LogMessage))
-> Maybe Event'What -> f (Maybe Event'What))
-> ((LogMessage -> f LogMessage)
-> Maybe LogMessage -> f (Maybe LogMessage))
-> (LogMessage -> f LogMessage)
-> Maybe Event'What
-> f (Maybe Event'What)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Event'What -> Maybe LogMessage)
-> (Maybe Event'What -> Maybe LogMessage -> Maybe Event'What)
-> Lens
(Maybe Event'What)
(Maybe Event'What)
(Maybe LogMessage)
(Maybe LogMessage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'LogMessage x__val :: LogMessage
x__val)) -> LogMessage -> Maybe LogMessage
forall a. a -> Maybe a
Prelude.Just LogMessage
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe LogMessage
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe LogMessage
y__ -> (LogMessage -> Event'What) -> Maybe LogMessage -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap LogMessage -> Event'What
Event'LogMessage Maybe LogMessage
y__))
(LogMessage -> Lens' (Maybe LogMessage) LogMessage
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens LogMessage
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Event "maybe'sessionLog" (Prelude.Maybe SessionLog) where
fieldOf :: Proxy# "maybe'sessionLog"
-> (Maybe SessionLog -> f (Maybe SessionLog)) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((Maybe SessionLog -> f (Maybe SessionLog))
-> Maybe Event'What -> f (Maybe Event'What))
-> (Maybe SessionLog -> f (Maybe SessionLog))
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
((Maybe Event'What -> Maybe SessionLog)
-> (Maybe Event'What -> Maybe SessionLog -> Maybe Event'What)
-> Lens
(Maybe Event'What)
(Maybe Event'What)
(Maybe SessionLog)
(Maybe SessionLog)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'SessionLog x__val :: SessionLog
x__val)) -> SessionLog -> Maybe SessionLog
forall a. a -> Maybe a
Prelude.Just SessionLog
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe SessionLog
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SessionLog
y__ -> (SessionLog -> Event'What) -> Maybe SessionLog -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SessionLog -> Event'What
Event'SessionLog Maybe SessionLog
y__))
instance Data.ProtoLens.Field.HasField Event "sessionLog" SessionLog where
fieldOf :: Proxy# "sessionLog"
-> (SessionLog -> f SessionLog) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((SessionLog -> f SessionLog)
-> Maybe Event'What -> f (Maybe Event'What))
-> (SessionLog -> f SessionLog)
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
(((Maybe SessionLog -> f (Maybe SessionLog))
-> Maybe Event'What -> f (Maybe Event'What))
-> ((SessionLog -> f SessionLog)
-> Maybe SessionLog -> f (Maybe SessionLog))
-> (SessionLog -> f SessionLog)
-> Maybe Event'What
-> f (Maybe Event'What)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Event'What -> Maybe SessionLog)
-> (Maybe Event'What -> Maybe SessionLog -> Maybe Event'What)
-> Lens
(Maybe Event'What)
(Maybe Event'What)
(Maybe SessionLog)
(Maybe SessionLog)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'SessionLog x__val :: SessionLog
x__val)) -> SessionLog -> Maybe SessionLog
forall a. a -> Maybe a
Prelude.Just SessionLog
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe SessionLog
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SessionLog
y__ -> (SessionLog -> Event'What) -> Maybe SessionLog -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SessionLog -> Event'What
Event'SessionLog Maybe SessionLog
y__))
(SessionLog -> Lens' (Maybe SessionLog) SessionLog
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SessionLog
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Event "maybe'taggedRunMetadata" (Prelude.Maybe TaggedRunMetadata) where
fieldOf :: Proxy# "maybe'taggedRunMetadata"
-> (Maybe TaggedRunMetadata -> f (Maybe TaggedRunMetadata))
-> Event
-> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((Maybe TaggedRunMetadata -> f (Maybe TaggedRunMetadata))
-> Maybe Event'What -> f (Maybe Event'What))
-> (Maybe TaggedRunMetadata -> f (Maybe TaggedRunMetadata))
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
((Maybe Event'What -> Maybe TaggedRunMetadata)
-> (Maybe Event'What
-> Maybe TaggedRunMetadata -> Maybe Event'What)
-> Lens
(Maybe Event'What)
(Maybe Event'What)
(Maybe TaggedRunMetadata)
(Maybe TaggedRunMetadata)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'TaggedRunMetadata x__val :: TaggedRunMetadata
x__val))
-> TaggedRunMetadata -> Maybe TaggedRunMetadata
forall a. a -> Maybe a
Prelude.Just TaggedRunMetadata
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe TaggedRunMetadata
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe TaggedRunMetadata
y__ -> (TaggedRunMetadata -> Event'What)
-> Maybe TaggedRunMetadata -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TaggedRunMetadata -> Event'What
Event'TaggedRunMetadata Maybe TaggedRunMetadata
y__))
instance Data.ProtoLens.Field.HasField Event "taggedRunMetadata" TaggedRunMetadata where
fieldOf :: Proxy# "taggedRunMetadata"
-> (TaggedRunMetadata -> f TaggedRunMetadata) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((TaggedRunMetadata -> f TaggedRunMetadata)
-> Maybe Event'What -> f (Maybe Event'What))
-> (TaggedRunMetadata -> f TaggedRunMetadata)
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
(((Maybe TaggedRunMetadata -> f (Maybe TaggedRunMetadata))
-> Maybe Event'What -> f (Maybe Event'What))
-> ((TaggedRunMetadata -> f TaggedRunMetadata)
-> Maybe TaggedRunMetadata -> f (Maybe TaggedRunMetadata))
-> (TaggedRunMetadata -> f TaggedRunMetadata)
-> Maybe Event'What
-> f (Maybe Event'What)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Event'What -> Maybe TaggedRunMetadata)
-> (Maybe Event'What
-> Maybe TaggedRunMetadata -> Maybe Event'What)
-> Lens
(Maybe Event'What)
(Maybe Event'What)
(Maybe TaggedRunMetadata)
(Maybe TaggedRunMetadata)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'TaggedRunMetadata x__val :: TaggedRunMetadata
x__val))
-> TaggedRunMetadata -> Maybe TaggedRunMetadata
forall a. a -> Maybe a
Prelude.Just TaggedRunMetadata
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe TaggedRunMetadata
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe TaggedRunMetadata
y__ -> (TaggedRunMetadata -> Event'What)
-> Maybe TaggedRunMetadata -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TaggedRunMetadata -> Event'What
Event'TaggedRunMetadata Maybe TaggedRunMetadata
y__))
(TaggedRunMetadata
-> Lens' (Maybe TaggedRunMetadata) TaggedRunMetadata
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TaggedRunMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Event "maybe'metaGraphDef" (Prelude.Maybe Data.ByteString.ByteString) where
fieldOf :: Proxy# "maybe'metaGraphDef"
-> (Maybe ByteString -> f (Maybe ByteString)) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((Maybe ByteString -> f (Maybe ByteString))
-> Maybe Event'What -> f (Maybe Event'What))
-> (Maybe ByteString -> f (Maybe ByteString))
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
((Maybe Event'What -> Maybe ByteString)
-> (Maybe Event'What -> Maybe ByteString -> Maybe Event'What)
-> Lens
(Maybe Event'What)
(Maybe Event'What)
(Maybe ByteString)
(Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'MetaGraphDef x__val :: ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe ByteString
y__ -> (ByteString -> Event'What) -> Maybe ByteString -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Event'What
Event'MetaGraphDef Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField Event "metaGraphDef" Data.ByteString.ByteString where
fieldOf :: Proxy# "metaGraphDef"
-> (ByteString -> f ByteString) -> Event -> f Event
fieldOf _
= ((Maybe Event'What -> f (Maybe Event'What)) -> Event -> f Event)
-> ((ByteString -> f ByteString)
-> Maybe Event'What -> f (Maybe Event'What))
-> (ByteString -> f ByteString)
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Event -> Maybe Event'What)
-> (Event -> Maybe Event'What -> Event)
-> Lens Event Event (Maybe Event'What) (Maybe Event'What)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> Maybe Event'What
_Event'what (\ x__ :: Event
x__ y__ :: Maybe Event'What
y__ -> Event
x__ {_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
y__}))
(((Maybe ByteString -> f (Maybe ByteString))
-> Maybe Event'What -> f (Maybe Event'What))
-> ((ByteString -> f ByteString)
-> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe Event'What
-> f (Maybe Event'What)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Event'What -> Maybe ByteString)
-> (Maybe Event'What -> Maybe ByteString -> Maybe Event'What)
-> Lens
(Maybe Event'What)
(Maybe Event'What)
(Maybe ByteString)
(Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Event'What
x__
-> case Maybe Event'What
x__ of
(Prelude.Just (Event'MetaGraphDef x__val :: ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
_otherwise :: Maybe Event'What
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe ByteString
y__ -> (ByteString -> Event'What) -> Maybe ByteString -> Maybe Event'What
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Event'What
Event'MetaGraphDef Maybe ByteString
y__))
(ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message Event where
messageName :: Proxy Event -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.Event"
packedMessageDescriptor :: Proxy Event -> ByteString
packedMessageDescriptor _
= "\n\
\\ENQEvent\DC2\ESC\n\
\\twall_time\CAN\SOH \SOH(\SOHR\bwallTime\DC2\DC2\n\
\\EOTstep\CAN\STX \SOH(\ETXR\EOTstep\DC2#\n\
\\ffile_version\CAN\ETX \SOH(\tH\NULR\vfileVersion\DC2\GS\n\
\\tgraph_def\CAN\EOT \SOH(\fH\NULR\bgraphDef\DC2/\n\
\\asummary\CAN\ENQ \SOH(\v2\DC3.tensorflow.SummaryH\NULR\asummary\DC29\n\
\\vlog_message\CAN\ACK \SOH(\v2\SYN.tensorflow.LogMessageH\NULR\n\
\logMessage\DC29\n\
\\vsession_log\CAN\a \SOH(\v2\SYN.tensorflow.SessionLogH\NULR\n\
\sessionLog\DC2O\n\
\\DC3tagged_run_metadata\CAN\b \SOH(\v2\GS.tensorflow.TaggedRunMetadataH\NULR\DC1taggedRunMetadata\DC2&\n\
\\SOmeta_graph_def\CAN\t \SOH(\fH\NULR\fmetaGraphDefB\ACK\n\
\\EOTwhat"
packedFileDescriptor :: Proxy Event -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Event)
fieldsByTag
= let
wallTime__field_descriptor :: FieldDescriptor Event
wallTime__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor Event Double
-> FieldDescriptor Event
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"wall_time"
(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 Event Event Double Double -> FieldAccessor Event 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 "wallTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"wallTime")) ::
Data.ProtoLens.FieldDescriptor Event
step__field_descriptor :: FieldDescriptor Event
step__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor Event Int64
-> FieldDescriptor Event
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"step"
(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 Event Event Int64 Int64 -> FieldAccessor Event 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 "step" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"step")) ::
Data.ProtoLens.FieldDescriptor Event
fileVersion__field_descriptor :: FieldDescriptor Event
fileVersion__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Event Text
-> FieldDescriptor Event
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"file_version"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Lens' Event (Maybe Text) -> FieldAccessor Event Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'fileVersion" a, Functor f) =>
(a -> f a) -> s -> 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'fileVersion")) ::
Data.ProtoLens.FieldDescriptor Event
graphDef__field_descriptor :: FieldDescriptor Event
graphDef__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Event ByteString
-> FieldDescriptor Event
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"graph_def"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Lens' Event (Maybe ByteString) -> FieldAccessor Event ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'graphDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'graphDef")) ::
Data.ProtoLens.FieldDescriptor Event
summary__field_descriptor :: FieldDescriptor Event
summary__field_descriptor
= String
-> FieldTypeDescriptor Summary
-> FieldAccessor Event Summary
-> FieldDescriptor Event
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"summary"
(MessageOrGroup -> FieldTypeDescriptor Summary
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Summary.Summary)
(Lens' Event (Maybe Summary) -> FieldAccessor Event Summary
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'summary" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'summary")) ::
Data.ProtoLens.FieldDescriptor Event
logMessage__field_descriptor :: FieldDescriptor Event
logMessage__field_descriptor
= String
-> FieldTypeDescriptor LogMessage
-> FieldAccessor Event LogMessage
-> FieldDescriptor Event
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"log_message"
(MessageOrGroup -> FieldTypeDescriptor LogMessage
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor LogMessage)
(Lens' Event (Maybe LogMessage) -> FieldAccessor Event LogMessage
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'logMessage" a, Functor f) =>
(a -> f a) -> s -> 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'logMessage")) ::
Data.ProtoLens.FieldDescriptor Event
sessionLog__field_descriptor :: FieldDescriptor Event
sessionLog__field_descriptor
= String
-> FieldTypeDescriptor SessionLog
-> FieldAccessor Event SessionLog
-> FieldDescriptor Event
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"session_log"
(MessageOrGroup -> FieldTypeDescriptor SessionLog
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SessionLog)
(Lens' Event (Maybe SessionLog) -> FieldAccessor Event SessionLog
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'sessionLog" a, Functor f) =>
(a -> f a) -> s -> 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'sessionLog")) ::
Data.ProtoLens.FieldDescriptor Event
taggedRunMetadata__field_descriptor :: FieldDescriptor Event
taggedRunMetadata__field_descriptor
= String
-> FieldTypeDescriptor TaggedRunMetadata
-> FieldAccessor Event TaggedRunMetadata
-> FieldDescriptor Event
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tagged_run_metadata"
(MessageOrGroup -> FieldTypeDescriptor TaggedRunMetadata
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TaggedRunMetadata)
(Lens' Event (Maybe TaggedRunMetadata)
-> FieldAccessor Event TaggedRunMetadata
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'taggedRunMetadata" a, Functor f) =>
(a -> f a) -> s -> 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'taggedRunMetadata")) ::
Data.ProtoLens.FieldDescriptor Event
metaGraphDef__field_descriptor :: FieldDescriptor Event
metaGraphDef__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Event ByteString
-> FieldDescriptor Event
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"meta_graph_def"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Lens' Event (Maybe ByteString) -> FieldAccessor Event ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'metaGraphDef" a, Functor f) =>
(a -> f a) -> s -> 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'metaGraphDef")) ::
Data.ProtoLens.FieldDescriptor Event
in
[(Tag, FieldDescriptor Event)] -> Map Tag (FieldDescriptor Event)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor Event
wallTime__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor Event
step__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor Event
fileVersion__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor Event
graphDef__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor Event
summary__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor Event
logMessage__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor Event
sessionLog__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor Event
taggedRunMetadata__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor Event
metaGraphDef__field_descriptor)]
unknownFields :: LensLike' f Event FieldSet
unknownFields
= (Event -> FieldSet)
-> (Event -> FieldSet -> Event) -> Lens' Event FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Event -> FieldSet
_Event'_unknownFields
(\ x__ :: Event
x__ y__ :: FieldSet
y__ -> Event
x__ {_Event'_unknownFields :: FieldSet
_Event'_unknownFields = FieldSet
y__})
defMessage :: Event
defMessage
= $WEvent'_constructor :: Double -> Int64 -> Maybe Event'What -> FieldSet -> Event
Event'_constructor
{_Event'wallTime :: Double
_Event'wallTime = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Event'step :: Int64
_Event'step = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Event'what :: Maybe Event'What
_Event'what = Maybe Event'What
forall a. Maybe a
Prelude.Nothing, _Event'_unknownFields :: FieldSet
_Event'_unknownFields = []}
parseMessage :: Parser Event
parseMessage
= let
loop :: Event -> Data.ProtoLens.Encoding.Bytes.Parser Event
loop :: Event -> Parser Event
loop x :: Event
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]))))
Event -> Parser Event
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter Event Event FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Event -> Event
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 Event Event FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Event
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)
"wall_time"
Event -> Parser Event
loop
(Setter Event Event Double Double -> Double -> Event -> Event
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "wallTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"wallTime") Double
y Event
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)
"step"
Event -> Parser Event
loop (Setter Event Event Int64 Int64 -> Int64 -> Event -> Event
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "step" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"step") Int64
y Event
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))
"file_version"
Event -> Parser Event
loop
(Setter Event Event Text Text -> Text -> Event -> Event
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "fileVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fileVersion") Text
y Event
x)
34
-> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
"graph_def"
Event -> Parser Event
loop
(Setter Event Event ByteString ByteString
-> ByteString -> Event -> Event
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "graphDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"graphDef") ByteString
y Event
x)
42
-> do Summary
y <- Parser Summary -> String -> Parser Summary
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Summary -> Parser Summary
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 Summary
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"summary"
Event -> Parser Event
loop (Setter Event Event Summary Summary -> Summary -> Event -> Event
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "summary" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"summary") Summary
y Event
x)
50
-> do LogMessage
y <- Parser LogMessage -> String -> Parser LogMessage
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser LogMessage -> Parser LogMessage
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 LogMessage
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"log_message"
Event -> Parser Event
loop
(Setter Event Event LogMessage LogMessage
-> LogMessage -> Event -> Event
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "logMessage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"logMessage") LogMessage
y Event
x)
58
-> do SessionLog
y <- Parser SessionLog -> String -> Parser SessionLog
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SessionLog -> Parser SessionLog
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 SessionLog
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"session_log"
Event -> Parser Event
loop
(Setter Event Event SessionLog SessionLog
-> SessionLog -> Event -> Event
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "sessionLog" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sessionLog") SessionLog
y Event
x)
66
-> do TaggedRunMetadata
y <- Parser TaggedRunMetadata -> String -> Parser TaggedRunMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TaggedRunMetadata -> Parser TaggedRunMetadata
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 TaggedRunMetadata
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"tagged_run_metadata"
Event -> Parser Event
loop
(Setter Event Event TaggedRunMetadata TaggedRunMetadata
-> TaggedRunMetadata -> Event -> Event
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "taggedRunMetadata" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"taggedRunMetadata") TaggedRunMetadata
y Event
x)
74
-> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
"meta_graph_def"
Event -> Parser Event
loop
(Setter Event Event ByteString ByteString
-> ByteString -> Event -> Event
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "metaGraphDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metaGraphDef") ByteString
y Event
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
Event -> Parser Event
loop
(Setter Event Event FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Event -> Event
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 Event Event FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Event
x)
in
Parser Event -> String -> Parser Event
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Event -> Parser Event
loop Event
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "Event"
buildMessage :: Event -> Builder
buildMessage
= \ _x :: Event
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Double
_v = FoldLike Double Event Event Double Double -> Event -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "wallTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"wallTime") Event
_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 :: Int64
_v = FoldLike Int64 Event Event Int64 Int64 -> Event -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "step" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"step") Event
_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.<>)
(case
FoldLike
(Maybe Event'What)
Event
Event
(Maybe Event'What)
(Maybe Event'What)
-> Event -> Maybe Event'What
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'what" a, Functor f) =>
(a -> f a) -> s -> 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'what") Event
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (Event'FileVersion 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)
(Prelude.Just (Event'GraphDef v :: ByteString
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ByteString
v)
(Prelude.Just (Event'Summary v :: Summary
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((ByteString -> Builder)
-> (Summary -> ByteString) -> Summary -> 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))
Summary -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
Summary
v)
(Prelude.Just (Event'LogMessage v :: LogMessage
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((ByteString -> Builder)
-> (LogMessage -> ByteString) -> LogMessage -> 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))
LogMessage -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
LogMessage
v)
(Prelude.Just (Event'SessionLog v :: SessionLog
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
((ByteString -> Builder)
-> (SessionLog -> ByteString) -> SessionLog -> 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))
SessionLog -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SessionLog
v)
(Prelude.Just (Event'TaggedRunMetadata v :: TaggedRunMetadata
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
((ByteString -> Builder)
-> (TaggedRunMetadata -> ByteString)
-> TaggedRunMetadata
-> 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))
TaggedRunMetadata -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TaggedRunMetadata
v)
(Prelude.Just (Event'MetaGraphDef v :: ByteString
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 74)
((\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ByteString
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Event Event FieldSet FieldSet
-> Event -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Event Event FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields Event
_x))))
instance Control.DeepSeq.NFData Event where
rnf :: Event -> ()
rnf
= \ x__ :: Event
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Event -> FieldSet
_Event'_unknownFields Event
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Event -> Double
_Event'wallTime Event
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Event -> Int64
_Event'step Event
x__) (Maybe Event'What -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Event -> Maybe Event'What
_Event'what Event
x__) ())))
instance Control.DeepSeq.NFData Event'What where
rnf :: Event'What -> ()
rnf (Event'FileVersion x__ :: Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
rnf (Event'GraphDef x__ :: ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
rnf (Event'Summary x__ :: Summary
x__) = Summary -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Summary
x__
rnf (Event'LogMessage x__ :: LogMessage
x__) = LogMessage -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf LogMessage
x__
rnf (Event'SessionLog x__ :: SessionLog
x__) = SessionLog -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf SessionLog
x__
rnf (Event'TaggedRunMetadata x__ :: TaggedRunMetadata
x__) = TaggedRunMetadata -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TaggedRunMetadata
x__
rnf (Event'MetaGraphDef x__ :: ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
_Event'FileVersion ::
Data.ProtoLens.Prism.Prism' Event'What Data.Text.Text
_Event'FileVersion :: p Text (f Text) -> p Event'What (f Event'What)
_Event'FileVersion
= (Text -> Event'What)
-> (Event'What -> Maybe Text)
-> Prism Event'What Event'What Text Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Text -> Event'What
Event'FileVersion
(\ p__ :: Event'What
p__
-> case Event'What
p__ of
(Event'FileVersion p__val :: Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
_otherwise :: Event'What
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_Event'GraphDef ::
Data.ProtoLens.Prism.Prism' Event'What Data.ByteString.ByteString
_Event'GraphDef :: p ByteString (f ByteString) -> p Event'What (f Event'What)
_Event'GraphDef
= (ByteString -> Event'What)
-> (Event'What -> Maybe ByteString)
-> Prism Event'What Event'What ByteString ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ByteString -> Event'What
Event'GraphDef
(\ p__ :: Event'What
p__
-> case Event'What
p__ of
(Event'GraphDef p__val :: ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
_otherwise :: Event'What
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_Event'Summary ::
Data.ProtoLens.Prism.Prism' Event'What Proto.Tensorflow.Core.Framework.Summary.Summary
_Event'Summary :: p Summary (f Summary) -> p Event'What (f Event'What)
_Event'Summary
= (Summary -> Event'What)
-> (Event'What -> Maybe Summary)
-> Prism Event'What Event'What Summary Summary
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Summary -> Event'What
Event'Summary
(\ p__ :: Event'What
p__
-> case Event'What
p__ of
(Event'Summary p__val :: Summary
p__val) -> Summary -> Maybe Summary
forall a. a -> Maybe a
Prelude.Just Summary
p__val
_otherwise :: Event'What
_otherwise -> Maybe Summary
forall a. Maybe a
Prelude.Nothing)
_Event'LogMessage ::
Data.ProtoLens.Prism.Prism' Event'What LogMessage
_Event'LogMessage :: p LogMessage (f LogMessage) -> p Event'What (f Event'What)
_Event'LogMessage
= (LogMessage -> Event'What)
-> (Event'What -> Maybe LogMessage)
-> Prism Event'What Event'What LogMessage LogMessage
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
LogMessage -> Event'What
Event'LogMessage
(\ p__ :: Event'What
p__
-> case Event'What
p__ of
(Event'LogMessage p__val :: LogMessage
p__val) -> LogMessage -> Maybe LogMessage
forall a. a -> Maybe a
Prelude.Just LogMessage
p__val
_otherwise :: Event'What
_otherwise -> Maybe LogMessage
forall a. Maybe a
Prelude.Nothing)
_Event'SessionLog ::
Data.ProtoLens.Prism.Prism' Event'What SessionLog
_Event'SessionLog :: p SessionLog (f SessionLog) -> p Event'What (f Event'What)
_Event'SessionLog
= (SessionLog -> Event'What)
-> (Event'What -> Maybe SessionLog)
-> Prism Event'What Event'What SessionLog SessionLog
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
SessionLog -> Event'What
Event'SessionLog
(\ p__ :: Event'What
p__
-> case Event'What
p__ of
(Event'SessionLog p__val :: SessionLog
p__val) -> SessionLog -> Maybe SessionLog
forall a. a -> Maybe a
Prelude.Just SessionLog
p__val
_otherwise :: Event'What
_otherwise -> Maybe SessionLog
forall a. Maybe a
Prelude.Nothing)
_Event'TaggedRunMetadata ::
Data.ProtoLens.Prism.Prism' Event'What TaggedRunMetadata
_Event'TaggedRunMetadata :: p TaggedRunMetadata (f TaggedRunMetadata)
-> p Event'What (f Event'What)
_Event'TaggedRunMetadata
= (TaggedRunMetadata -> Event'What)
-> (Event'What -> Maybe TaggedRunMetadata)
-> Prism Event'What Event'What TaggedRunMetadata TaggedRunMetadata
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
TaggedRunMetadata -> Event'What
Event'TaggedRunMetadata
(\ p__ :: Event'What
p__
-> case Event'What
p__ of
(Event'TaggedRunMetadata p__val :: TaggedRunMetadata
p__val) -> TaggedRunMetadata -> Maybe TaggedRunMetadata
forall a. a -> Maybe a
Prelude.Just TaggedRunMetadata
p__val
_otherwise :: Event'What
_otherwise -> Maybe TaggedRunMetadata
forall a. Maybe a
Prelude.Nothing)
_Event'MetaGraphDef ::
Data.ProtoLens.Prism.Prism' Event'What Data.ByteString.ByteString
_Event'MetaGraphDef :: p ByteString (f ByteString) -> p Event'What (f Event'What)
_Event'MetaGraphDef
= (ByteString -> Event'What)
-> (Event'What -> Maybe ByteString)
-> Prism Event'What Event'What ByteString ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ByteString -> Event'What
Event'MetaGraphDef
(\ p__ :: Event'What
p__
-> case Event'What
p__ of
(Event'MetaGraphDef p__val :: ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
_otherwise :: Event'What
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
data LogMessage
= LogMessage'_constructor {LogMessage -> LogMessage'Level
_LogMessage'level :: !LogMessage'Level,
LogMessage -> Text
_LogMessage'message :: !Data.Text.Text,
LogMessage -> FieldSet
_LogMessage'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (LogMessage -> LogMessage -> Bool
(LogMessage -> LogMessage -> Bool)
-> (LogMessage -> LogMessage -> Bool) -> Eq LogMessage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LogMessage -> LogMessage -> Bool
$c/= :: LogMessage -> LogMessage -> Bool
== :: LogMessage -> LogMessage -> Bool
$c== :: LogMessage -> LogMessage -> Bool
Prelude.Eq, Eq LogMessage
Eq LogMessage =>
(LogMessage -> LogMessage -> Ordering)
-> (LogMessage -> LogMessage -> Bool)
-> (LogMessage -> LogMessage -> Bool)
-> (LogMessage -> LogMessage -> Bool)
-> (LogMessage -> LogMessage -> Bool)
-> (LogMessage -> LogMessage -> LogMessage)
-> (LogMessage -> LogMessage -> LogMessage)
-> Ord LogMessage
LogMessage -> LogMessage -> Bool
LogMessage -> LogMessage -> Ordering
LogMessage -> LogMessage -> LogMessage
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 :: LogMessage -> LogMessage -> LogMessage
$cmin :: LogMessage -> LogMessage -> LogMessage
max :: LogMessage -> LogMessage -> LogMessage
$cmax :: LogMessage -> LogMessage -> LogMessage
>= :: LogMessage -> LogMessage -> Bool
$c>= :: LogMessage -> LogMessage -> Bool
> :: LogMessage -> LogMessage -> Bool
$c> :: LogMessage -> LogMessage -> Bool
<= :: LogMessage -> LogMessage -> Bool
$c<= :: LogMessage -> LogMessage -> Bool
< :: LogMessage -> LogMessage -> Bool
$c< :: LogMessage -> LogMessage -> Bool
compare :: LogMessage -> LogMessage -> Ordering
$ccompare :: LogMessage -> LogMessage -> Ordering
$cp1Ord :: Eq LogMessage
Prelude.Ord)
instance Prelude.Show LogMessage where
showsPrec :: Int -> LogMessage -> ShowS
showsPrec _ __x :: LogMessage
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(LogMessage -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LogMessage
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField LogMessage "level" LogMessage'Level where
fieldOf :: Proxy# "level"
-> (LogMessage'Level -> f LogMessage'Level)
-> LogMessage
-> f LogMessage
fieldOf _
= ((LogMessage'Level -> f LogMessage'Level)
-> LogMessage -> f LogMessage)
-> ((LogMessage'Level -> f LogMessage'Level)
-> LogMessage'Level -> f LogMessage'Level)
-> (LogMessage'Level -> f LogMessage'Level)
-> LogMessage
-> f LogMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((LogMessage -> LogMessage'Level)
-> (LogMessage -> LogMessage'Level -> LogMessage)
-> Lens LogMessage LogMessage LogMessage'Level LogMessage'Level
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
LogMessage -> LogMessage'Level
_LogMessage'level (\ x__ :: LogMessage
x__ y__ :: LogMessage'Level
y__ -> LogMessage
x__ {_LogMessage'level :: LogMessage'Level
_LogMessage'level = LogMessage'Level
y__}))
(LogMessage'Level -> f LogMessage'Level)
-> LogMessage'Level -> f LogMessage'Level
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LogMessage "message" Data.Text.Text where
fieldOf :: Proxy# "message" -> (Text -> f Text) -> LogMessage -> f LogMessage
fieldOf _
= ((Text -> f Text) -> LogMessage -> f LogMessage)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> LogMessage
-> f LogMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((LogMessage -> Text)
-> (LogMessage -> Text -> LogMessage)
-> Lens LogMessage LogMessage Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
LogMessage -> Text
_LogMessage'message (\ x__ :: LogMessage
x__ y__ :: Text
y__ -> LogMessage
x__ {_LogMessage'message :: Text
_LogMessage'message = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LogMessage where
messageName :: Proxy LogMessage -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.LogMessage"
packedMessageDescriptor :: Proxy LogMessage -> ByteString
packedMessageDescriptor _
= "\n\
\\n\
\LogMessage\DC22\n\
\\ENQlevel\CAN\SOH \SOH(\SO2\FS.tensorflow.LogMessage.LevelR\ENQlevel\DC2\CAN\n\
\\amessage\CAN\STX \SOH(\tR\amessage\"M\n\
\\ENQLevel\DC2\v\n\
\\aUNKNOWN\DLE\NUL\DC2\r\n\
\\tDEBUGGING\DLE\n\
\\DC2\b\n\
\\EOTINFO\DLE\DC4\DC2\b\n\
\\EOTWARN\DLE\RS\DC2\t\n\
\\ENQERROR\DLE(\DC2\t\n\
\\ENQFATAL\DLE2"
packedFileDescriptor :: Proxy LogMessage -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor LogMessage)
fieldsByTag
= let
level__field_descriptor :: FieldDescriptor LogMessage
level__field_descriptor
= String
-> FieldTypeDescriptor LogMessage'Level
-> FieldAccessor LogMessage LogMessage'Level
-> FieldDescriptor LogMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"level"
(ScalarField LogMessage'Level
-> FieldTypeDescriptor LogMessage'Level
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField LogMessage'Level
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor LogMessage'Level)
(WireDefault LogMessage'Level
-> Lens LogMessage LogMessage LogMessage'Level LogMessage'Level
-> FieldAccessor LogMessage LogMessage'Level
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault LogMessage'Level
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "level" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"level")) ::
Data.ProtoLens.FieldDescriptor LogMessage
message__field_descriptor :: FieldDescriptor LogMessage
message__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor LogMessage Text
-> FieldDescriptor LogMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"message"
(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 LogMessage LogMessage Text Text
-> FieldAccessor LogMessage 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 "message" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"message")) ::
Data.ProtoLens.FieldDescriptor LogMessage
in
[(Tag, FieldDescriptor LogMessage)]
-> Map Tag (FieldDescriptor LogMessage)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor LogMessage
level__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor LogMessage
message__field_descriptor)]
unknownFields :: LensLike' f LogMessage FieldSet
unknownFields
= (LogMessage -> FieldSet)
-> (LogMessage -> FieldSet -> LogMessage)
-> Lens' LogMessage FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
LogMessage -> FieldSet
_LogMessage'_unknownFields
(\ x__ :: LogMessage
x__ y__ :: FieldSet
y__ -> LogMessage
x__ {_LogMessage'_unknownFields :: FieldSet
_LogMessage'_unknownFields = FieldSet
y__})
defMessage :: LogMessage
defMessage
= $WLogMessage'_constructor :: LogMessage'Level -> Text -> FieldSet -> LogMessage
LogMessage'_constructor
{_LogMessage'level :: LogMessage'Level
_LogMessage'level = LogMessage'Level
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_LogMessage'message :: Text
_LogMessage'message = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_LogMessage'_unknownFields :: FieldSet
_LogMessage'_unknownFields = []}
parseMessage :: Parser LogMessage
parseMessage
= let
loop ::
LogMessage -> Data.ProtoLens.Encoding.Bytes.Parser LogMessage
loop :: LogMessage -> Parser LogMessage
loop x :: LogMessage
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]))))
LogMessage -> Parser LogMessage
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter LogMessage LogMessage FieldSet FieldSet
-> (FieldSet -> FieldSet) -> LogMessage -> LogMessage
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 LogMessage LogMessage FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) LogMessage
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do LogMessage'Level
y <- Parser LogMessage'Level -> String -> Parser LogMessage'Level
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> LogMessage'Level) -> Parser Int -> Parser LogMessage'Level
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> LogMessage'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))
"level"
LogMessage -> Parser LogMessage
loop (Setter LogMessage LogMessage LogMessage'Level LogMessage'Level
-> LogMessage'Level -> LogMessage -> LogMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "level" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"level") LogMessage'Level
y LogMessage
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))
"message"
LogMessage -> Parser LogMessage
loop (Setter LogMessage LogMessage Text Text
-> Text -> LogMessage -> LogMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "message" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"message") Text
y LogMessage
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
LogMessage -> Parser LogMessage
loop
(Setter LogMessage LogMessage FieldSet FieldSet
-> (FieldSet -> FieldSet) -> LogMessage -> LogMessage
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 LogMessage LogMessage FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) LogMessage
x)
in
Parser LogMessage -> String -> Parser LogMessage
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do LogMessage -> Parser LogMessage
loop LogMessage
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "LogMessage"
buildMessage :: LogMessage -> Builder
buildMessage
= \ _x :: LogMessage
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: LogMessage'Level
_v = FoldLike
LogMessage'Level
LogMessage
LogMessage
LogMessage'Level
LogMessage'Level
-> LogMessage -> LogMessage'Level
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "level" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"level") LogMessage
_x
in
if LogMessage'Level -> LogMessage'Level -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) LogMessage'Level
_v LogMessage'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 8)
((Int -> Builder)
-> (LogMessage'Level -> Int) -> LogMessage'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)
LogMessage'Level -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
LogMessage'Level
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text LogMessage LogMessage Text Text -> LogMessage -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "message" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"message") LogMessage
_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 LogMessage LogMessage FieldSet FieldSet
-> LogMessage -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet LogMessage LogMessage FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields LogMessage
_x)))
instance Control.DeepSeq.NFData LogMessage where
rnf :: LogMessage -> ()
rnf
= \ x__ :: LogMessage
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(LogMessage -> FieldSet
_LogMessage'_unknownFields LogMessage
x__)
(LogMessage'Level -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(LogMessage -> LogMessage'Level
_LogMessage'level LogMessage
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LogMessage -> Text
_LogMessage'message LogMessage
x__) ()))
newtype LogMessage'Level'UnrecognizedValue
= LogMessage'Level'UnrecognizedValue Data.Int.Int32
deriving stock (LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
(LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool)
-> (LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool)
-> Eq LogMessage'Level'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
$c/= :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
== :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
$c== :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
Prelude.Eq, Eq LogMessage'Level'UnrecognizedValue
Eq LogMessage'Level'UnrecognizedValue =>
(LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Ordering)
-> (LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool)
-> (LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool)
-> (LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool)
-> (LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool)
-> (LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue)
-> (LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue)
-> Ord LogMessage'Level'UnrecognizedValue
LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Ordering
LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue
-> LogMessage'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 :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue
$cmin :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue
max :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue
$cmax :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue
>= :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
$c>= :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
> :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
$c> :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
<= :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
$c<= :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
< :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
$c< :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Bool
compare :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Ordering
$ccompare :: LogMessage'Level'UnrecognizedValue
-> LogMessage'Level'UnrecognizedValue -> Ordering
$cp1Ord :: Eq LogMessage'Level'UnrecognizedValue
Prelude.Ord, Int -> LogMessage'Level'UnrecognizedValue -> ShowS
[LogMessage'Level'UnrecognizedValue] -> ShowS
LogMessage'Level'UnrecognizedValue -> String
(Int -> LogMessage'Level'UnrecognizedValue -> ShowS)
-> (LogMessage'Level'UnrecognizedValue -> String)
-> ([LogMessage'Level'UnrecognizedValue] -> ShowS)
-> Show LogMessage'Level'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [LogMessage'Level'UnrecognizedValue] -> ShowS
$cshowList :: [LogMessage'Level'UnrecognizedValue] -> ShowS
show :: LogMessage'Level'UnrecognizedValue -> String
$cshow :: LogMessage'Level'UnrecognizedValue -> String
showsPrec :: Int -> LogMessage'Level'UnrecognizedValue -> ShowS
$cshowsPrec :: Int -> LogMessage'Level'UnrecognizedValue -> ShowS
Prelude.Show)
data LogMessage'Level
= LogMessage'UNKNOWN |
LogMessage'DEBUGGING |
LogMessage'INFO |
LogMessage'WARN |
LogMessage'ERROR |
LogMessage'FATAL |
LogMessage'Level'Unrecognized !LogMessage'Level'UnrecognizedValue
deriving stock (Int -> LogMessage'Level -> ShowS
[LogMessage'Level] -> ShowS
LogMessage'Level -> String
(Int -> LogMessage'Level -> ShowS)
-> (LogMessage'Level -> String)
-> ([LogMessage'Level] -> ShowS)
-> Show LogMessage'Level
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [LogMessage'Level] -> ShowS
$cshowList :: [LogMessage'Level] -> ShowS
show :: LogMessage'Level -> String
$cshow :: LogMessage'Level -> String
showsPrec :: Int -> LogMessage'Level -> ShowS
$cshowsPrec :: Int -> LogMessage'Level -> ShowS
Prelude.Show, LogMessage'Level -> LogMessage'Level -> Bool
(LogMessage'Level -> LogMessage'Level -> Bool)
-> (LogMessage'Level -> LogMessage'Level -> Bool)
-> Eq LogMessage'Level
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LogMessage'Level -> LogMessage'Level -> Bool
$c/= :: LogMessage'Level -> LogMessage'Level -> Bool
== :: LogMessage'Level -> LogMessage'Level -> Bool
$c== :: LogMessage'Level -> LogMessage'Level -> Bool
Prelude.Eq, Eq LogMessage'Level
Eq LogMessage'Level =>
(LogMessage'Level -> LogMessage'Level -> Ordering)
-> (LogMessage'Level -> LogMessage'Level -> Bool)
-> (LogMessage'Level -> LogMessage'Level -> Bool)
-> (LogMessage'Level -> LogMessage'Level -> Bool)
-> (LogMessage'Level -> LogMessage'Level -> Bool)
-> (LogMessage'Level -> LogMessage'Level -> LogMessage'Level)
-> (LogMessage'Level -> LogMessage'Level -> LogMessage'Level)
-> Ord LogMessage'Level
LogMessage'Level -> LogMessage'Level -> Bool
LogMessage'Level -> LogMessage'Level -> Ordering
LogMessage'Level -> LogMessage'Level -> LogMessage'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 :: LogMessage'Level -> LogMessage'Level -> LogMessage'Level
$cmin :: LogMessage'Level -> LogMessage'Level -> LogMessage'Level
max :: LogMessage'Level -> LogMessage'Level -> LogMessage'Level
$cmax :: LogMessage'Level -> LogMessage'Level -> LogMessage'Level
>= :: LogMessage'Level -> LogMessage'Level -> Bool
$c>= :: LogMessage'Level -> LogMessage'Level -> Bool
> :: LogMessage'Level -> LogMessage'Level -> Bool
$c> :: LogMessage'Level -> LogMessage'Level -> Bool
<= :: LogMessage'Level -> LogMessage'Level -> Bool
$c<= :: LogMessage'Level -> LogMessage'Level -> Bool
< :: LogMessage'Level -> LogMessage'Level -> Bool
$c< :: LogMessage'Level -> LogMessage'Level -> Bool
compare :: LogMessage'Level -> LogMessage'Level -> Ordering
$ccompare :: LogMessage'Level -> LogMessage'Level -> Ordering
$cp1Ord :: Eq LogMessage'Level
Prelude.Ord)
instance Data.ProtoLens.MessageEnum LogMessage'Level where
maybeToEnum :: Int -> Maybe LogMessage'Level
maybeToEnum 0 = LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just LogMessage'Level
LogMessage'UNKNOWN
maybeToEnum 10 = LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just LogMessage'Level
LogMessage'DEBUGGING
maybeToEnum 20 = LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just LogMessage'Level
LogMessage'INFO
maybeToEnum 30 = LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just LogMessage'Level
LogMessage'WARN
maybeToEnum 40 = LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just LogMessage'Level
LogMessage'ERROR
maybeToEnum 50 = LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just LogMessage'Level
LogMessage'FATAL
maybeToEnum k :: Int
k
= LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just
(LogMessage'Level'UnrecognizedValue -> LogMessage'Level
LogMessage'Level'Unrecognized
(Int32 -> LogMessage'Level'UnrecognizedValue
LogMessage'Level'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: LogMessage'Level -> String
showEnum LogMessage'UNKNOWN = "UNKNOWN"
showEnum LogMessage'DEBUGGING = "DEBUGGING"
showEnum LogMessage'INFO = "INFO"
showEnum LogMessage'WARN = "WARN"
showEnum LogMessage'ERROR = "ERROR"
showEnum LogMessage'FATAL = "FATAL"
showEnum
(LogMessage'Level'Unrecognized (LogMessage'Level'UnrecognizedValue k :: Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe LogMessage'Level
readEnum k :: String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "UNKNOWN" = LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just LogMessage'Level
LogMessage'UNKNOWN
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "DEBUGGING" = LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just LogMessage'Level
LogMessage'DEBUGGING
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "INFO" = LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just LogMessage'Level
LogMessage'INFO
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "WARN" = LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just LogMessage'Level
LogMessage'WARN
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "ERROR" = LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just LogMessage'Level
LogMessage'ERROR
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "FATAL" = LogMessage'Level -> Maybe LogMessage'Level
forall a. a -> Maybe a
Prelude.Just LogMessage'Level
LogMessage'FATAL
| Bool
Prelude.otherwise
= Maybe Int
-> (Int -> Maybe LogMessage'Level) -> Maybe LogMessage'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 LogMessage'Level
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded LogMessage'Level where
minBound :: LogMessage'Level
minBound = LogMessage'Level
LogMessage'UNKNOWN
maxBound :: LogMessage'Level
maxBound = LogMessage'Level
LogMessage'FATAL
instance Prelude.Enum LogMessage'Level where
toEnum :: Int -> LogMessage'Level
toEnum k__ :: Int
k__
= LogMessage'Level
-> (LogMessage'Level -> LogMessage'Level)
-> Maybe LogMessage'Level
-> LogMessage'Level
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> LogMessage'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__)))
LogMessage'Level -> LogMessage'Level
forall a. a -> a
Prelude.id
(Int -> Maybe LogMessage'Level
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: LogMessage'Level -> Int
fromEnum LogMessage'UNKNOWN = 0
fromEnum LogMessage'DEBUGGING = 10
fromEnum LogMessage'INFO = 20
fromEnum LogMessage'WARN = 30
fromEnum LogMessage'ERROR = 40
fromEnum LogMessage'FATAL = 50
fromEnum
(LogMessage'Level'Unrecognized (LogMessage'Level'UnrecognizedValue k :: Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: LogMessage'Level -> LogMessage'Level
succ LogMessage'FATAL
= String -> LogMessage'Level
forall a. HasCallStack => String -> a
Prelude.error
"LogMessage'Level.succ: bad argument LogMessage'FATAL. This value would be out of bounds."
succ LogMessage'UNKNOWN = LogMessage'Level
LogMessage'DEBUGGING
succ LogMessage'DEBUGGING = LogMessage'Level
LogMessage'INFO
succ LogMessage'INFO = LogMessage'Level
LogMessage'WARN
succ LogMessage'WARN = LogMessage'Level
LogMessage'ERROR
succ LogMessage'ERROR = LogMessage'Level
LogMessage'FATAL
succ (LogMessage'Level'Unrecognized _)
= String -> LogMessage'Level
forall a. HasCallStack => String -> a
Prelude.error
"LogMessage'Level.succ: bad argument: unrecognized value"
pred :: LogMessage'Level -> LogMessage'Level
pred LogMessage'UNKNOWN
= String -> LogMessage'Level
forall a. HasCallStack => String -> a
Prelude.error
"LogMessage'Level.pred: bad argument LogMessage'UNKNOWN. This value would be out of bounds."
pred LogMessage'DEBUGGING = LogMessage'Level
LogMessage'UNKNOWN
pred LogMessage'INFO = LogMessage'Level
LogMessage'DEBUGGING
pred LogMessage'WARN = LogMessage'Level
LogMessage'INFO
pred LogMessage'ERROR = LogMessage'Level
LogMessage'WARN
pred LogMessage'FATAL = LogMessage'Level
LogMessage'ERROR
pred (LogMessage'Level'Unrecognized _)
= String -> LogMessage'Level
forall a. HasCallStack => String -> a
Prelude.error
"LogMessage'Level.pred: bad argument: unrecognized value"
enumFrom :: LogMessage'Level -> [LogMessage'Level]
enumFrom = LogMessage'Level -> [LogMessage'Level]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: LogMessage'Level -> LogMessage'Level -> [LogMessage'Level]
enumFromTo = LogMessage'Level -> LogMessage'Level -> [LogMessage'Level]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: LogMessage'Level -> LogMessage'Level -> [LogMessage'Level]
enumFromThen = LogMessage'Level -> LogMessage'Level -> [LogMessage'Level]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: LogMessage'Level
-> LogMessage'Level -> LogMessage'Level -> [LogMessage'Level]
enumFromThenTo = LogMessage'Level
-> LogMessage'Level -> LogMessage'Level -> [LogMessage'Level]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault LogMessage'Level where
fieldDefault :: LogMessage'Level
fieldDefault = LogMessage'Level
LogMessage'UNKNOWN
instance Control.DeepSeq.NFData LogMessage'Level where
rnf :: LogMessage'Level -> ()
rnf x__ :: LogMessage'Level
x__ = LogMessage'Level -> () -> ()
forall a b. a -> b -> b
Prelude.seq LogMessage'Level
x__ ()
data RequestedExitCode
= RequestedExitCode'_constructor {RequestedExitCode -> Int32
_RequestedExitCode'exitCode :: !Data.Int.Int32,
RequestedExitCode -> FieldSet
_RequestedExitCode'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RequestedExitCode -> RequestedExitCode -> Bool
(RequestedExitCode -> RequestedExitCode -> Bool)
-> (RequestedExitCode -> RequestedExitCode -> Bool)
-> Eq RequestedExitCode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RequestedExitCode -> RequestedExitCode -> Bool
$c/= :: RequestedExitCode -> RequestedExitCode -> Bool
== :: RequestedExitCode -> RequestedExitCode -> Bool
$c== :: RequestedExitCode -> RequestedExitCode -> Bool
Prelude.Eq, Eq RequestedExitCode
Eq RequestedExitCode =>
(RequestedExitCode -> RequestedExitCode -> Ordering)
-> (RequestedExitCode -> RequestedExitCode -> Bool)
-> (RequestedExitCode -> RequestedExitCode -> Bool)
-> (RequestedExitCode -> RequestedExitCode -> Bool)
-> (RequestedExitCode -> RequestedExitCode -> Bool)
-> (RequestedExitCode -> RequestedExitCode -> RequestedExitCode)
-> (RequestedExitCode -> RequestedExitCode -> RequestedExitCode)
-> Ord RequestedExitCode
RequestedExitCode -> RequestedExitCode -> Bool
RequestedExitCode -> RequestedExitCode -> Ordering
RequestedExitCode -> RequestedExitCode -> RequestedExitCode
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 :: RequestedExitCode -> RequestedExitCode -> RequestedExitCode
$cmin :: RequestedExitCode -> RequestedExitCode -> RequestedExitCode
max :: RequestedExitCode -> RequestedExitCode -> RequestedExitCode
$cmax :: RequestedExitCode -> RequestedExitCode -> RequestedExitCode
>= :: RequestedExitCode -> RequestedExitCode -> Bool
$c>= :: RequestedExitCode -> RequestedExitCode -> Bool
> :: RequestedExitCode -> RequestedExitCode -> Bool
$c> :: RequestedExitCode -> RequestedExitCode -> Bool
<= :: RequestedExitCode -> RequestedExitCode -> Bool
$c<= :: RequestedExitCode -> RequestedExitCode -> Bool
< :: RequestedExitCode -> RequestedExitCode -> Bool
$c< :: RequestedExitCode -> RequestedExitCode -> Bool
compare :: RequestedExitCode -> RequestedExitCode -> Ordering
$ccompare :: RequestedExitCode -> RequestedExitCode -> Ordering
$cp1Ord :: Eq RequestedExitCode
Prelude.Ord)
instance Prelude.Show RequestedExitCode where
showsPrec :: Int -> RequestedExitCode -> ShowS
showsPrec _ __x :: RequestedExitCode
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(RequestedExitCode -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RequestedExitCode
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField RequestedExitCode "exitCode" Data.Int.Int32 where
fieldOf :: Proxy# "exitCode"
-> (Int32 -> f Int32) -> RequestedExitCode -> f RequestedExitCode
fieldOf _
= ((Int32 -> f Int32) -> RequestedExitCode -> f RequestedExitCode)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> RequestedExitCode
-> f RequestedExitCode
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RequestedExitCode -> Int32)
-> (RequestedExitCode -> Int32 -> RequestedExitCode)
-> Lens RequestedExitCode RequestedExitCode Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestedExitCode -> Int32
_RequestedExitCode'exitCode
(\ x__ :: RequestedExitCode
x__ y__ :: Int32
y__ -> RequestedExitCode
x__ {_RequestedExitCode'exitCode :: Int32
_RequestedExitCode'exitCode = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RequestedExitCode where
messageName :: Proxy RequestedExitCode -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.RequestedExitCode"
packedMessageDescriptor :: Proxy RequestedExitCode -> ByteString
packedMessageDescriptor _
= "\n\
\\DC1RequestedExitCode\DC2\ESC\n\
\\texit_code\CAN\SOH \SOH(\ENQR\bexitCode"
packedFileDescriptor :: Proxy RequestedExitCode -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor RequestedExitCode)
fieldsByTag
= let
exitCode__field_descriptor :: FieldDescriptor RequestedExitCode
exitCode__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor RequestedExitCode Int32
-> FieldDescriptor RequestedExitCode
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"exit_code"
(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 RequestedExitCode RequestedExitCode Int32 Int32
-> FieldAccessor RequestedExitCode 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 "exitCode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"exitCode")) ::
Data.ProtoLens.FieldDescriptor RequestedExitCode
in
[(Tag, FieldDescriptor RequestedExitCode)]
-> Map Tag (FieldDescriptor RequestedExitCode)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor RequestedExitCode
exitCode__field_descriptor)]
unknownFields :: LensLike' f RequestedExitCode FieldSet
unknownFields
= (RequestedExitCode -> FieldSet)
-> (RequestedExitCode -> FieldSet -> RequestedExitCode)
-> Lens' RequestedExitCode FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestedExitCode -> FieldSet
_RequestedExitCode'_unknownFields
(\ x__ :: RequestedExitCode
x__ y__ :: FieldSet
y__ -> RequestedExitCode
x__ {_RequestedExitCode'_unknownFields :: FieldSet
_RequestedExitCode'_unknownFields = FieldSet
y__})
defMessage :: RequestedExitCode
defMessage
= $WRequestedExitCode'_constructor :: Int32 -> FieldSet -> RequestedExitCode
RequestedExitCode'_constructor
{_RequestedExitCode'exitCode :: Int32
_RequestedExitCode'exitCode = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RequestedExitCode'_unknownFields :: FieldSet
_RequestedExitCode'_unknownFields = []}
parseMessage :: Parser RequestedExitCode
parseMessage
= let
loop ::
RequestedExitCode
-> Data.ProtoLens.Encoding.Bytes.Parser RequestedExitCode
loop :: RequestedExitCode -> Parser RequestedExitCode
loop x :: RequestedExitCode
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]))))
RequestedExitCode -> Parser RequestedExitCode
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter RequestedExitCode RequestedExitCode FieldSet FieldSet
-> (FieldSet -> FieldSet) -> RequestedExitCode -> RequestedExitCode
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 RequestedExitCode RequestedExitCode FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) RequestedExitCode
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)
"exit_code"
RequestedExitCode -> Parser RequestedExitCode
loop
(Setter RequestedExitCode RequestedExitCode Int32 Int32
-> Int32 -> RequestedExitCode -> RequestedExitCode
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "exitCode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"exitCode") Int32
y RequestedExitCode
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
RequestedExitCode -> Parser RequestedExitCode
loop
(Setter RequestedExitCode RequestedExitCode FieldSet FieldSet
-> (FieldSet -> FieldSet) -> RequestedExitCode -> RequestedExitCode
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 RequestedExitCode RequestedExitCode FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) RequestedExitCode
x)
in
Parser RequestedExitCode -> String -> Parser RequestedExitCode
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do RequestedExitCode -> Parser RequestedExitCode
loop RequestedExitCode
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "RequestedExitCode"
buildMessage :: RequestedExitCode -> Builder
buildMessage
= \ _x :: RequestedExitCode
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v = FoldLike Int32 RequestedExitCode RequestedExitCode Int32 Int32
-> RequestedExitCode -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "exitCode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"exitCode") RequestedExitCode
_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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet RequestedExitCode RequestedExitCode FieldSet FieldSet
-> RequestedExitCode -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet RequestedExitCode RequestedExitCode FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields RequestedExitCode
_x))
instance Control.DeepSeq.NFData RequestedExitCode where
rnf :: RequestedExitCode -> ()
rnf
= \ x__ :: RequestedExitCode
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RequestedExitCode -> FieldSet
_RequestedExitCode'_unknownFields RequestedExitCode
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (RequestedExitCode -> Int32
_RequestedExitCode'exitCode RequestedExitCode
x__) ())
data SessionLog
= SessionLog'_constructor {SessionLog -> SessionLog'SessionStatus
_SessionLog'status :: !SessionLog'SessionStatus,
SessionLog -> Text
_SessionLog'checkpointPath :: !Data.Text.Text,
SessionLog -> Text
_SessionLog'msg :: !Data.Text.Text,
SessionLog -> FieldSet
_SessionLog'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SessionLog -> SessionLog -> Bool
(SessionLog -> SessionLog -> Bool)
-> (SessionLog -> SessionLog -> Bool) -> Eq SessionLog
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SessionLog -> SessionLog -> Bool
$c/= :: SessionLog -> SessionLog -> Bool
== :: SessionLog -> SessionLog -> Bool
$c== :: SessionLog -> SessionLog -> Bool
Prelude.Eq, Eq SessionLog
Eq SessionLog =>
(SessionLog -> SessionLog -> Ordering)
-> (SessionLog -> SessionLog -> Bool)
-> (SessionLog -> SessionLog -> Bool)
-> (SessionLog -> SessionLog -> Bool)
-> (SessionLog -> SessionLog -> Bool)
-> (SessionLog -> SessionLog -> SessionLog)
-> (SessionLog -> SessionLog -> SessionLog)
-> Ord SessionLog
SessionLog -> SessionLog -> Bool
SessionLog -> SessionLog -> Ordering
SessionLog -> SessionLog -> SessionLog
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 :: SessionLog -> SessionLog -> SessionLog
$cmin :: SessionLog -> SessionLog -> SessionLog
max :: SessionLog -> SessionLog -> SessionLog
$cmax :: SessionLog -> SessionLog -> SessionLog
>= :: SessionLog -> SessionLog -> Bool
$c>= :: SessionLog -> SessionLog -> Bool
> :: SessionLog -> SessionLog -> Bool
$c> :: SessionLog -> SessionLog -> Bool
<= :: SessionLog -> SessionLog -> Bool
$c<= :: SessionLog -> SessionLog -> Bool
< :: SessionLog -> SessionLog -> Bool
$c< :: SessionLog -> SessionLog -> Bool
compare :: SessionLog -> SessionLog -> Ordering
$ccompare :: SessionLog -> SessionLog -> Ordering
$cp1Ord :: Eq SessionLog
Prelude.Ord)
instance Prelude.Show SessionLog where
showsPrec :: Int -> SessionLog -> ShowS
showsPrec _ __x :: SessionLog
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SessionLog -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SessionLog
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SessionLog "status" SessionLog'SessionStatus where
fieldOf :: Proxy# "status"
-> (SessionLog'SessionStatus -> f SessionLog'SessionStatus)
-> SessionLog
-> f SessionLog
fieldOf _
= ((SessionLog'SessionStatus -> f SessionLog'SessionStatus)
-> SessionLog -> f SessionLog)
-> ((SessionLog'SessionStatus -> f SessionLog'SessionStatus)
-> SessionLog'SessionStatus -> f SessionLog'SessionStatus)
-> (SessionLog'SessionStatus -> f SessionLog'SessionStatus)
-> SessionLog
-> f SessionLog
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SessionLog -> SessionLog'SessionStatus)
-> (SessionLog -> SessionLog'SessionStatus -> SessionLog)
-> Lens
SessionLog
SessionLog
SessionLog'SessionStatus
SessionLog'SessionStatus
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SessionLog -> SessionLog'SessionStatus
_SessionLog'status (\ x__ :: SessionLog
x__ y__ :: SessionLog'SessionStatus
y__ -> SessionLog
x__ {_SessionLog'status :: SessionLog'SessionStatus
_SessionLog'status = SessionLog'SessionStatus
y__}))
(SessionLog'SessionStatus -> f SessionLog'SessionStatus)
-> SessionLog'SessionStatus -> f SessionLog'SessionStatus
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SessionLog "checkpointPath" Data.Text.Text where
fieldOf :: Proxy# "checkpointPath"
-> (Text -> f Text) -> SessionLog -> f SessionLog
fieldOf _
= ((Text -> f Text) -> SessionLog -> f SessionLog)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SessionLog
-> f SessionLog
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SessionLog -> Text)
-> (SessionLog -> Text -> SessionLog)
-> Lens SessionLog SessionLog Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SessionLog -> Text
_SessionLog'checkpointPath
(\ x__ :: SessionLog
x__ y__ :: Text
y__ -> SessionLog
x__ {_SessionLog'checkpointPath :: Text
_SessionLog'checkpointPath = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SessionLog "msg" Data.Text.Text where
fieldOf :: Proxy# "msg" -> (Text -> f Text) -> SessionLog -> f SessionLog
fieldOf _
= ((Text -> f Text) -> SessionLog -> f SessionLog)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SessionLog
-> f SessionLog
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SessionLog -> Text)
-> (SessionLog -> Text -> SessionLog)
-> Lens SessionLog SessionLog Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SessionLog -> Text
_SessionLog'msg (\ x__ :: SessionLog
x__ y__ :: Text
y__ -> SessionLog
x__ {_SessionLog'msg :: Text
_SessionLog'msg = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SessionLog where
messageName :: Proxy SessionLog -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SessionLog"
packedMessageDescriptor :: Proxy SessionLog -> ByteString
packedMessageDescriptor _
= "\n\
\\n\
\SessionLog\DC2<\n\
\\ACKstatus\CAN\SOH \SOH(\SO2$.tensorflow.SessionLog.SessionStatusR\ACKstatus\DC2'\n\
\\SIcheckpoint_path\CAN\STX \SOH(\tR\SOcheckpointPath\DC2\DLE\n\
\\ETXmsg\CAN\ETX \SOH(\tR\ETXmsg\"L\n\
\\rSessionStatus\DC2\SYN\n\
\\DC2STATUS_UNSPECIFIED\DLE\NUL\DC2\t\n\
\\ENQSTART\DLE\SOH\DC2\b\n\
\\EOTSTOP\DLE\STX\DC2\SO\n\
\\n\
\CHECKPOINT\DLE\ETX"
packedFileDescriptor :: Proxy SessionLog -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SessionLog)
fieldsByTag
= let
status__field_descriptor :: FieldDescriptor SessionLog
status__field_descriptor
= String
-> FieldTypeDescriptor SessionLog'SessionStatus
-> FieldAccessor SessionLog SessionLog'SessionStatus
-> FieldDescriptor SessionLog
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"status"
(ScalarField SessionLog'SessionStatus
-> FieldTypeDescriptor SessionLog'SessionStatus
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField SessionLog'SessionStatus
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor SessionLog'SessionStatus)
(WireDefault SessionLog'SessionStatus
-> Lens
SessionLog
SessionLog
SessionLog'SessionStatus
SessionLog'SessionStatus
-> FieldAccessor SessionLog SessionLog'SessionStatus
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault SessionLog'SessionStatus
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "status" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"status")) ::
Data.ProtoLens.FieldDescriptor SessionLog
checkpointPath__field_descriptor :: FieldDescriptor SessionLog
checkpointPath__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SessionLog Text
-> FieldDescriptor SessionLog
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"checkpoint_path"
(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 SessionLog SessionLog Text Text
-> FieldAccessor SessionLog 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 "checkpointPath" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"checkpointPath")) ::
Data.ProtoLens.FieldDescriptor SessionLog
msg__field_descriptor :: FieldDescriptor SessionLog
msg__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SessionLog Text
-> FieldDescriptor SessionLog
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"msg"
(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 SessionLog SessionLog Text Text
-> FieldAccessor SessionLog 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 "msg" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"msg")) ::
Data.ProtoLens.FieldDescriptor SessionLog
in
[(Tag, FieldDescriptor SessionLog)]
-> Map Tag (FieldDescriptor SessionLog)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SessionLog
status__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SessionLog
checkpointPath__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor SessionLog
msg__field_descriptor)]
unknownFields :: LensLike' f SessionLog FieldSet
unknownFields
= (SessionLog -> FieldSet)
-> (SessionLog -> FieldSet -> SessionLog)
-> Lens' SessionLog FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SessionLog -> FieldSet
_SessionLog'_unknownFields
(\ x__ :: SessionLog
x__ y__ :: FieldSet
y__ -> SessionLog
x__ {_SessionLog'_unknownFields :: FieldSet
_SessionLog'_unknownFields = FieldSet
y__})
defMessage :: SessionLog
defMessage
= $WSessionLog'_constructor :: SessionLog'SessionStatus -> Text -> Text -> FieldSet -> SessionLog
SessionLog'_constructor
{_SessionLog'status :: SessionLog'SessionStatus
_SessionLog'status = SessionLog'SessionStatus
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SessionLog'checkpointPath :: Text
_SessionLog'checkpointPath = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SessionLog'msg :: Text
_SessionLog'msg = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SessionLog'_unknownFields :: FieldSet
_SessionLog'_unknownFields = []}
parseMessage :: Parser SessionLog
parseMessage
= let
loop ::
SessionLog -> Data.ProtoLens.Encoding.Bytes.Parser SessionLog
loop :: SessionLog -> Parser SessionLog
loop x :: SessionLog
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]))))
SessionLog -> Parser SessionLog
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SessionLog SessionLog FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SessionLog -> SessionLog
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 SessionLog SessionLog FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SessionLog
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do SessionLog'SessionStatus
y <- Parser SessionLog'SessionStatus
-> String -> Parser SessionLog'SessionStatus
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> SessionLog'SessionStatus)
-> Parser Int -> Parser SessionLog'SessionStatus
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> SessionLog'SessionStatus
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))
"status"
SessionLog -> Parser SessionLog
loop (Setter
SessionLog
SessionLog
SessionLog'SessionStatus
SessionLog'SessionStatus
-> SessionLog'SessionStatus -> SessionLog -> SessionLog
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "status" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"status") SessionLog'SessionStatus
y SessionLog
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))
"checkpoint_path"
SessionLog -> Parser SessionLog
loop
(Setter SessionLog SessionLog Text Text
-> Text -> SessionLog -> SessionLog
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "checkpointPath" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"checkpointPath") Text
y SessionLog
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))
"msg"
SessionLog -> Parser SessionLog
loop (Setter SessionLog SessionLog Text Text
-> Text -> SessionLog -> SessionLog
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "msg" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"msg") Text
y SessionLog
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SessionLog -> Parser SessionLog
loop
(Setter SessionLog SessionLog FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SessionLog -> SessionLog
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 SessionLog SessionLog FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SessionLog
x)
in
Parser SessionLog -> String -> Parser SessionLog
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SessionLog -> Parser SessionLog
loop SessionLog
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SessionLog"
buildMessage :: SessionLog -> Builder
buildMessage
= \ _x :: SessionLog
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: SessionLog'SessionStatus
_v = FoldLike
SessionLog'SessionStatus
SessionLog
SessionLog
SessionLog'SessionStatus
SessionLog'SessionStatus
-> SessionLog -> SessionLog'SessionStatus
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "status" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"status") SessionLog
_x
in
if SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) SessionLog'SessionStatus
_v SessionLog'SessionStatus
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)
-> (SessionLog'SessionStatus -> Int)
-> SessionLog'SessionStatus
-> 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)
SessionLog'SessionStatus -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
SessionLog'SessionStatus
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text SessionLog SessionLog Text Text -> SessionLog -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "checkpointPath" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"checkpointPath") SessionLog
_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 :: Text
_v = FoldLike Text SessionLog SessionLog Text Text -> SessionLog -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "msg" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"msg") SessionLog
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet SessionLog SessionLog FieldSet FieldSet
-> SessionLog -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SessionLog SessionLog FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SessionLog
_x))))
instance Control.DeepSeq.NFData SessionLog where
rnf :: SessionLog -> ()
rnf
= \ x__ :: SessionLog
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SessionLog -> FieldSet
_SessionLog'_unknownFields SessionLog
x__)
(SessionLog'SessionStatus -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SessionLog -> SessionLog'SessionStatus
_SessionLog'status SessionLog
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SessionLog -> Text
_SessionLog'checkpointPath SessionLog
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SessionLog -> Text
_SessionLog'msg SessionLog
x__) ())))
newtype SessionLog'SessionStatus'UnrecognizedValue
= SessionLog'SessionStatus'UnrecognizedValue Data.Int.Int32
deriving stock (SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
(SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool)
-> (SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool)
-> Eq SessionLog'SessionStatus'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
$c/= :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
== :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
$c== :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
Prelude.Eq, Eq SessionLog'SessionStatus'UnrecognizedValue
Eq SessionLog'SessionStatus'UnrecognizedValue =>
(SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Ordering)
-> (SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool)
-> (SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool)
-> (SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool)
-> (SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool)
-> (SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue)
-> (SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue)
-> Ord SessionLog'SessionStatus'UnrecognizedValue
SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Ordering
SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'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 :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue
$cmin :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue
max :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue
$cmax :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue
>= :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
$c>= :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
> :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
$c> :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
<= :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
$c<= :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
< :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
$c< :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Bool
compare :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Ordering
$ccompare :: SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus'UnrecognizedValue -> Ordering
$cp1Ord :: Eq SessionLog'SessionStatus'UnrecognizedValue
Prelude.Ord, Int -> SessionLog'SessionStatus'UnrecognizedValue -> ShowS
[SessionLog'SessionStatus'UnrecognizedValue] -> ShowS
SessionLog'SessionStatus'UnrecognizedValue -> String
(Int -> SessionLog'SessionStatus'UnrecognizedValue -> ShowS)
-> (SessionLog'SessionStatus'UnrecognizedValue -> String)
-> ([SessionLog'SessionStatus'UnrecognizedValue] -> ShowS)
-> Show SessionLog'SessionStatus'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SessionLog'SessionStatus'UnrecognizedValue] -> ShowS
$cshowList :: [SessionLog'SessionStatus'UnrecognizedValue] -> ShowS
show :: SessionLog'SessionStatus'UnrecognizedValue -> String
$cshow :: SessionLog'SessionStatus'UnrecognizedValue -> String
showsPrec :: Int -> SessionLog'SessionStatus'UnrecognizedValue -> ShowS
$cshowsPrec :: Int -> SessionLog'SessionStatus'UnrecognizedValue -> ShowS
Prelude.Show)
data SessionLog'SessionStatus
= SessionLog'STATUS_UNSPECIFIED |
SessionLog'START |
SessionLog'STOP |
SessionLog'CHECKPOINT |
SessionLog'SessionStatus'Unrecognized !SessionLog'SessionStatus'UnrecognizedValue
deriving stock (Int -> SessionLog'SessionStatus -> ShowS
[SessionLog'SessionStatus] -> ShowS
SessionLog'SessionStatus -> String
(Int -> SessionLog'SessionStatus -> ShowS)
-> (SessionLog'SessionStatus -> String)
-> ([SessionLog'SessionStatus] -> ShowS)
-> Show SessionLog'SessionStatus
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SessionLog'SessionStatus] -> ShowS
$cshowList :: [SessionLog'SessionStatus] -> ShowS
show :: SessionLog'SessionStatus -> String
$cshow :: SessionLog'SessionStatus -> String
showsPrec :: Int -> SessionLog'SessionStatus -> ShowS
$cshowsPrec :: Int -> SessionLog'SessionStatus -> ShowS
Prelude.Show, SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
(SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool)
-> (SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool)
-> Eq SessionLog'SessionStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
$c/= :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
== :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
$c== :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
Prelude.Eq, Eq SessionLog'SessionStatus
Eq SessionLog'SessionStatus =>
(SessionLog'SessionStatus -> SessionLog'SessionStatus -> Ordering)
-> (SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool)
-> (SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool)
-> (SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool)
-> (SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool)
-> (SessionLog'SessionStatus
-> SessionLog'SessionStatus -> SessionLog'SessionStatus)
-> (SessionLog'SessionStatus
-> SessionLog'SessionStatus -> SessionLog'SessionStatus)
-> Ord SessionLog'SessionStatus
SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
SessionLog'SessionStatus -> SessionLog'SessionStatus -> Ordering
SessionLog'SessionStatus
-> SessionLog'SessionStatus -> SessionLog'SessionStatus
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 :: SessionLog'SessionStatus
-> SessionLog'SessionStatus -> SessionLog'SessionStatus
$cmin :: SessionLog'SessionStatus
-> SessionLog'SessionStatus -> SessionLog'SessionStatus
max :: SessionLog'SessionStatus
-> SessionLog'SessionStatus -> SessionLog'SessionStatus
$cmax :: SessionLog'SessionStatus
-> SessionLog'SessionStatus -> SessionLog'SessionStatus
>= :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
$c>= :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
> :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
$c> :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
<= :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
$c<= :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
< :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
$c< :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Bool
compare :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Ordering
$ccompare :: SessionLog'SessionStatus -> SessionLog'SessionStatus -> Ordering
$cp1Ord :: Eq SessionLog'SessionStatus
Prelude.Ord)
instance Data.ProtoLens.MessageEnum SessionLog'SessionStatus where
maybeToEnum :: Int -> Maybe SessionLog'SessionStatus
maybeToEnum 0 = SessionLog'SessionStatus -> Maybe SessionLog'SessionStatus
forall a. a -> Maybe a
Prelude.Just SessionLog'SessionStatus
SessionLog'STATUS_UNSPECIFIED
maybeToEnum 1 = SessionLog'SessionStatus -> Maybe SessionLog'SessionStatus
forall a. a -> Maybe a
Prelude.Just SessionLog'SessionStatus
SessionLog'START
maybeToEnum 2 = SessionLog'SessionStatus -> Maybe SessionLog'SessionStatus
forall a. a -> Maybe a
Prelude.Just SessionLog'SessionStatus
SessionLog'STOP
maybeToEnum 3 = SessionLog'SessionStatus -> Maybe SessionLog'SessionStatus
forall a. a -> Maybe a
Prelude.Just SessionLog'SessionStatus
SessionLog'CHECKPOINT
maybeToEnum k :: Int
k
= SessionLog'SessionStatus -> Maybe SessionLog'SessionStatus
forall a. a -> Maybe a
Prelude.Just
(SessionLog'SessionStatus'UnrecognizedValue
-> SessionLog'SessionStatus
SessionLog'SessionStatus'Unrecognized
(Int32 -> SessionLog'SessionStatus'UnrecognizedValue
SessionLog'SessionStatus'UnrecognizedValue
(Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: SessionLog'SessionStatus -> String
showEnum SessionLog'STATUS_UNSPECIFIED = "STATUS_UNSPECIFIED"
showEnum SessionLog'START = "START"
showEnum SessionLog'STOP = "STOP"
showEnum SessionLog'CHECKPOINT = "CHECKPOINT"
showEnum
(SessionLog'SessionStatus'Unrecognized (SessionLog'SessionStatus'UnrecognizedValue k :: Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe SessionLog'SessionStatus
readEnum k :: String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "STATUS_UNSPECIFIED"
= SessionLog'SessionStatus -> Maybe SessionLog'SessionStatus
forall a. a -> Maybe a
Prelude.Just SessionLog'SessionStatus
SessionLog'STATUS_UNSPECIFIED
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "START" = SessionLog'SessionStatus -> Maybe SessionLog'SessionStatus
forall a. a -> Maybe a
Prelude.Just SessionLog'SessionStatus
SessionLog'START
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "STOP" = SessionLog'SessionStatus -> Maybe SessionLog'SessionStatus
forall a. a -> Maybe a
Prelude.Just SessionLog'SessionStatus
SessionLog'STOP
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "CHECKPOINT" = SessionLog'SessionStatus -> Maybe SessionLog'SessionStatus
forall a. a -> Maybe a
Prelude.Just SessionLog'SessionStatus
SessionLog'CHECKPOINT
| Bool
Prelude.otherwise
= Maybe Int
-> (Int -> Maybe SessionLog'SessionStatus)
-> Maybe SessionLog'SessionStatus
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 SessionLog'SessionStatus
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded SessionLog'SessionStatus where
minBound :: SessionLog'SessionStatus
minBound = SessionLog'SessionStatus
SessionLog'STATUS_UNSPECIFIED
maxBound :: SessionLog'SessionStatus
maxBound = SessionLog'SessionStatus
SessionLog'CHECKPOINT
instance Prelude.Enum SessionLog'SessionStatus where
toEnum :: Int -> SessionLog'SessionStatus
toEnum k__ :: Int
k__
= SessionLog'SessionStatus
-> (SessionLog'SessionStatus -> SessionLog'SessionStatus)
-> Maybe SessionLog'SessionStatus
-> SessionLog'SessionStatus
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> SessionLog'SessionStatus
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
"toEnum: unknown value for enum SessionStatus: "
(Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
SessionLog'SessionStatus -> SessionLog'SessionStatus
forall a. a -> a
Prelude.id
(Int -> Maybe SessionLog'SessionStatus
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: SessionLog'SessionStatus -> Int
fromEnum SessionLog'STATUS_UNSPECIFIED = 0
fromEnum SessionLog'START = 1
fromEnum SessionLog'STOP = 2
fromEnum SessionLog'CHECKPOINT = 3
fromEnum
(SessionLog'SessionStatus'Unrecognized (SessionLog'SessionStatus'UnrecognizedValue k :: Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: SessionLog'SessionStatus -> SessionLog'SessionStatus
succ SessionLog'CHECKPOINT
= String -> SessionLog'SessionStatus
forall a. HasCallStack => String -> a
Prelude.error
"SessionLog'SessionStatus.succ: bad argument SessionLog'CHECKPOINT. This value would be out of bounds."
succ SessionLog'STATUS_UNSPECIFIED = SessionLog'SessionStatus
SessionLog'START
succ SessionLog'START = SessionLog'SessionStatus
SessionLog'STOP
succ SessionLog'STOP = SessionLog'SessionStatus
SessionLog'CHECKPOINT
succ (SessionLog'SessionStatus'Unrecognized _)
= String -> SessionLog'SessionStatus
forall a. HasCallStack => String -> a
Prelude.error
"SessionLog'SessionStatus.succ: bad argument: unrecognized value"
pred :: SessionLog'SessionStatus -> SessionLog'SessionStatus
pred SessionLog'STATUS_UNSPECIFIED
= String -> SessionLog'SessionStatus
forall a. HasCallStack => String -> a
Prelude.error
"SessionLog'SessionStatus.pred: bad argument SessionLog'STATUS_UNSPECIFIED. This value would be out of bounds."
pred SessionLog'START = SessionLog'SessionStatus
SessionLog'STATUS_UNSPECIFIED
pred SessionLog'STOP = SessionLog'SessionStatus
SessionLog'START
pred SessionLog'CHECKPOINT = SessionLog'SessionStatus
SessionLog'STOP
pred (SessionLog'SessionStatus'Unrecognized _)
= String -> SessionLog'SessionStatus
forall a. HasCallStack => String -> a
Prelude.error
"SessionLog'SessionStatus.pred: bad argument: unrecognized value"
enumFrom :: SessionLog'SessionStatus -> [SessionLog'SessionStatus]
enumFrom = SessionLog'SessionStatus -> [SessionLog'SessionStatus]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: SessionLog'SessionStatus
-> SessionLog'SessionStatus -> [SessionLog'SessionStatus]
enumFromTo = SessionLog'SessionStatus
-> SessionLog'SessionStatus -> [SessionLog'SessionStatus]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: SessionLog'SessionStatus
-> SessionLog'SessionStatus -> [SessionLog'SessionStatus]
enumFromThen = SessionLog'SessionStatus
-> SessionLog'SessionStatus -> [SessionLog'SessionStatus]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: SessionLog'SessionStatus
-> SessionLog'SessionStatus
-> SessionLog'SessionStatus
-> [SessionLog'SessionStatus]
enumFromThenTo = SessionLog'SessionStatus
-> SessionLog'SessionStatus
-> SessionLog'SessionStatus
-> [SessionLog'SessionStatus]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault SessionLog'SessionStatus where
fieldDefault :: SessionLog'SessionStatus
fieldDefault = SessionLog'SessionStatus
SessionLog'STATUS_UNSPECIFIED
instance Control.DeepSeq.NFData SessionLog'SessionStatus where
rnf :: SessionLog'SessionStatus -> ()
rnf x__ :: SessionLog'SessionStatus
x__ = SessionLog'SessionStatus -> () -> ()
forall a b. a -> b -> b
Prelude.seq SessionLog'SessionStatus
x__ ()
data TaggedRunMetadata
= TaggedRunMetadata'_constructor {TaggedRunMetadata -> Text
_TaggedRunMetadata'tag :: !Data.Text.Text,
TaggedRunMetadata -> ByteString
_TaggedRunMetadata'runMetadata :: !Data.ByteString.ByteString,
TaggedRunMetadata -> FieldSet
_TaggedRunMetadata'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TaggedRunMetadata -> TaggedRunMetadata -> Bool
(TaggedRunMetadata -> TaggedRunMetadata -> Bool)
-> (TaggedRunMetadata -> TaggedRunMetadata -> Bool)
-> Eq TaggedRunMetadata
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TaggedRunMetadata -> TaggedRunMetadata -> Bool
$c/= :: TaggedRunMetadata -> TaggedRunMetadata -> Bool
== :: TaggedRunMetadata -> TaggedRunMetadata -> Bool
$c== :: TaggedRunMetadata -> TaggedRunMetadata -> Bool
Prelude.Eq, Eq TaggedRunMetadata
Eq TaggedRunMetadata =>
(TaggedRunMetadata -> TaggedRunMetadata -> Ordering)
-> (TaggedRunMetadata -> TaggedRunMetadata -> Bool)
-> (TaggedRunMetadata -> TaggedRunMetadata -> Bool)
-> (TaggedRunMetadata -> TaggedRunMetadata -> Bool)
-> (TaggedRunMetadata -> TaggedRunMetadata -> Bool)
-> (TaggedRunMetadata -> TaggedRunMetadata -> TaggedRunMetadata)
-> (TaggedRunMetadata -> TaggedRunMetadata -> TaggedRunMetadata)
-> Ord TaggedRunMetadata
TaggedRunMetadata -> TaggedRunMetadata -> Bool
TaggedRunMetadata -> TaggedRunMetadata -> Ordering
TaggedRunMetadata -> TaggedRunMetadata -> TaggedRunMetadata
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 :: TaggedRunMetadata -> TaggedRunMetadata -> TaggedRunMetadata
$cmin :: TaggedRunMetadata -> TaggedRunMetadata -> TaggedRunMetadata
max :: TaggedRunMetadata -> TaggedRunMetadata -> TaggedRunMetadata
$cmax :: TaggedRunMetadata -> TaggedRunMetadata -> TaggedRunMetadata
>= :: TaggedRunMetadata -> TaggedRunMetadata -> Bool
$c>= :: TaggedRunMetadata -> TaggedRunMetadata -> Bool
> :: TaggedRunMetadata -> TaggedRunMetadata -> Bool
$c> :: TaggedRunMetadata -> TaggedRunMetadata -> Bool
<= :: TaggedRunMetadata -> TaggedRunMetadata -> Bool
$c<= :: TaggedRunMetadata -> TaggedRunMetadata -> Bool
< :: TaggedRunMetadata -> TaggedRunMetadata -> Bool
$c< :: TaggedRunMetadata -> TaggedRunMetadata -> Bool
compare :: TaggedRunMetadata -> TaggedRunMetadata -> Ordering
$ccompare :: TaggedRunMetadata -> TaggedRunMetadata -> Ordering
$cp1Ord :: Eq TaggedRunMetadata
Prelude.Ord)
instance Prelude.Show TaggedRunMetadata where
showsPrec :: Int -> TaggedRunMetadata -> ShowS
showsPrec _ __x :: TaggedRunMetadata
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(TaggedRunMetadata -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TaggedRunMetadata
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TaggedRunMetadata "tag" Data.Text.Text where
fieldOf :: Proxy# "tag"
-> (Text -> f Text) -> TaggedRunMetadata -> f TaggedRunMetadata
fieldOf _
= ((Text -> f Text) -> TaggedRunMetadata -> f TaggedRunMetadata)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TaggedRunMetadata
-> f TaggedRunMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaggedRunMetadata -> Text)
-> (TaggedRunMetadata -> Text -> TaggedRunMetadata)
-> Lens TaggedRunMetadata TaggedRunMetadata Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaggedRunMetadata -> Text
_TaggedRunMetadata'tag
(\ x__ :: TaggedRunMetadata
x__ y__ :: Text
y__ -> TaggedRunMetadata
x__ {_TaggedRunMetadata'tag :: Text
_TaggedRunMetadata'tag = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaggedRunMetadata "runMetadata" Data.ByteString.ByteString where
fieldOf :: Proxy# "runMetadata"
-> (ByteString -> f ByteString)
-> TaggedRunMetadata
-> f TaggedRunMetadata
fieldOf _
= ((ByteString -> f ByteString)
-> TaggedRunMetadata -> f TaggedRunMetadata)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> TaggedRunMetadata
-> f TaggedRunMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaggedRunMetadata -> ByteString)
-> (TaggedRunMetadata -> ByteString -> TaggedRunMetadata)
-> Lens TaggedRunMetadata TaggedRunMetadata ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaggedRunMetadata -> ByteString
_TaggedRunMetadata'runMetadata
(\ x__ :: TaggedRunMetadata
x__ y__ :: ByteString
y__ -> TaggedRunMetadata
x__ {_TaggedRunMetadata'runMetadata :: ByteString
_TaggedRunMetadata'runMetadata = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TaggedRunMetadata where
messageName :: Proxy TaggedRunMetadata -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.TaggedRunMetadata"
packedMessageDescriptor :: Proxy TaggedRunMetadata -> ByteString
packedMessageDescriptor _
= "\n\
\\DC1TaggedRunMetadata\DC2\DLE\n\
\\ETXtag\CAN\SOH \SOH(\tR\ETXtag\DC2!\n\
\\frun_metadata\CAN\STX \SOH(\fR\vrunMetadata"
packedFileDescriptor :: Proxy TaggedRunMetadata -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TaggedRunMetadata)
fieldsByTag
= let
tag__field_descriptor :: FieldDescriptor TaggedRunMetadata
tag__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TaggedRunMetadata Text
-> FieldDescriptor TaggedRunMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tag"
(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 TaggedRunMetadata TaggedRunMetadata Text Text
-> FieldAccessor TaggedRunMetadata 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 "tag" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tag")) ::
Data.ProtoLens.FieldDescriptor TaggedRunMetadata
runMetadata__field_descriptor :: FieldDescriptor TaggedRunMetadata
runMetadata__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor TaggedRunMetadata ByteString
-> FieldDescriptor TaggedRunMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"run_metadata"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(WireDefault ByteString
-> Lens TaggedRunMetadata TaggedRunMetadata ByteString ByteString
-> FieldAccessor TaggedRunMetadata ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "runMetadata" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runMetadata")) ::
Data.ProtoLens.FieldDescriptor TaggedRunMetadata
in
[(Tag, FieldDescriptor TaggedRunMetadata)]
-> Map Tag (FieldDescriptor TaggedRunMetadata)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TaggedRunMetadata
tag__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor TaggedRunMetadata
runMetadata__field_descriptor)]
unknownFields :: LensLike' f TaggedRunMetadata FieldSet
unknownFields
= (TaggedRunMetadata -> FieldSet)
-> (TaggedRunMetadata -> FieldSet -> TaggedRunMetadata)
-> Lens' TaggedRunMetadata FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaggedRunMetadata -> FieldSet
_TaggedRunMetadata'_unknownFields
(\ x__ :: TaggedRunMetadata
x__ y__ :: FieldSet
y__ -> TaggedRunMetadata
x__ {_TaggedRunMetadata'_unknownFields :: FieldSet
_TaggedRunMetadata'_unknownFields = FieldSet
y__})
defMessage :: TaggedRunMetadata
defMessage
= $WTaggedRunMetadata'_constructor :: Text -> ByteString -> FieldSet -> TaggedRunMetadata
TaggedRunMetadata'_constructor
{_TaggedRunMetadata'tag :: Text
_TaggedRunMetadata'tag = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaggedRunMetadata'runMetadata :: ByteString
_TaggedRunMetadata'runMetadata = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaggedRunMetadata'_unknownFields :: FieldSet
_TaggedRunMetadata'_unknownFields = []}
parseMessage :: Parser TaggedRunMetadata
parseMessage
= let
loop ::
TaggedRunMetadata
-> Data.ProtoLens.Encoding.Bytes.Parser TaggedRunMetadata
loop :: TaggedRunMetadata -> Parser TaggedRunMetadata
loop x :: TaggedRunMetadata
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]))))
TaggedRunMetadata -> Parser TaggedRunMetadata
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter TaggedRunMetadata TaggedRunMetadata FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TaggedRunMetadata -> TaggedRunMetadata
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 TaggedRunMetadata TaggedRunMetadata FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TaggedRunMetadata
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))
"tag"
TaggedRunMetadata -> Parser TaggedRunMetadata
loop (Setter TaggedRunMetadata TaggedRunMetadata Text Text
-> Text -> TaggedRunMetadata -> TaggedRunMetadata
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "tag" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tag") Text
y TaggedRunMetadata
x)
18
-> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
"run_metadata"
TaggedRunMetadata -> Parser TaggedRunMetadata
loop
(Setter TaggedRunMetadata TaggedRunMetadata ByteString ByteString
-> ByteString -> TaggedRunMetadata -> TaggedRunMetadata
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "runMetadata" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runMetadata") ByteString
y TaggedRunMetadata
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
TaggedRunMetadata -> Parser TaggedRunMetadata
loop
(Setter TaggedRunMetadata TaggedRunMetadata FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TaggedRunMetadata -> TaggedRunMetadata
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 TaggedRunMetadata TaggedRunMetadata FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TaggedRunMetadata
x)
in
Parser TaggedRunMetadata -> String -> Parser TaggedRunMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TaggedRunMetadata -> Parser TaggedRunMetadata
loop TaggedRunMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "TaggedRunMetadata"
buildMessage :: TaggedRunMetadata -> Builder
buildMessage
= \ _x :: TaggedRunMetadata
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text TaggedRunMetadata TaggedRunMetadata Text Text
-> TaggedRunMetadata -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "tag" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tag") TaggedRunMetadata
_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 :: ByteString
_v
= FoldLike
ByteString
TaggedRunMetadata
TaggedRunMetadata
ByteString
ByteString
-> TaggedRunMetadata -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "runMetadata" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runMetadata") TaggedRunMetadata
_x
in
if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
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)
((\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ByteString
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet TaggedRunMetadata TaggedRunMetadata FieldSet FieldSet
-> TaggedRunMetadata -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet TaggedRunMetadata TaggedRunMetadata FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TaggedRunMetadata
_x)))
instance Control.DeepSeq.NFData TaggedRunMetadata where
rnf :: TaggedRunMetadata -> ()
rnf
= \ x__ :: TaggedRunMetadata
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaggedRunMetadata -> FieldSet
_TaggedRunMetadata'_unknownFields TaggedRunMetadata
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaggedRunMetadata -> Text
_TaggedRunMetadata'tag TaggedRunMetadata
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TaggedRunMetadata -> ByteString
_TaggedRunMetadata'runMetadata TaggedRunMetadata
x__) ()))
data WatchdogConfig
= WatchdogConfig'_constructor {WatchdogConfig -> Int64
_WatchdogConfig'timeoutMs :: !Data.Int.Int64,
WatchdogConfig -> FieldSet
_WatchdogConfig'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (WatchdogConfig -> WatchdogConfig -> Bool
(WatchdogConfig -> WatchdogConfig -> Bool)
-> (WatchdogConfig -> WatchdogConfig -> Bool) -> Eq WatchdogConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WatchdogConfig -> WatchdogConfig -> Bool
$c/= :: WatchdogConfig -> WatchdogConfig -> Bool
== :: WatchdogConfig -> WatchdogConfig -> Bool
$c== :: WatchdogConfig -> WatchdogConfig -> Bool
Prelude.Eq, Eq WatchdogConfig
Eq WatchdogConfig =>
(WatchdogConfig -> WatchdogConfig -> Ordering)
-> (WatchdogConfig -> WatchdogConfig -> Bool)
-> (WatchdogConfig -> WatchdogConfig -> Bool)
-> (WatchdogConfig -> WatchdogConfig -> Bool)
-> (WatchdogConfig -> WatchdogConfig -> Bool)
-> (WatchdogConfig -> WatchdogConfig -> WatchdogConfig)
-> (WatchdogConfig -> WatchdogConfig -> WatchdogConfig)
-> Ord WatchdogConfig
WatchdogConfig -> WatchdogConfig -> Bool
WatchdogConfig -> WatchdogConfig -> Ordering
WatchdogConfig -> WatchdogConfig -> WatchdogConfig
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 :: WatchdogConfig -> WatchdogConfig -> WatchdogConfig
$cmin :: WatchdogConfig -> WatchdogConfig -> WatchdogConfig
max :: WatchdogConfig -> WatchdogConfig -> WatchdogConfig
$cmax :: WatchdogConfig -> WatchdogConfig -> WatchdogConfig
>= :: WatchdogConfig -> WatchdogConfig -> Bool
$c>= :: WatchdogConfig -> WatchdogConfig -> Bool
> :: WatchdogConfig -> WatchdogConfig -> Bool
$c> :: WatchdogConfig -> WatchdogConfig -> Bool
<= :: WatchdogConfig -> WatchdogConfig -> Bool
$c<= :: WatchdogConfig -> WatchdogConfig -> Bool
< :: WatchdogConfig -> WatchdogConfig -> Bool
$c< :: WatchdogConfig -> WatchdogConfig -> Bool
compare :: WatchdogConfig -> WatchdogConfig -> Ordering
$ccompare :: WatchdogConfig -> WatchdogConfig -> Ordering
$cp1Ord :: Eq WatchdogConfig
Prelude.Ord)
instance Prelude.Show WatchdogConfig where
showsPrec :: Int -> WatchdogConfig -> ShowS
showsPrec _ __x :: WatchdogConfig
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(WatchdogConfig -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WatchdogConfig
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField WatchdogConfig "timeoutMs" Data.Int.Int64 where
fieldOf :: Proxy# "timeoutMs"
-> (Int64 -> f Int64) -> WatchdogConfig -> f WatchdogConfig
fieldOf _
= ((Int64 -> f Int64) -> WatchdogConfig -> f WatchdogConfig)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> WatchdogConfig
-> f WatchdogConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WatchdogConfig -> Int64)
-> (WatchdogConfig -> Int64 -> WatchdogConfig)
-> Lens WatchdogConfig WatchdogConfig Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WatchdogConfig -> Int64
_WatchdogConfig'timeoutMs
(\ x__ :: WatchdogConfig
x__ y__ :: Int64
y__ -> WatchdogConfig
x__ {_WatchdogConfig'timeoutMs :: Int64
_WatchdogConfig'timeoutMs = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WatchdogConfig where
messageName :: Proxy WatchdogConfig -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.WatchdogConfig"
packedMessageDescriptor :: Proxy WatchdogConfig -> ByteString
packedMessageDescriptor _
= "\n\
\\SOWatchdogConfig\DC2\GS\n\
\\n\
\timeout_ms\CAN\SOH \SOH(\ETXR\ttimeoutMs"
packedFileDescriptor :: Proxy WatchdogConfig -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor WatchdogConfig)
fieldsByTag
= let
timeoutMs__field_descriptor :: FieldDescriptor WatchdogConfig
timeoutMs__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor WatchdogConfig Int64
-> FieldDescriptor WatchdogConfig
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"timeout_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 WatchdogConfig WatchdogConfig Int64 Int64
-> FieldAccessor WatchdogConfig 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 "timeoutMs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeoutMs")) ::
Data.ProtoLens.FieldDescriptor WatchdogConfig
in
[(Tag, FieldDescriptor WatchdogConfig)]
-> Map Tag (FieldDescriptor WatchdogConfig)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor WatchdogConfig
timeoutMs__field_descriptor)]
unknownFields :: LensLike' f WatchdogConfig FieldSet
unknownFields
= (WatchdogConfig -> FieldSet)
-> (WatchdogConfig -> FieldSet -> WatchdogConfig)
-> Lens' WatchdogConfig FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WatchdogConfig -> FieldSet
_WatchdogConfig'_unknownFields
(\ x__ :: WatchdogConfig
x__ y__ :: FieldSet
y__ -> WatchdogConfig
x__ {_WatchdogConfig'_unknownFields :: FieldSet
_WatchdogConfig'_unknownFields = FieldSet
y__})
defMessage :: WatchdogConfig
defMessage
= $WWatchdogConfig'_constructor :: Int64 -> FieldSet -> WatchdogConfig
WatchdogConfig'_constructor
{_WatchdogConfig'timeoutMs :: Int64
_WatchdogConfig'timeoutMs = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_WatchdogConfig'_unknownFields :: FieldSet
_WatchdogConfig'_unknownFields = []}
parseMessage :: Parser WatchdogConfig
parseMessage
= let
loop ::
WatchdogConfig
-> Data.ProtoLens.Encoding.Bytes.Parser WatchdogConfig
loop :: WatchdogConfig -> Parser WatchdogConfig
loop x :: WatchdogConfig
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]))))
WatchdogConfig -> Parser WatchdogConfig
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter WatchdogConfig WatchdogConfig FieldSet FieldSet
-> (FieldSet -> FieldSet) -> WatchdogConfig -> WatchdogConfig
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 WatchdogConfig WatchdogConfig FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) WatchdogConfig
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)
"timeout_ms"
WatchdogConfig -> Parser WatchdogConfig
loop
(Setter WatchdogConfig WatchdogConfig Int64 Int64
-> Int64 -> WatchdogConfig -> WatchdogConfig
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "timeoutMs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeoutMs") Int64
y WatchdogConfig
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
WatchdogConfig -> Parser WatchdogConfig
loop
(Setter WatchdogConfig WatchdogConfig FieldSet FieldSet
-> (FieldSet -> FieldSet) -> WatchdogConfig -> WatchdogConfig
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 WatchdogConfig WatchdogConfig FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) WatchdogConfig
x)
in
Parser WatchdogConfig -> String -> Parser WatchdogConfig
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do WatchdogConfig -> Parser WatchdogConfig
loop WatchdogConfig
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "WatchdogConfig"
buildMessage :: WatchdogConfig -> Builder
buildMessage
= \ _x :: WatchdogConfig
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike Int64 WatchdogConfig WatchdogConfig Int64 Int64
-> WatchdogConfig -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "timeoutMs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeoutMs") WatchdogConfig
_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 WatchdogConfig WatchdogConfig FieldSet FieldSet
-> WatchdogConfig -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet WatchdogConfig WatchdogConfig FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields WatchdogConfig
_x))
instance Control.DeepSeq.NFData WatchdogConfig where
rnf :: WatchdogConfig -> ()
rnf
= \ x__ :: WatchdogConfig
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WatchdogConfig -> FieldSet
_WatchdogConfig'_unknownFields WatchdogConfig
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WatchdogConfig -> Int64
_WatchdogConfig'timeoutMs WatchdogConfig
x__) ())
newtype WorkerHealth'UnrecognizedValue
= WorkerHealth'UnrecognizedValue Data.Int.Int32
deriving stock (WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
(WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool)
-> (WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool)
-> Eq WorkerHealth'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
$c/= :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
== :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
$c== :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
Prelude.Eq, Eq WorkerHealth'UnrecognizedValue
Eq WorkerHealth'UnrecognizedValue =>
(WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Ordering)
-> (WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool)
-> (WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool)
-> (WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool)
-> (WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool)
-> (WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue)
-> (WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue)
-> Ord WorkerHealth'UnrecognizedValue
WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Ordering
WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> WorkerHealth'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 :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> WorkerHealth'UnrecognizedValue
$cmin :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> WorkerHealth'UnrecognizedValue
max :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> WorkerHealth'UnrecognizedValue
$cmax :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> WorkerHealth'UnrecognizedValue
>= :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
$c>= :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
> :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
$c> :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
<= :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
$c<= :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
< :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
$c< :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Bool
compare :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Ordering
$ccompare :: WorkerHealth'UnrecognizedValue
-> WorkerHealth'UnrecognizedValue -> Ordering
$cp1Ord :: Eq WorkerHealth'UnrecognizedValue
Prelude.Ord, Int -> WorkerHealth'UnrecognizedValue -> ShowS
[WorkerHealth'UnrecognizedValue] -> ShowS
WorkerHealth'UnrecognizedValue -> String
(Int -> WorkerHealth'UnrecognizedValue -> ShowS)
-> (WorkerHealth'UnrecognizedValue -> String)
-> ([WorkerHealth'UnrecognizedValue] -> ShowS)
-> Show WorkerHealth'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WorkerHealth'UnrecognizedValue] -> ShowS
$cshowList :: [WorkerHealth'UnrecognizedValue] -> ShowS
show :: WorkerHealth'UnrecognizedValue -> String
$cshow :: WorkerHealth'UnrecognizedValue -> String
showsPrec :: Int -> WorkerHealth'UnrecognizedValue -> ShowS
$cshowsPrec :: Int -> WorkerHealth'UnrecognizedValue -> ShowS
Prelude.Show)
data WorkerHealth
= OK |
RECEIVED_SHUTDOWN_SIGNAL |
INTERNAL_ERROR |
SHUTTING_DOWN |
WorkerHealth'Unrecognized !WorkerHealth'UnrecognizedValue
deriving stock (Int -> WorkerHealth -> ShowS
[WorkerHealth] -> ShowS
WorkerHealth -> String
(Int -> WorkerHealth -> ShowS)
-> (WorkerHealth -> String)
-> ([WorkerHealth] -> ShowS)
-> Show WorkerHealth
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WorkerHealth] -> ShowS
$cshowList :: [WorkerHealth] -> ShowS
show :: WorkerHealth -> String
$cshow :: WorkerHealth -> String
showsPrec :: Int -> WorkerHealth -> ShowS
$cshowsPrec :: Int -> WorkerHealth -> ShowS
Prelude.Show, WorkerHealth -> WorkerHealth -> Bool
(WorkerHealth -> WorkerHealth -> Bool)
-> (WorkerHealth -> WorkerHealth -> Bool) -> Eq WorkerHealth
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WorkerHealth -> WorkerHealth -> Bool
$c/= :: WorkerHealth -> WorkerHealth -> Bool
== :: WorkerHealth -> WorkerHealth -> Bool
$c== :: WorkerHealth -> WorkerHealth -> Bool
Prelude.Eq, Eq WorkerHealth
Eq WorkerHealth =>
(WorkerHealth -> WorkerHealth -> Ordering)
-> (WorkerHealth -> WorkerHealth -> Bool)
-> (WorkerHealth -> WorkerHealth -> Bool)
-> (WorkerHealth -> WorkerHealth -> Bool)
-> (WorkerHealth -> WorkerHealth -> Bool)
-> (WorkerHealth -> WorkerHealth -> WorkerHealth)
-> (WorkerHealth -> WorkerHealth -> WorkerHealth)
-> Ord WorkerHealth
WorkerHealth -> WorkerHealth -> Bool
WorkerHealth -> WorkerHealth -> Ordering
WorkerHealth -> WorkerHealth -> WorkerHealth
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 :: WorkerHealth -> WorkerHealth -> WorkerHealth
$cmin :: WorkerHealth -> WorkerHealth -> WorkerHealth
max :: WorkerHealth -> WorkerHealth -> WorkerHealth
$cmax :: WorkerHealth -> WorkerHealth -> WorkerHealth
>= :: WorkerHealth -> WorkerHealth -> Bool
$c>= :: WorkerHealth -> WorkerHealth -> Bool
> :: WorkerHealth -> WorkerHealth -> Bool
$c> :: WorkerHealth -> WorkerHealth -> Bool
<= :: WorkerHealth -> WorkerHealth -> Bool
$c<= :: WorkerHealth -> WorkerHealth -> Bool
< :: WorkerHealth -> WorkerHealth -> Bool
$c< :: WorkerHealth -> WorkerHealth -> Bool
compare :: WorkerHealth -> WorkerHealth -> Ordering
$ccompare :: WorkerHealth -> WorkerHealth -> Ordering
$cp1Ord :: Eq WorkerHealth
Prelude.Ord)
instance Data.ProtoLens.MessageEnum WorkerHealth where
maybeToEnum :: Int -> Maybe WorkerHealth
maybeToEnum 0 = WorkerHealth -> Maybe WorkerHealth
forall a. a -> Maybe a
Prelude.Just WorkerHealth
OK
maybeToEnum 1 = WorkerHealth -> Maybe WorkerHealth
forall a. a -> Maybe a
Prelude.Just WorkerHealth
RECEIVED_SHUTDOWN_SIGNAL
maybeToEnum 2 = WorkerHealth -> Maybe WorkerHealth
forall a. a -> Maybe a
Prelude.Just WorkerHealth
INTERNAL_ERROR
maybeToEnum 3 = WorkerHealth -> Maybe WorkerHealth
forall a. a -> Maybe a
Prelude.Just WorkerHealth
SHUTTING_DOWN
maybeToEnum k :: Int
k
= WorkerHealth -> Maybe WorkerHealth
forall a. a -> Maybe a
Prelude.Just
(WorkerHealth'UnrecognizedValue -> WorkerHealth
WorkerHealth'Unrecognized
(Int32 -> WorkerHealth'UnrecognizedValue
WorkerHealth'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: WorkerHealth -> String
showEnum OK = "OK"
showEnum RECEIVED_SHUTDOWN_SIGNAL = "RECEIVED_SHUTDOWN_SIGNAL"
showEnum INTERNAL_ERROR = "INTERNAL_ERROR"
showEnum SHUTTING_DOWN = "SHUTTING_DOWN"
showEnum
(WorkerHealth'Unrecognized (WorkerHealth'UnrecognizedValue k :: Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe WorkerHealth
readEnum k :: String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "OK" = WorkerHealth -> Maybe WorkerHealth
forall a. a -> Maybe a
Prelude.Just WorkerHealth
OK
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "RECEIVED_SHUTDOWN_SIGNAL"
= WorkerHealth -> Maybe WorkerHealth
forall a. a -> Maybe a
Prelude.Just WorkerHealth
RECEIVED_SHUTDOWN_SIGNAL
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "INTERNAL_ERROR" = WorkerHealth -> Maybe WorkerHealth
forall a. a -> Maybe a
Prelude.Just WorkerHealth
INTERNAL_ERROR
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "SHUTTING_DOWN" = WorkerHealth -> Maybe WorkerHealth
forall a. a -> Maybe a
Prelude.Just WorkerHealth
SHUTTING_DOWN
| Bool
Prelude.otherwise
= Maybe Int -> (Int -> Maybe WorkerHealth) -> Maybe WorkerHealth
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 WorkerHealth
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded WorkerHealth where
minBound :: WorkerHealth
minBound = WorkerHealth
OK
maxBound :: WorkerHealth
maxBound = WorkerHealth
SHUTTING_DOWN
instance Prelude.Enum WorkerHealth where
toEnum :: Int -> WorkerHealth
toEnum k__ :: Int
k__
= WorkerHealth
-> (WorkerHealth -> WorkerHealth)
-> Maybe WorkerHealth
-> WorkerHealth
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> WorkerHealth
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
"toEnum: unknown value for enum WorkerHealth: "
(Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
WorkerHealth -> WorkerHealth
forall a. a -> a
Prelude.id
(Int -> Maybe WorkerHealth
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: WorkerHealth -> Int
fromEnum OK = 0
fromEnum RECEIVED_SHUTDOWN_SIGNAL = 1
fromEnum INTERNAL_ERROR = 2
fromEnum SHUTTING_DOWN = 3
fromEnum
(WorkerHealth'Unrecognized (WorkerHealth'UnrecognizedValue k :: Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: WorkerHealth -> WorkerHealth
succ SHUTTING_DOWN
= String -> WorkerHealth
forall a. HasCallStack => String -> a
Prelude.error
"WorkerHealth.succ: bad argument SHUTTING_DOWN. This value would be out of bounds."
succ OK = WorkerHealth
RECEIVED_SHUTDOWN_SIGNAL
succ RECEIVED_SHUTDOWN_SIGNAL = WorkerHealth
INTERNAL_ERROR
succ INTERNAL_ERROR = WorkerHealth
SHUTTING_DOWN
succ (WorkerHealth'Unrecognized _)
= String -> WorkerHealth
forall a. HasCallStack => String -> a
Prelude.error
"WorkerHealth.succ: bad argument: unrecognized value"
pred :: WorkerHealth -> WorkerHealth
pred OK
= String -> WorkerHealth
forall a. HasCallStack => String -> a
Prelude.error
"WorkerHealth.pred: bad argument OK. This value would be out of bounds."
pred RECEIVED_SHUTDOWN_SIGNAL = WorkerHealth
OK
pred INTERNAL_ERROR = WorkerHealth
RECEIVED_SHUTDOWN_SIGNAL
pred SHUTTING_DOWN = WorkerHealth
INTERNAL_ERROR
pred (WorkerHealth'Unrecognized _)
= String -> WorkerHealth
forall a. HasCallStack => String -> a
Prelude.error
"WorkerHealth.pred: bad argument: unrecognized value"
enumFrom :: WorkerHealth -> [WorkerHealth]
enumFrom = WorkerHealth -> [WorkerHealth]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: WorkerHealth -> WorkerHealth -> [WorkerHealth]
enumFromTo = WorkerHealth -> WorkerHealth -> [WorkerHealth]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: WorkerHealth -> WorkerHealth -> [WorkerHealth]
enumFromThen = WorkerHealth -> WorkerHealth -> [WorkerHealth]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: WorkerHealth -> WorkerHealth -> WorkerHealth -> [WorkerHealth]
enumFromThenTo = WorkerHealth -> WorkerHealth -> WorkerHealth -> [WorkerHealth]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault WorkerHealth where
fieldDefault :: WorkerHealth
fieldDefault = WorkerHealth
OK
instance Control.DeepSeq.NFData WorkerHealth where
rnf :: WorkerHealth -> ()
rnf x__ :: WorkerHealth
x__ = WorkerHealth -> () -> ()
forall a b. a -> b -> b
Prelude.seq WorkerHealth
x__ ()
data WorkerHeartbeatRequest
= WorkerHeartbeatRequest'_constructor {WorkerHeartbeatRequest -> WorkerShutdownMode
_WorkerHeartbeatRequest'shutdownMode :: !WorkerShutdownMode,
WorkerHeartbeatRequest -> Maybe WatchdogConfig
_WorkerHeartbeatRequest'watchdogConfig :: !(Prelude.Maybe WatchdogConfig),
WorkerHeartbeatRequest -> Maybe RequestedExitCode
_WorkerHeartbeatRequest'exitCode :: !(Prelude.Maybe RequestedExitCode),
WorkerHeartbeatRequest -> FieldSet
_WorkerHeartbeatRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
(WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool)
-> (WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool)
-> Eq WorkerHeartbeatRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
$c/= :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
== :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
$c== :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
Prelude.Eq, Eq WorkerHeartbeatRequest
Eq WorkerHeartbeatRequest =>
(WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Ordering)
-> (WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool)
-> (WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool)
-> (WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool)
-> (WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool)
-> (WorkerHeartbeatRequest
-> WorkerHeartbeatRequest -> WorkerHeartbeatRequest)
-> (WorkerHeartbeatRequest
-> WorkerHeartbeatRequest -> WorkerHeartbeatRequest)
-> Ord WorkerHeartbeatRequest
WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Ordering
WorkerHeartbeatRequest
-> WorkerHeartbeatRequest -> WorkerHeartbeatRequest
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 :: WorkerHeartbeatRequest
-> WorkerHeartbeatRequest -> WorkerHeartbeatRequest
$cmin :: WorkerHeartbeatRequest
-> WorkerHeartbeatRequest -> WorkerHeartbeatRequest
max :: WorkerHeartbeatRequest
-> WorkerHeartbeatRequest -> WorkerHeartbeatRequest
$cmax :: WorkerHeartbeatRequest
-> WorkerHeartbeatRequest -> WorkerHeartbeatRequest
>= :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
$c>= :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
> :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
$c> :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
<= :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
$c<= :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
< :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
$c< :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Bool
compare :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Ordering
$ccompare :: WorkerHeartbeatRequest -> WorkerHeartbeatRequest -> Ordering
$cp1Ord :: Eq WorkerHeartbeatRequest
Prelude.Ord)
instance Prelude.Show WorkerHeartbeatRequest where
showsPrec :: Int -> WorkerHeartbeatRequest -> ShowS
showsPrec _ __x :: WorkerHeartbeatRequest
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(WorkerHeartbeatRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkerHeartbeatRequest
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField WorkerHeartbeatRequest "shutdownMode" WorkerShutdownMode where
fieldOf :: Proxy# "shutdownMode"
-> (WorkerShutdownMode -> f WorkerShutdownMode)
-> WorkerHeartbeatRequest
-> f WorkerHeartbeatRequest
fieldOf _
= ((WorkerShutdownMode -> f WorkerShutdownMode)
-> WorkerHeartbeatRequest -> f WorkerHeartbeatRequest)
-> ((WorkerShutdownMode -> f WorkerShutdownMode)
-> WorkerShutdownMode -> f WorkerShutdownMode)
-> (WorkerShutdownMode -> f WorkerShutdownMode)
-> WorkerHeartbeatRequest
-> f WorkerHeartbeatRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerHeartbeatRequest -> WorkerShutdownMode)
-> (WorkerHeartbeatRequest
-> WorkerShutdownMode -> WorkerHeartbeatRequest)
-> Lens
WorkerHeartbeatRequest
WorkerHeartbeatRequest
WorkerShutdownMode
WorkerShutdownMode
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerHeartbeatRequest -> WorkerShutdownMode
_WorkerHeartbeatRequest'shutdownMode
(\ x__ :: WorkerHeartbeatRequest
x__ y__ :: WorkerShutdownMode
y__ -> WorkerHeartbeatRequest
x__ {_WorkerHeartbeatRequest'shutdownMode :: WorkerShutdownMode
_WorkerHeartbeatRequest'shutdownMode = WorkerShutdownMode
y__}))
(WorkerShutdownMode -> f WorkerShutdownMode)
-> WorkerShutdownMode -> f WorkerShutdownMode
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkerHeartbeatRequest "watchdogConfig" WatchdogConfig where
fieldOf :: Proxy# "watchdogConfig"
-> (WatchdogConfig -> f WatchdogConfig)
-> WorkerHeartbeatRequest
-> f WorkerHeartbeatRequest
fieldOf _
= ((Maybe WatchdogConfig -> f (Maybe WatchdogConfig))
-> WorkerHeartbeatRequest -> f WorkerHeartbeatRequest)
-> ((WatchdogConfig -> f WatchdogConfig)
-> Maybe WatchdogConfig -> f (Maybe WatchdogConfig))
-> (WatchdogConfig -> f WatchdogConfig)
-> WorkerHeartbeatRequest
-> f WorkerHeartbeatRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerHeartbeatRequest -> Maybe WatchdogConfig)
-> (WorkerHeartbeatRequest
-> Maybe WatchdogConfig -> WorkerHeartbeatRequest)
-> Lens
WorkerHeartbeatRequest
WorkerHeartbeatRequest
(Maybe WatchdogConfig)
(Maybe WatchdogConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerHeartbeatRequest -> Maybe WatchdogConfig
_WorkerHeartbeatRequest'watchdogConfig
(\ x__ :: WorkerHeartbeatRequest
x__ y__ :: Maybe WatchdogConfig
y__ -> WorkerHeartbeatRequest
x__ {_WorkerHeartbeatRequest'watchdogConfig :: Maybe WatchdogConfig
_WorkerHeartbeatRequest'watchdogConfig = Maybe WatchdogConfig
y__}))
(WatchdogConfig -> Lens' (Maybe WatchdogConfig) WatchdogConfig
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WatchdogConfig
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField WorkerHeartbeatRequest "maybe'watchdogConfig" (Prelude.Maybe WatchdogConfig) where
fieldOf :: Proxy# "maybe'watchdogConfig"
-> (Maybe WatchdogConfig -> f (Maybe WatchdogConfig))
-> WorkerHeartbeatRequest
-> f WorkerHeartbeatRequest
fieldOf _
= ((Maybe WatchdogConfig -> f (Maybe WatchdogConfig))
-> WorkerHeartbeatRequest -> f WorkerHeartbeatRequest)
-> ((Maybe WatchdogConfig -> f (Maybe WatchdogConfig))
-> Maybe WatchdogConfig -> f (Maybe WatchdogConfig))
-> (Maybe WatchdogConfig -> f (Maybe WatchdogConfig))
-> WorkerHeartbeatRequest
-> f WorkerHeartbeatRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerHeartbeatRequest -> Maybe WatchdogConfig)
-> (WorkerHeartbeatRequest
-> Maybe WatchdogConfig -> WorkerHeartbeatRequest)
-> Lens
WorkerHeartbeatRequest
WorkerHeartbeatRequest
(Maybe WatchdogConfig)
(Maybe WatchdogConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerHeartbeatRequest -> Maybe WatchdogConfig
_WorkerHeartbeatRequest'watchdogConfig
(\ x__ :: WorkerHeartbeatRequest
x__ y__ :: Maybe WatchdogConfig
y__ -> WorkerHeartbeatRequest
x__ {_WorkerHeartbeatRequest'watchdogConfig :: Maybe WatchdogConfig
_WorkerHeartbeatRequest'watchdogConfig = Maybe WatchdogConfig
y__}))
(Maybe WatchdogConfig -> f (Maybe WatchdogConfig))
-> Maybe WatchdogConfig -> f (Maybe WatchdogConfig)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkerHeartbeatRequest "exitCode" RequestedExitCode where
fieldOf :: Proxy# "exitCode"
-> (RequestedExitCode -> f RequestedExitCode)
-> WorkerHeartbeatRequest
-> f WorkerHeartbeatRequest
fieldOf _
= ((Maybe RequestedExitCode -> f (Maybe RequestedExitCode))
-> WorkerHeartbeatRequest -> f WorkerHeartbeatRequest)
-> ((RequestedExitCode -> f RequestedExitCode)
-> Maybe RequestedExitCode -> f (Maybe RequestedExitCode))
-> (RequestedExitCode -> f RequestedExitCode)
-> WorkerHeartbeatRequest
-> f WorkerHeartbeatRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerHeartbeatRequest -> Maybe RequestedExitCode)
-> (WorkerHeartbeatRequest
-> Maybe RequestedExitCode -> WorkerHeartbeatRequest)
-> Lens
WorkerHeartbeatRequest
WorkerHeartbeatRequest
(Maybe RequestedExitCode)
(Maybe RequestedExitCode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerHeartbeatRequest -> Maybe RequestedExitCode
_WorkerHeartbeatRequest'exitCode
(\ x__ :: WorkerHeartbeatRequest
x__ y__ :: Maybe RequestedExitCode
y__ -> WorkerHeartbeatRequest
x__ {_WorkerHeartbeatRequest'exitCode :: Maybe RequestedExitCode
_WorkerHeartbeatRequest'exitCode = Maybe RequestedExitCode
y__}))
(RequestedExitCode
-> Lens' (Maybe RequestedExitCode) RequestedExitCode
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RequestedExitCode
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField WorkerHeartbeatRequest "maybe'exitCode" (Prelude.Maybe RequestedExitCode) where
fieldOf :: Proxy# "maybe'exitCode"
-> (Maybe RequestedExitCode -> f (Maybe RequestedExitCode))
-> WorkerHeartbeatRequest
-> f WorkerHeartbeatRequest
fieldOf _
= ((Maybe RequestedExitCode -> f (Maybe RequestedExitCode))
-> WorkerHeartbeatRequest -> f WorkerHeartbeatRequest)
-> ((Maybe RequestedExitCode -> f (Maybe RequestedExitCode))
-> Maybe RequestedExitCode -> f (Maybe RequestedExitCode))
-> (Maybe RequestedExitCode -> f (Maybe RequestedExitCode))
-> WorkerHeartbeatRequest
-> f WorkerHeartbeatRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerHeartbeatRequest -> Maybe RequestedExitCode)
-> (WorkerHeartbeatRequest
-> Maybe RequestedExitCode -> WorkerHeartbeatRequest)
-> Lens
WorkerHeartbeatRequest
WorkerHeartbeatRequest
(Maybe RequestedExitCode)
(Maybe RequestedExitCode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerHeartbeatRequest -> Maybe RequestedExitCode
_WorkerHeartbeatRequest'exitCode
(\ x__ :: WorkerHeartbeatRequest
x__ y__ :: Maybe RequestedExitCode
y__ -> WorkerHeartbeatRequest
x__ {_WorkerHeartbeatRequest'exitCode :: Maybe RequestedExitCode
_WorkerHeartbeatRequest'exitCode = Maybe RequestedExitCode
y__}))
(Maybe RequestedExitCode -> f (Maybe RequestedExitCode))
-> Maybe RequestedExitCode -> f (Maybe RequestedExitCode)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkerHeartbeatRequest where
messageName :: Proxy WorkerHeartbeatRequest -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.WorkerHeartbeatRequest"
packedMessageDescriptor :: Proxy WorkerHeartbeatRequest -> ByteString
packedMessageDescriptor _
= "\n\
\\SYNWorkerHeartbeatRequest\DC2C\n\
\\rshutdown_mode\CAN\SOH \SOH(\SO2\RS.tensorflow.WorkerShutdownModeR\fshutdownMode\DC2C\n\
\\SIwatchdog_config\CAN\STX \SOH(\v2\SUB.tensorflow.WatchdogConfigR\SOwatchdogConfig\DC2:\n\
\\texit_code\CAN\ETX \SOH(\v2\GS.tensorflow.RequestedExitCodeR\bexitCode"
packedFileDescriptor :: Proxy WorkerHeartbeatRequest -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor WorkerHeartbeatRequest)
fieldsByTag
= let
shutdownMode__field_descriptor :: FieldDescriptor WorkerHeartbeatRequest
shutdownMode__field_descriptor
= String
-> FieldTypeDescriptor WorkerShutdownMode
-> FieldAccessor WorkerHeartbeatRequest WorkerShutdownMode
-> FieldDescriptor WorkerHeartbeatRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"shutdown_mode"
(ScalarField WorkerShutdownMode
-> FieldTypeDescriptor WorkerShutdownMode
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField WorkerShutdownMode
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor WorkerShutdownMode)
(WireDefault WorkerShutdownMode
-> Lens
WorkerHeartbeatRequest
WorkerHeartbeatRequest
WorkerShutdownMode
WorkerShutdownMode
-> FieldAccessor WorkerHeartbeatRequest WorkerShutdownMode
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault WorkerShutdownMode
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "shutdownMode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shutdownMode")) ::
Data.ProtoLens.FieldDescriptor WorkerHeartbeatRequest
watchdogConfig__field_descriptor :: FieldDescriptor WorkerHeartbeatRequest
watchdogConfig__field_descriptor
= String
-> FieldTypeDescriptor WatchdogConfig
-> FieldAccessor WorkerHeartbeatRequest WatchdogConfig
-> FieldDescriptor WorkerHeartbeatRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"watchdog_config"
(MessageOrGroup -> FieldTypeDescriptor WatchdogConfig
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor WatchdogConfig)
(Lens
WorkerHeartbeatRequest
WorkerHeartbeatRequest
(Maybe WatchdogConfig)
(Maybe WatchdogConfig)
-> FieldAccessor WorkerHeartbeatRequest WatchdogConfig
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'watchdogConfig" a, Functor f) =>
(a -> f a) -> s -> 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'watchdogConfig")) ::
Data.ProtoLens.FieldDescriptor WorkerHeartbeatRequest
exitCode__field_descriptor :: FieldDescriptor WorkerHeartbeatRequest
exitCode__field_descriptor
= String
-> FieldTypeDescriptor RequestedExitCode
-> FieldAccessor WorkerHeartbeatRequest RequestedExitCode
-> FieldDescriptor WorkerHeartbeatRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"exit_code"
(MessageOrGroup -> FieldTypeDescriptor RequestedExitCode
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RequestedExitCode)
(Lens
WorkerHeartbeatRequest
WorkerHeartbeatRequest
(Maybe RequestedExitCode)
(Maybe RequestedExitCode)
-> FieldAccessor WorkerHeartbeatRequest RequestedExitCode
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'exitCode" a, Functor f) =>
(a -> f a) -> s -> 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'exitCode")) ::
Data.ProtoLens.FieldDescriptor WorkerHeartbeatRequest
in
[(Tag, FieldDescriptor WorkerHeartbeatRequest)]
-> Map Tag (FieldDescriptor WorkerHeartbeatRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor WorkerHeartbeatRequest
shutdownMode__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor WorkerHeartbeatRequest
watchdogConfig__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor WorkerHeartbeatRequest
exitCode__field_descriptor)]
unknownFields :: LensLike' f WorkerHeartbeatRequest FieldSet
unknownFields
= (WorkerHeartbeatRequest -> FieldSet)
-> (WorkerHeartbeatRequest -> FieldSet -> WorkerHeartbeatRequest)
-> Lens' WorkerHeartbeatRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerHeartbeatRequest -> FieldSet
_WorkerHeartbeatRequest'_unknownFields
(\ x__ :: WorkerHeartbeatRequest
x__ y__ :: FieldSet
y__ -> WorkerHeartbeatRequest
x__ {_WorkerHeartbeatRequest'_unknownFields :: FieldSet
_WorkerHeartbeatRequest'_unknownFields = FieldSet
y__})
defMessage :: WorkerHeartbeatRequest
defMessage
= $WWorkerHeartbeatRequest'_constructor :: WorkerShutdownMode
-> Maybe WatchdogConfig
-> Maybe RequestedExitCode
-> FieldSet
-> WorkerHeartbeatRequest
WorkerHeartbeatRequest'_constructor
{_WorkerHeartbeatRequest'shutdownMode :: WorkerShutdownMode
_WorkerHeartbeatRequest'shutdownMode = WorkerShutdownMode
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_WorkerHeartbeatRequest'watchdogConfig :: Maybe WatchdogConfig
_WorkerHeartbeatRequest'watchdogConfig = Maybe WatchdogConfig
forall a. Maybe a
Prelude.Nothing,
_WorkerHeartbeatRequest'exitCode :: Maybe RequestedExitCode
_WorkerHeartbeatRequest'exitCode = Maybe RequestedExitCode
forall a. Maybe a
Prelude.Nothing,
_WorkerHeartbeatRequest'_unknownFields :: FieldSet
_WorkerHeartbeatRequest'_unknownFields = []}
parseMessage :: Parser WorkerHeartbeatRequest
parseMessage
= let
loop ::
WorkerHeartbeatRequest
-> Data.ProtoLens.Encoding.Bytes.Parser WorkerHeartbeatRequest
loop :: WorkerHeartbeatRequest -> Parser WorkerHeartbeatRequest
loop x :: WorkerHeartbeatRequest
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]))))
WorkerHeartbeatRequest -> Parser WorkerHeartbeatRequest
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
WorkerHeartbeatRequest WorkerHeartbeatRequest FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> WorkerHeartbeatRequest
-> WorkerHeartbeatRequest
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
WorkerHeartbeatRequest WorkerHeartbeatRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) WorkerHeartbeatRequest
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do WorkerShutdownMode
y <- Parser WorkerShutdownMode -> String -> Parser WorkerShutdownMode
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> WorkerShutdownMode)
-> Parser Int -> Parser WorkerShutdownMode
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> WorkerShutdownMode
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))
"shutdown_mode"
WorkerHeartbeatRequest -> Parser WorkerHeartbeatRequest
loop
(Setter
WorkerHeartbeatRequest
WorkerHeartbeatRequest
WorkerShutdownMode
WorkerShutdownMode
-> WorkerShutdownMode
-> WorkerHeartbeatRequest
-> WorkerHeartbeatRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "shutdownMode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shutdownMode") WorkerShutdownMode
y WorkerHeartbeatRequest
x)
18
-> do WatchdogConfig
y <- Parser WatchdogConfig -> String -> Parser WatchdogConfig
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser WatchdogConfig -> Parser WatchdogConfig
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 WatchdogConfig
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"watchdog_config"
WorkerHeartbeatRequest -> Parser WorkerHeartbeatRequest
loop
(Setter
WorkerHeartbeatRequest
WorkerHeartbeatRequest
WatchdogConfig
WatchdogConfig
-> WatchdogConfig
-> WorkerHeartbeatRequest
-> WorkerHeartbeatRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "watchdogConfig" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"watchdogConfig") WatchdogConfig
y WorkerHeartbeatRequest
x)
26
-> do RequestedExitCode
y <- Parser RequestedExitCode -> String -> Parser RequestedExitCode
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser RequestedExitCode -> Parser RequestedExitCode
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 RequestedExitCode
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"exit_code"
WorkerHeartbeatRequest -> Parser WorkerHeartbeatRequest
loop
(Setter
WorkerHeartbeatRequest
WorkerHeartbeatRequest
RequestedExitCode
RequestedExitCode
-> RequestedExitCode
-> WorkerHeartbeatRequest
-> WorkerHeartbeatRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "exitCode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"exitCode") RequestedExitCode
y WorkerHeartbeatRequest
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
WorkerHeartbeatRequest -> Parser WorkerHeartbeatRequest
loop
(Setter
WorkerHeartbeatRequest WorkerHeartbeatRequest FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> WorkerHeartbeatRequest
-> WorkerHeartbeatRequest
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
WorkerHeartbeatRequest WorkerHeartbeatRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) WorkerHeartbeatRequest
x)
in
Parser WorkerHeartbeatRequest
-> String -> Parser WorkerHeartbeatRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do WorkerHeartbeatRequest -> Parser WorkerHeartbeatRequest
loop WorkerHeartbeatRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "WorkerHeartbeatRequest"
buildMessage :: WorkerHeartbeatRequest -> Builder
buildMessage
= \ _x :: WorkerHeartbeatRequest
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: WorkerShutdownMode
_v
= FoldLike
WorkerShutdownMode
WorkerHeartbeatRequest
WorkerHeartbeatRequest
WorkerShutdownMode
WorkerShutdownMode
-> WorkerHeartbeatRequest -> WorkerShutdownMode
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "shutdownMode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shutdownMode") WorkerHeartbeatRequest
_x
in
if WorkerShutdownMode -> WorkerShutdownMode -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) WorkerShutdownMode
_v WorkerShutdownMode
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)
-> (WorkerShutdownMode -> Int) -> WorkerShutdownMode -> 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)
WorkerShutdownMode -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
WorkerShutdownMode
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe WatchdogConfig)
WorkerHeartbeatRequest
WorkerHeartbeatRequest
(Maybe WatchdogConfig)
(Maybe WatchdogConfig)
-> WorkerHeartbeatRequest -> Maybe WatchdogConfig
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'watchdogConfig" a, Functor f) =>
(a -> f a) -> s -> 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'watchdogConfig") WorkerHeartbeatRequest
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: WatchdogConfig
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (WatchdogConfig -> ByteString) -> WatchdogConfig -> 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))
WatchdogConfig -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
WatchdogConfig
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe RequestedExitCode)
WorkerHeartbeatRequest
WorkerHeartbeatRequest
(Maybe RequestedExitCode)
(Maybe RequestedExitCode)
-> WorkerHeartbeatRequest -> Maybe RequestedExitCode
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'exitCode" a, Functor f) =>
(a -> f a) -> s -> 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'exitCode") WorkerHeartbeatRequest
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: RequestedExitCode
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (RequestedExitCode -> ByteString)
-> RequestedExitCode
-> 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))
RequestedExitCode -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
RequestedExitCode
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
WorkerHeartbeatRequest
WorkerHeartbeatRequest
FieldSet
FieldSet
-> WorkerHeartbeatRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
WorkerHeartbeatRequest
WorkerHeartbeatRequest
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields WorkerHeartbeatRequest
_x))))
instance Control.DeepSeq.NFData WorkerHeartbeatRequest where
rnf :: WorkerHeartbeatRequest -> ()
rnf
= \ x__ :: WorkerHeartbeatRequest
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerHeartbeatRequest -> FieldSet
_WorkerHeartbeatRequest'_unknownFields WorkerHeartbeatRequest
x__)
(WorkerShutdownMode -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerHeartbeatRequest -> WorkerShutdownMode
_WorkerHeartbeatRequest'shutdownMode WorkerHeartbeatRequest
x__)
(Maybe WatchdogConfig -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerHeartbeatRequest -> Maybe WatchdogConfig
_WorkerHeartbeatRequest'watchdogConfig WorkerHeartbeatRequest
x__)
(Maybe RequestedExitCode -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerHeartbeatRequest -> Maybe RequestedExitCode
_WorkerHeartbeatRequest'exitCode WorkerHeartbeatRequest
x__) ())))
data WorkerHeartbeatResponse
= WorkerHeartbeatResponse'_constructor {WorkerHeartbeatResponse -> WorkerHealth
_WorkerHeartbeatResponse'healthStatus :: !WorkerHealth,
WorkerHeartbeatResponse -> Vector Event
_WorkerHeartbeatResponse'workerLog :: !(Data.Vector.Vector Event),
WorkerHeartbeatResponse -> Text
_WorkerHeartbeatResponse'hostname :: !Data.Text.Text,
WorkerHeartbeatResponse -> FieldSet
_WorkerHeartbeatResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
(WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool)
-> (WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool)
-> Eq WorkerHeartbeatResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
$c/= :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
== :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
$c== :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
Prelude.Eq, Eq WorkerHeartbeatResponse
Eq WorkerHeartbeatResponse =>
(WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Ordering)
-> (WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool)
-> (WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool)
-> (WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool)
-> (WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool)
-> (WorkerHeartbeatResponse
-> WorkerHeartbeatResponse -> WorkerHeartbeatResponse)
-> (WorkerHeartbeatResponse
-> WorkerHeartbeatResponse -> WorkerHeartbeatResponse)
-> Ord WorkerHeartbeatResponse
WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Ordering
WorkerHeartbeatResponse
-> WorkerHeartbeatResponse -> WorkerHeartbeatResponse
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 :: WorkerHeartbeatResponse
-> WorkerHeartbeatResponse -> WorkerHeartbeatResponse
$cmin :: WorkerHeartbeatResponse
-> WorkerHeartbeatResponse -> WorkerHeartbeatResponse
max :: WorkerHeartbeatResponse
-> WorkerHeartbeatResponse -> WorkerHeartbeatResponse
$cmax :: WorkerHeartbeatResponse
-> WorkerHeartbeatResponse -> WorkerHeartbeatResponse
>= :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
$c>= :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
> :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
$c> :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
<= :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
$c<= :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
< :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
$c< :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Bool
compare :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Ordering
$ccompare :: WorkerHeartbeatResponse -> WorkerHeartbeatResponse -> Ordering
$cp1Ord :: Eq WorkerHeartbeatResponse
Prelude.Ord)
instance Prelude.Show WorkerHeartbeatResponse where
showsPrec :: Int -> WorkerHeartbeatResponse -> ShowS
showsPrec _ __x :: WorkerHeartbeatResponse
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(WorkerHeartbeatResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkerHeartbeatResponse
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField WorkerHeartbeatResponse "healthStatus" WorkerHealth where
fieldOf :: Proxy# "healthStatus"
-> (WorkerHealth -> f WorkerHealth)
-> WorkerHeartbeatResponse
-> f WorkerHeartbeatResponse
fieldOf _
= ((WorkerHealth -> f WorkerHealth)
-> WorkerHeartbeatResponse -> f WorkerHeartbeatResponse)
-> ((WorkerHealth -> f WorkerHealth)
-> WorkerHealth -> f WorkerHealth)
-> (WorkerHealth -> f WorkerHealth)
-> WorkerHeartbeatResponse
-> f WorkerHeartbeatResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerHeartbeatResponse -> WorkerHealth)
-> (WorkerHeartbeatResponse
-> WorkerHealth -> WorkerHeartbeatResponse)
-> Lens
WorkerHeartbeatResponse
WorkerHeartbeatResponse
WorkerHealth
WorkerHealth
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerHeartbeatResponse -> WorkerHealth
_WorkerHeartbeatResponse'healthStatus
(\ x__ :: WorkerHeartbeatResponse
x__ y__ :: WorkerHealth
y__ -> WorkerHeartbeatResponse
x__ {_WorkerHeartbeatResponse'healthStatus :: WorkerHealth
_WorkerHeartbeatResponse'healthStatus = WorkerHealth
y__}))
(WorkerHealth -> f WorkerHealth) -> WorkerHealth -> f WorkerHealth
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkerHeartbeatResponse "workerLog" [Event] where
fieldOf :: Proxy# "workerLog"
-> ([Event] -> f [Event])
-> WorkerHeartbeatResponse
-> f WorkerHeartbeatResponse
fieldOf _
= ((Vector Event -> f (Vector Event))
-> WorkerHeartbeatResponse -> f WorkerHeartbeatResponse)
-> (([Event] -> f [Event]) -> Vector Event -> f (Vector Event))
-> ([Event] -> f [Event])
-> WorkerHeartbeatResponse
-> f WorkerHeartbeatResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerHeartbeatResponse -> Vector Event)
-> (WorkerHeartbeatResponse
-> Vector Event -> WorkerHeartbeatResponse)
-> Lens
WorkerHeartbeatResponse
WorkerHeartbeatResponse
(Vector Event)
(Vector Event)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerHeartbeatResponse -> Vector Event
_WorkerHeartbeatResponse'workerLog
(\ x__ :: WorkerHeartbeatResponse
x__ y__ :: Vector Event
y__ -> WorkerHeartbeatResponse
x__ {_WorkerHeartbeatResponse'workerLog :: Vector Event
_WorkerHeartbeatResponse'workerLog = Vector Event
y__}))
((Vector Event -> [Event])
-> (Vector Event -> [Event] -> Vector Event)
-> Lens (Vector Event) (Vector Event) [Event] [Event]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Event -> [Event]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Event]
y__ -> [Event] -> Vector Event
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Event]
y__))
instance Data.ProtoLens.Field.HasField WorkerHeartbeatResponse "vec'workerLog" (Data.Vector.Vector Event) where
fieldOf :: Proxy# "vec'workerLog"
-> (Vector Event -> f (Vector Event))
-> WorkerHeartbeatResponse
-> f WorkerHeartbeatResponse
fieldOf _
= ((Vector Event -> f (Vector Event))
-> WorkerHeartbeatResponse -> f WorkerHeartbeatResponse)
-> ((Vector Event -> f (Vector Event))
-> Vector Event -> f (Vector Event))
-> (Vector Event -> f (Vector Event))
-> WorkerHeartbeatResponse
-> f WorkerHeartbeatResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerHeartbeatResponse -> Vector Event)
-> (WorkerHeartbeatResponse
-> Vector Event -> WorkerHeartbeatResponse)
-> Lens
WorkerHeartbeatResponse
WorkerHeartbeatResponse
(Vector Event)
(Vector Event)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerHeartbeatResponse -> Vector Event
_WorkerHeartbeatResponse'workerLog
(\ x__ :: WorkerHeartbeatResponse
x__ y__ :: Vector Event
y__ -> WorkerHeartbeatResponse
x__ {_WorkerHeartbeatResponse'workerLog :: Vector Event
_WorkerHeartbeatResponse'workerLog = Vector Event
y__}))
(Vector Event -> f (Vector Event))
-> Vector Event -> f (Vector Event)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkerHeartbeatResponse "hostname" Data.Text.Text where
fieldOf :: Proxy# "hostname"
-> (Text -> f Text)
-> WorkerHeartbeatResponse
-> f WorkerHeartbeatResponse
fieldOf _
= ((Text -> f Text)
-> WorkerHeartbeatResponse -> f WorkerHeartbeatResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkerHeartbeatResponse
-> f WorkerHeartbeatResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerHeartbeatResponse -> Text)
-> (WorkerHeartbeatResponse -> Text -> WorkerHeartbeatResponse)
-> Lens WorkerHeartbeatResponse WorkerHeartbeatResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerHeartbeatResponse -> Text
_WorkerHeartbeatResponse'hostname
(\ x__ :: WorkerHeartbeatResponse
x__ y__ :: Text
y__ -> WorkerHeartbeatResponse
x__ {_WorkerHeartbeatResponse'hostname :: Text
_WorkerHeartbeatResponse'hostname = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkerHeartbeatResponse where
messageName :: Proxy WorkerHeartbeatResponse -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.WorkerHeartbeatResponse"
packedMessageDescriptor :: Proxy WorkerHeartbeatResponse -> ByteString
packedMessageDescriptor _
= "\n\
\\ETBWorkerHeartbeatResponse\DC2=\n\
\\rhealth_status\CAN\SOH \SOH(\SO2\CAN.tensorflow.WorkerHealthR\fhealthStatus\DC20\n\
\\n\
\worker_log\CAN\STX \ETX(\v2\DC1.tensorflow.EventR\tworkerLog\DC2\SUB\n\
\\bhostname\CAN\ETX \SOH(\tR\bhostname"
packedFileDescriptor :: Proxy WorkerHeartbeatResponse -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor WorkerHeartbeatResponse)
fieldsByTag
= let
healthStatus__field_descriptor :: FieldDescriptor WorkerHeartbeatResponse
healthStatus__field_descriptor
= String
-> FieldTypeDescriptor WorkerHealth
-> FieldAccessor WorkerHeartbeatResponse WorkerHealth
-> FieldDescriptor WorkerHeartbeatResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"health_status"
(ScalarField WorkerHealth -> FieldTypeDescriptor WorkerHealth
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField WorkerHealth
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor WorkerHealth)
(WireDefault WorkerHealth
-> Lens
WorkerHeartbeatResponse
WorkerHeartbeatResponse
WorkerHealth
WorkerHealth
-> FieldAccessor WorkerHeartbeatResponse WorkerHealth
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault WorkerHealth
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "healthStatus" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"healthStatus")) ::
Data.ProtoLens.FieldDescriptor WorkerHeartbeatResponse
workerLog__field_descriptor :: FieldDescriptor WorkerHeartbeatResponse
workerLog__field_descriptor
= String
-> FieldTypeDescriptor Event
-> FieldAccessor WorkerHeartbeatResponse Event
-> FieldDescriptor WorkerHeartbeatResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"worker_log"
(MessageOrGroup -> FieldTypeDescriptor Event
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Event)
(Packing
-> Lens' WorkerHeartbeatResponse [Event]
-> FieldAccessor WorkerHeartbeatResponse Event
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "workerLog" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"workerLog")) ::
Data.ProtoLens.FieldDescriptor WorkerHeartbeatResponse
hostname__field_descriptor :: FieldDescriptor WorkerHeartbeatResponse
hostname__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkerHeartbeatResponse Text
-> FieldDescriptor WorkerHeartbeatResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"hostname"
(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 WorkerHeartbeatResponse WorkerHeartbeatResponse Text Text
-> FieldAccessor WorkerHeartbeatResponse 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 "hostname" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hostname")) ::
Data.ProtoLens.FieldDescriptor WorkerHeartbeatResponse
in
[(Tag, FieldDescriptor WorkerHeartbeatResponse)]
-> Map Tag (FieldDescriptor WorkerHeartbeatResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor WorkerHeartbeatResponse
healthStatus__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor WorkerHeartbeatResponse
workerLog__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor WorkerHeartbeatResponse
hostname__field_descriptor)]
unknownFields :: LensLike' f WorkerHeartbeatResponse FieldSet
unknownFields
= (WorkerHeartbeatResponse -> FieldSet)
-> (WorkerHeartbeatResponse -> FieldSet -> WorkerHeartbeatResponse)
-> Lens' WorkerHeartbeatResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerHeartbeatResponse -> FieldSet
_WorkerHeartbeatResponse'_unknownFields
(\ x__ :: WorkerHeartbeatResponse
x__ y__ :: FieldSet
y__ -> WorkerHeartbeatResponse
x__ {_WorkerHeartbeatResponse'_unknownFields :: FieldSet
_WorkerHeartbeatResponse'_unknownFields = FieldSet
y__})
defMessage :: WorkerHeartbeatResponse
defMessage
= $WWorkerHeartbeatResponse'_constructor :: WorkerHealth
-> Vector Event -> Text -> FieldSet -> WorkerHeartbeatResponse
WorkerHeartbeatResponse'_constructor
{_WorkerHeartbeatResponse'healthStatus :: WorkerHealth
_WorkerHeartbeatResponse'healthStatus = WorkerHealth
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_WorkerHeartbeatResponse'workerLog :: Vector Event
_WorkerHeartbeatResponse'workerLog = Vector Event
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_WorkerHeartbeatResponse'hostname :: Text
_WorkerHeartbeatResponse'hostname = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_WorkerHeartbeatResponse'_unknownFields :: FieldSet
_WorkerHeartbeatResponse'_unknownFields = []}
parseMessage :: Parser WorkerHeartbeatResponse
parseMessage
= let
loop ::
WorkerHeartbeatResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Event
-> Data.ProtoLens.Encoding.Bytes.Parser WorkerHeartbeatResponse
loop :: WorkerHeartbeatResponse
-> Growing Vector RealWorld Event -> Parser WorkerHeartbeatResponse
loop x :: WorkerHeartbeatResponse
x mutable'workerLog :: Growing Vector RealWorld Event
mutable'workerLog
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Event
frozen'workerLog <- IO (Vector Event) -> Parser (Vector Event)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Event -> IO (Vector Event)
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 Event
Growing Vector (PrimState IO) Event
mutable'workerLog)
(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]))))
WorkerHeartbeatResponse -> Parser WorkerHeartbeatResponse
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
WorkerHeartbeatResponse WorkerHeartbeatResponse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> WorkerHeartbeatResponse
-> WorkerHeartbeatResponse
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
WorkerHeartbeatResponse WorkerHeartbeatResponse FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
WorkerHeartbeatResponse
WorkerHeartbeatResponse
(Vector Event)
(Vector Event)
-> Vector Event
-> WorkerHeartbeatResponse
-> WorkerHeartbeatResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'workerLog" a, Functor f) =>
(a -> f a) -> s -> 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'workerLog") Vector Event
frozen'workerLog WorkerHeartbeatResponse
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do WorkerHealth
y <- Parser WorkerHealth -> String -> Parser WorkerHealth
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> WorkerHealth) -> Parser Int -> Parser WorkerHealth
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> WorkerHealth
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))
"health_status"
WorkerHeartbeatResponse
-> Growing Vector RealWorld Event -> Parser WorkerHeartbeatResponse
loop
(Setter
WorkerHeartbeatResponse
WorkerHeartbeatResponse
WorkerHealth
WorkerHealth
-> WorkerHealth
-> WorkerHeartbeatResponse
-> WorkerHeartbeatResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "healthStatus" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"healthStatus") WorkerHealth
y WorkerHeartbeatResponse
x)
Growing Vector RealWorld Event
mutable'workerLog
18
-> do !Event
y <- Parser Event -> String -> Parser Event
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Event -> Parser Event
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 Event
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"worker_log"
Growing Vector RealWorld Event
v <- IO (Growing Vector RealWorld Event)
-> Parser (Growing Vector RealWorld Event)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Event
-> Event -> IO (Growing Vector (PrimState IO) Event)
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 Event
Growing Vector (PrimState IO) Event
mutable'workerLog Event
y)
WorkerHeartbeatResponse
-> Growing Vector RealWorld Event -> Parser WorkerHeartbeatResponse
loop WorkerHeartbeatResponse
x Growing Vector RealWorld Event
v
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))
"hostname"
WorkerHeartbeatResponse
-> Growing Vector RealWorld Event -> Parser WorkerHeartbeatResponse
loop
(Setter WorkerHeartbeatResponse WorkerHeartbeatResponse Text Text
-> Text -> WorkerHeartbeatResponse -> WorkerHeartbeatResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "hostname" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hostname") Text
y WorkerHeartbeatResponse
x)
Growing Vector RealWorld Event
mutable'workerLog
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
WorkerHeartbeatResponse
-> Growing Vector RealWorld Event -> Parser WorkerHeartbeatResponse
loop
(Setter
WorkerHeartbeatResponse WorkerHeartbeatResponse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> WorkerHeartbeatResponse
-> WorkerHeartbeatResponse
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
WorkerHeartbeatResponse WorkerHeartbeatResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) WorkerHeartbeatResponse
x)
Growing Vector RealWorld Event
mutable'workerLog
in
Parser WorkerHeartbeatResponse
-> String -> Parser WorkerHeartbeatResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Event
mutable'workerLog <- IO (Growing Vector RealWorld Event)
-> Parser (Growing Vector RealWorld Event)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Event)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
WorkerHeartbeatResponse
-> Growing Vector RealWorld Event -> Parser WorkerHeartbeatResponse
loop WorkerHeartbeatResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Event
mutable'workerLog)
"WorkerHeartbeatResponse"
buildMessage :: WorkerHeartbeatResponse -> Builder
buildMessage
= \ _x :: WorkerHeartbeatResponse
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: WorkerHealth
_v
= FoldLike
WorkerHealth
WorkerHeartbeatResponse
WorkerHeartbeatResponse
WorkerHealth
WorkerHealth
-> WorkerHeartbeatResponse -> WorkerHealth
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "healthStatus" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"healthStatus") WorkerHeartbeatResponse
_x
in
if WorkerHealth -> WorkerHealth -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) WorkerHealth
_v WorkerHealth
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)
-> (WorkerHealth -> Int) -> WorkerHealth -> 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)
WorkerHealth -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
WorkerHealth
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Event -> Builder) -> Vector Event -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: Event
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (Event -> ByteString) -> Event -> 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))
Event -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
Event
_v))
(FoldLike
(Vector Event)
WorkerHeartbeatResponse
WorkerHeartbeatResponse
(Vector Event)
(Vector Event)
-> WorkerHeartbeatResponse -> Vector Event
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'workerLog" a, Functor f) =>
(a -> f a) -> s -> 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'workerLog") WorkerHeartbeatResponse
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text WorkerHeartbeatResponse WorkerHeartbeatResponse Text Text
-> WorkerHeartbeatResponse -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "hostname" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hostname") WorkerHeartbeatResponse
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
WorkerHeartbeatResponse
WorkerHeartbeatResponse
FieldSet
FieldSet
-> WorkerHeartbeatResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
WorkerHeartbeatResponse
WorkerHeartbeatResponse
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields WorkerHeartbeatResponse
_x))))
instance Control.DeepSeq.NFData WorkerHeartbeatResponse where
rnf :: WorkerHeartbeatResponse -> ()
rnf
= \ x__ :: WorkerHeartbeatResponse
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerHeartbeatResponse -> FieldSet
_WorkerHeartbeatResponse'_unknownFields WorkerHeartbeatResponse
x__)
(WorkerHealth -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerHeartbeatResponse -> WorkerHealth
_WorkerHeartbeatResponse'healthStatus WorkerHeartbeatResponse
x__)
(Vector Event -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerHeartbeatResponse -> Vector Event
_WorkerHeartbeatResponse'workerLog WorkerHeartbeatResponse
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerHeartbeatResponse -> Text
_WorkerHeartbeatResponse'hostname WorkerHeartbeatResponse
x__) ())))
newtype WorkerShutdownMode'UnrecognizedValue
= WorkerShutdownMode'UnrecognizedValue Data.Int.Int32
deriving stock (WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
(WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool)
-> (WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool)
-> Eq WorkerShutdownMode'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
$c/= :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
== :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
$c== :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
Prelude.Eq, Eq WorkerShutdownMode'UnrecognizedValue
Eq WorkerShutdownMode'UnrecognizedValue =>
(WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Ordering)
-> (WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool)
-> (WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool)
-> (WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool)
-> (WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool)
-> (WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue)
-> (WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue)
-> Ord WorkerShutdownMode'UnrecognizedValue
WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Ordering
WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'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 :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue
$cmin :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue
max :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue
$cmax :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue
>= :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
$c>= :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
> :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
$c> :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
<= :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
$c<= :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
< :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
$c< :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Bool
compare :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Ordering
$ccompare :: WorkerShutdownMode'UnrecognizedValue
-> WorkerShutdownMode'UnrecognizedValue -> Ordering
$cp1Ord :: Eq WorkerShutdownMode'UnrecognizedValue
Prelude.Ord, Int -> WorkerShutdownMode'UnrecognizedValue -> ShowS
[WorkerShutdownMode'UnrecognizedValue] -> ShowS
WorkerShutdownMode'UnrecognizedValue -> String
(Int -> WorkerShutdownMode'UnrecognizedValue -> ShowS)
-> (WorkerShutdownMode'UnrecognizedValue -> String)
-> ([WorkerShutdownMode'UnrecognizedValue] -> ShowS)
-> Show WorkerShutdownMode'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WorkerShutdownMode'UnrecognizedValue] -> ShowS
$cshowList :: [WorkerShutdownMode'UnrecognizedValue] -> ShowS
show :: WorkerShutdownMode'UnrecognizedValue -> String
$cshow :: WorkerShutdownMode'UnrecognizedValue -> String
showsPrec :: Int -> WorkerShutdownMode'UnrecognizedValue -> ShowS
$cshowsPrec :: Int -> WorkerShutdownMode'UnrecognizedValue -> ShowS
Prelude.Show)
data WorkerShutdownMode
= DEFAULT |
NOT_CONFIGURED |
WAIT_FOR_COORDINATOR |
SHUTDOWN_AFTER_TIMEOUT |
WorkerShutdownMode'Unrecognized !WorkerShutdownMode'UnrecognizedValue
deriving stock (Int -> WorkerShutdownMode -> ShowS
[WorkerShutdownMode] -> ShowS
WorkerShutdownMode -> String
(Int -> WorkerShutdownMode -> ShowS)
-> (WorkerShutdownMode -> String)
-> ([WorkerShutdownMode] -> ShowS)
-> Show WorkerShutdownMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WorkerShutdownMode] -> ShowS
$cshowList :: [WorkerShutdownMode] -> ShowS
show :: WorkerShutdownMode -> String
$cshow :: WorkerShutdownMode -> String
showsPrec :: Int -> WorkerShutdownMode -> ShowS
$cshowsPrec :: Int -> WorkerShutdownMode -> ShowS
Prelude.Show, WorkerShutdownMode -> WorkerShutdownMode -> Bool
(WorkerShutdownMode -> WorkerShutdownMode -> Bool)
-> (WorkerShutdownMode -> WorkerShutdownMode -> Bool)
-> Eq WorkerShutdownMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WorkerShutdownMode -> WorkerShutdownMode -> Bool
$c/= :: WorkerShutdownMode -> WorkerShutdownMode -> Bool
== :: WorkerShutdownMode -> WorkerShutdownMode -> Bool
$c== :: WorkerShutdownMode -> WorkerShutdownMode -> Bool
Prelude.Eq, Eq WorkerShutdownMode
Eq WorkerShutdownMode =>
(WorkerShutdownMode -> WorkerShutdownMode -> Ordering)
-> (WorkerShutdownMode -> WorkerShutdownMode -> Bool)
-> (WorkerShutdownMode -> WorkerShutdownMode -> Bool)
-> (WorkerShutdownMode -> WorkerShutdownMode -> Bool)
-> (WorkerShutdownMode -> WorkerShutdownMode -> Bool)
-> (WorkerShutdownMode -> WorkerShutdownMode -> WorkerShutdownMode)
-> (WorkerShutdownMode -> WorkerShutdownMode -> WorkerShutdownMode)
-> Ord WorkerShutdownMode
WorkerShutdownMode -> WorkerShutdownMode -> Bool
WorkerShutdownMode -> WorkerShutdownMode -> Ordering
WorkerShutdownMode -> WorkerShutdownMode -> WorkerShutdownMode
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 :: WorkerShutdownMode -> WorkerShutdownMode -> WorkerShutdownMode
$cmin :: WorkerShutdownMode -> WorkerShutdownMode -> WorkerShutdownMode
max :: WorkerShutdownMode -> WorkerShutdownMode -> WorkerShutdownMode
$cmax :: WorkerShutdownMode -> WorkerShutdownMode -> WorkerShutdownMode
>= :: WorkerShutdownMode -> WorkerShutdownMode -> Bool
$c>= :: WorkerShutdownMode -> WorkerShutdownMode -> Bool
> :: WorkerShutdownMode -> WorkerShutdownMode -> Bool
$c> :: WorkerShutdownMode -> WorkerShutdownMode -> Bool
<= :: WorkerShutdownMode -> WorkerShutdownMode -> Bool
$c<= :: WorkerShutdownMode -> WorkerShutdownMode -> Bool
< :: WorkerShutdownMode -> WorkerShutdownMode -> Bool
$c< :: WorkerShutdownMode -> WorkerShutdownMode -> Bool
compare :: WorkerShutdownMode -> WorkerShutdownMode -> Ordering
$ccompare :: WorkerShutdownMode -> WorkerShutdownMode -> Ordering
$cp1Ord :: Eq WorkerShutdownMode
Prelude.Ord)
instance Data.ProtoLens.MessageEnum WorkerShutdownMode where
maybeToEnum :: Int -> Maybe WorkerShutdownMode
maybeToEnum 0 = WorkerShutdownMode -> Maybe WorkerShutdownMode
forall a. a -> Maybe a
Prelude.Just WorkerShutdownMode
DEFAULT
maybeToEnum 1 = WorkerShutdownMode -> Maybe WorkerShutdownMode
forall a. a -> Maybe a
Prelude.Just WorkerShutdownMode
NOT_CONFIGURED
maybeToEnum 2 = WorkerShutdownMode -> Maybe WorkerShutdownMode
forall a. a -> Maybe a
Prelude.Just WorkerShutdownMode
WAIT_FOR_COORDINATOR
maybeToEnum 3 = WorkerShutdownMode -> Maybe WorkerShutdownMode
forall a. a -> Maybe a
Prelude.Just WorkerShutdownMode
SHUTDOWN_AFTER_TIMEOUT
maybeToEnum k :: Int
k
= WorkerShutdownMode -> Maybe WorkerShutdownMode
forall a. a -> Maybe a
Prelude.Just
(WorkerShutdownMode'UnrecognizedValue -> WorkerShutdownMode
WorkerShutdownMode'Unrecognized
(Int32 -> WorkerShutdownMode'UnrecognizedValue
WorkerShutdownMode'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: WorkerShutdownMode -> String
showEnum DEFAULT = "DEFAULT"
showEnum NOT_CONFIGURED = "NOT_CONFIGURED"
showEnum WAIT_FOR_COORDINATOR = "WAIT_FOR_COORDINATOR"
showEnum SHUTDOWN_AFTER_TIMEOUT = "SHUTDOWN_AFTER_TIMEOUT"
showEnum
(WorkerShutdownMode'Unrecognized (WorkerShutdownMode'UnrecognizedValue k :: Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe WorkerShutdownMode
readEnum k :: String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "DEFAULT" = WorkerShutdownMode -> Maybe WorkerShutdownMode
forall a. a -> Maybe a
Prelude.Just WorkerShutdownMode
DEFAULT
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "NOT_CONFIGURED" = WorkerShutdownMode -> Maybe WorkerShutdownMode
forall a. a -> Maybe a
Prelude.Just WorkerShutdownMode
NOT_CONFIGURED
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "WAIT_FOR_COORDINATOR"
= WorkerShutdownMode -> Maybe WorkerShutdownMode
forall a. a -> Maybe a
Prelude.Just WorkerShutdownMode
WAIT_FOR_COORDINATOR
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "SHUTDOWN_AFTER_TIMEOUT"
= WorkerShutdownMode -> Maybe WorkerShutdownMode
forall a. a -> Maybe a
Prelude.Just WorkerShutdownMode
SHUTDOWN_AFTER_TIMEOUT
| Bool
Prelude.otherwise
= Maybe Int
-> (Int -> Maybe WorkerShutdownMode) -> Maybe WorkerShutdownMode
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 WorkerShutdownMode
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded WorkerShutdownMode where
minBound :: WorkerShutdownMode
minBound = WorkerShutdownMode
DEFAULT
maxBound :: WorkerShutdownMode
maxBound = WorkerShutdownMode
SHUTDOWN_AFTER_TIMEOUT
instance Prelude.Enum WorkerShutdownMode where
toEnum :: Int -> WorkerShutdownMode
toEnum k__ :: Int
k__
= WorkerShutdownMode
-> (WorkerShutdownMode -> WorkerShutdownMode)
-> Maybe WorkerShutdownMode
-> WorkerShutdownMode
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> WorkerShutdownMode
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
"toEnum: unknown value for enum WorkerShutdownMode: "
(Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
WorkerShutdownMode -> WorkerShutdownMode
forall a. a -> a
Prelude.id
(Int -> Maybe WorkerShutdownMode
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: WorkerShutdownMode -> Int
fromEnum DEFAULT = 0
fromEnum NOT_CONFIGURED = 1
fromEnum WAIT_FOR_COORDINATOR = 2
fromEnum SHUTDOWN_AFTER_TIMEOUT = 3
fromEnum
(WorkerShutdownMode'Unrecognized (WorkerShutdownMode'UnrecognizedValue k :: Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: WorkerShutdownMode -> WorkerShutdownMode
succ SHUTDOWN_AFTER_TIMEOUT
= String -> WorkerShutdownMode
forall a. HasCallStack => String -> a
Prelude.error
"WorkerShutdownMode.succ: bad argument SHUTDOWN_AFTER_TIMEOUT. This value would be out of bounds."
succ DEFAULT = WorkerShutdownMode
NOT_CONFIGURED
succ NOT_CONFIGURED = WorkerShutdownMode
WAIT_FOR_COORDINATOR
succ WAIT_FOR_COORDINATOR = WorkerShutdownMode
SHUTDOWN_AFTER_TIMEOUT
succ (WorkerShutdownMode'Unrecognized _)
= String -> WorkerShutdownMode
forall a. HasCallStack => String -> a
Prelude.error
"WorkerShutdownMode.succ: bad argument: unrecognized value"
pred :: WorkerShutdownMode -> WorkerShutdownMode
pred DEFAULT
= String -> WorkerShutdownMode
forall a. HasCallStack => String -> a
Prelude.error
"WorkerShutdownMode.pred: bad argument DEFAULT. This value would be out of bounds."
pred NOT_CONFIGURED = WorkerShutdownMode
DEFAULT
pred WAIT_FOR_COORDINATOR = WorkerShutdownMode
NOT_CONFIGURED
pred SHUTDOWN_AFTER_TIMEOUT = WorkerShutdownMode
WAIT_FOR_COORDINATOR
pred (WorkerShutdownMode'Unrecognized _)
= String -> WorkerShutdownMode
forall a. HasCallStack => String -> a
Prelude.error
"WorkerShutdownMode.pred: bad argument: unrecognized value"
enumFrom :: WorkerShutdownMode -> [WorkerShutdownMode]
enumFrom = WorkerShutdownMode -> [WorkerShutdownMode]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: WorkerShutdownMode -> WorkerShutdownMode -> [WorkerShutdownMode]
enumFromTo = WorkerShutdownMode -> WorkerShutdownMode -> [WorkerShutdownMode]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: WorkerShutdownMode -> WorkerShutdownMode -> [WorkerShutdownMode]
enumFromThen = WorkerShutdownMode -> WorkerShutdownMode -> [WorkerShutdownMode]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: WorkerShutdownMode
-> WorkerShutdownMode -> WorkerShutdownMode -> [WorkerShutdownMode]
enumFromThenTo = WorkerShutdownMode
-> WorkerShutdownMode -> WorkerShutdownMode -> [WorkerShutdownMode]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault WorkerShutdownMode where
fieldDefault :: WorkerShutdownMode
fieldDefault = WorkerShutdownMode
DEFAULT
instance Control.DeepSeq.NFData WorkerShutdownMode where
rnf :: WorkerShutdownMode -> ()
rnf x__ :: WorkerShutdownMode
x__ = WorkerShutdownMode -> () -> ()
forall a b. a -> b -> b
Prelude.seq WorkerShutdownMode
x__ ()
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\ tensorflow/core/util/event.proto\DC2\n\
\tensorflow\SUB'tensorflow/core/framework/summary.proto\"\164\ETX\n\
\\ENQEvent\DC2\ESC\n\
\\twall_time\CAN\SOH \SOH(\SOHR\bwallTime\DC2\DC2\n\
\\EOTstep\CAN\STX \SOH(\ETXR\EOTstep\DC2#\n\
\\ffile_version\CAN\ETX \SOH(\tH\NULR\vfileVersion\DC2\GS\n\
\\tgraph_def\CAN\EOT \SOH(\fH\NULR\bgraphDef\DC2/\n\
\\asummary\CAN\ENQ \SOH(\v2\DC3.tensorflow.SummaryH\NULR\asummary\DC29\n\
\\vlog_message\CAN\ACK \SOH(\v2\SYN.tensorflow.LogMessageH\NULR\n\
\logMessage\DC29\n\
\\vsession_log\CAN\a \SOH(\v2\SYN.tensorflow.SessionLogH\NULR\n\
\sessionLog\DC2O\n\
\\DC3tagged_run_metadata\CAN\b \SOH(\v2\GS.tensorflow.TaggedRunMetadataH\NULR\DC1taggedRunMetadata\DC2&\n\
\\SOmeta_graph_def\CAN\t \SOH(\fH\NULR\fmetaGraphDefB\ACK\n\
\\EOTwhat\"\169\SOH\n\
\\n\
\LogMessage\DC22\n\
\\ENQlevel\CAN\SOH \SOH(\SO2\FS.tensorflow.LogMessage.LevelR\ENQlevel\DC2\CAN\n\
\\amessage\CAN\STX \SOH(\tR\amessage\"M\n\
\\ENQLevel\DC2\v\n\
\\aUNKNOWN\DLE\NUL\DC2\r\n\
\\tDEBUGGING\DLE\n\
\\DC2\b\n\
\\EOTINFO\DLE\DC4\DC2\b\n\
\\EOTWARN\DLE\RS\DC2\t\n\
\\ENQERROR\DLE(\DC2\t\n\
\\ENQFATAL\DLE2\"\211\SOH\n\
\\n\
\SessionLog\DC2<\n\
\\ACKstatus\CAN\SOH \SOH(\SO2$.tensorflow.SessionLog.SessionStatusR\ACKstatus\DC2'\n\
\\SIcheckpoint_path\CAN\STX \SOH(\tR\SOcheckpointPath\DC2\DLE\n\
\\ETXmsg\CAN\ETX \SOH(\tR\ETXmsg\"L\n\
\\rSessionStatus\DC2\SYN\n\
\\DC2STATUS_UNSPECIFIED\DLE\NUL\DC2\t\n\
\\ENQSTART\DLE\SOH\DC2\b\n\
\\EOTSTOP\DLE\STX\DC2\SO\n\
\\n\
\CHECKPOINT\DLE\ETX\"H\n\
\\DC1TaggedRunMetadata\DC2\DLE\n\
\\ETXtag\CAN\SOH \SOH(\tR\ETXtag\DC2!\n\
\\frun_metadata\CAN\STX \SOH(\fR\vrunMetadata\"/\n\
\\SOWatchdogConfig\DC2\GS\n\
\\n\
\timeout_ms\CAN\SOH \SOH(\ETXR\ttimeoutMs\"0\n\
\\DC1RequestedExitCode\DC2\ESC\n\
\\texit_code\CAN\SOH \SOH(\ENQR\bexitCode\"\222\SOH\n\
\\SYNWorkerHeartbeatRequest\DC2C\n\
\\rshutdown_mode\CAN\SOH \SOH(\SO2\RS.tensorflow.WorkerShutdownModeR\fshutdownMode\DC2C\n\
\\SIwatchdog_config\CAN\STX \SOH(\v2\SUB.tensorflow.WatchdogConfigR\SOwatchdogConfig\DC2:\n\
\\texit_code\CAN\ETX \SOH(\v2\GS.tensorflow.RequestedExitCodeR\bexitCode\"\166\SOH\n\
\\ETBWorkerHeartbeatResponse\DC2=\n\
\\rhealth_status\CAN\SOH \SOH(\SO2\CAN.tensorflow.WorkerHealthR\fhealthStatus\DC20\n\
\\n\
\worker_log\CAN\STX \ETX(\v2\DC1.tensorflow.EventR\tworkerLog\DC2\SUB\n\
\\bhostname\CAN\ETX \SOH(\tR\bhostname*[\n\
\\fWorkerHealth\DC2\ACK\n\
\\STXOK\DLE\NUL\DC2\FS\n\
\\CANRECEIVED_SHUTDOWN_SIGNAL\DLE\SOH\DC2\DC2\n\
\\SOINTERNAL_ERROR\DLE\STX\DC2\DC1\n\
\\rSHUTTING_DOWN\DLE\ETX*k\n\
\\DC2WorkerShutdownMode\DC2\v\n\
\\aDEFAULT\DLE\NUL\DC2\DC2\n\
\\SONOT_CONFIGURED\DLE\SOH\DC2\CAN\n\
\\DC4WAIT_FOR_COORDINATOR\DLE\STX\DC2\SUB\n\
\\SYNSHUTDOWN_AFTER_TIMEOUT\DLE\ETXB'\n\
\\DC3org.tensorflow.utilB\vEventProtosP\SOH\248\SOH\SOHJ\147!\n\
\\ACK\DC2\EOT\NUL\NULz\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\NUL1\n\
\\b\n\
\\SOH\b\DC2\ETX\ACK\NUL\US\n\
\\t\n\
\\STX\b\US\DC2\ETX\ACK\NUL\US\n\
\\b\n\
\\SOH\b\DC2\ETX\a\NUL,\n\
\\t\n\
\\STX\b\b\DC2\ETX\a\NUL,\n\
\\b\n\
\\SOH\b\DC2\ETX\b\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\b\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\t\NUL,\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\t\NUL,\n\
\i\n\
\\STX\EOT\NUL\DC2\EOT\r\NUL(\SOH\SUB] Protocol buffer representing an event that happened during\n\
\ the execution of a Brain model.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\r\b\r\n\
\&\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\SI\STX\ETB\SUB\EM Timestamp of the event.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\SI\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SI\t\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SI\NAK\SYN\n\
\(\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX\DC2\STX\DC1\SUB\ESC Global step of the event.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\DC2\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DC2\b\f\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DC2\SI\DLE\n\
\\f\n\
\\EOT\EOT\NUL\b\NUL\DC2\EOT\DC4\STX'\ETX\n\
\\f\n\
\\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\DC4\b\f\n\
\\219\SOH\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX\EM\EOT\FS\SUB\205\SOH An event file was started, with the specified version.\n\
\ This is use to identify the contents of the record IO files\n\
\ easily. Current version is \"brain.Event:2\". All versions\n\
\ start with \"brain.Event:\".\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\EM\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\EM\v\ETB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\EM\SUB\ESC\n\
\0\n\
\\EOT\EOT\NUL\STX\ETX\DC2\ETX\ESC\EOT\CAN\SUB# An encoded version of a GraphDef.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX\ESC\EOT\t\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\ESC\n\
\\DC3\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\ESC\SYN\ETB\n\
\'\n\
\\EOT\EOT\NUL\STX\EOT\DC2\ETX\GS\EOT\CAN\SUB\SUB A summary was generated.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ACK\DC2\ETX\GS\EOT\v\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX\GS\f\DC3\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX\GS\SYN\ETB\n\
\\138\SOH\n\
\\EOT\EOT\NUL\STX\ENQ\DC2\ETX \EOT\US\SUB} The user output a log message. Not all messages are logged, only ones\n\
\ generated via the Python tensorboard_logging module.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ACK\DC2\ETX \EOT\SO\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETX \SI\SUB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETX \GS\RS\n\
\W\n\
\\EOT\EOT\NUL\STX\ACK\DC2\ETX\"\EOT\US\SUBJ The state of the session which can be used for restarting after crashes.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ACK\DC2\ETX\"\EOT\SO\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\SOH\DC2\ETX\"\SI\SUB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ETX\DC2\ETX\"\GS\RS\n\
\E\n\
\\EOT\EOT\NUL\STX\a\DC2\ETX$\EOT.\SUB8 The metadata returned by running a session.run() call.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\ACK\DC2\ETX$\EOT\NAK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\SOH\DC2\ETX$\SYN)\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\ETX\DC2\ETX$,-\n\
\4\n\
\\EOT\EOT\NUL\STX\b\DC2\ETX&\EOT\GS\SUB' An encoded version of a MetaGraphDef.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\ENQ\DC2\ETX&\EOT\t\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\SOH\DC2\ETX&\n\
\\CAN\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\ETX\DC2\ETX&\ESC\FS\n\
\K\n\
\\STX\EOT\SOH\DC2\EOT+\NUL:\SOH\SUB? Protocol buffer used for logging messages to the events file.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX+\b\DC2\n\
\\f\n\
\\EOT\EOT\SOH\EOT\NUL\DC2\EOT,\STX7\ETX\n\
\\f\n\
\\ENQ\EOT\SOH\EOT\NUL\SOH\DC2\ETX,\a\f\n\
\\r\n\
\\ACK\EOT\SOH\EOT\NUL\STX\NUL\DC2\ETX-\EOT\DLE\n\
\\SO\n\
\\a\EOT\SOH\EOT\NUL\STX\NUL\SOH\DC2\ETX-\EOT\v\n\
\\SO\n\
\\a\EOT\SOH\EOT\NUL\STX\NUL\STX\DC2\ETX-\SO\SI\n\
\\232\SOH\n\
\\ACK\EOT\SOH\EOT\NUL\STX\SOH\DC2\ETX2\EOT\DC3\SUB\216\SOH Note: The logging level 10 cannot be named DEBUG. Some software\n\
\ projects compile their C/C++ code with -DDEBUG in debug builds. So the\n\
\ C++ code generated from this file should not have an identifier named\n\
\ DEBUG.\n\
\\n\
\\SO\n\
\\a\EOT\SOH\EOT\NUL\STX\SOH\SOH\DC2\ETX2\EOT\r\n\
\\SO\n\
\\a\EOT\SOH\EOT\NUL\STX\SOH\STX\DC2\ETX2\DLE\DC2\n\
\\r\n\
\\ACK\EOT\SOH\EOT\NUL\STX\STX\DC2\ETX3\EOT\SO\n\
\\SO\n\
\\a\EOT\SOH\EOT\NUL\STX\STX\SOH\DC2\ETX3\EOT\b\n\
\\SO\n\
\\a\EOT\SOH\EOT\NUL\STX\STX\STX\DC2\ETX3\v\r\n\
\\r\n\
\\ACK\EOT\SOH\EOT\NUL\STX\ETX\DC2\ETX4\EOT\SO\n\
\\SO\n\
\\a\EOT\SOH\EOT\NUL\STX\ETX\SOH\DC2\ETX4\EOT\b\n\
\\SO\n\
\\a\EOT\SOH\EOT\NUL\STX\ETX\STX\DC2\ETX4\v\r\n\
\\r\n\
\\ACK\EOT\SOH\EOT\NUL\STX\EOT\DC2\ETX5\EOT\SI\n\
\\SO\n\
\\a\EOT\SOH\EOT\NUL\STX\EOT\SOH\DC2\ETX5\EOT\t\n\
\\SO\n\
\\a\EOT\SOH\EOT\NUL\STX\EOT\STX\DC2\ETX5\f\SO\n\
\\r\n\
\\ACK\EOT\SOH\EOT\NUL\STX\ENQ\DC2\ETX6\EOT\SI\n\
\\SO\n\
\\a\EOT\SOH\EOT\NUL\STX\ENQ\SOH\DC2\ETX6\EOT\t\n\
\\SO\n\
\\a\EOT\SOH\EOT\NUL\STX\ENQ\STX\DC2\ETX6\f\SO\n\
\\v\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX8\STX\DC2\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX8\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX8\b\r\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX8\DLE\DC1\n\
\\v\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX9\STX\NAK\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX9\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX9\t\DLE\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX9\DC3\DC4\n\
\=\n\
\\STX\EOT\STX\DC2\EOT=\NULI\SOH\SUB1 Protocol buffer used for logging session state.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX=\b\DC2\n\
\\f\n\
\\EOT\EOT\STX\EOT\NUL\DC2\EOT>\STXC\ETX\n\
\\f\n\
\\ENQ\EOT\STX\EOT\NUL\SOH\DC2\ETX>\a\DC4\n\
\\r\n\
\\ACK\EOT\STX\EOT\NUL\STX\NUL\DC2\ETX?\EOT\ESC\n\
\\SO\n\
\\a\EOT\STX\EOT\NUL\STX\NUL\SOH\DC2\ETX?\EOT\SYN\n\
\\SO\n\
\\a\EOT\STX\EOT\NUL\STX\NUL\STX\DC2\ETX?\EM\SUB\n\
\\r\n\
\\ACK\EOT\STX\EOT\NUL\STX\SOH\DC2\ETX@\EOT\SO\n\
\\SO\n\
\\a\EOT\STX\EOT\NUL\STX\SOH\SOH\DC2\ETX@\EOT\t\n\
\\SO\n\
\\a\EOT\STX\EOT\NUL\STX\SOH\STX\DC2\ETX@\f\r\n\
\\r\n\
\\ACK\EOT\STX\EOT\NUL\STX\STX\DC2\ETXA\EOT\r\n\
\\SO\n\
\\a\EOT\STX\EOT\NUL\STX\STX\SOH\DC2\ETXA\EOT\b\n\
\\SO\n\
\\a\EOT\STX\EOT\NUL\STX\STX\STX\DC2\ETXA\v\f\n\
\\r\n\
\\ACK\EOT\STX\EOT\NUL\STX\ETX\DC2\ETXB\EOT\DC3\n\
\\SO\n\
\\a\EOT\STX\EOT\NUL\STX\ETX\SOH\DC2\ETXB\EOT\SO\n\
\\SO\n\
\\a\EOT\STX\EOT\NUL\STX\ETX\STX\DC2\ETXB\DC1\DC2\n\
\\v\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETXE\STX\ESC\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETXE\STX\SI\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXE\DLE\SYN\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXE\EM\SUB\n\
\H\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETXG\STX\GS\SUB; This checkpoint_path contains both the path and filename.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETXG\STX\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETXG\t\CAN\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETXG\ESC\FS\n\
\\v\n\
\\EOT\EOT\STX\STX\STX\DC2\ETXH\STX\DC1\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETXH\STX\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\SOH\DC2\ETXH\t\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ETX\DC2\ETXH\SI\DLE\n\
\N\n\
\\STX\EOT\ETX\DC2\EOTL\NULR\SOH\SUBB For logging the metadata output for a single session.run() call.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETXL\b\EM\n\
\6\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETXN\STX\DC1\SUB) Tag name associated with this metadata.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETXN\STX\b\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETXN\t\f\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETXN\SI\DLE\n\
\g\n\
\\EOT\EOT\ETX\STX\SOH\DC2\ETXQ\STX\EM\SUBZ Byte-encoded version of the `RunMetadata` proto in order to allow lazy\n\
\ deserialization.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETXQ\STX\a\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETXQ\b\DC4\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETXQ\ETB\CAN\n\
\\155\SOH\n\
\\STX\ENQ\NUL\DC2\EOTX\NUL]\SOH\SUB$ Current health status of a worker.\n\
\2i Worker heartbeat messages. Support for these operations is currently\n\
\ internal and expected to change.\n\
\\n\
\\n\
\\n\
\\ETX\ENQ\NUL\SOH\DC2\ETXX\ENQ\DC1\n\
\.\n\
\\EOT\ENQ\NUL\STX\NUL\DC2\ETXY\STX\t\"! By default a worker is healthy.\n\
\\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETXY\STX\EOT\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETXY\a\b\n\
\\v\n\
\\EOT\ENQ\NUL\STX\SOH\DC2\ETXZ\STX\US\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETXZ\STX\SUB\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETXZ\GS\RS\n\
\\v\n\
\\EOT\ENQ\NUL\STX\STX\DC2\ETX[\STX\NAK\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETX[\STX\DLE\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETX[\DC3\DC4\n\
\F\n\
\\EOT\ENQ\NUL\STX\ETX\DC2\ETX\\\STX\DC4\"9 Worker has been instructed to shutdown after a timeout.\n\
\\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETX\\\STX\SI\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETX\\\DC2\DC3\n\
\j\n\
\\STX\ENQ\SOH\DC2\EOTa\NULf\SOH\SUB^ Indicates the behavior of the worker when an internal error or shutdown\n\
\ signal is received.\n\
\\n\
\\n\
\\n\
\\ETX\ENQ\SOH\SOH\DC2\ETXa\ENQ\ETB\n\
\\v\n\
\\EOT\ENQ\SOH\STX\NUL\DC2\ETXb\STX\SO\n\
\\f\n\
\\ENQ\ENQ\SOH\STX\NUL\SOH\DC2\ETXb\STX\t\n\
\\f\n\
\\ENQ\ENQ\SOH\STX\NUL\STX\DC2\ETXb\f\r\n\
\\v\n\
\\EOT\ENQ\SOH\STX\SOH\DC2\ETXc\STX\NAK\n\
\\f\n\
\\ENQ\ENQ\SOH\STX\SOH\SOH\DC2\ETXc\STX\DLE\n\
\\f\n\
\\ENQ\ENQ\SOH\STX\SOH\STX\DC2\ETXc\DC3\DC4\n\
\\v\n\
\\EOT\ENQ\SOH\STX\STX\DC2\ETXd\STX\ESC\n\
\\f\n\
\\ENQ\ENQ\SOH\STX\STX\SOH\DC2\ETXd\STX\SYN\n\
\\f\n\
\\ENQ\ENQ\SOH\STX\STX\STX\DC2\ETXd\EM\SUB\n\
\\v\n\
\\EOT\ENQ\SOH\STX\ETX\DC2\ETXe\STX\GS\n\
\\f\n\
\\ENQ\ENQ\SOH\STX\ETX\SOH\DC2\ETXe\STX\CAN\n\
\\f\n\
\\ENQ\ENQ\SOH\STX\ETX\STX\DC2\ETXe\ESC\FS\n\
\\n\
\\n\
\\STX\EOT\EOT\DC2\EOTh\NULj\SOH\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETXh\b\SYN\n\
\\v\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETXi\STX\ETB\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETXi\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXi\b\DC2\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXi\NAK\SYN\n\
\\n\
\\n\
\\STX\EOT\ENQ\DC2\EOTl\NULn\SOH\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETXl\b\EM\n\
\\v\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETXm\STX\SYN\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETXm\STX\a\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXm\b\DC1\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXm\DC4\NAK\n\
\\n\
\\n\
\\STX\EOT\ACK\DC2\EOTp\NULt\SOH\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETXp\b\RS\n\
\\v\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETXq\STX'\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETXq\STX\DC4\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXq\NAK\"\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXq%&\n\
\\v\n\
\\EOT\EOT\ACK\STX\SOH\DC2\ETXr\STX%\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETXr\STX\DLE\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETXr\DC1 \n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETXr#$\n\
\\v\n\
\\EOT\EOT\ACK\STX\STX\DC2\ETXs\STX\"\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\ACK\DC2\ETXs\STX\DC3\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETXs\DC4\GS\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETXs !\n\
\\n\
\\n\
\\STX\EOT\a\DC2\EOTv\NULz\SOH\n\
\\n\
\\n\
\\ETX\EOT\a\SOH\DC2\ETXv\b\US\n\
\\v\n\
\\EOT\EOT\a\STX\NUL\DC2\ETXw\STX!\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ACK\DC2\ETXw\STX\SO\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXw\SI\FS\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXw\US \n\
\\v\n\
\\EOT\EOT\a\STX\SOH\DC2\ETXx\STX \n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\EOT\DC2\ETXx\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\ACK\DC2\ETXx\v\DLE\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXx\DC1\ESC\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXx\RS\US\n\
\\v\n\
\\EOT\EOT\a\STX\STX\DC2\ETXy\STX\SYN\n\
\\f\n\
\\ENQ\EOT\a\STX\STX\ENQ\DC2\ETXy\STX\b\n\
\\f\n\
\\ENQ\EOT\a\STX\STX\SOH\DC2\ETXy\t\DC1\n\
\\f\n\
\\ENQ\EOT\a\STX\STX\ETX\DC2\ETXy\DC4\NAKb\ACKproto3"