{- This file was auto-generated from tensorflow/core/util/event.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Tensorflow.Core.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
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.Event_Fields.wallTime' @:: Lens' Event Prelude.Double@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.step' @:: Lens' Event Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.maybe'what' @:: Lens' Event (Prelude.Maybe Event'What)@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.maybe'fileVersion' @:: Lens' Event (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.fileVersion' @:: Lens' Event Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.maybe'graphDef' @:: Lens' Event (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.graphDef' @:: Lens' Event Data.ByteString.ByteString@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.maybe'summary' @:: Lens' Event (Prelude.Maybe Proto.Tensorflow.Core.Framework.Summary.Summary)@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.summary' @:: Lens' Event Proto.Tensorflow.Core.Framework.Summary.Summary@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.maybe'logMessage' @:: Lens' Event (Prelude.Maybe LogMessage)@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.logMessage' @:: Lens' Event LogMessage@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.maybe'sessionLog' @:: Lens' Event (Prelude.Maybe SessionLog)@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.sessionLog' @:: Lens' Event SessionLog@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.maybe'taggedRunMetadata' @:: Lens' Event (Prelude.Maybe TaggedRunMetadata)@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.taggedRunMetadata' @:: Lens' Event TaggedRunMetadata@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.maybe'metaGraphDef' @:: Lens' Event (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.metaGraphDef' @:: Lens' Event Data.ByteString.ByteString@ -}
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)
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.Event_Fields.level' @:: Lens' LogMessage LogMessage'Level@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.message' @:: Lens' LogMessage Data.Text.Text@ -}
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__ ()
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.Event_Fields.exitCode' @:: Lens' RequestedExitCode Data.Int.Int32@ -}
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__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.Event_Fields.status' @:: Lens' SessionLog SessionLog'SessionStatus@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.checkpointPath' @:: Lens' SessionLog Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.msg' @:: Lens' SessionLog Data.Text.Text@ -}
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__ ()
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.Event_Fields.tag' @:: Lens' TaggedRunMetadata Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.runMetadata' @:: Lens' TaggedRunMetadata Data.ByteString.ByteString@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.Event_Fields.timeoutMs' @:: Lens' WatchdogConfig Data.Int.Int64@ -}
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__ ()
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.Event_Fields.shutdownMode' @:: Lens' WorkerHeartbeatRequest WorkerShutdownMode@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.watchdogConfig' @:: Lens' WorkerHeartbeatRequest WatchdogConfig@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.maybe'watchdogConfig' @:: Lens' WorkerHeartbeatRequest (Prelude.Maybe WatchdogConfig)@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.exitCode' @:: Lens' WorkerHeartbeatRequest RequestedExitCode@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.maybe'exitCode' @:: Lens' WorkerHeartbeatRequest (Prelude.Maybe RequestedExitCode)@ -}
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__) ())))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.Event_Fields.healthStatus' @:: Lens' WorkerHeartbeatResponse WorkerHealth@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.workerLog' @:: Lens' WorkerHeartbeatResponse [Event]@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.vec'workerLog' @:: Lens' WorkerHeartbeatResponse (Data.Vector.Vector Event)@
         * 'Proto.Tensorflow.Core.Util.Event_Fields.hostname' @:: Lens' WorkerHeartbeatResponse Data.Text.Text@ -}
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"