{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Tensorflow.Core.Framework.Summary (
DataClass(..), DataClass(), DataClass'UnrecognizedValue,
HistogramProto(), Summary(), Summary'Audio(), Summary'Image(),
Summary'Value(), Summary'Value'Value(..),
_Summary'Value'SimpleValue,
_Summary'Value'ObsoleteOldStyleHistogram, _Summary'Value'Image,
_Summary'Value'Histo, _Summary'Value'Audio, _Summary'Value'Tensor,
SummaryDescription(), SummaryMetadata(),
SummaryMetadata'PluginData()
) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Tensorflow.Core.Framework.Tensor
newtype DataClass'UnrecognizedValue
= DataClass'UnrecognizedValue Data.Int.Int32
deriving stock (DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
(DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> Bool)
-> (DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> Bool)
-> Eq DataClass'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
$c/= :: DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
== :: DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
$c== :: DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
Prelude.Eq, Eq DataClass'UnrecognizedValue
Eq DataClass'UnrecognizedValue =>
(DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> Ordering)
-> (DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> Bool)
-> (DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> Bool)
-> (DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> Bool)
-> (DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> Bool)
-> (DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue)
-> (DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue)
-> Ord DataClass'UnrecognizedValue
DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> Ordering
DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> DataClass'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 :: DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue
$cmin :: DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue
max :: DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue
$cmax :: DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue
>= :: DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
$c>= :: DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
> :: DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
$c> :: DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
<= :: DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
$c<= :: DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
< :: DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
$c< :: DataClass'UnrecognizedValue -> DataClass'UnrecognizedValue -> Bool
compare :: DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> Ordering
$ccompare :: DataClass'UnrecognizedValue
-> DataClass'UnrecognizedValue -> Ordering
$cp1Ord :: Eq DataClass'UnrecognizedValue
Prelude.Ord, Int -> DataClass'UnrecognizedValue -> ShowS
[DataClass'UnrecognizedValue] -> ShowS
DataClass'UnrecognizedValue -> String
(Int -> DataClass'UnrecognizedValue -> ShowS)
-> (DataClass'UnrecognizedValue -> String)
-> ([DataClass'UnrecognizedValue] -> ShowS)
-> Show DataClass'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DataClass'UnrecognizedValue] -> ShowS
$cshowList :: [DataClass'UnrecognizedValue] -> ShowS
show :: DataClass'UnrecognizedValue -> String
$cshow :: DataClass'UnrecognizedValue -> String
showsPrec :: Int -> DataClass'UnrecognizedValue -> ShowS
$cshowsPrec :: Int -> DataClass'UnrecognizedValue -> ShowS
Prelude.Show)
data DataClass
= DATA_CLASS_UNKNOWN |
DATA_CLASS_SCALAR |
DATA_CLASS_TENSOR |
DATA_CLASS_BLOB_SEQUENCE |
DataClass'Unrecognized !DataClass'UnrecognizedValue
deriving stock (Int -> DataClass -> ShowS
[DataClass] -> ShowS
DataClass -> String
(Int -> DataClass -> ShowS)
-> (DataClass -> String)
-> ([DataClass] -> ShowS)
-> Show DataClass
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DataClass] -> ShowS
$cshowList :: [DataClass] -> ShowS
show :: DataClass -> String
$cshow :: DataClass -> String
showsPrec :: Int -> DataClass -> ShowS
$cshowsPrec :: Int -> DataClass -> ShowS
Prelude.Show, DataClass -> DataClass -> Bool
(DataClass -> DataClass -> Bool)
-> (DataClass -> DataClass -> Bool) -> Eq DataClass
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DataClass -> DataClass -> Bool
$c/= :: DataClass -> DataClass -> Bool
== :: DataClass -> DataClass -> Bool
$c== :: DataClass -> DataClass -> Bool
Prelude.Eq, Eq DataClass
Eq DataClass =>
(DataClass -> DataClass -> Ordering)
-> (DataClass -> DataClass -> Bool)
-> (DataClass -> DataClass -> Bool)
-> (DataClass -> DataClass -> Bool)
-> (DataClass -> DataClass -> Bool)
-> (DataClass -> DataClass -> DataClass)
-> (DataClass -> DataClass -> DataClass)
-> Ord DataClass
DataClass -> DataClass -> Bool
DataClass -> DataClass -> Ordering
DataClass -> DataClass -> DataClass
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 :: DataClass -> DataClass -> DataClass
$cmin :: DataClass -> DataClass -> DataClass
max :: DataClass -> DataClass -> DataClass
$cmax :: DataClass -> DataClass -> DataClass
>= :: DataClass -> DataClass -> Bool
$c>= :: DataClass -> DataClass -> Bool
> :: DataClass -> DataClass -> Bool
$c> :: DataClass -> DataClass -> Bool
<= :: DataClass -> DataClass -> Bool
$c<= :: DataClass -> DataClass -> Bool
< :: DataClass -> DataClass -> Bool
$c< :: DataClass -> DataClass -> Bool
compare :: DataClass -> DataClass -> Ordering
$ccompare :: DataClass -> DataClass -> Ordering
$cp1Ord :: Eq DataClass
Prelude.Ord)
instance Data.ProtoLens.MessageEnum DataClass where
maybeToEnum :: Int -> Maybe DataClass
maybeToEnum 0 = DataClass -> Maybe DataClass
forall a. a -> Maybe a
Prelude.Just DataClass
DATA_CLASS_UNKNOWN
maybeToEnum 1 = DataClass -> Maybe DataClass
forall a. a -> Maybe a
Prelude.Just DataClass
DATA_CLASS_SCALAR
maybeToEnum 2 = DataClass -> Maybe DataClass
forall a. a -> Maybe a
Prelude.Just DataClass
DATA_CLASS_TENSOR
maybeToEnum 3 = DataClass -> Maybe DataClass
forall a. a -> Maybe a
Prelude.Just DataClass
DATA_CLASS_BLOB_SEQUENCE
maybeToEnum k :: Int
k
= DataClass -> Maybe DataClass
forall a. a -> Maybe a
Prelude.Just
(DataClass'UnrecognizedValue -> DataClass
DataClass'Unrecognized
(Int32 -> DataClass'UnrecognizedValue
DataClass'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: DataClass -> String
showEnum DATA_CLASS_UNKNOWN = "DATA_CLASS_UNKNOWN"
showEnum DATA_CLASS_SCALAR = "DATA_CLASS_SCALAR"
showEnum DATA_CLASS_TENSOR = "DATA_CLASS_TENSOR"
showEnum DATA_CLASS_BLOB_SEQUENCE = "DATA_CLASS_BLOB_SEQUENCE"
showEnum (DataClass'Unrecognized (DataClass'UnrecognizedValue k :: Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe DataClass
readEnum k :: String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "DATA_CLASS_UNKNOWN"
= DataClass -> Maybe DataClass
forall a. a -> Maybe a
Prelude.Just DataClass
DATA_CLASS_UNKNOWN
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "DATA_CLASS_SCALAR"
= DataClass -> Maybe DataClass
forall a. a -> Maybe a
Prelude.Just DataClass
DATA_CLASS_SCALAR
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "DATA_CLASS_TENSOR"
= DataClass -> Maybe DataClass
forall a. a -> Maybe a
Prelude.Just DataClass
DATA_CLASS_TENSOR
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "DATA_CLASS_BLOB_SEQUENCE"
= DataClass -> Maybe DataClass
forall a. a -> Maybe a
Prelude.Just DataClass
DATA_CLASS_BLOB_SEQUENCE
| Bool
Prelude.otherwise
= Maybe Int -> (Int -> Maybe DataClass) -> Maybe DataClass
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 DataClass
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded DataClass where
minBound :: DataClass
minBound = DataClass
DATA_CLASS_UNKNOWN
maxBound :: DataClass
maxBound = DataClass
DATA_CLASS_BLOB_SEQUENCE
instance Prelude.Enum DataClass where
toEnum :: Int -> DataClass
toEnum k__ :: Int
k__
= DataClass
-> (DataClass -> DataClass) -> Maybe DataClass -> DataClass
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> DataClass
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
"toEnum: unknown value for enum DataClass: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
DataClass -> DataClass
forall a. a -> a
Prelude.id
(Int -> Maybe DataClass
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: DataClass -> Int
fromEnum DATA_CLASS_UNKNOWN = 0
fromEnum DATA_CLASS_SCALAR = 1
fromEnum DATA_CLASS_TENSOR = 2
fromEnum DATA_CLASS_BLOB_SEQUENCE = 3
fromEnum (DataClass'Unrecognized (DataClass'UnrecognizedValue k :: Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: DataClass -> DataClass
succ DATA_CLASS_BLOB_SEQUENCE
= String -> DataClass
forall a. HasCallStack => String -> a
Prelude.error
"DataClass.succ: bad argument DATA_CLASS_BLOB_SEQUENCE. This value would be out of bounds."
succ DATA_CLASS_UNKNOWN = DataClass
DATA_CLASS_SCALAR
succ DATA_CLASS_SCALAR = DataClass
DATA_CLASS_TENSOR
succ DATA_CLASS_TENSOR = DataClass
DATA_CLASS_BLOB_SEQUENCE
succ (DataClass'Unrecognized _)
= String -> DataClass
forall a. HasCallStack => String -> a
Prelude.error "DataClass.succ: bad argument: unrecognized value"
pred :: DataClass -> DataClass
pred DATA_CLASS_UNKNOWN
= String -> DataClass
forall a. HasCallStack => String -> a
Prelude.error
"DataClass.pred: bad argument DATA_CLASS_UNKNOWN. This value would be out of bounds."
pred DATA_CLASS_SCALAR = DataClass
DATA_CLASS_UNKNOWN
pred DATA_CLASS_TENSOR = DataClass
DATA_CLASS_SCALAR
pred DATA_CLASS_BLOB_SEQUENCE = DataClass
DATA_CLASS_TENSOR
pred (DataClass'Unrecognized _)
= String -> DataClass
forall a. HasCallStack => String -> a
Prelude.error "DataClass.pred: bad argument: unrecognized value"
enumFrom :: DataClass -> [DataClass]
enumFrom = DataClass -> [DataClass]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: DataClass -> DataClass -> [DataClass]
enumFromTo = DataClass -> DataClass -> [DataClass]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: DataClass -> DataClass -> [DataClass]
enumFromThen = DataClass -> DataClass -> [DataClass]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: DataClass -> DataClass -> DataClass -> [DataClass]
enumFromThenTo = DataClass -> DataClass -> DataClass -> [DataClass]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault DataClass where
fieldDefault :: DataClass
fieldDefault = DataClass
DATA_CLASS_UNKNOWN
instance Control.DeepSeq.NFData DataClass where
rnf :: DataClass -> ()
rnf x__ :: DataClass
x__ = DataClass -> () -> ()
forall a b. a -> b -> b
Prelude.seq DataClass
x__ ()
data HistogramProto
= HistogramProto'_constructor {HistogramProto -> Double
_HistogramProto'min :: !Prelude.Double,
HistogramProto -> Double
_HistogramProto'max :: !Prelude.Double,
HistogramProto -> Double
_HistogramProto'num :: !Prelude.Double,
HistogramProto -> Double
_HistogramProto'sum :: !Prelude.Double,
HistogramProto -> Double
_HistogramProto'sumSquares :: !Prelude.Double,
HistogramProto -> Vector Double
_HistogramProto'bucketLimit :: !(Data.Vector.Unboxed.Vector Prelude.Double),
HistogramProto -> Vector Double
_HistogramProto'bucket :: !(Data.Vector.Unboxed.Vector Prelude.Double),
HistogramProto -> FieldSet
_HistogramProto'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (HistogramProto -> HistogramProto -> Bool
(HistogramProto -> HistogramProto -> Bool)
-> (HistogramProto -> HistogramProto -> Bool) -> Eq HistogramProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HistogramProto -> HistogramProto -> Bool
$c/= :: HistogramProto -> HistogramProto -> Bool
== :: HistogramProto -> HistogramProto -> Bool
$c== :: HistogramProto -> HistogramProto -> Bool
Prelude.Eq, Eq HistogramProto
Eq HistogramProto =>
(HistogramProto -> HistogramProto -> Ordering)
-> (HistogramProto -> HistogramProto -> Bool)
-> (HistogramProto -> HistogramProto -> Bool)
-> (HistogramProto -> HistogramProto -> Bool)
-> (HistogramProto -> HistogramProto -> Bool)
-> (HistogramProto -> HistogramProto -> HistogramProto)
-> (HistogramProto -> HistogramProto -> HistogramProto)
-> Ord HistogramProto
HistogramProto -> HistogramProto -> Bool
HistogramProto -> HistogramProto -> Ordering
HistogramProto -> HistogramProto -> HistogramProto
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 :: HistogramProto -> HistogramProto -> HistogramProto
$cmin :: HistogramProto -> HistogramProto -> HistogramProto
max :: HistogramProto -> HistogramProto -> HistogramProto
$cmax :: HistogramProto -> HistogramProto -> HistogramProto
>= :: HistogramProto -> HistogramProto -> Bool
$c>= :: HistogramProto -> HistogramProto -> Bool
> :: HistogramProto -> HistogramProto -> Bool
$c> :: HistogramProto -> HistogramProto -> Bool
<= :: HistogramProto -> HistogramProto -> Bool
$c<= :: HistogramProto -> HistogramProto -> Bool
< :: HistogramProto -> HistogramProto -> Bool
$c< :: HistogramProto -> HistogramProto -> Bool
compare :: HistogramProto -> HistogramProto -> Ordering
$ccompare :: HistogramProto -> HistogramProto -> Ordering
$cp1Ord :: Eq HistogramProto
Prelude.Ord)
instance Prelude.Show HistogramProto where
showsPrec :: Int -> HistogramProto -> ShowS
showsPrec _ __x :: HistogramProto
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(HistogramProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort HistogramProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField HistogramProto "min" Prelude.Double where
fieldOf :: Proxy# "min"
-> (Double -> f Double) -> HistogramProto -> f HistogramProto
fieldOf _
= ((Double -> f Double) -> HistogramProto -> f HistogramProto)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> HistogramProto
-> f HistogramProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramProto -> Double)
-> (HistogramProto -> Double -> HistogramProto)
-> Lens HistogramProto HistogramProto Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramProto -> Double
_HistogramProto'min (\ x__ :: HistogramProto
x__ y__ :: Double
y__ -> HistogramProto
x__ {_HistogramProto'min :: Double
_HistogramProto'min = Double
y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramProto "max" Prelude.Double where
fieldOf :: Proxy# "max"
-> (Double -> f Double) -> HistogramProto -> f HistogramProto
fieldOf _
= ((Double -> f Double) -> HistogramProto -> f HistogramProto)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> HistogramProto
-> f HistogramProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramProto -> Double)
-> (HistogramProto -> Double -> HistogramProto)
-> Lens HistogramProto HistogramProto Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramProto -> Double
_HistogramProto'max (\ x__ :: HistogramProto
x__ y__ :: Double
y__ -> HistogramProto
x__ {_HistogramProto'max :: Double
_HistogramProto'max = Double
y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramProto "num" Prelude.Double where
fieldOf :: Proxy# "num"
-> (Double -> f Double) -> HistogramProto -> f HistogramProto
fieldOf _
= ((Double -> f Double) -> HistogramProto -> f HistogramProto)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> HistogramProto
-> f HistogramProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramProto -> Double)
-> (HistogramProto -> Double -> HistogramProto)
-> Lens HistogramProto HistogramProto Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramProto -> Double
_HistogramProto'num (\ x__ :: HistogramProto
x__ y__ :: Double
y__ -> HistogramProto
x__ {_HistogramProto'num :: Double
_HistogramProto'num = Double
y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramProto "sum" Prelude.Double where
fieldOf :: Proxy# "sum"
-> (Double -> f Double) -> HistogramProto -> f HistogramProto
fieldOf _
= ((Double -> f Double) -> HistogramProto -> f HistogramProto)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> HistogramProto
-> f HistogramProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramProto -> Double)
-> (HistogramProto -> Double -> HistogramProto)
-> Lens HistogramProto HistogramProto Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramProto -> Double
_HistogramProto'sum (\ x__ :: HistogramProto
x__ y__ :: Double
y__ -> HistogramProto
x__ {_HistogramProto'sum :: Double
_HistogramProto'sum = Double
y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramProto "sumSquares" Prelude.Double where
fieldOf :: Proxy# "sumSquares"
-> (Double -> f Double) -> HistogramProto -> f HistogramProto
fieldOf _
= ((Double -> f Double) -> HistogramProto -> f HistogramProto)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> HistogramProto
-> f HistogramProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramProto -> Double)
-> (HistogramProto -> Double -> HistogramProto)
-> Lens HistogramProto HistogramProto Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramProto -> Double
_HistogramProto'sumSquares
(\ x__ :: HistogramProto
x__ y__ :: Double
y__ -> HistogramProto
x__ {_HistogramProto'sumSquares :: Double
_HistogramProto'sumSquares = Double
y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramProto "bucketLimit" [Prelude.Double] where
fieldOf :: Proxy# "bucketLimit"
-> ([Double] -> f [Double]) -> HistogramProto -> f HistogramProto
fieldOf _
= ((Vector Double -> f (Vector Double))
-> HistogramProto -> f HistogramProto)
-> (([Double] -> f [Double]) -> Vector Double -> f (Vector Double))
-> ([Double] -> f [Double])
-> HistogramProto
-> f HistogramProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramProto -> Vector Double)
-> (HistogramProto -> Vector Double -> HistogramProto)
-> Lens
HistogramProto HistogramProto (Vector Double) (Vector Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramProto -> Vector Double
_HistogramProto'bucketLimit
(\ x__ :: HistogramProto
x__ y__ :: Vector Double
y__ -> HistogramProto
x__ {_HistogramProto'bucketLimit :: Vector Double
_HistogramProto'bucketLimit = Vector Double
y__}))
((Vector Double -> [Double])
-> (Vector Double -> [Double] -> Vector Double)
-> Lens (Vector Double) (Vector Double) [Double] [Double]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Double -> [Double]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Double]
y__ -> [Double] -> Vector Double
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Double]
y__))
instance Data.ProtoLens.Field.HasField HistogramProto "vec'bucketLimit" (Data.Vector.Unboxed.Vector Prelude.Double) where
fieldOf :: Proxy# "vec'bucketLimit"
-> (Vector Double -> f (Vector Double))
-> HistogramProto
-> f HistogramProto
fieldOf _
= ((Vector Double -> f (Vector Double))
-> HistogramProto -> f HistogramProto)
-> ((Vector Double -> f (Vector Double))
-> Vector Double -> f (Vector Double))
-> (Vector Double -> f (Vector Double))
-> HistogramProto
-> f HistogramProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramProto -> Vector Double)
-> (HistogramProto -> Vector Double -> HistogramProto)
-> Lens
HistogramProto HistogramProto (Vector Double) (Vector Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramProto -> Vector Double
_HistogramProto'bucketLimit
(\ x__ :: HistogramProto
x__ y__ :: Vector Double
y__ -> HistogramProto
x__ {_HistogramProto'bucketLimit :: Vector Double
_HistogramProto'bucketLimit = Vector Double
y__}))
(Vector Double -> f (Vector Double))
-> Vector Double -> f (Vector Double)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramProto "bucket" [Prelude.Double] where
fieldOf :: Proxy# "bucket"
-> ([Double] -> f [Double]) -> HistogramProto -> f HistogramProto
fieldOf _
= ((Vector Double -> f (Vector Double))
-> HistogramProto -> f HistogramProto)
-> (([Double] -> f [Double]) -> Vector Double -> f (Vector Double))
-> ([Double] -> f [Double])
-> HistogramProto
-> f HistogramProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramProto -> Vector Double)
-> (HistogramProto -> Vector Double -> HistogramProto)
-> Lens
HistogramProto HistogramProto (Vector Double) (Vector Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramProto -> Vector Double
_HistogramProto'bucket
(\ x__ :: HistogramProto
x__ y__ :: Vector Double
y__ -> HistogramProto
x__ {_HistogramProto'bucket :: Vector Double
_HistogramProto'bucket = Vector Double
y__}))
((Vector Double -> [Double])
-> (Vector Double -> [Double] -> Vector Double)
-> Lens (Vector Double) (Vector Double) [Double] [Double]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Double -> [Double]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Double]
y__ -> [Double] -> Vector Double
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Double]
y__))
instance Data.ProtoLens.Field.HasField HistogramProto "vec'bucket" (Data.Vector.Unboxed.Vector Prelude.Double) where
fieldOf :: Proxy# "vec'bucket"
-> (Vector Double -> f (Vector Double))
-> HistogramProto
-> f HistogramProto
fieldOf _
= ((Vector Double -> f (Vector Double))
-> HistogramProto -> f HistogramProto)
-> ((Vector Double -> f (Vector Double))
-> Vector Double -> f (Vector Double))
-> (Vector Double -> f (Vector Double))
-> HistogramProto
-> f HistogramProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramProto -> Vector Double)
-> (HistogramProto -> Vector Double -> HistogramProto)
-> Lens
HistogramProto HistogramProto (Vector Double) (Vector Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramProto -> Vector Double
_HistogramProto'bucket
(\ x__ :: HistogramProto
x__ y__ :: Vector Double
y__ -> HistogramProto
x__ {_HistogramProto'bucket :: Vector Double
_HistogramProto'bucket = Vector Double
y__}))
(Vector Double -> f (Vector Double))
-> Vector Double -> f (Vector Double)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message HistogramProto where
messageName :: Proxy HistogramProto -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.HistogramProto"
packedMessageDescriptor :: Proxy HistogramProto -> ByteString
packedMessageDescriptor _
= "\n\
\\SO\&HistogramProto\DC2\DLE\n\
\\ETXmin\CAN\SOH \SOH(\SOHR\ETXmin\DC2\DLE\n\
\\ETXmax\CAN\STX \SOH(\SOHR\ETXmax\DC2\DLE\n\
\\ETXnum\CAN\ETX \SOH(\SOHR\ETXnum\DC2\DLE\n\
\\ETXsum\CAN\EOT \SOH(\SOHR\ETXsum\DC2\US\n\
\\vsum_squares\CAN\ENQ \SOH(\SOHR\n\
\sumSquares\DC2%\n\
\\fbucket_limit\CAN\ACK \ETX(\SOHR\vbucketLimitB\STX\DLE\SOH\DC2\SUB\n\
\\ACKbucket\CAN\a \ETX(\SOHR\ACKbucketB\STX\DLE\SOH"
packedFileDescriptor :: Proxy HistogramProto -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor HistogramProto)
fieldsByTag
= let
min__field_descriptor :: FieldDescriptor HistogramProto
min__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor HistogramProto Double
-> FieldDescriptor HistogramProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"min"
(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 HistogramProto HistogramProto Double Double
-> FieldAccessor HistogramProto 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 "min" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"min")) ::
Data.ProtoLens.FieldDescriptor HistogramProto
max__field_descriptor :: FieldDescriptor HistogramProto
max__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor HistogramProto Double
-> FieldDescriptor HistogramProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"max"
(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 HistogramProto HistogramProto Double Double
-> FieldAccessor HistogramProto 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 "max" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"max")) ::
Data.ProtoLens.FieldDescriptor HistogramProto
num__field_descriptor :: FieldDescriptor HistogramProto
num__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor HistogramProto Double
-> FieldDescriptor HistogramProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"num"
(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 HistogramProto HistogramProto Double Double
-> FieldAccessor HistogramProto 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 "num" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"num")) ::
Data.ProtoLens.FieldDescriptor HistogramProto
sum__field_descriptor :: FieldDescriptor HistogramProto
sum__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor HistogramProto Double
-> FieldDescriptor HistogramProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"sum"
(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 HistogramProto HistogramProto Double Double
-> FieldAccessor HistogramProto 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 "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum")) ::
Data.ProtoLens.FieldDescriptor HistogramProto
sumSquares__field_descriptor :: FieldDescriptor HistogramProto
sumSquares__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor HistogramProto Double
-> FieldDescriptor HistogramProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"sum_squares"
(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 HistogramProto HistogramProto Double Double
-> FieldAccessor HistogramProto 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 "sumSquares" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sumSquares")) ::
Data.ProtoLens.FieldDescriptor HistogramProto
bucketLimit__field_descriptor :: FieldDescriptor HistogramProto
bucketLimit__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor HistogramProto Double
-> FieldDescriptor HistogramProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"bucket_limit"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(Packing
-> Lens' HistogramProto [Double]
-> FieldAccessor HistogramProto Double
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall s a (f :: * -> *).
(HasField s "bucketLimit" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bucketLimit")) ::
Data.ProtoLens.FieldDescriptor HistogramProto
bucket__field_descriptor :: FieldDescriptor HistogramProto
bucket__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor HistogramProto Double
-> FieldDescriptor HistogramProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"bucket"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(Packing
-> Lens' HistogramProto [Double]
-> FieldAccessor HistogramProto Double
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "bucket" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bucket")) ::
Data.ProtoLens.FieldDescriptor HistogramProto
in
[(Tag, FieldDescriptor HistogramProto)]
-> Map Tag (FieldDescriptor HistogramProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor HistogramProto
min__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor HistogramProto
max__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor HistogramProto
num__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor HistogramProto
sum__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor HistogramProto
sumSquares__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor HistogramProto
bucketLimit__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor HistogramProto
bucket__field_descriptor)]
unknownFields :: LensLike' f HistogramProto FieldSet
unknownFields
= (HistogramProto -> FieldSet)
-> (HistogramProto -> FieldSet -> HistogramProto)
-> Lens' HistogramProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramProto -> FieldSet
_HistogramProto'_unknownFields
(\ x__ :: HistogramProto
x__ y__ :: FieldSet
y__ -> HistogramProto
x__ {_HistogramProto'_unknownFields :: FieldSet
_HistogramProto'_unknownFields = FieldSet
y__})
defMessage :: HistogramProto
defMessage
= $WHistogramProto'_constructor :: Double
-> Double
-> Double
-> Double
-> Double
-> Vector Double
-> Vector Double
-> FieldSet
-> HistogramProto
HistogramProto'_constructor
{_HistogramProto'min :: Double
_HistogramProto'min = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HistogramProto'max :: Double
_HistogramProto'max = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HistogramProto'num :: Double
_HistogramProto'num = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HistogramProto'sum :: Double
_HistogramProto'sum = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HistogramProto'sumSquares :: Double
_HistogramProto'sumSquares = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HistogramProto'bucketLimit :: Vector Double
_HistogramProto'bucketLimit = Vector Double
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_HistogramProto'bucket :: Vector Double
_HistogramProto'bucket = Vector Double
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_HistogramProto'_unknownFields :: FieldSet
_HistogramProto'_unknownFields = []}
parseMessage :: Parser HistogramProto
parseMessage
= let
loop ::
HistogramProto
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Double
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Double
-> Data.ProtoLens.Encoding.Bytes.Parser HistogramProto
loop :: HistogramProto
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Parser HistogramProto
loop x :: HistogramProto
x mutable'bucket :: Growing Vector RealWorld Double
mutable'bucket mutable'bucketLimit :: Growing Vector RealWorld Double
mutable'bucketLimit
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Double
frozen'bucket <- IO (Vector Double) -> Parser (Vector Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Double -> IO (Vector Double)
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 Double
Growing Vector (PrimState IO) Double
mutable'bucket)
Vector Double
frozen'bucketLimit <- IO (Vector Double) -> Parser (Vector Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Double -> IO (Vector Double)
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 Double
Growing Vector (PrimState IO) Double
mutable'bucketLimit)
(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]))))
HistogramProto -> Parser HistogramProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter HistogramProto HistogramProto FieldSet FieldSet
-> (FieldSet -> FieldSet) -> HistogramProto -> HistogramProto
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 HistogramProto HistogramProto FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
HistogramProto HistogramProto (Vector Double) (Vector Double)
-> Vector Double -> HistogramProto -> HistogramProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'bucket" a, Functor f) =>
(a -> f a) -> s -> 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'bucket")
Vector Double
frozen'bucket
(Setter
HistogramProto HistogramProto (Vector Double) (Vector Double)
-> Vector Double -> HistogramProto -> HistogramProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'bucketLimit" a, Functor f) =>
(a -> f a) -> s -> 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'bucketLimit")
Vector Double
frozen'bucketLimit
HistogramProto
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)
"min"
HistogramProto
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Parser HistogramProto
loop
(Setter HistogramProto HistogramProto Double Double
-> Double -> HistogramProto -> HistogramProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "min" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"min") Double
y HistogramProto
x)
Growing Vector RealWorld Double
mutable'bucket
Growing Vector RealWorld Double
mutable'bucketLimit
17
-> 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)
"max"
HistogramProto
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Parser HistogramProto
loop
(Setter HistogramProto HistogramProto Double Double
-> Double -> HistogramProto -> HistogramProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "max" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"max") Double
y HistogramProto
x)
Growing Vector RealWorld Double
mutable'bucket
Growing Vector RealWorld Double
mutable'bucketLimit
25
-> 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)
"num"
HistogramProto
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Parser HistogramProto
loop
(Setter HistogramProto HistogramProto Double Double
-> Double -> HistogramProto -> HistogramProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "num" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"num") Double
y HistogramProto
x)
Growing Vector RealWorld Double
mutable'bucket
Growing Vector RealWorld Double
mutable'bucketLimit
33
-> 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)
"sum"
HistogramProto
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Parser HistogramProto
loop
(Setter HistogramProto HistogramProto Double Double
-> Double -> HistogramProto -> HistogramProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum") Double
y HistogramProto
x)
Growing Vector RealWorld Double
mutable'bucket
Growing Vector RealWorld Double
mutable'bucketLimit
41
-> 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)
"sum_squares"
HistogramProto
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Parser HistogramProto
loop
(Setter HistogramProto HistogramProto Double Double
-> Double -> HistogramProto -> HistogramProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "sumSquares" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sumSquares") Double
y HistogramProto
x)
Growing Vector RealWorld Double
mutable'bucket
Growing Vector RealWorld Double
mutable'bucketLimit
49
-> 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)
"bucket_limit"
Growing Vector RealWorld Double
v <- IO (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Double
-> Double -> IO (Growing Vector (PrimState IO) Double)
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 Double
Growing Vector (PrimState IO) Double
mutable'bucketLimit Double
y)
HistogramProto
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Parser HistogramProto
loop HistogramProto
x Growing Vector RealWorld Double
mutable'bucket Growing Vector RealWorld Double
v
50
-> do Growing Vector RealWorld Double
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop qs :: Growing v RealWorld Double
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Double
qs
else
do !Double
q <- 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)
"bucket_limit"
Growing v RealWorld Double
qs' <- IO (Growing v RealWorld Double)
-> Parser (Growing v RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Double
-> Double -> IO (Growing v (PrimState IO) Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld Double
Growing v (PrimState IO) Double
qs Double
q)
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop Growing v RealWorld Double
qs'
in forall (v :: * -> *).
Vector v Double =>
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop)
Growing Vector RealWorld Double
mutable'bucketLimit)
HistogramProto
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Parser HistogramProto
loop HistogramProto
x Growing Vector RealWorld Double
mutable'bucket Growing Vector RealWorld Double
y
57
-> 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)
"bucket"
Growing Vector RealWorld Double
v <- IO (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Double
-> Double -> IO (Growing Vector (PrimState IO) Double)
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 Double
Growing Vector (PrimState IO) Double
mutable'bucket Double
y)
HistogramProto
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Parser HistogramProto
loop HistogramProto
x Growing Vector RealWorld Double
v Growing Vector RealWorld Double
mutable'bucketLimit
58
-> do Growing Vector RealWorld Double
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop qs :: Growing v RealWorld Double
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Double
qs
else
do !Double
q <- 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)
"bucket"
Growing v RealWorld Double
qs' <- IO (Growing v RealWorld Double)
-> Parser (Growing v RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Double
-> Double -> IO (Growing v (PrimState IO) Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld Double
Growing v (PrimState IO) Double
qs Double
q)
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop Growing v RealWorld Double
qs'
in forall (v :: * -> *).
Vector v Double =>
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop)
Growing Vector RealWorld Double
mutable'bucket)
HistogramProto
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Parser HistogramProto
loop HistogramProto
x Growing Vector RealWorld Double
y Growing Vector RealWorld Double
mutable'bucketLimit
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
HistogramProto
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Parser HistogramProto
loop
(Setter HistogramProto HistogramProto FieldSet FieldSet
-> (FieldSet -> FieldSet) -> HistogramProto -> HistogramProto
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 HistogramProto HistogramProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) HistogramProto
x)
Growing Vector RealWorld Double
mutable'bucket
Growing Vector RealWorld Double
mutable'bucketLimit
in
Parser HistogramProto -> String -> Parser HistogramProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Double
mutable'bucket <- IO (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Double
mutable'bucketLimit <- IO (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
HistogramProto
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Parser HistogramProto
loop HistogramProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Double
mutable'bucket Growing Vector RealWorld Double
mutable'bucketLimit)
"HistogramProto"
buildMessage :: HistogramProto -> Builder
buildMessage
= \ _x :: HistogramProto
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Double
_v = FoldLike Double HistogramProto HistogramProto Double Double
-> HistogramProto -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "min" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"min") HistogramProto
_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 :: Double
_v = FoldLike Double HistogramProto HistogramProto Double Double
-> HistogramProto -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "max" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"max") HistogramProto
_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 17)
((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 :: Double
_v = FoldLike Double HistogramProto HistogramProto Double Double
-> HistogramProto -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "num" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"num") HistogramProto
_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 25)
((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 :: Double
_v = FoldLike Double HistogramProto HistogramProto Double Double
-> HistogramProto -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum") HistogramProto
_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 33)
((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 :: Double
_v
= FoldLike Double HistogramProto HistogramProto Double Double
-> HistogramProto -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "sumSquares" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sumSquares") HistogramProto
_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 41)
((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
p :: Vector Double
p = FoldLike
(Vector Double)
HistogramProto
HistogramProto
(Vector Double)
(Vector Double)
-> HistogramProto -> Vector Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'bucketLimit" a, Functor f) =>
(a -> f a) -> s -> 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'bucketLimit") HistogramProto
_x
in
if Vector Double -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Double
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Double -> Builder) -> Vector Double -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((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)
Vector Double
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Double
p = FoldLike
(Vector Double)
HistogramProto
HistogramProto
(Vector Double)
(Vector Double)
-> HistogramProto -> Vector Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'bucket" a, Functor f) =>
(a -> f a) -> s -> 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'bucket") HistogramProto
_x
in
if Vector Double -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Double
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
((\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Double -> Builder) -> Vector Double -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((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)
Vector Double
p))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet HistogramProto HistogramProto FieldSet FieldSet
-> HistogramProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet HistogramProto HistogramProto FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields HistogramProto
_x))))))))
instance Control.DeepSeq.NFData HistogramProto where
rnf :: HistogramProto -> ()
rnf
= \ x__ :: HistogramProto
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramProto -> FieldSet
_HistogramProto'_unknownFields HistogramProto
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramProto -> Double
_HistogramProto'min HistogramProto
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramProto -> Double
_HistogramProto'max HistogramProto
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramProto -> Double
_HistogramProto'num HistogramProto
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramProto -> Double
_HistogramProto'sum HistogramProto
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramProto -> Double
_HistogramProto'sumSquares HistogramProto
x__)
(Vector Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramProto -> Vector Double
_HistogramProto'bucketLimit HistogramProto
x__)
(Vector Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (HistogramProto -> Vector Double
_HistogramProto'bucket HistogramProto
x__) ())))))))
data Summary
= Summary'_constructor {Summary -> Vector Summary'Value
_Summary'value :: !(Data.Vector.Vector Summary'Value),
Summary -> FieldSet
_Summary'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Summary -> Summary -> Bool
(Summary -> Summary -> Bool)
-> (Summary -> Summary -> Bool) -> Eq Summary
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Summary -> Summary -> Bool
$c/= :: Summary -> Summary -> Bool
== :: Summary -> Summary -> Bool
$c== :: Summary -> Summary -> Bool
Prelude.Eq, Eq Summary
Eq Summary =>
(Summary -> Summary -> Ordering)
-> (Summary -> Summary -> Bool)
-> (Summary -> Summary -> Bool)
-> (Summary -> Summary -> Bool)
-> (Summary -> Summary -> Bool)
-> (Summary -> Summary -> Summary)
-> (Summary -> Summary -> Summary)
-> Ord Summary
Summary -> Summary -> Bool
Summary -> Summary -> Ordering
Summary -> Summary -> Summary
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 :: Summary -> Summary -> Summary
$cmin :: Summary -> Summary -> Summary
max :: Summary -> Summary -> Summary
$cmax :: Summary -> Summary -> Summary
>= :: Summary -> Summary -> Bool
$c>= :: Summary -> Summary -> Bool
> :: Summary -> Summary -> Bool
$c> :: Summary -> Summary -> Bool
<= :: Summary -> Summary -> Bool
$c<= :: Summary -> Summary -> Bool
< :: Summary -> Summary -> Bool
$c< :: Summary -> Summary -> Bool
compare :: Summary -> Summary -> Ordering
$ccompare :: Summary -> Summary -> Ordering
$cp1Ord :: Eq Summary
Prelude.Ord)
instance Prelude.Show Summary where
showsPrec :: Int -> Summary -> ShowS
showsPrec _ __x :: Summary
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(Summary -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Summary
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField Summary "value" [Summary'Value] where
fieldOf :: Proxy# "value"
-> ([Summary'Value] -> f [Summary'Value]) -> Summary -> f Summary
fieldOf _
= ((Vector Summary'Value -> f (Vector Summary'Value))
-> Summary -> f Summary)
-> (([Summary'Value] -> f [Summary'Value])
-> Vector Summary'Value -> f (Vector Summary'Value))
-> ([Summary'Value] -> f [Summary'Value])
-> Summary
-> f Summary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary -> Vector Summary'Value)
-> (Summary -> Vector Summary'Value -> Summary)
-> Lens
Summary Summary (Vector Summary'Value) (Vector Summary'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary -> Vector Summary'Value
_Summary'value (\ x__ :: Summary
x__ y__ :: Vector Summary'Value
y__ -> Summary
x__ {_Summary'value :: Vector Summary'Value
_Summary'value = Vector Summary'Value
y__}))
((Vector Summary'Value -> [Summary'Value])
-> (Vector Summary'Value
-> [Summary'Value] -> Vector Summary'Value)
-> Lens
(Vector Summary'Value)
(Vector Summary'Value)
[Summary'Value]
[Summary'Value]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Summary'Value -> [Summary'Value]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Summary'Value]
y__ -> [Summary'Value] -> Vector Summary'Value
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Summary'Value]
y__))
instance Data.ProtoLens.Field.HasField Summary "vec'value" (Data.Vector.Vector Summary'Value) where
fieldOf :: Proxy# "vec'value"
-> (Vector Summary'Value -> f (Vector Summary'Value))
-> Summary
-> f Summary
fieldOf _
= ((Vector Summary'Value -> f (Vector Summary'Value))
-> Summary -> f Summary)
-> ((Vector Summary'Value -> f (Vector Summary'Value))
-> Vector Summary'Value -> f (Vector Summary'Value))
-> (Vector Summary'Value -> f (Vector Summary'Value))
-> Summary
-> f Summary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary -> Vector Summary'Value)
-> (Summary -> Vector Summary'Value -> Summary)
-> Lens
Summary Summary (Vector Summary'Value) (Vector Summary'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary -> Vector Summary'Value
_Summary'value (\ x__ :: Summary
x__ y__ :: Vector Summary'Value
y__ -> Summary
x__ {_Summary'value :: Vector Summary'Value
_Summary'value = Vector Summary'Value
y__}))
(Vector Summary'Value -> f (Vector Summary'Value))
-> Vector Summary'Value -> f (Vector Summary'Value)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Summary where
messageName :: Proxy Summary -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.Summary"
packedMessageDescriptor :: Proxy Summary -> ByteString
packedMessageDescriptor _
= "\n\
\\aSummary\DC2/\n\
\\ENQvalue\CAN\SOH \ETX(\v2\EM.tensorflow.Summary.ValueR\ENQvalue\SUB\135\SOH\n\
\\ENQImage\DC2\SYN\n\
\\ACKheight\CAN\SOH \SOH(\ENQR\ACKheight\DC2\DC4\n\
\\ENQwidth\CAN\STX \SOH(\ENQR\ENQwidth\DC2\RS\n\
\\n\
\colorspace\CAN\ETX \SOH(\ENQR\n\
\colorspace\DC20\n\
\\DC4encoded_image_string\CAN\EOT \SOH(\fR\DC2encodedImageString\SUB\197\SOH\n\
\\ENQAudio\DC2\US\n\
\\vsample_rate\CAN\SOH \SOH(\STXR\n\
\sampleRate\DC2!\n\
\\fnum_channels\CAN\STX \SOH(\ETXR\vnumChannels\DC2#\n\
\\rlength_frames\CAN\ETX \SOH(\ETXR\flengthFrames\DC20\n\
\\DC4encoded_audio_string\CAN\EOT \SOH(\fR\DC2encodedAudioString\DC2!\n\
\\fcontent_type\CAN\ENQ \SOH(\tR\vcontentType\SUB\173\ETX\n\
\\ENQValue\DC2\ESC\n\
\\tnode_name\CAN\a \SOH(\tR\bnodeName\DC2\DLE\n\
\\ETXtag\CAN\SOH \SOH(\tR\ETXtag\DC27\n\
\\bmetadata\CAN\t \SOH(\v2\ESC.tensorflow.SummaryMetadataR\bmetadata\DC2#\n\
\\fsimple_value\CAN\STX \SOH(\STXH\NULR\vsimpleValue\DC2A\n\
\\FSobsolete_old_style_histogram\CAN\ETX \SOH(\fH\NULR\EMobsoleteOldStyleHistogram\DC21\n\
\\ENQimage\CAN\EOT \SOH(\v2\EM.tensorflow.Summary.ImageH\NULR\ENQimage\DC22\n\
\\ENQhisto\CAN\ENQ \SOH(\v2\SUB.tensorflow.HistogramProtoH\NULR\ENQhisto\DC21\n\
\\ENQaudio\CAN\ACK \SOH(\v2\EM.tensorflow.Summary.AudioH\NULR\ENQaudio\DC21\n\
\\ACKtensor\CAN\b \SOH(\v2\ETB.tensorflow.TensorProtoH\NULR\ACKtensorB\a\n\
\\ENQvalue"
packedFileDescriptor :: Proxy Summary -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Summary)
fieldsByTag
= let
value__field_descriptor :: FieldDescriptor Summary
value__field_descriptor
= String
-> FieldTypeDescriptor Summary'Value
-> FieldAccessor Summary Summary'Value
-> FieldDescriptor Summary
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(MessageOrGroup -> FieldTypeDescriptor Summary'Value
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Summary'Value)
(Packing
-> Lens' Summary [Summary'Value]
-> FieldAccessor Summary Summary'Value
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor Summary
in
[(Tag, FieldDescriptor Summary)]
-> Map Tag (FieldDescriptor Summary)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor Summary
value__field_descriptor)]
unknownFields :: LensLike' f Summary FieldSet
unknownFields
= (Summary -> FieldSet)
-> (Summary -> FieldSet -> Summary) -> Lens' Summary FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary -> FieldSet
_Summary'_unknownFields
(\ x__ :: Summary
x__ y__ :: FieldSet
y__ -> Summary
x__ {_Summary'_unknownFields :: FieldSet
_Summary'_unknownFields = FieldSet
y__})
defMessage :: Summary
defMessage
= $WSummary'_constructor :: Vector Summary'Value -> FieldSet -> Summary
Summary'_constructor
{_Summary'value :: Vector Summary'Value
_Summary'value = Vector Summary'Value
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_Summary'_unknownFields :: FieldSet
_Summary'_unknownFields = []}
parseMessage :: Parser Summary
parseMessage
= let
loop ::
Summary
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Summary'Value
-> Data.ProtoLens.Encoding.Bytes.Parser Summary
loop :: Summary -> Growing Vector RealWorld Summary'Value -> Parser Summary
loop x :: Summary
x mutable'value :: Growing Vector RealWorld Summary'Value
mutable'value
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Summary'Value
frozen'value <- IO (Vector Summary'Value) -> Parser (Vector Summary'Value)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Summary'Value
-> IO (Vector Summary'Value)
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 Summary'Value
Growing Vector (PrimState IO) Summary'Value
mutable'value)
(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]))))
Summary -> Parser Summary
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter Summary Summary FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Summary -> Summary
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 Summary Summary FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
Summary Summary (Vector Summary'Value) (Vector Summary'Value)
-> Vector Summary'Value -> Summary -> Summary
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") Vector Summary'Value
frozen'value Summary
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !Summary'Value
y <- Parser Summary'Value -> String -> Parser Summary'Value
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Summary'Value -> Parser Summary'Value
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'Value
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"value"
Growing Vector RealWorld Summary'Value
v <- IO (Growing Vector RealWorld Summary'Value)
-> Parser (Growing Vector RealWorld Summary'Value)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Summary'Value
-> Summary'Value
-> IO (Growing Vector (PrimState IO) Summary'Value)
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 Summary'Value
Growing Vector (PrimState IO) Summary'Value
mutable'value Summary'Value
y)
Summary -> Growing Vector RealWorld Summary'Value -> Parser Summary
loop Summary
x Growing Vector RealWorld Summary'Value
v
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
Summary -> Growing Vector RealWorld Summary'Value -> Parser Summary
loop
(Setter Summary Summary FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Summary -> Summary
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 Summary Summary FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Summary
x)
Growing Vector RealWorld Summary'Value
mutable'value
in
Parser Summary -> String -> Parser Summary
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Summary'Value
mutable'value <- IO (Growing Vector RealWorld Summary'Value)
-> Parser (Growing Vector RealWorld Summary'Value)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Summary'Value)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Summary -> Growing Vector RealWorld Summary'Value -> Parser Summary
loop Summary
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Summary'Value
mutable'value)
"Summary"
buildMessage :: Summary -> Builder
buildMessage
= \ _x :: Summary
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Summary'Value -> Builder) -> Vector Summary'Value -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: Summary'Value
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (Summary'Value -> ByteString) -> Summary'Value -> 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'Value -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
Summary'Value
_v))
(FoldLike
(Vector Summary'Value)
Summary
Summary
(Vector Summary'Value)
(Vector Summary'Value)
-> Summary -> Vector Summary'Value
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") Summary
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Summary Summary FieldSet FieldSet
-> Summary -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Summary Summary FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields Summary
_x))
instance Control.DeepSeq.NFData Summary where
rnf :: Summary -> ()
rnf
= \ x__ :: Summary
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary -> FieldSet
_Summary'_unknownFields Summary
x__)
(Vector Summary'Value -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Summary -> Vector Summary'Value
_Summary'value Summary
x__) ())
data Summary'Audio
= Summary'Audio'_constructor {Summary'Audio -> Float
_Summary'Audio'sampleRate :: !Prelude.Float,
Summary'Audio -> Int64
_Summary'Audio'numChannels :: !Data.Int.Int64,
Summary'Audio -> Int64
_Summary'Audio'lengthFrames :: !Data.Int.Int64,
Summary'Audio -> ByteString
_Summary'Audio'encodedAudioString :: !Data.ByteString.ByteString,
Summary'Audio -> Text
_Summary'Audio'contentType :: !Data.Text.Text,
Summary'Audio -> FieldSet
_Summary'Audio'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Summary'Audio -> Summary'Audio -> Bool
(Summary'Audio -> Summary'Audio -> Bool)
-> (Summary'Audio -> Summary'Audio -> Bool) -> Eq Summary'Audio
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Summary'Audio -> Summary'Audio -> Bool
$c/= :: Summary'Audio -> Summary'Audio -> Bool
== :: Summary'Audio -> Summary'Audio -> Bool
$c== :: Summary'Audio -> Summary'Audio -> Bool
Prelude.Eq, Eq Summary'Audio
Eq Summary'Audio =>
(Summary'Audio -> Summary'Audio -> Ordering)
-> (Summary'Audio -> Summary'Audio -> Bool)
-> (Summary'Audio -> Summary'Audio -> Bool)
-> (Summary'Audio -> Summary'Audio -> Bool)
-> (Summary'Audio -> Summary'Audio -> Bool)
-> (Summary'Audio -> Summary'Audio -> Summary'Audio)
-> (Summary'Audio -> Summary'Audio -> Summary'Audio)
-> Ord Summary'Audio
Summary'Audio -> Summary'Audio -> Bool
Summary'Audio -> Summary'Audio -> Ordering
Summary'Audio -> Summary'Audio -> Summary'Audio
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 :: Summary'Audio -> Summary'Audio -> Summary'Audio
$cmin :: Summary'Audio -> Summary'Audio -> Summary'Audio
max :: Summary'Audio -> Summary'Audio -> Summary'Audio
$cmax :: Summary'Audio -> Summary'Audio -> Summary'Audio
>= :: Summary'Audio -> Summary'Audio -> Bool
$c>= :: Summary'Audio -> Summary'Audio -> Bool
> :: Summary'Audio -> Summary'Audio -> Bool
$c> :: Summary'Audio -> Summary'Audio -> Bool
<= :: Summary'Audio -> Summary'Audio -> Bool
$c<= :: Summary'Audio -> Summary'Audio -> Bool
< :: Summary'Audio -> Summary'Audio -> Bool
$c< :: Summary'Audio -> Summary'Audio -> Bool
compare :: Summary'Audio -> Summary'Audio -> Ordering
$ccompare :: Summary'Audio -> Summary'Audio -> Ordering
$cp1Ord :: Eq Summary'Audio
Prelude.Ord)
instance Prelude.Show Summary'Audio where
showsPrec :: Int -> Summary'Audio -> ShowS
showsPrec _ __x :: Summary'Audio
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(Summary'Audio -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Summary'Audio
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField Summary'Audio "sampleRate" Prelude.Float where
fieldOf :: Proxy# "sampleRate"
-> (Float -> f Float) -> Summary'Audio -> f Summary'Audio
fieldOf _
= ((Float -> f Float) -> Summary'Audio -> f Summary'Audio)
-> ((Float -> f Float) -> Float -> f Float)
-> (Float -> f Float)
-> Summary'Audio
-> f Summary'Audio
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Audio -> Float)
-> (Summary'Audio -> Float -> Summary'Audio)
-> Lens Summary'Audio Summary'Audio Float Float
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Audio -> Float
_Summary'Audio'sampleRate
(\ x__ :: Summary'Audio
x__ y__ :: Float
y__ -> Summary'Audio
x__ {_Summary'Audio'sampleRate :: Float
_Summary'Audio'sampleRate = Float
y__}))
(Float -> f Float) -> Float -> f Float
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Summary'Audio "numChannels" Data.Int.Int64 where
fieldOf :: Proxy# "numChannels"
-> (Int64 -> f Int64) -> Summary'Audio -> f Summary'Audio
fieldOf _
= ((Int64 -> f Int64) -> Summary'Audio -> f Summary'Audio)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> Summary'Audio
-> f Summary'Audio
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Audio -> Int64)
-> (Summary'Audio -> Int64 -> Summary'Audio)
-> Lens Summary'Audio Summary'Audio Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Audio -> Int64
_Summary'Audio'numChannels
(\ x__ :: Summary'Audio
x__ y__ :: Int64
y__ -> Summary'Audio
x__ {_Summary'Audio'numChannels :: Int64
_Summary'Audio'numChannels = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Summary'Audio "lengthFrames" Data.Int.Int64 where
fieldOf :: Proxy# "lengthFrames"
-> (Int64 -> f Int64) -> Summary'Audio -> f Summary'Audio
fieldOf _
= ((Int64 -> f Int64) -> Summary'Audio -> f Summary'Audio)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> Summary'Audio
-> f Summary'Audio
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Audio -> Int64)
-> (Summary'Audio -> Int64 -> Summary'Audio)
-> Lens Summary'Audio Summary'Audio Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Audio -> Int64
_Summary'Audio'lengthFrames
(\ x__ :: Summary'Audio
x__ y__ :: Int64
y__ -> Summary'Audio
x__ {_Summary'Audio'lengthFrames :: Int64
_Summary'Audio'lengthFrames = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Summary'Audio "encodedAudioString" Data.ByteString.ByteString where
fieldOf :: Proxy# "encodedAudioString"
-> (ByteString -> f ByteString) -> Summary'Audio -> f Summary'Audio
fieldOf _
= ((ByteString -> f ByteString) -> Summary'Audio -> f Summary'Audio)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Summary'Audio
-> f Summary'Audio
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Audio -> ByteString)
-> (Summary'Audio -> ByteString -> Summary'Audio)
-> Lens Summary'Audio Summary'Audio ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Audio -> ByteString
_Summary'Audio'encodedAudioString
(\ x__ :: Summary'Audio
x__ y__ :: ByteString
y__ -> Summary'Audio
x__ {_Summary'Audio'encodedAudioString :: ByteString
_Summary'Audio'encodedAudioString = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Summary'Audio "contentType" Data.Text.Text where
fieldOf :: Proxy# "contentType"
-> (Text -> f Text) -> Summary'Audio -> f Summary'Audio
fieldOf _
= ((Text -> f Text) -> Summary'Audio -> f Summary'Audio)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Summary'Audio
-> f Summary'Audio
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Audio -> Text)
-> (Summary'Audio -> Text -> Summary'Audio)
-> Lens Summary'Audio Summary'Audio Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Audio -> Text
_Summary'Audio'contentType
(\ x__ :: Summary'Audio
x__ y__ :: Text
y__ -> Summary'Audio
x__ {_Summary'Audio'contentType :: Text
_Summary'Audio'contentType = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Summary'Audio where
messageName :: Proxy Summary'Audio -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.Summary.Audio"
packedMessageDescriptor :: Proxy Summary'Audio -> ByteString
packedMessageDescriptor _
= "\n\
\\ENQAudio\DC2\US\n\
\\vsample_rate\CAN\SOH \SOH(\STXR\n\
\sampleRate\DC2!\n\
\\fnum_channels\CAN\STX \SOH(\ETXR\vnumChannels\DC2#\n\
\\rlength_frames\CAN\ETX \SOH(\ETXR\flengthFrames\DC20\n\
\\DC4encoded_audio_string\CAN\EOT \SOH(\fR\DC2encodedAudioString\DC2!\n\
\\fcontent_type\CAN\ENQ \SOH(\tR\vcontentType"
packedFileDescriptor :: Proxy Summary'Audio -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Summary'Audio)
fieldsByTag
= let
sampleRate__field_descriptor :: FieldDescriptor Summary'Audio
sampleRate__field_descriptor
= String
-> FieldTypeDescriptor Float
-> FieldAccessor Summary'Audio Float
-> FieldDescriptor Summary'Audio
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"sample_rate"
(ScalarField Float -> FieldTypeDescriptor Float
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Float
Data.ProtoLens.FloatField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Float)
(WireDefault Float
-> Lens Summary'Audio Summary'Audio Float Float
-> FieldAccessor Summary'Audio Float
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Float
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "sampleRate" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sampleRate")) ::
Data.ProtoLens.FieldDescriptor Summary'Audio
numChannels__field_descriptor :: FieldDescriptor Summary'Audio
numChannels__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor Summary'Audio Int64
-> FieldDescriptor Summary'Audio
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"num_channels"
(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 Summary'Audio Summary'Audio Int64 Int64
-> FieldAccessor Summary'Audio 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 "numChannels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numChannels")) ::
Data.ProtoLens.FieldDescriptor Summary'Audio
lengthFrames__field_descriptor :: FieldDescriptor Summary'Audio
lengthFrames__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor Summary'Audio Int64
-> FieldDescriptor Summary'Audio
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"length_frames"
(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 Summary'Audio Summary'Audio Int64 Int64
-> FieldAccessor Summary'Audio 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 "lengthFrames" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lengthFrames")) ::
Data.ProtoLens.FieldDescriptor Summary'Audio
encodedAudioString__field_descriptor :: FieldDescriptor Summary'Audio
encodedAudioString__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Summary'Audio ByteString
-> FieldDescriptor Summary'Audio
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"encoded_audio_string"
(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 Summary'Audio Summary'Audio ByteString ByteString
-> FieldAccessor Summary'Audio 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 "encodedAudioString" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"encodedAudioString")) ::
Data.ProtoLens.FieldDescriptor Summary'Audio
contentType__field_descriptor :: FieldDescriptor Summary'Audio
contentType__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Summary'Audio Text
-> FieldDescriptor Summary'Audio
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"content_type"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens Summary'Audio Summary'Audio Text Text
-> FieldAccessor Summary'Audio 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 "contentType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"contentType")) ::
Data.ProtoLens.FieldDescriptor Summary'Audio
in
[(Tag, FieldDescriptor Summary'Audio)]
-> Map Tag (FieldDescriptor Summary'Audio)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor Summary'Audio
sampleRate__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor Summary'Audio
numChannels__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor Summary'Audio
lengthFrames__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor Summary'Audio
encodedAudioString__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor Summary'Audio
contentType__field_descriptor)]
unknownFields :: LensLike' f Summary'Audio FieldSet
unknownFields
= (Summary'Audio -> FieldSet)
-> (Summary'Audio -> FieldSet -> Summary'Audio)
-> Lens' Summary'Audio FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Audio -> FieldSet
_Summary'Audio'_unknownFields
(\ x__ :: Summary'Audio
x__ y__ :: FieldSet
y__ -> Summary'Audio
x__ {_Summary'Audio'_unknownFields :: FieldSet
_Summary'Audio'_unknownFields = FieldSet
y__})
defMessage :: Summary'Audio
defMessage
= $WSummary'Audio'_constructor :: Float
-> Int64
-> Int64
-> ByteString
-> Text
-> FieldSet
-> Summary'Audio
Summary'Audio'_constructor
{_Summary'Audio'sampleRate :: Float
_Summary'Audio'sampleRate = Float
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Summary'Audio'numChannels :: Int64
_Summary'Audio'numChannels = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Summary'Audio'lengthFrames :: Int64
_Summary'Audio'lengthFrames = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Summary'Audio'encodedAudioString :: ByteString
_Summary'Audio'encodedAudioString = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Summary'Audio'contentType :: Text
_Summary'Audio'contentType = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Summary'Audio'_unknownFields :: FieldSet
_Summary'Audio'_unknownFields = []}
parseMessage :: Parser Summary'Audio
parseMessage
= let
loop ::
Summary'Audio -> Data.ProtoLens.Encoding.Bytes.Parser Summary'Audio
loop :: Summary'Audio -> Parser Summary'Audio
loop x :: Summary'Audio
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]))))
Summary'Audio -> Parser Summary'Audio
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter Summary'Audio Summary'Audio FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Summary'Audio -> Summary'Audio
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 Summary'Audio Summary'Audio FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Summary'Audio
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
13
-> do Float
y <- Parser Float -> String -> Parser Float
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word32 -> Float) -> Parser Word32 -> Parser Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word32 -> Float
Data.ProtoLens.Encoding.Bytes.wordToFloat
Parser Word32
Data.ProtoLens.Encoding.Bytes.getFixed32)
"sample_rate"
Summary'Audio -> Parser Summary'Audio
loop
(Setter Summary'Audio Summary'Audio Float Float
-> Float -> Summary'Audio -> Summary'Audio
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "sampleRate" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sampleRate") Float
y Summary'Audio
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)
"num_channels"
Summary'Audio -> Parser Summary'Audio
loop
(Setter Summary'Audio Summary'Audio Int64 Int64
-> Int64 -> Summary'Audio -> Summary'Audio
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "numChannels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numChannels") Int64
y Summary'Audio
x)
24
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"length_frames"
Summary'Audio -> Parser Summary'Audio
loop
(Setter Summary'Audio Summary'Audio Int64 Int64
-> Int64 -> Summary'Audio -> Summary'Audio
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "lengthFrames" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lengthFrames") Int64
y Summary'Audio
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))
"encoded_audio_string"
Summary'Audio -> Parser Summary'Audio
loop
(Setter Summary'Audio Summary'Audio ByteString ByteString
-> ByteString -> Summary'Audio -> Summary'Audio
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "encodedAudioString" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"encodedAudioString") ByteString
y Summary'Audio
x)
42
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"content_type"
Summary'Audio -> Parser Summary'Audio
loop
(Setter Summary'Audio Summary'Audio Text Text
-> Text -> Summary'Audio -> Summary'Audio
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "contentType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"contentType") Text
y Summary'Audio
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
Summary'Audio -> Parser Summary'Audio
loop
(Setter Summary'Audio Summary'Audio FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Summary'Audio -> Summary'Audio
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 Summary'Audio Summary'Audio FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Summary'Audio
x)
in
Parser Summary'Audio -> String -> Parser Summary'Audio
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Summary'Audio -> Parser Summary'Audio
loop Summary'Audio
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "Audio"
buildMessage :: Summary'Audio -> Builder
buildMessage
= \ _x :: Summary'Audio
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Float
_v
= FoldLike Float Summary'Audio Summary'Audio Float Float
-> Summary'Audio -> Float
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "sampleRate" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sampleRate") Summary'Audio
_x
in
if Float -> Float -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Float
_v Float
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 13)
((Word32 -> Builder) -> (Float -> Word32) -> Float -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word32 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed32
Float -> Word32
Data.ProtoLens.Encoding.Bytes.floatToWord
Float
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 Summary'Audio Summary'Audio Int64 Int64
-> Summary'Audio -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "numChannels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numChannels") Summary'Audio
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 Summary'Audio Summary'Audio Int64 Int64
-> Summary'Audio -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "lengthFrames" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lengthFrames") Summary'Audio
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v
= FoldLike
ByteString Summary'Audio Summary'Audio ByteString ByteString
-> Summary'Audio -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "encodedAudioString" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"encodedAudioString") Summary'Audio
_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 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text Summary'Audio Summary'Audio Text Text
-> Summary'Audio -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "contentType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"contentType") Summary'Audio
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Summary'Audio Summary'Audio FieldSet FieldSet
-> Summary'Audio -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Summary'Audio Summary'Audio FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields Summary'Audio
_x))))))
instance Control.DeepSeq.NFData Summary'Audio where
rnf :: Summary'Audio -> ()
rnf
= \ x__ :: Summary'Audio
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Audio -> FieldSet
_Summary'Audio'_unknownFields Summary'Audio
x__)
(Float -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Audio -> Float
_Summary'Audio'sampleRate Summary'Audio
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Audio -> Int64
_Summary'Audio'numChannels Summary'Audio
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Audio -> Int64
_Summary'Audio'lengthFrames Summary'Audio
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Audio -> ByteString
_Summary'Audio'encodedAudioString Summary'Audio
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Summary'Audio -> Text
_Summary'Audio'contentType Summary'Audio
x__) ())))))
data Summary'Image
= Summary'Image'_constructor {Summary'Image -> Int32
_Summary'Image'height :: !Data.Int.Int32,
Summary'Image -> Int32
_Summary'Image'width :: !Data.Int.Int32,
Summary'Image -> Int32
_Summary'Image'colorspace :: !Data.Int.Int32,
Summary'Image -> ByteString
_Summary'Image'encodedImageString :: !Data.ByteString.ByteString,
Summary'Image -> FieldSet
_Summary'Image'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Summary'Image -> Summary'Image -> Bool
(Summary'Image -> Summary'Image -> Bool)
-> (Summary'Image -> Summary'Image -> Bool) -> Eq Summary'Image
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Summary'Image -> Summary'Image -> Bool
$c/= :: Summary'Image -> Summary'Image -> Bool
== :: Summary'Image -> Summary'Image -> Bool
$c== :: Summary'Image -> Summary'Image -> Bool
Prelude.Eq, Eq Summary'Image
Eq Summary'Image =>
(Summary'Image -> Summary'Image -> Ordering)
-> (Summary'Image -> Summary'Image -> Bool)
-> (Summary'Image -> Summary'Image -> Bool)
-> (Summary'Image -> Summary'Image -> Bool)
-> (Summary'Image -> Summary'Image -> Bool)
-> (Summary'Image -> Summary'Image -> Summary'Image)
-> (Summary'Image -> Summary'Image -> Summary'Image)
-> Ord Summary'Image
Summary'Image -> Summary'Image -> Bool
Summary'Image -> Summary'Image -> Ordering
Summary'Image -> Summary'Image -> Summary'Image
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 :: Summary'Image -> Summary'Image -> Summary'Image
$cmin :: Summary'Image -> Summary'Image -> Summary'Image
max :: Summary'Image -> Summary'Image -> Summary'Image
$cmax :: Summary'Image -> Summary'Image -> Summary'Image
>= :: Summary'Image -> Summary'Image -> Bool
$c>= :: Summary'Image -> Summary'Image -> Bool
> :: Summary'Image -> Summary'Image -> Bool
$c> :: Summary'Image -> Summary'Image -> Bool
<= :: Summary'Image -> Summary'Image -> Bool
$c<= :: Summary'Image -> Summary'Image -> Bool
< :: Summary'Image -> Summary'Image -> Bool
$c< :: Summary'Image -> Summary'Image -> Bool
compare :: Summary'Image -> Summary'Image -> Ordering
$ccompare :: Summary'Image -> Summary'Image -> Ordering
$cp1Ord :: Eq Summary'Image
Prelude.Ord)
instance Prelude.Show Summary'Image where
showsPrec :: Int -> Summary'Image -> ShowS
showsPrec _ __x :: Summary'Image
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(Summary'Image -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Summary'Image
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField Summary'Image "height" Data.Int.Int32 where
fieldOf :: Proxy# "height"
-> (Int32 -> f Int32) -> Summary'Image -> f Summary'Image
fieldOf _
= ((Int32 -> f Int32) -> Summary'Image -> f Summary'Image)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> Summary'Image
-> f Summary'Image
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Image -> Int32)
-> (Summary'Image -> Int32 -> Summary'Image)
-> Lens Summary'Image Summary'Image Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Image -> Int32
_Summary'Image'height
(\ x__ :: Summary'Image
x__ y__ :: Int32
y__ -> Summary'Image
x__ {_Summary'Image'height :: Int32
_Summary'Image'height = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Summary'Image "width" Data.Int.Int32 where
fieldOf :: Proxy# "width"
-> (Int32 -> f Int32) -> Summary'Image -> f Summary'Image
fieldOf _
= ((Int32 -> f Int32) -> Summary'Image -> f Summary'Image)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> Summary'Image
-> f Summary'Image
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Image -> Int32)
-> (Summary'Image -> Int32 -> Summary'Image)
-> Lens Summary'Image Summary'Image Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Image -> Int32
_Summary'Image'width
(\ x__ :: Summary'Image
x__ y__ :: Int32
y__ -> Summary'Image
x__ {_Summary'Image'width :: Int32
_Summary'Image'width = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Summary'Image "colorspace" Data.Int.Int32 where
fieldOf :: Proxy# "colorspace"
-> (Int32 -> f Int32) -> Summary'Image -> f Summary'Image
fieldOf _
= ((Int32 -> f Int32) -> Summary'Image -> f Summary'Image)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> Summary'Image
-> f Summary'Image
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Image -> Int32)
-> (Summary'Image -> Int32 -> Summary'Image)
-> Lens Summary'Image Summary'Image Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Image -> Int32
_Summary'Image'colorspace
(\ x__ :: Summary'Image
x__ y__ :: Int32
y__ -> Summary'Image
x__ {_Summary'Image'colorspace :: Int32
_Summary'Image'colorspace = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Summary'Image "encodedImageString" Data.ByteString.ByteString where
fieldOf :: Proxy# "encodedImageString"
-> (ByteString -> f ByteString) -> Summary'Image -> f Summary'Image
fieldOf _
= ((ByteString -> f ByteString) -> Summary'Image -> f Summary'Image)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Summary'Image
-> f Summary'Image
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Image -> ByteString)
-> (Summary'Image -> ByteString -> Summary'Image)
-> Lens Summary'Image Summary'Image ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Image -> ByteString
_Summary'Image'encodedImageString
(\ x__ :: Summary'Image
x__ y__ :: ByteString
y__ -> Summary'Image
x__ {_Summary'Image'encodedImageString :: ByteString
_Summary'Image'encodedImageString = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Summary'Image where
messageName :: Proxy Summary'Image -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.Summary.Image"
packedMessageDescriptor :: Proxy Summary'Image -> ByteString
packedMessageDescriptor _
= "\n\
\\ENQImage\DC2\SYN\n\
\\ACKheight\CAN\SOH \SOH(\ENQR\ACKheight\DC2\DC4\n\
\\ENQwidth\CAN\STX \SOH(\ENQR\ENQwidth\DC2\RS\n\
\\n\
\colorspace\CAN\ETX \SOH(\ENQR\n\
\colorspace\DC20\n\
\\DC4encoded_image_string\CAN\EOT \SOH(\fR\DC2encodedImageString"
packedFileDescriptor :: Proxy Summary'Image -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Summary'Image)
fieldsByTag
= let
height__field_descriptor :: FieldDescriptor Summary'Image
height__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor Summary'Image Int32
-> FieldDescriptor Summary'Image
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"height"
(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 Summary'Image Summary'Image Int32 Int32
-> FieldAccessor Summary'Image 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 "height" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"height")) ::
Data.ProtoLens.FieldDescriptor Summary'Image
width__field_descriptor :: FieldDescriptor Summary'Image
width__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor Summary'Image Int32
-> FieldDescriptor Summary'Image
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"width"
(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 Summary'Image Summary'Image Int32 Int32
-> FieldAccessor Summary'Image 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 "width" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"width")) ::
Data.ProtoLens.FieldDescriptor Summary'Image
colorspace__field_descriptor :: FieldDescriptor Summary'Image
colorspace__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor Summary'Image Int32
-> FieldDescriptor Summary'Image
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"colorspace"
(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 Summary'Image Summary'Image Int32 Int32
-> FieldAccessor Summary'Image 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 "colorspace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"colorspace")) ::
Data.ProtoLens.FieldDescriptor Summary'Image
encodedImageString__field_descriptor :: FieldDescriptor Summary'Image
encodedImageString__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Summary'Image ByteString
-> FieldDescriptor Summary'Image
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"encoded_image_string"
(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 Summary'Image Summary'Image ByteString ByteString
-> FieldAccessor Summary'Image 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 "encodedImageString" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"encodedImageString")) ::
Data.ProtoLens.FieldDescriptor Summary'Image
in
[(Tag, FieldDescriptor Summary'Image)]
-> Map Tag (FieldDescriptor Summary'Image)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor Summary'Image
height__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor Summary'Image
width__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor Summary'Image
colorspace__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor Summary'Image
encodedImageString__field_descriptor)]
unknownFields :: LensLike' f Summary'Image FieldSet
unknownFields
= (Summary'Image -> FieldSet)
-> (Summary'Image -> FieldSet -> Summary'Image)
-> Lens' Summary'Image FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Image -> FieldSet
_Summary'Image'_unknownFields
(\ x__ :: Summary'Image
x__ y__ :: FieldSet
y__ -> Summary'Image
x__ {_Summary'Image'_unknownFields :: FieldSet
_Summary'Image'_unknownFields = FieldSet
y__})
defMessage :: Summary'Image
defMessage
= $WSummary'Image'_constructor :: Int32 -> Int32 -> Int32 -> ByteString -> FieldSet -> Summary'Image
Summary'Image'_constructor
{_Summary'Image'height :: Int32
_Summary'Image'height = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Summary'Image'width :: Int32
_Summary'Image'width = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Summary'Image'colorspace :: Int32
_Summary'Image'colorspace = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Summary'Image'encodedImageString :: ByteString
_Summary'Image'encodedImageString = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Summary'Image'_unknownFields :: FieldSet
_Summary'Image'_unknownFields = []}
parseMessage :: Parser Summary'Image
parseMessage
= let
loop ::
Summary'Image -> Data.ProtoLens.Encoding.Bytes.Parser Summary'Image
loop :: Summary'Image -> Parser Summary'Image
loop x :: Summary'Image
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]))))
Summary'Image -> Parser Summary'Image
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter Summary'Image Summary'Image FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Summary'Image -> Summary'Image
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 Summary'Image Summary'Image FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Summary'Image
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)
"height"
Summary'Image -> Parser Summary'Image
loop (Setter Summary'Image Summary'Image Int32 Int32
-> Int32 -> Summary'Image -> Summary'Image
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "height" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"height") Int32
y Summary'Image
x)
16
-> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"width"
Summary'Image -> Parser Summary'Image
loop (Setter Summary'Image Summary'Image Int32 Int32
-> Int32 -> Summary'Image -> Summary'Image
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "width" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"width") Int32
y Summary'Image
x)
24
-> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"colorspace"
Summary'Image -> Parser Summary'Image
loop
(Setter Summary'Image Summary'Image Int32 Int32
-> Int32 -> Summary'Image -> Summary'Image
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "colorspace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"colorspace") Int32
y Summary'Image
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))
"encoded_image_string"
Summary'Image -> Parser Summary'Image
loop
(Setter Summary'Image Summary'Image ByteString ByteString
-> ByteString -> Summary'Image -> Summary'Image
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "encodedImageString" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"encodedImageString") ByteString
y Summary'Image
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
Summary'Image -> Parser Summary'Image
loop
(Setter Summary'Image Summary'Image FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Summary'Image -> Summary'Image
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 Summary'Image Summary'Image FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Summary'Image
x)
in
Parser Summary'Image -> String -> Parser Summary'Image
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Summary'Image -> Parser Summary'Image
loop Summary'Image
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "Image"
buildMessage :: Summary'Image -> Builder
buildMessage
= \ _x :: Summary'Image
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v = FoldLike Int32 Summary'Image Summary'Image Int32 Int32
-> Summary'Image -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "height" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"height") Summary'Image
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v = FoldLike Int32 Summary'Image Summary'Image Int32 Int32
-> Summary'Image -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "width" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"width") Summary'Image
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v
= FoldLike Int32 Summary'Image Summary'Image Int32 Int32
-> Summary'Image -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "colorspace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"colorspace") Summary'Image
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v
= FoldLike
ByteString Summary'Image Summary'Image ByteString ByteString
-> Summary'Image -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "encodedImageString" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"encodedImageString") Summary'Image
_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 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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Summary'Image Summary'Image FieldSet FieldSet
-> Summary'Image -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Summary'Image Summary'Image FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields Summary'Image
_x)))))
instance Control.DeepSeq.NFData Summary'Image where
rnf :: Summary'Image -> ()
rnf
= \ x__ :: Summary'Image
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Image -> FieldSet
_Summary'Image'_unknownFields Summary'Image
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Image -> Int32
_Summary'Image'height Summary'Image
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Image -> Int32
_Summary'Image'width Summary'Image
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Image -> Int32
_Summary'Image'colorspace Summary'Image
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Image -> ByteString
_Summary'Image'encodedImageString Summary'Image
x__) ()))))
data Summary'Value
= Summary'Value'_constructor {Summary'Value -> Text
_Summary'Value'nodeName :: !Data.Text.Text,
Summary'Value -> Text
_Summary'Value'tag :: !Data.Text.Text,
Summary'Value -> Maybe SummaryMetadata
_Summary'Value'metadata :: !(Prelude.Maybe SummaryMetadata),
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value :: !(Prelude.Maybe Summary'Value'Value),
Summary'Value -> FieldSet
_Summary'Value'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Summary'Value -> Summary'Value -> Bool
(Summary'Value -> Summary'Value -> Bool)
-> (Summary'Value -> Summary'Value -> Bool) -> Eq Summary'Value
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Summary'Value -> Summary'Value -> Bool
$c/= :: Summary'Value -> Summary'Value -> Bool
== :: Summary'Value -> Summary'Value -> Bool
$c== :: Summary'Value -> Summary'Value -> Bool
Prelude.Eq, Eq Summary'Value
Eq Summary'Value =>
(Summary'Value -> Summary'Value -> Ordering)
-> (Summary'Value -> Summary'Value -> Bool)
-> (Summary'Value -> Summary'Value -> Bool)
-> (Summary'Value -> Summary'Value -> Bool)
-> (Summary'Value -> Summary'Value -> Bool)
-> (Summary'Value -> Summary'Value -> Summary'Value)
-> (Summary'Value -> Summary'Value -> Summary'Value)
-> Ord Summary'Value
Summary'Value -> Summary'Value -> Bool
Summary'Value -> Summary'Value -> Ordering
Summary'Value -> Summary'Value -> Summary'Value
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Summary'Value -> Summary'Value -> Summary'Value
$cmin :: Summary'Value -> Summary'Value -> Summary'Value
max :: Summary'Value -> Summary'Value -> Summary'Value
$cmax :: Summary'Value -> Summary'Value -> Summary'Value
>= :: Summary'Value -> Summary'Value -> Bool
$c>= :: Summary'Value -> Summary'Value -> Bool
> :: Summary'Value -> Summary'Value -> Bool
$c> :: Summary'Value -> Summary'Value -> Bool
<= :: Summary'Value -> Summary'Value -> Bool
$c<= :: Summary'Value -> Summary'Value -> Bool
< :: Summary'Value -> Summary'Value -> Bool
$c< :: Summary'Value -> Summary'Value -> Bool
compare :: Summary'Value -> Summary'Value -> Ordering
$ccompare :: Summary'Value -> Summary'Value -> Ordering
$cp1Ord :: Eq Summary'Value
Prelude.Ord)
instance Prelude.Show Summary'Value where
showsPrec :: Int -> Summary'Value -> ShowS
showsPrec _ __x :: Summary'Value
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(Summary'Value -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Summary'Value
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data Summary'Value'Value
= Summary'Value'SimpleValue !Prelude.Float |
Summary'Value'ObsoleteOldStyleHistogram !Data.ByteString.ByteString |
Summary'Value'Image !Summary'Image |
Summary'Value'Histo !HistogramProto |
Summary'Value'Audio !Summary'Audio |
Summary'Value'Tensor !Proto.Tensorflow.Core.Framework.Tensor.TensorProto
deriving stock (Int -> Summary'Value'Value -> ShowS
[Summary'Value'Value] -> ShowS
Summary'Value'Value -> String
(Int -> Summary'Value'Value -> ShowS)
-> (Summary'Value'Value -> String)
-> ([Summary'Value'Value] -> ShowS)
-> Show Summary'Value'Value
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Summary'Value'Value] -> ShowS
$cshowList :: [Summary'Value'Value] -> ShowS
show :: Summary'Value'Value -> String
$cshow :: Summary'Value'Value -> String
showsPrec :: Int -> Summary'Value'Value -> ShowS
$cshowsPrec :: Int -> Summary'Value'Value -> ShowS
Prelude.Show, Summary'Value'Value -> Summary'Value'Value -> Bool
(Summary'Value'Value -> Summary'Value'Value -> Bool)
-> (Summary'Value'Value -> Summary'Value'Value -> Bool)
-> Eq Summary'Value'Value
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Summary'Value'Value -> Summary'Value'Value -> Bool
$c/= :: Summary'Value'Value -> Summary'Value'Value -> Bool
== :: Summary'Value'Value -> Summary'Value'Value -> Bool
$c== :: Summary'Value'Value -> Summary'Value'Value -> Bool
Prelude.Eq, Eq Summary'Value'Value
Eq Summary'Value'Value =>
(Summary'Value'Value -> Summary'Value'Value -> Ordering)
-> (Summary'Value'Value -> Summary'Value'Value -> Bool)
-> (Summary'Value'Value -> Summary'Value'Value -> Bool)
-> (Summary'Value'Value -> Summary'Value'Value -> Bool)
-> (Summary'Value'Value -> Summary'Value'Value -> Bool)
-> (Summary'Value'Value
-> Summary'Value'Value -> Summary'Value'Value)
-> (Summary'Value'Value
-> Summary'Value'Value -> Summary'Value'Value)
-> Ord Summary'Value'Value
Summary'Value'Value -> Summary'Value'Value -> Bool
Summary'Value'Value -> Summary'Value'Value -> Ordering
Summary'Value'Value -> Summary'Value'Value -> Summary'Value'Value
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Summary'Value'Value -> Summary'Value'Value -> Summary'Value'Value
$cmin :: Summary'Value'Value -> Summary'Value'Value -> Summary'Value'Value
max :: Summary'Value'Value -> Summary'Value'Value -> Summary'Value'Value
$cmax :: Summary'Value'Value -> Summary'Value'Value -> Summary'Value'Value
>= :: Summary'Value'Value -> Summary'Value'Value -> Bool
$c>= :: Summary'Value'Value -> Summary'Value'Value -> Bool
> :: Summary'Value'Value -> Summary'Value'Value -> Bool
$c> :: Summary'Value'Value -> Summary'Value'Value -> Bool
<= :: Summary'Value'Value -> Summary'Value'Value -> Bool
$c<= :: Summary'Value'Value -> Summary'Value'Value -> Bool
< :: Summary'Value'Value -> Summary'Value'Value -> Bool
$c< :: Summary'Value'Value -> Summary'Value'Value -> Bool
compare :: Summary'Value'Value -> Summary'Value'Value -> Ordering
$ccompare :: Summary'Value'Value -> Summary'Value'Value -> Ordering
$cp1Ord :: Eq Summary'Value'Value
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Summary'Value "nodeName" Data.Text.Text where
fieldOf :: Proxy# "nodeName"
-> (Text -> f Text) -> Summary'Value -> f Summary'Value
fieldOf _
= ((Text -> f Text) -> Summary'Value -> f Summary'Value)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Text)
-> (Summary'Value -> Text -> Summary'Value)
-> Lens Summary'Value Summary'Value Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Text
_Summary'Value'nodeName
(\ x__ :: Summary'Value
x__ y__ :: Text
y__ -> Summary'Value
x__ {_Summary'Value'nodeName :: Text
_Summary'Value'nodeName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Summary'Value "tag" Data.Text.Text where
fieldOf :: Proxy# "tag"
-> (Text -> f Text) -> Summary'Value -> f Summary'Value
fieldOf _
= ((Text -> f Text) -> Summary'Value -> f Summary'Value)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Text)
-> (Summary'Value -> Text -> Summary'Value)
-> Lens Summary'Value Summary'Value Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Text
_Summary'Value'tag (\ x__ :: Summary'Value
x__ y__ :: Text
y__ -> Summary'Value
x__ {_Summary'Value'tag :: Text
_Summary'Value'tag = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Summary'Value "metadata" SummaryMetadata where
fieldOf :: Proxy# "metadata"
-> (SummaryMetadata -> f SummaryMetadata)
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe SummaryMetadata -> f (Maybe SummaryMetadata))
-> Summary'Value -> f Summary'Value)
-> ((SummaryMetadata -> f SummaryMetadata)
-> Maybe SummaryMetadata -> f (Maybe SummaryMetadata))
-> (SummaryMetadata -> f SummaryMetadata)
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe SummaryMetadata)
-> (Summary'Value -> Maybe SummaryMetadata -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe SummaryMetadata)
(Maybe SummaryMetadata)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe SummaryMetadata
_Summary'Value'metadata
(\ x__ :: Summary'Value
x__ y__ :: Maybe SummaryMetadata
y__ -> Summary'Value
x__ {_Summary'Value'metadata :: Maybe SummaryMetadata
_Summary'Value'metadata = Maybe SummaryMetadata
y__}))
(SummaryMetadata -> Lens' (Maybe SummaryMetadata) SummaryMetadata
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SummaryMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Summary'Value "maybe'metadata" (Prelude.Maybe SummaryMetadata) where
fieldOf :: Proxy# "maybe'metadata"
-> (Maybe SummaryMetadata -> f (Maybe SummaryMetadata))
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe SummaryMetadata -> f (Maybe SummaryMetadata))
-> Summary'Value -> f Summary'Value)
-> ((Maybe SummaryMetadata -> f (Maybe SummaryMetadata))
-> Maybe SummaryMetadata -> f (Maybe SummaryMetadata))
-> (Maybe SummaryMetadata -> f (Maybe SummaryMetadata))
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe SummaryMetadata)
-> (Summary'Value -> Maybe SummaryMetadata -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe SummaryMetadata)
(Maybe SummaryMetadata)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe SummaryMetadata
_Summary'Value'metadata
(\ x__ :: Summary'Value
x__ y__ :: Maybe SummaryMetadata
y__ -> Summary'Value
x__ {_Summary'Value'metadata :: Maybe SummaryMetadata
_Summary'Value'metadata = Maybe SummaryMetadata
y__}))
(Maybe SummaryMetadata -> f (Maybe SummaryMetadata))
-> Maybe SummaryMetadata -> f (Maybe SummaryMetadata)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Summary'Value "maybe'value" (Prelude.Maybe Summary'Value'Value) where
fieldOf :: Proxy# "maybe'value"
-> (Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
(Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Summary'Value "maybe'simpleValue" (Prelude.Maybe Prelude.Float) where
fieldOf :: Proxy# "maybe'simpleValue"
-> (Maybe Float -> f (Maybe Float))
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((Maybe Float -> f (Maybe Float))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (Maybe Float -> f (Maybe Float))
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
((Maybe Summary'Value'Value -> Maybe Float)
-> (Maybe Summary'Value'Value
-> Maybe Float -> Maybe Summary'Value'Value)
-> Lens
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
(Maybe Float)
(Maybe Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Summary'Value'Value
x__
-> case Maybe Summary'Value'Value
x__ of
(Prelude.Just (Summary'Value'SimpleValue x__val :: Float
x__val))
-> Float -> Maybe Float
forall a. a -> Maybe a
Prelude.Just Float
x__val
_otherwise :: Maybe Summary'Value'Value
_otherwise -> Maybe Float
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe Float
y__ -> (Float -> Summary'Value'Value)
-> Maybe Float -> Maybe Summary'Value'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Float -> Summary'Value'Value
Summary'Value'SimpleValue Maybe Float
y__))
instance Data.ProtoLens.Field.HasField Summary'Value "simpleValue" Prelude.Float where
fieldOf :: Proxy# "simpleValue"
-> (Float -> f Float) -> Summary'Value -> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((Float -> f Float)
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (Float -> f Float)
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
(((Maybe Float -> f (Maybe Float))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> ((Float -> f Float) -> Maybe Float -> f (Maybe Float))
-> (Float -> f Float)
-> Maybe Summary'Value'Value
-> f (Maybe Summary'Value'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Summary'Value'Value -> Maybe Float)
-> (Maybe Summary'Value'Value
-> Maybe Float -> Maybe Summary'Value'Value)
-> Lens
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
(Maybe Float)
(Maybe Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Summary'Value'Value
x__
-> case Maybe Summary'Value'Value
x__ of
(Prelude.Just (Summary'Value'SimpleValue x__val :: Float
x__val))
-> Float -> Maybe Float
forall a. a -> Maybe a
Prelude.Just Float
x__val
_otherwise :: Maybe Summary'Value'Value
_otherwise -> Maybe Float
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe Float
y__ -> (Float -> Summary'Value'Value)
-> Maybe Float -> Maybe Summary'Value'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Float -> Summary'Value'Value
Summary'Value'SimpleValue Maybe Float
y__))
(Float -> Lens' (Maybe Float) Float
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Float
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField Summary'Value "maybe'obsoleteOldStyleHistogram" (Prelude.Maybe Data.ByteString.ByteString) where
fieldOf :: Proxy# "maybe'obsoleteOldStyleHistogram"
-> (Maybe ByteString -> f (Maybe ByteString))
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((Maybe ByteString -> f (Maybe ByteString))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (Maybe ByteString -> f (Maybe ByteString))
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
((Maybe Summary'Value'Value -> Maybe ByteString)
-> (Maybe Summary'Value'Value
-> Maybe ByteString -> Maybe Summary'Value'Value)
-> Lens
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
(Maybe ByteString)
(Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Summary'Value'Value
x__
-> case Maybe Summary'Value'Value
x__ of
(Prelude.Just (Summary'Value'ObsoleteOldStyleHistogram x__val :: ByteString
x__val))
-> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
_otherwise :: Maybe Summary'Value'Value
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe ByteString
y__
-> (ByteString -> Summary'Value'Value)
-> Maybe ByteString -> Maybe Summary'Value'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Summary'Value'Value
Summary'Value'ObsoleteOldStyleHistogram Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField Summary'Value "obsoleteOldStyleHistogram" Data.ByteString.ByteString where
fieldOf :: Proxy# "obsoleteOldStyleHistogram"
-> (ByteString -> f ByteString) -> Summary'Value -> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((ByteString -> f ByteString)
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (ByteString -> f ByteString)
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
(((Maybe ByteString -> f (Maybe ByteString))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> ((ByteString -> f ByteString)
-> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe Summary'Value'Value
-> f (Maybe Summary'Value'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Summary'Value'Value -> Maybe ByteString)
-> (Maybe Summary'Value'Value
-> Maybe ByteString -> Maybe Summary'Value'Value)
-> Lens
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
(Maybe ByteString)
(Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Summary'Value'Value
x__
-> case Maybe Summary'Value'Value
x__ of
(Prelude.Just (Summary'Value'ObsoleteOldStyleHistogram x__val :: ByteString
x__val))
-> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
_otherwise :: Maybe Summary'Value'Value
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe ByteString
y__
-> (ByteString -> Summary'Value'Value)
-> Maybe ByteString -> Maybe Summary'Value'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Summary'Value'Value
Summary'Value'ObsoleteOldStyleHistogram 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 Summary'Value "maybe'image" (Prelude.Maybe Summary'Image) where
fieldOf :: Proxy# "maybe'image"
-> (Maybe Summary'Image -> f (Maybe Summary'Image))
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((Maybe Summary'Image -> f (Maybe Summary'Image))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (Maybe Summary'Image -> f (Maybe Summary'Image))
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
((Maybe Summary'Value'Value -> Maybe Summary'Image)
-> (Maybe Summary'Value'Value
-> Maybe Summary'Image -> Maybe Summary'Value'Value)
-> Lens
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
(Maybe Summary'Image)
(Maybe Summary'Image)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Summary'Value'Value
x__
-> case Maybe Summary'Value'Value
x__ of
(Prelude.Just (Summary'Value'Image x__val :: Summary'Image
x__val)) -> Summary'Image -> Maybe Summary'Image
forall a. a -> Maybe a
Prelude.Just Summary'Image
x__val
_otherwise :: Maybe Summary'Value'Value
_otherwise -> Maybe Summary'Image
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe Summary'Image
y__ -> (Summary'Image -> Summary'Value'Value)
-> Maybe Summary'Image -> Maybe Summary'Value'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Summary'Image -> Summary'Value'Value
Summary'Value'Image Maybe Summary'Image
y__))
instance Data.ProtoLens.Field.HasField Summary'Value "image" Summary'Image where
fieldOf :: Proxy# "image"
-> (Summary'Image -> f Summary'Image)
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((Summary'Image -> f Summary'Image)
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (Summary'Image -> f Summary'Image)
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
(((Maybe Summary'Image -> f (Maybe Summary'Image))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> ((Summary'Image -> f Summary'Image)
-> Maybe Summary'Image -> f (Maybe Summary'Image))
-> (Summary'Image -> f Summary'Image)
-> Maybe Summary'Value'Value
-> f (Maybe Summary'Value'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Summary'Value'Value -> Maybe Summary'Image)
-> (Maybe Summary'Value'Value
-> Maybe Summary'Image -> Maybe Summary'Value'Value)
-> Lens
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
(Maybe Summary'Image)
(Maybe Summary'Image)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Summary'Value'Value
x__
-> case Maybe Summary'Value'Value
x__ of
(Prelude.Just (Summary'Value'Image x__val :: Summary'Image
x__val)) -> Summary'Image -> Maybe Summary'Image
forall a. a -> Maybe a
Prelude.Just Summary'Image
x__val
_otherwise :: Maybe Summary'Value'Value
_otherwise -> Maybe Summary'Image
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe Summary'Image
y__ -> (Summary'Image -> Summary'Value'Value)
-> Maybe Summary'Image -> Maybe Summary'Value'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Summary'Image -> Summary'Value'Value
Summary'Value'Image Maybe Summary'Image
y__))
(Summary'Image -> Lens' (Maybe Summary'Image) Summary'Image
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Summary'Image
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Summary'Value "maybe'histo" (Prelude.Maybe HistogramProto) where
fieldOf :: Proxy# "maybe'histo"
-> (Maybe HistogramProto -> f (Maybe HistogramProto))
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((Maybe HistogramProto -> f (Maybe HistogramProto))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (Maybe HistogramProto -> f (Maybe HistogramProto))
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
((Maybe Summary'Value'Value -> Maybe HistogramProto)
-> (Maybe Summary'Value'Value
-> Maybe HistogramProto -> Maybe Summary'Value'Value)
-> Lens
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
(Maybe HistogramProto)
(Maybe HistogramProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Summary'Value'Value
x__
-> case Maybe Summary'Value'Value
x__ of
(Prelude.Just (Summary'Value'Histo x__val :: HistogramProto
x__val)) -> HistogramProto -> Maybe HistogramProto
forall a. a -> Maybe a
Prelude.Just HistogramProto
x__val
_otherwise :: Maybe Summary'Value'Value
_otherwise -> Maybe HistogramProto
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe HistogramProto
y__ -> (HistogramProto -> Summary'Value'Value)
-> Maybe HistogramProto -> Maybe Summary'Value'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap HistogramProto -> Summary'Value'Value
Summary'Value'Histo Maybe HistogramProto
y__))
instance Data.ProtoLens.Field.HasField Summary'Value "histo" HistogramProto where
fieldOf :: Proxy# "histo"
-> (HistogramProto -> f HistogramProto)
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((HistogramProto -> f HistogramProto)
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (HistogramProto -> f HistogramProto)
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
(((Maybe HistogramProto -> f (Maybe HistogramProto))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> ((HistogramProto -> f HistogramProto)
-> Maybe HistogramProto -> f (Maybe HistogramProto))
-> (HistogramProto -> f HistogramProto)
-> Maybe Summary'Value'Value
-> f (Maybe Summary'Value'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Summary'Value'Value -> Maybe HistogramProto)
-> (Maybe Summary'Value'Value
-> Maybe HistogramProto -> Maybe Summary'Value'Value)
-> Lens
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
(Maybe HistogramProto)
(Maybe HistogramProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Summary'Value'Value
x__
-> case Maybe Summary'Value'Value
x__ of
(Prelude.Just (Summary'Value'Histo x__val :: HistogramProto
x__val)) -> HistogramProto -> Maybe HistogramProto
forall a. a -> Maybe a
Prelude.Just HistogramProto
x__val
_otherwise :: Maybe Summary'Value'Value
_otherwise -> Maybe HistogramProto
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe HistogramProto
y__ -> (HistogramProto -> Summary'Value'Value)
-> Maybe HistogramProto -> Maybe Summary'Value'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap HistogramProto -> Summary'Value'Value
Summary'Value'Histo Maybe HistogramProto
y__))
(HistogramProto -> Lens' (Maybe HistogramProto) HistogramProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens HistogramProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Summary'Value "maybe'audio" (Prelude.Maybe Summary'Audio) where
fieldOf :: Proxy# "maybe'audio"
-> (Maybe Summary'Audio -> f (Maybe Summary'Audio))
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((Maybe Summary'Audio -> f (Maybe Summary'Audio))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (Maybe Summary'Audio -> f (Maybe Summary'Audio))
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
((Maybe Summary'Value'Value -> Maybe Summary'Audio)
-> (Maybe Summary'Value'Value
-> Maybe Summary'Audio -> Maybe Summary'Value'Value)
-> Lens
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
(Maybe Summary'Audio)
(Maybe Summary'Audio)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Summary'Value'Value
x__
-> case Maybe Summary'Value'Value
x__ of
(Prelude.Just (Summary'Value'Audio x__val :: Summary'Audio
x__val)) -> Summary'Audio -> Maybe Summary'Audio
forall a. a -> Maybe a
Prelude.Just Summary'Audio
x__val
_otherwise :: Maybe Summary'Value'Value
_otherwise -> Maybe Summary'Audio
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe Summary'Audio
y__ -> (Summary'Audio -> Summary'Value'Value)
-> Maybe Summary'Audio -> Maybe Summary'Value'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Summary'Audio -> Summary'Value'Value
Summary'Value'Audio Maybe Summary'Audio
y__))
instance Data.ProtoLens.Field.HasField Summary'Value "audio" Summary'Audio where
fieldOf :: Proxy# "audio"
-> (Summary'Audio -> f Summary'Audio)
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((Summary'Audio -> f Summary'Audio)
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (Summary'Audio -> f Summary'Audio)
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
(((Maybe Summary'Audio -> f (Maybe Summary'Audio))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> ((Summary'Audio -> f Summary'Audio)
-> Maybe Summary'Audio -> f (Maybe Summary'Audio))
-> (Summary'Audio -> f Summary'Audio)
-> Maybe Summary'Value'Value
-> f (Maybe Summary'Value'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Summary'Value'Value -> Maybe Summary'Audio)
-> (Maybe Summary'Value'Value
-> Maybe Summary'Audio -> Maybe Summary'Value'Value)
-> Lens
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
(Maybe Summary'Audio)
(Maybe Summary'Audio)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Summary'Value'Value
x__
-> case Maybe Summary'Value'Value
x__ of
(Prelude.Just (Summary'Value'Audio x__val :: Summary'Audio
x__val)) -> Summary'Audio -> Maybe Summary'Audio
forall a. a -> Maybe a
Prelude.Just Summary'Audio
x__val
_otherwise :: Maybe Summary'Value'Value
_otherwise -> Maybe Summary'Audio
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe Summary'Audio
y__ -> (Summary'Audio -> Summary'Value'Value)
-> Maybe Summary'Audio -> Maybe Summary'Value'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Summary'Audio -> Summary'Value'Value
Summary'Value'Audio Maybe Summary'Audio
y__))
(Summary'Audio -> Lens' (Maybe Summary'Audio) Summary'Audio
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Summary'Audio
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Summary'Value "maybe'tensor" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto) where
fieldOf :: Proxy# "maybe'tensor"
-> (Maybe TensorProto -> f (Maybe TensorProto))
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((Maybe TensorProto -> f (Maybe TensorProto))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (Maybe TensorProto -> f (Maybe TensorProto))
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
((Maybe Summary'Value'Value -> Maybe TensorProto)
-> (Maybe Summary'Value'Value
-> Maybe TensorProto -> Maybe Summary'Value'Value)
-> Lens
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
(Maybe TensorProto)
(Maybe TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Summary'Value'Value
x__
-> case Maybe Summary'Value'Value
x__ of
(Prelude.Just (Summary'Value'Tensor x__val :: TensorProto
x__val)) -> TensorProto -> Maybe TensorProto
forall a. a -> Maybe a
Prelude.Just TensorProto
x__val
_otherwise :: Maybe Summary'Value'Value
_otherwise -> Maybe TensorProto
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe TensorProto
y__ -> (TensorProto -> Summary'Value'Value)
-> Maybe TensorProto -> Maybe Summary'Value'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorProto -> Summary'Value'Value
Summary'Value'Tensor Maybe TensorProto
y__))
instance Data.ProtoLens.Field.HasField Summary'Value "tensor" Proto.Tensorflow.Core.Framework.Tensor.TensorProto where
fieldOf :: Proxy# "tensor"
-> (TensorProto -> f TensorProto)
-> Summary'Value
-> f Summary'Value
fieldOf _
= ((Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> Summary'Value -> f Summary'Value)
-> ((TensorProto -> f TensorProto)
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> (TensorProto -> f TensorProto)
-> Summary'Value
-> f Summary'Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary'Value -> Maybe Summary'Value'Value)
-> (Summary'Value -> Maybe Summary'Value'Value -> Summary'Value)
-> Lens
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value
(\ x__ :: Summary'Value
x__ y__ :: Maybe Summary'Value'Value
y__ -> Summary'Value
x__ {_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
y__}))
(((Maybe TensorProto -> f (Maybe TensorProto))
-> Maybe Summary'Value'Value -> f (Maybe Summary'Value'Value))
-> ((TensorProto -> f TensorProto)
-> Maybe TensorProto -> f (Maybe TensorProto))
-> (TensorProto -> f TensorProto)
-> Maybe Summary'Value'Value
-> f (Maybe Summary'Value'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Summary'Value'Value -> Maybe TensorProto)
-> (Maybe Summary'Value'Value
-> Maybe TensorProto -> Maybe Summary'Value'Value)
-> Lens
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
(Maybe TensorProto)
(Maybe TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe Summary'Value'Value
x__
-> case Maybe Summary'Value'Value
x__ of
(Prelude.Just (Summary'Value'Tensor x__val :: TensorProto
x__val)) -> TensorProto -> Maybe TensorProto
forall a. a -> Maybe a
Prelude.Just TensorProto
x__val
_otherwise :: Maybe Summary'Value'Value
_otherwise -> Maybe TensorProto
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe TensorProto
y__ -> (TensorProto -> Summary'Value'Value)
-> Maybe TensorProto -> Maybe Summary'Value'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorProto -> Summary'Value'Value
Summary'Value'Tensor Maybe TensorProto
y__))
(TensorProto -> Lens' (Maybe TensorProto) TensorProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message Summary'Value where
messageName :: Proxy Summary'Value -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.Summary.Value"
packedMessageDescriptor :: Proxy Summary'Value -> ByteString
packedMessageDescriptor _
= "\n\
\\ENQValue\DC2\ESC\n\
\\tnode_name\CAN\a \SOH(\tR\bnodeName\DC2\DLE\n\
\\ETXtag\CAN\SOH \SOH(\tR\ETXtag\DC27\n\
\\bmetadata\CAN\t \SOH(\v2\ESC.tensorflow.SummaryMetadataR\bmetadata\DC2#\n\
\\fsimple_value\CAN\STX \SOH(\STXH\NULR\vsimpleValue\DC2A\n\
\\FSobsolete_old_style_histogram\CAN\ETX \SOH(\fH\NULR\EMobsoleteOldStyleHistogram\DC21\n\
\\ENQimage\CAN\EOT \SOH(\v2\EM.tensorflow.Summary.ImageH\NULR\ENQimage\DC22\n\
\\ENQhisto\CAN\ENQ \SOH(\v2\SUB.tensorflow.HistogramProtoH\NULR\ENQhisto\DC21\n\
\\ENQaudio\CAN\ACK \SOH(\v2\EM.tensorflow.Summary.AudioH\NULR\ENQaudio\DC21\n\
\\ACKtensor\CAN\b \SOH(\v2\ETB.tensorflow.TensorProtoH\NULR\ACKtensorB\a\n\
\\ENQvalue"
packedFileDescriptor :: Proxy Summary'Value -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Summary'Value)
fieldsByTag
= let
nodeName__field_descriptor :: FieldDescriptor Summary'Value
nodeName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Summary'Value Text
-> FieldDescriptor Summary'Value
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"node_name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens Summary'Value Summary'Value Text Text
-> FieldAccessor Summary'Value 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 "nodeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeName")) ::
Data.ProtoLens.FieldDescriptor Summary'Value
tag__field_descriptor :: FieldDescriptor Summary'Value
tag__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Summary'Value Text
-> FieldDescriptor Summary'Value
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 Summary'Value Summary'Value Text Text
-> FieldAccessor Summary'Value 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 Summary'Value
metadata__field_descriptor :: FieldDescriptor Summary'Value
metadata__field_descriptor
= String
-> FieldTypeDescriptor SummaryMetadata
-> FieldAccessor Summary'Value SummaryMetadata
-> FieldDescriptor Summary'Value
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"metadata"
(MessageOrGroup -> FieldTypeDescriptor SummaryMetadata
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SummaryMetadata)
(Lens
Summary'Value
Summary'Value
(Maybe SummaryMetadata)
(Maybe SummaryMetadata)
-> FieldAccessor Summary'Value SummaryMetadata
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'metadata" a, Functor f) =>
(a -> f a) -> s -> 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'metadata")) ::
Data.ProtoLens.FieldDescriptor Summary'Value
simpleValue__field_descriptor :: FieldDescriptor Summary'Value
simpleValue__field_descriptor
= String
-> FieldTypeDescriptor Float
-> FieldAccessor Summary'Value Float
-> FieldDescriptor Summary'Value
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"simple_value"
(ScalarField Float -> FieldTypeDescriptor Float
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Float
Data.ProtoLens.FloatField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Float)
(Lens' Summary'Value (Maybe Float)
-> FieldAccessor Summary'Value Float
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'simpleValue" a, Functor f) =>
(a -> f a) -> s -> 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'simpleValue")) ::
Data.ProtoLens.FieldDescriptor Summary'Value
obsoleteOldStyleHistogram__field_descriptor :: FieldDescriptor Summary'Value
obsoleteOldStyleHistogram__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Summary'Value ByteString
-> FieldDescriptor Summary'Value
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"obsolete_old_style_histogram"
(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' Summary'Value (Maybe ByteString)
-> FieldAccessor Summary'Value ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'obsoleteOldStyleHistogram" a, Functor f) =>
(a -> f a) -> s -> 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'obsoleteOldStyleHistogram")) ::
Data.ProtoLens.FieldDescriptor Summary'Value
image__field_descriptor :: FieldDescriptor Summary'Value
image__field_descriptor
= String
-> FieldTypeDescriptor Summary'Image
-> FieldAccessor Summary'Value Summary'Image
-> FieldDescriptor Summary'Value
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"image"
(MessageOrGroup -> FieldTypeDescriptor Summary'Image
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Summary'Image)
(Lens' Summary'Value (Maybe Summary'Image)
-> FieldAccessor Summary'Value Summary'Image
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'image" a, Functor f) =>
(a -> f a) -> s -> 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'image")) ::
Data.ProtoLens.FieldDescriptor Summary'Value
histo__field_descriptor :: FieldDescriptor Summary'Value
histo__field_descriptor
= String
-> FieldTypeDescriptor HistogramProto
-> FieldAccessor Summary'Value HistogramProto
-> FieldDescriptor Summary'Value
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"histo"
(MessageOrGroup -> FieldTypeDescriptor HistogramProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor HistogramProto)
(Lens' Summary'Value (Maybe HistogramProto)
-> FieldAccessor Summary'Value HistogramProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'histo" a, Functor f) =>
(a -> f a) -> s -> 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'histo")) ::
Data.ProtoLens.FieldDescriptor Summary'Value
audio__field_descriptor :: FieldDescriptor Summary'Value
audio__field_descriptor
= String
-> FieldTypeDescriptor Summary'Audio
-> FieldAccessor Summary'Value Summary'Audio
-> FieldDescriptor Summary'Value
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"audio"
(MessageOrGroup -> FieldTypeDescriptor Summary'Audio
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Summary'Audio)
(Lens' Summary'Value (Maybe Summary'Audio)
-> FieldAccessor Summary'Value Summary'Audio
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'audio" a, Functor f) =>
(a -> f a) -> s -> 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'audio")) ::
Data.ProtoLens.FieldDescriptor Summary'Value
tensor__field_descriptor :: FieldDescriptor Summary'Value
tensor__field_descriptor
= String
-> FieldTypeDescriptor TensorProto
-> FieldAccessor Summary'Value TensorProto
-> FieldDescriptor Summary'Value
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tensor"
(MessageOrGroup -> FieldTypeDescriptor TensorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Tensor.TensorProto)
(Lens' Summary'Value (Maybe TensorProto)
-> FieldAccessor Summary'Value TensorProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'tensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'tensor")) ::
Data.ProtoLens.FieldDescriptor Summary'Value
in
[(Tag, FieldDescriptor Summary'Value)]
-> Map Tag (FieldDescriptor Summary'Value)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor Summary'Value
nodeName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor Summary'Value
tag__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor Summary'Value
metadata__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor Summary'Value
simpleValue__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3,
FieldDescriptor Summary'Value
obsoleteOldStyleHistogram__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor Summary'Value
image__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor Summary'Value
histo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor Summary'Value
audio__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor Summary'Value
tensor__field_descriptor)]
unknownFields :: LensLike' f Summary'Value FieldSet
unknownFields
= (Summary'Value -> FieldSet)
-> (Summary'Value -> FieldSet -> Summary'Value)
-> Lens' Summary'Value FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary'Value -> FieldSet
_Summary'Value'_unknownFields
(\ x__ :: Summary'Value
x__ y__ :: FieldSet
y__ -> Summary'Value
x__ {_Summary'Value'_unknownFields :: FieldSet
_Summary'Value'_unknownFields = FieldSet
y__})
defMessage :: Summary'Value
defMessage
= $WSummary'Value'_constructor :: Text
-> Text
-> Maybe SummaryMetadata
-> Maybe Summary'Value'Value
-> FieldSet
-> Summary'Value
Summary'Value'_constructor
{_Summary'Value'nodeName :: Text
_Summary'Value'nodeName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Summary'Value'tag :: Text
_Summary'Value'tag = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Summary'Value'metadata :: Maybe SummaryMetadata
_Summary'Value'metadata = Maybe SummaryMetadata
forall a. Maybe a
Prelude.Nothing,
_Summary'Value'value :: Maybe Summary'Value'Value
_Summary'Value'value = Maybe Summary'Value'Value
forall a. Maybe a
Prelude.Nothing,
_Summary'Value'_unknownFields :: FieldSet
_Summary'Value'_unknownFields = []}
parseMessage :: Parser Summary'Value
parseMessage
= let
loop ::
Summary'Value -> Data.ProtoLens.Encoding.Bytes.Parser Summary'Value
loop :: Summary'Value -> Parser Summary'Value
loop x :: Summary'Value
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]))))
Summary'Value -> Parser Summary'Value
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter Summary'Value Summary'Value FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Summary'Value -> Summary'Value
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 Summary'Value Summary'Value FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Summary'Value
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
58
-> 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))
"node_name"
Summary'Value -> Parser Summary'Value
loop
(Setter Summary'Value Summary'Value Text Text
-> Text -> Summary'Value -> Summary'Value
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "nodeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeName") Text
y Summary'Value
x)
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"
Summary'Value -> Parser Summary'Value
loop (Setter Summary'Value Summary'Value Text Text
-> Text -> Summary'Value -> Summary'Value
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 Summary'Value
x)
74
-> do SummaryMetadata
y <- Parser SummaryMetadata -> String -> Parser SummaryMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SummaryMetadata -> Parser SummaryMetadata
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 SummaryMetadata
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"metadata"
Summary'Value -> Parser Summary'Value
loop
(Setter Summary'Value Summary'Value SummaryMetadata SummaryMetadata
-> SummaryMetadata -> Summary'Value -> Summary'Value
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "metadata" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metadata") SummaryMetadata
y Summary'Value
x)
21
-> do Float
y <- Parser Float -> String -> Parser Float
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word32 -> Float) -> Parser Word32 -> Parser Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word32 -> Float
Data.ProtoLens.Encoding.Bytes.wordToFloat
Parser Word32
Data.ProtoLens.Encoding.Bytes.getFixed32)
"simple_value"
Summary'Value -> Parser Summary'Value
loop
(Setter Summary'Value Summary'Value Float Float
-> Float -> Summary'Value -> Summary'Value
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "simpleValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"simpleValue") Float
y Summary'Value
x)
26
-> 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))
"obsolete_old_style_histogram"
Summary'Value -> Parser Summary'Value
loop
(Setter Summary'Value Summary'Value ByteString ByteString
-> ByteString -> Summary'Value -> Summary'Value
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "obsoleteOldStyleHistogram" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"obsoleteOldStyleHistogram") ByteString
y Summary'Value
x)
34
-> do Summary'Image
y <- Parser Summary'Image -> String -> Parser Summary'Image
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Summary'Image -> Parser Summary'Image
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'Image
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"image"
Summary'Value -> Parser Summary'Value
loop (Setter Summary'Value Summary'Value Summary'Image Summary'Image
-> Summary'Image -> Summary'Value -> Summary'Value
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "image" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"image") Summary'Image
y Summary'Value
x)
42
-> do HistogramProto
y <- Parser HistogramProto -> String -> Parser HistogramProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser HistogramProto -> Parser HistogramProto
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 HistogramProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"histo"
Summary'Value -> Parser Summary'Value
loop (Setter Summary'Value Summary'Value HistogramProto HistogramProto
-> HistogramProto -> Summary'Value -> Summary'Value
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "histo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"histo") HistogramProto
y Summary'Value
x)
50
-> do Summary'Audio
y <- Parser Summary'Audio -> String -> Parser Summary'Audio
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Summary'Audio -> Parser Summary'Audio
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'Audio
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"audio"
Summary'Value -> Parser Summary'Value
loop (Setter Summary'Value Summary'Value Summary'Audio Summary'Audio
-> Summary'Audio -> Summary'Value -> Summary'Value
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "audio" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"audio") Summary'Audio
y Summary'Value
x)
66
-> do TensorProto
y <- Parser TensorProto -> String -> Parser TensorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TensorProto -> Parser TensorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TensorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"tensor"
Summary'Value -> Parser Summary'Value
loop (Setter Summary'Value Summary'Value TensorProto TensorProto
-> TensorProto -> Summary'Value -> Summary'Value
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "tensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensor") TensorProto
y Summary'Value
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
Summary'Value -> Parser Summary'Value
loop
(Setter Summary'Value Summary'Value FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Summary'Value -> Summary'Value
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 Summary'Value Summary'Value FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Summary'Value
x)
in
Parser Summary'Value -> String -> Parser Summary'Value
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Summary'Value -> Parser Summary'Value
loop Summary'Value
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "Value"
buildMessage :: Summary'Value -> Builder
buildMessage
= \ _x :: Summary'Value
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text Summary'Value Summary'Value Text Text
-> Summary'Value -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "nodeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeName") Summary'Value
_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 58)
((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 Summary'Value Summary'Value Text Text
-> Summary'Value -> 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") Summary'Value
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe SummaryMetadata)
Summary'Value
Summary'Value
(Maybe SummaryMetadata)
(Maybe SummaryMetadata)
-> Summary'Value -> Maybe SummaryMetadata
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'metadata" a, Functor f) =>
(a -> f a) -> s -> 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'metadata") Summary'Value
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: SummaryMetadata
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 74)
((ByteString -> Builder)
-> (SummaryMetadata -> ByteString) -> SummaryMetadata -> 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))
SummaryMetadata -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SummaryMetadata
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Summary'Value'Value)
Summary'Value
Summary'Value
(Maybe Summary'Value'Value)
(Maybe Summary'Value'Value)
-> Summary'Value -> Maybe Summary'Value'Value
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value") Summary'Value
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (Summary'Value'SimpleValue v :: Float
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 21)
((Word32 -> Builder) -> (Float -> Word32) -> Float -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word32 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed32
Float -> Word32
Data.ProtoLens.Encoding.Bytes.floatToWord
Float
v)
(Prelude.Just (Summary'Value'ObsoleteOldStyleHistogram v :: ByteString
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ByteString
v)
(Prelude.Just (Summary'Value'Image v :: Summary'Image
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder)
-> (Summary'Image -> ByteString) -> Summary'Image -> 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'Image -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
Summary'Image
v)
(Prelude.Just (Summary'Value'Histo v :: HistogramProto
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((ByteString -> Builder)
-> (HistogramProto -> ByteString) -> HistogramProto -> 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))
HistogramProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
HistogramProto
v)
(Prelude.Just (Summary'Value'Audio v :: Summary'Audio
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((ByteString -> Builder)
-> (Summary'Audio -> ByteString) -> Summary'Audio -> 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'Audio -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
Summary'Audio
v)
(Prelude.Just (Summary'Value'Tensor v :: TensorProto
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
((ByteString -> Builder)
-> (TensorProto -> ByteString) -> TensorProto -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
TensorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TensorProto
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Summary'Value Summary'Value FieldSet FieldSet
-> Summary'Value -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Summary'Value Summary'Value FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields Summary'Value
_x)))))
instance Control.DeepSeq.NFData Summary'Value where
rnf :: Summary'Value -> ()
rnf
= \ x__ :: Summary'Value
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Value -> FieldSet
_Summary'Value'_unknownFields Summary'Value
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Value -> Text
_Summary'Value'nodeName Summary'Value
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Value -> Text
_Summary'Value'tag Summary'Value
x__)
(Maybe SummaryMetadata -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary'Value -> Maybe SummaryMetadata
_Summary'Value'metadata Summary'Value
x__)
(Maybe Summary'Value'Value -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Summary'Value -> Maybe Summary'Value'Value
_Summary'Value'value Summary'Value
x__) ()))))
instance Control.DeepSeq.NFData Summary'Value'Value where
rnf :: Summary'Value'Value -> ()
rnf (Summary'Value'SimpleValue x__ :: Float
x__) = Float -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Float
x__
rnf (Summary'Value'ObsoleteOldStyleHistogram x__ :: ByteString
x__)
= ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
rnf (Summary'Value'Image x__ :: Summary'Image
x__) = Summary'Image -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Summary'Image
x__
rnf (Summary'Value'Histo x__ :: HistogramProto
x__) = HistogramProto -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf HistogramProto
x__
rnf (Summary'Value'Audio x__ :: Summary'Audio
x__) = Summary'Audio -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Summary'Audio
x__
rnf (Summary'Value'Tensor x__ :: TensorProto
x__) = TensorProto -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TensorProto
x__
_Summary'Value'SimpleValue ::
Data.ProtoLens.Prism.Prism' Summary'Value'Value Prelude.Float
_Summary'Value'SimpleValue :: p Float (f Float) -> p Summary'Value'Value (f Summary'Value'Value)
_Summary'Value'SimpleValue
= (Float -> Summary'Value'Value)
-> (Summary'Value'Value -> Maybe Float)
-> Prism Summary'Value'Value Summary'Value'Value Float Float
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Float -> Summary'Value'Value
Summary'Value'SimpleValue
(\ p__ :: Summary'Value'Value
p__
-> case Summary'Value'Value
p__ of
(Summary'Value'SimpleValue p__val :: Float
p__val) -> Float -> Maybe Float
forall a. a -> Maybe a
Prelude.Just Float
p__val
_otherwise :: Summary'Value'Value
_otherwise -> Maybe Float
forall a. Maybe a
Prelude.Nothing)
_Summary'Value'ObsoleteOldStyleHistogram ::
Data.ProtoLens.Prism.Prism' Summary'Value'Value Data.ByteString.ByteString
_Summary'Value'ObsoleteOldStyleHistogram :: p ByteString (f ByteString)
-> p Summary'Value'Value (f Summary'Value'Value)
_Summary'Value'ObsoleteOldStyleHistogram
= (ByteString -> Summary'Value'Value)
-> (Summary'Value'Value -> Maybe ByteString)
-> Prism
Summary'Value'Value Summary'Value'Value ByteString ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ByteString -> Summary'Value'Value
Summary'Value'ObsoleteOldStyleHistogram
(\ p__ :: Summary'Value'Value
p__
-> case Summary'Value'Value
p__ of
(Summary'Value'ObsoleteOldStyleHistogram p__val :: ByteString
p__val)
-> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
_otherwise :: Summary'Value'Value
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_Summary'Value'Image ::
Data.ProtoLens.Prism.Prism' Summary'Value'Value Summary'Image
_Summary'Value'Image :: p Summary'Image (f Summary'Image)
-> p Summary'Value'Value (f Summary'Value'Value)
_Summary'Value'Image
= (Summary'Image -> Summary'Value'Value)
-> (Summary'Value'Value -> Maybe Summary'Image)
-> Prism
Summary'Value'Value Summary'Value'Value Summary'Image Summary'Image
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Summary'Image -> Summary'Value'Value
Summary'Value'Image
(\ p__ :: Summary'Value'Value
p__
-> case Summary'Value'Value
p__ of
(Summary'Value'Image p__val :: Summary'Image
p__val) -> Summary'Image -> Maybe Summary'Image
forall a. a -> Maybe a
Prelude.Just Summary'Image
p__val
_otherwise :: Summary'Value'Value
_otherwise -> Maybe Summary'Image
forall a. Maybe a
Prelude.Nothing)
_Summary'Value'Histo ::
Data.ProtoLens.Prism.Prism' Summary'Value'Value HistogramProto
_Summary'Value'Histo :: p HistogramProto (f HistogramProto)
-> p Summary'Value'Value (f Summary'Value'Value)
_Summary'Value'Histo
= (HistogramProto -> Summary'Value'Value)
-> (Summary'Value'Value -> Maybe HistogramProto)
-> Prism
Summary'Value'Value
Summary'Value'Value
HistogramProto
HistogramProto
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
HistogramProto -> Summary'Value'Value
Summary'Value'Histo
(\ p__ :: Summary'Value'Value
p__
-> case Summary'Value'Value
p__ of
(Summary'Value'Histo p__val :: HistogramProto
p__val) -> HistogramProto -> Maybe HistogramProto
forall a. a -> Maybe a
Prelude.Just HistogramProto
p__val
_otherwise :: Summary'Value'Value
_otherwise -> Maybe HistogramProto
forall a. Maybe a
Prelude.Nothing)
_Summary'Value'Audio ::
Data.ProtoLens.Prism.Prism' Summary'Value'Value Summary'Audio
_Summary'Value'Audio :: p Summary'Audio (f Summary'Audio)
-> p Summary'Value'Value (f Summary'Value'Value)
_Summary'Value'Audio
= (Summary'Audio -> Summary'Value'Value)
-> (Summary'Value'Value -> Maybe Summary'Audio)
-> Prism
Summary'Value'Value Summary'Value'Value Summary'Audio Summary'Audio
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Summary'Audio -> Summary'Value'Value
Summary'Value'Audio
(\ p__ :: Summary'Value'Value
p__
-> case Summary'Value'Value
p__ of
(Summary'Value'Audio p__val :: Summary'Audio
p__val) -> Summary'Audio -> Maybe Summary'Audio
forall a. a -> Maybe a
Prelude.Just Summary'Audio
p__val
_otherwise :: Summary'Value'Value
_otherwise -> Maybe Summary'Audio
forall a. Maybe a
Prelude.Nothing)
_Summary'Value'Tensor ::
Data.ProtoLens.Prism.Prism' Summary'Value'Value Proto.Tensorflow.Core.Framework.Tensor.TensorProto
_Summary'Value'Tensor :: p TensorProto (f TensorProto)
-> p Summary'Value'Value (f Summary'Value'Value)
_Summary'Value'Tensor
= (TensorProto -> Summary'Value'Value)
-> (Summary'Value'Value -> Maybe TensorProto)
-> Prism
Summary'Value'Value Summary'Value'Value TensorProto TensorProto
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
TensorProto -> Summary'Value'Value
Summary'Value'Tensor
(\ p__ :: Summary'Value'Value
p__
-> case Summary'Value'Value
p__ of
(Summary'Value'Tensor p__val :: TensorProto
p__val) -> TensorProto -> Maybe TensorProto
forall a. a -> Maybe a
Prelude.Just TensorProto
p__val
_otherwise :: Summary'Value'Value
_otherwise -> Maybe TensorProto
forall a. Maybe a
Prelude.Nothing)
data SummaryDescription
= SummaryDescription'_constructor {SummaryDescription -> Text
_SummaryDescription'typeHint :: !Data.Text.Text,
SummaryDescription -> FieldSet
_SummaryDescription'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SummaryDescription -> SummaryDescription -> Bool
(SummaryDescription -> SummaryDescription -> Bool)
-> (SummaryDescription -> SummaryDescription -> Bool)
-> Eq SummaryDescription
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SummaryDescription -> SummaryDescription -> Bool
$c/= :: SummaryDescription -> SummaryDescription -> Bool
== :: SummaryDescription -> SummaryDescription -> Bool
$c== :: SummaryDescription -> SummaryDescription -> Bool
Prelude.Eq, Eq SummaryDescription
Eq SummaryDescription =>
(SummaryDescription -> SummaryDescription -> Ordering)
-> (SummaryDescription -> SummaryDescription -> Bool)
-> (SummaryDescription -> SummaryDescription -> Bool)
-> (SummaryDescription -> SummaryDescription -> Bool)
-> (SummaryDescription -> SummaryDescription -> Bool)
-> (SummaryDescription -> SummaryDescription -> SummaryDescription)
-> (SummaryDescription -> SummaryDescription -> SummaryDescription)
-> Ord SummaryDescription
SummaryDescription -> SummaryDescription -> Bool
SummaryDescription -> SummaryDescription -> Ordering
SummaryDescription -> SummaryDescription -> SummaryDescription
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 :: SummaryDescription -> SummaryDescription -> SummaryDescription
$cmin :: SummaryDescription -> SummaryDescription -> SummaryDescription
max :: SummaryDescription -> SummaryDescription -> SummaryDescription
$cmax :: SummaryDescription -> SummaryDescription -> SummaryDescription
>= :: SummaryDescription -> SummaryDescription -> Bool
$c>= :: SummaryDescription -> SummaryDescription -> Bool
> :: SummaryDescription -> SummaryDescription -> Bool
$c> :: SummaryDescription -> SummaryDescription -> Bool
<= :: SummaryDescription -> SummaryDescription -> Bool
$c<= :: SummaryDescription -> SummaryDescription -> Bool
< :: SummaryDescription -> SummaryDescription -> Bool
$c< :: SummaryDescription -> SummaryDescription -> Bool
compare :: SummaryDescription -> SummaryDescription -> Ordering
$ccompare :: SummaryDescription -> SummaryDescription -> Ordering
$cp1Ord :: Eq SummaryDescription
Prelude.Ord)
instance Prelude.Show SummaryDescription where
showsPrec :: Int -> SummaryDescription -> ShowS
showsPrec _ __x :: SummaryDescription
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SummaryDescription -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SummaryDescription
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SummaryDescription "typeHint" Data.Text.Text where
fieldOf :: Proxy# "typeHint"
-> (Text -> f Text) -> SummaryDescription -> f SummaryDescription
fieldOf _
= ((Text -> f Text) -> SummaryDescription -> f SummaryDescription)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SummaryDescription
-> f SummaryDescription
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDescription -> Text)
-> (SummaryDescription -> Text -> SummaryDescription)
-> Lens SummaryDescription SummaryDescription Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDescription -> Text
_SummaryDescription'typeHint
(\ x__ :: SummaryDescription
x__ y__ :: Text
y__ -> SummaryDescription
x__ {_SummaryDescription'typeHint :: Text
_SummaryDescription'typeHint = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SummaryDescription where
messageName :: Proxy SummaryDescription -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SummaryDescription"
packedMessageDescriptor :: Proxy SummaryDescription -> ByteString
packedMessageDescriptor _
= "\n\
\\DC2SummaryDescription\DC2\ESC\n\
\\ttype_hint\CAN\SOH \SOH(\tR\btypeHint"
packedFileDescriptor :: Proxy SummaryDescription -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SummaryDescription)
fieldsByTag
= let
typeHint__field_descriptor :: FieldDescriptor SummaryDescription
typeHint__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SummaryDescription Text
-> FieldDescriptor SummaryDescription
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"type_hint"
(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 SummaryDescription SummaryDescription Text Text
-> FieldAccessor SummaryDescription 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 "typeHint" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeHint")) ::
Data.ProtoLens.FieldDescriptor SummaryDescription
in
[(Tag, FieldDescriptor SummaryDescription)]
-> Map Tag (FieldDescriptor SummaryDescription)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SummaryDescription
typeHint__field_descriptor)]
unknownFields :: LensLike' f SummaryDescription FieldSet
unknownFields
= (SummaryDescription -> FieldSet)
-> (SummaryDescription -> FieldSet -> SummaryDescription)
-> Lens' SummaryDescription FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDescription -> FieldSet
_SummaryDescription'_unknownFields
(\ x__ :: SummaryDescription
x__ y__ :: FieldSet
y__ -> SummaryDescription
x__ {_SummaryDescription'_unknownFields :: FieldSet
_SummaryDescription'_unknownFields = FieldSet
y__})
defMessage :: SummaryDescription
defMessage
= $WSummaryDescription'_constructor :: Text -> FieldSet -> SummaryDescription
SummaryDescription'_constructor
{_SummaryDescription'typeHint :: Text
_SummaryDescription'typeHint = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryDescription'_unknownFields :: FieldSet
_SummaryDescription'_unknownFields = []}
parseMessage :: Parser SummaryDescription
parseMessage
= let
loop ::
SummaryDescription
-> Data.ProtoLens.Encoding.Bytes.Parser SummaryDescription
loop :: SummaryDescription -> Parser SummaryDescription
loop x :: SummaryDescription
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]))))
SummaryDescription -> Parser SummaryDescription
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SummaryDescription SummaryDescription FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> SummaryDescription
-> SummaryDescription
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 SummaryDescription SummaryDescription FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SummaryDescription
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))
"type_hint"
SummaryDescription -> Parser SummaryDescription
loop
(Setter SummaryDescription SummaryDescription Text Text
-> Text -> SummaryDescription -> SummaryDescription
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "typeHint" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeHint") Text
y SummaryDescription
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SummaryDescription -> Parser SummaryDescription
loop
(Setter SummaryDescription SummaryDescription FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> SummaryDescription
-> SummaryDescription
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 SummaryDescription SummaryDescription FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SummaryDescription
x)
in
Parser SummaryDescription -> String -> Parser SummaryDescription
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SummaryDescription -> Parser SummaryDescription
loop SummaryDescription
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SummaryDescription"
buildMessage :: SummaryDescription -> Builder
buildMessage
= \ _x :: SummaryDescription
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text SummaryDescription SummaryDescription Text Text
-> SummaryDescription -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "typeHint" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeHint") SummaryDescription
_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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet SummaryDescription SummaryDescription FieldSet FieldSet
-> SummaryDescription -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet SummaryDescription SummaryDescription FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SummaryDescription
_x))
instance Control.DeepSeq.NFData SummaryDescription where
rnf :: SummaryDescription -> ()
rnf
= \ x__ :: SummaryDescription
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryDescription -> FieldSet
_SummaryDescription'_unknownFields SummaryDescription
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SummaryDescription -> Text
_SummaryDescription'typeHint SummaryDescription
x__) ())
data SummaryMetadata
= SummaryMetadata'_constructor {SummaryMetadata -> Maybe SummaryMetadata'PluginData
_SummaryMetadata'pluginData :: !(Prelude.Maybe SummaryMetadata'PluginData),
SummaryMetadata -> Text
_SummaryMetadata'displayName :: !Data.Text.Text,
SummaryMetadata -> Text
_SummaryMetadata'summaryDescription :: !Data.Text.Text,
SummaryMetadata -> DataClass
_SummaryMetadata'dataClass :: !DataClass,
SummaryMetadata -> FieldSet
_SummaryMetadata'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SummaryMetadata -> SummaryMetadata -> Bool
(SummaryMetadata -> SummaryMetadata -> Bool)
-> (SummaryMetadata -> SummaryMetadata -> Bool)
-> Eq SummaryMetadata
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SummaryMetadata -> SummaryMetadata -> Bool
$c/= :: SummaryMetadata -> SummaryMetadata -> Bool
== :: SummaryMetadata -> SummaryMetadata -> Bool
$c== :: SummaryMetadata -> SummaryMetadata -> Bool
Prelude.Eq, Eq SummaryMetadata
Eq SummaryMetadata =>
(SummaryMetadata -> SummaryMetadata -> Ordering)
-> (SummaryMetadata -> SummaryMetadata -> Bool)
-> (SummaryMetadata -> SummaryMetadata -> Bool)
-> (SummaryMetadata -> SummaryMetadata -> Bool)
-> (SummaryMetadata -> SummaryMetadata -> Bool)
-> (SummaryMetadata -> SummaryMetadata -> SummaryMetadata)
-> (SummaryMetadata -> SummaryMetadata -> SummaryMetadata)
-> Ord SummaryMetadata
SummaryMetadata -> SummaryMetadata -> Bool
SummaryMetadata -> SummaryMetadata -> Ordering
SummaryMetadata -> SummaryMetadata -> SummaryMetadata
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 :: SummaryMetadata -> SummaryMetadata -> SummaryMetadata
$cmin :: SummaryMetadata -> SummaryMetadata -> SummaryMetadata
max :: SummaryMetadata -> SummaryMetadata -> SummaryMetadata
$cmax :: SummaryMetadata -> SummaryMetadata -> SummaryMetadata
>= :: SummaryMetadata -> SummaryMetadata -> Bool
$c>= :: SummaryMetadata -> SummaryMetadata -> Bool
> :: SummaryMetadata -> SummaryMetadata -> Bool
$c> :: SummaryMetadata -> SummaryMetadata -> Bool
<= :: SummaryMetadata -> SummaryMetadata -> Bool
$c<= :: SummaryMetadata -> SummaryMetadata -> Bool
< :: SummaryMetadata -> SummaryMetadata -> Bool
$c< :: SummaryMetadata -> SummaryMetadata -> Bool
compare :: SummaryMetadata -> SummaryMetadata -> Ordering
$ccompare :: SummaryMetadata -> SummaryMetadata -> Ordering
$cp1Ord :: Eq SummaryMetadata
Prelude.Ord)
instance Prelude.Show SummaryMetadata where
showsPrec :: Int -> SummaryMetadata -> ShowS
showsPrec _ __x :: SummaryMetadata
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SummaryMetadata -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SummaryMetadata
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SummaryMetadata "pluginData" SummaryMetadata'PluginData where
fieldOf :: Proxy# "pluginData"
-> (SummaryMetadata'PluginData -> f SummaryMetadata'PluginData)
-> SummaryMetadata
-> f SummaryMetadata
fieldOf _
= ((Maybe SummaryMetadata'PluginData
-> f (Maybe SummaryMetadata'PluginData))
-> SummaryMetadata -> f SummaryMetadata)
-> ((SummaryMetadata'PluginData -> f SummaryMetadata'PluginData)
-> Maybe SummaryMetadata'PluginData
-> f (Maybe SummaryMetadata'PluginData))
-> (SummaryMetadata'PluginData -> f SummaryMetadata'PluginData)
-> SummaryMetadata
-> f SummaryMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryMetadata -> Maybe SummaryMetadata'PluginData)
-> (SummaryMetadata
-> Maybe SummaryMetadata'PluginData -> SummaryMetadata)
-> Lens
SummaryMetadata
SummaryMetadata
(Maybe SummaryMetadata'PluginData)
(Maybe SummaryMetadata'PluginData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryMetadata -> Maybe SummaryMetadata'PluginData
_SummaryMetadata'pluginData
(\ x__ :: SummaryMetadata
x__ y__ :: Maybe SummaryMetadata'PluginData
y__ -> SummaryMetadata
x__ {_SummaryMetadata'pluginData :: Maybe SummaryMetadata'PluginData
_SummaryMetadata'pluginData = Maybe SummaryMetadata'PluginData
y__}))
(SummaryMetadata'PluginData
-> Lens'
(Maybe SummaryMetadata'PluginData) SummaryMetadata'PluginData
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SummaryMetadata'PluginData
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SummaryMetadata "maybe'pluginData" (Prelude.Maybe SummaryMetadata'PluginData) where
fieldOf :: Proxy# "maybe'pluginData"
-> (Maybe SummaryMetadata'PluginData
-> f (Maybe SummaryMetadata'PluginData))
-> SummaryMetadata
-> f SummaryMetadata
fieldOf _
= ((Maybe SummaryMetadata'PluginData
-> f (Maybe SummaryMetadata'PluginData))
-> SummaryMetadata -> f SummaryMetadata)
-> ((Maybe SummaryMetadata'PluginData
-> f (Maybe SummaryMetadata'PluginData))
-> Maybe SummaryMetadata'PluginData
-> f (Maybe SummaryMetadata'PluginData))
-> (Maybe SummaryMetadata'PluginData
-> f (Maybe SummaryMetadata'PluginData))
-> SummaryMetadata
-> f SummaryMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryMetadata -> Maybe SummaryMetadata'PluginData)
-> (SummaryMetadata
-> Maybe SummaryMetadata'PluginData -> SummaryMetadata)
-> Lens
SummaryMetadata
SummaryMetadata
(Maybe SummaryMetadata'PluginData)
(Maybe SummaryMetadata'PluginData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryMetadata -> Maybe SummaryMetadata'PluginData
_SummaryMetadata'pluginData
(\ x__ :: SummaryMetadata
x__ y__ :: Maybe SummaryMetadata'PluginData
y__ -> SummaryMetadata
x__ {_SummaryMetadata'pluginData :: Maybe SummaryMetadata'PluginData
_SummaryMetadata'pluginData = Maybe SummaryMetadata'PluginData
y__}))
(Maybe SummaryMetadata'PluginData
-> f (Maybe SummaryMetadata'PluginData))
-> Maybe SummaryMetadata'PluginData
-> f (Maybe SummaryMetadata'PluginData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SummaryMetadata "displayName" Data.Text.Text where
fieldOf :: Proxy# "displayName"
-> (Text -> f Text) -> SummaryMetadata -> f SummaryMetadata
fieldOf _
= ((Text -> f Text) -> SummaryMetadata -> f SummaryMetadata)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SummaryMetadata
-> f SummaryMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryMetadata -> Text)
-> (SummaryMetadata -> Text -> SummaryMetadata)
-> Lens SummaryMetadata SummaryMetadata Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryMetadata -> Text
_SummaryMetadata'displayName
(\ x__ :: SummaryMetadata
x__ y__ :: Text
y__ -> SummaryMetadata
x__ {_SummaryMetadata'displayName :: Text
_SummaryMetadata'displayName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SummaryMetadata "summaryDescription" Data.Text.Text where
fieldOf :: Proxy# "summaryDescription"
-> (Text -> f Text) -> SummaryMetadata -> f SummaryMetadata
fieldOf _
= ((Text -> f Text) -> SummaryMetadata -> f SummaryMetadata)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SummaryMetadata
-> f SummaryMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryMetadata -> Text)
-> (SummaryMetadata -> Text -> SummaryMetadata)
-> Lens SummaryMetadata SummaryMetadata Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryMetadata -> Text
_SummaryMetadata'summaryDescription
(\ x__ :: SummaryMetadata
x__ y__ :: Text
y__ -> SummaryMetadata
x__ {_SummaryMetadata'summaryDescription :: Text
_SummaryMetadata'summaryDescription = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SummaryMetadata "dataClass" DataClass where
fieldOf :: Proxy# "dataClass"
-> (DataClass -> f DataClass)
-> SummaryMetadata
-> f SummaryMetadata
fieldOf _
= ((DataClass -> f DataClass)
-> SummaryMetadata -> f SummaryMetadata)
-> ((DataClass -> f DataClass) -> DataClass -> f DataClass)
-> (DataClass -> f DataClass)
-> SummaryMetadata
-> f SummaryMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryMetadata -> DataClass)
-> (SummaryMetadata -> DataClass -> SummaryMetadata)
-> Lens SummaryMetadata SummaryMetadata DataClass DataClass
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryMetadata -> DataClass
_SummaryMetadata'dataClass
(\ x__ :: SummaryMetadata
x__ y__ :: DataClass
y__ -> SummaryMetadata
x__ {_SummaryMetadata'dataClass :: DataClass
_SummaryMetadata'dataClass = DataClass
y__}))
(DataClass -> f DataClass) -> DataClass -> f DataClass
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SummaryMetadata where
messageName :: Proxy SummaryMetadata -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SummaryMetadata"
packedMessageDescriptor :: Proxy SummaryMetadata -> ByteString
packedMessageDescriptor _
= "\n\
\\SISummaryMetadata\DC2G\n\
\\vplugin_data\CAN\SOH \SOH(\v2&.tensorflow.SummaryMetadata.PluginDataR\n\
\pluginData\DC2!\n\
\\fdisplay_name\CAN\STX \SOH(\tR\vdisplayName\DC2/\n\
\\DC3summary_description\CAN\ETX \SOH(\tR\DC2summaryDescription\DC24\n\
\\n\
\data_class\CAN\EOT \SOH(\SO2\NAK.tensorflow.DataClassR\tdataClass\SUBG\n\
\\n\
\PluginData\DC2\US\n\
\\vplugin_name\CAN\SOH \SOH(\tR\n\
\pluginName\DC2\CAN\n\
\\acontent\CAN\STX \SOH(\fR\acontent"
packedFileDescriptor :: Proxy SummaryMetadata -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SummaryMetadata)
fieldsByTag
= let
pluginData__field_descriptor :: FieldDescriptor SummaryMetadata
pluginData__field_descriptor
= String
-> FieldTypeDescriptor SummaryMetadata'PluginData
-> FieldAccessor SummaryMetadata SummaryMetadata'PluginData
-> FieldDescriptor SummaryMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"plugin_data"
(MessageOrGroup -> FieldTypeDescriptor SummaryMetadata'PluginData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SummaryMetadata'PluginData)
(Lens
SummaryMetadata
SummaryMetadata
(Maybe SummaryMetadata'PluginData)
(Maybe SummaryMetadata'PluginData)
-> FieldAccessor SummaryMetadata SummaryMetadata'PluginData
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'pluginData" a, Functor f) =>
(a -> f a) -> s -> 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'pluginData")) ::
Data.ProtoLens.FieldDescriptor SummaryMetadata
displayName__field_descriptor :: FieldDescriptor SummaryMetadata
displayName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SummaryMetadata Text
-> FieldDescriptor SummaryMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"display_name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens SummaryMetadata SummaryMetadata Text Text
-> FieldAccessor SummaryMetadata 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 "displayName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"displayName")) ::
Data.ProtoLens.FieldDescriptor SummaryMetadata
summaryDescription__field_descriptor :: FieldDescriptor SummaryMetadata
summaryDescription__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SummaryMetadata Text
-> FieldDescriptor SummaryMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"summary_description"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens SummaryMetadata SummaryMetadata Text Text
-> FieldAccessor SummaryMetadata 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 "summaryDescription" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"summaryDescription")) ::
Data.ProtoLens.FieldDescriptor SummaryMetadata
dataClass__field_descriptor :: FieldDescriptor SummaryMetadata
dataClass__field_descriptor
= String
-> FieldTypeDescriptor DataClass
-> FieldAccessor SummaryMetadata DataClass
-> FieldDescriptor SummaryMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"data_class"
(ScalarField DataClass -> FieldTypeDescriptor DataClass
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField DataClass
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor DataClass)
(WireDefault DataClass
-> Lens SummaryMetadata SummaryMetadata DataClass DataClass
-> FieldAccessor SummaryMetadata DataClass
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault DataClass
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "dataClass" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dataClass")) ::
Data.ProtoLens.FieldDescriptor SummaryMetadata
in
[(Tag, FieldDescriptor SummaryMetadata)]
-> Map Tag (FieldDescriptor SummaryMetadata)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SummaryMetadata
pluginData__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SummaryMetadata
displayName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor SummaryMetadata
summaryDescription__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor SummaryMetadata
dataClass__field_descriptor)]
unknownFields :: LensLike' f SummaryMetadata FieldSet
unknownFields
= (SummaryMetadata -> FieldSet)
-> (SummaryMetadata -> FieldSet -> SummaryMetadata)
-> Lens' SummaryMetadata FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryMetadata -> FieldSet
_SummaryMetadata'_unknownFields
(\ x__ :: SummaryMetadata
x__ y__ :: FieldSet
y__ -> SummaryMetadata
x__ {_SummaryMetadata'_unknownFields :: FieldSet
_SummaryMetadata'_unknownFields = FieldSet
y__})
defMessage :: SummaryMetadata
defMessage
= $WSummaryMetadata'_constructor :: Maybe SummaryMetadata'PluginData
-> Text -> Text -> DataClass -> FieldSet -> SummaryMetadata
SummaryMetadata'_constructor
{_SummaryMetadata'pluginData :: Maybe SummaryMetadata'PluginData
_SummaryMetadata'pluginData = Maybe SummaryMetadata'PluginData
forall a. Maybe a
Prelude.Nothing,
_SummaryMetadata'displayName :: Text
_SummaryMetadata'displayName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryMetadata'summaryDescription :: Text
_SummaryMetadata'summaryDescription = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryMetadata'dataClass :: DataClass
_SummaryMetadata'dataClass = DataClass
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryMetadata'_unknownFields :: FieldSet
_SummaryMetadata'_unknownFields = []}
parseMessage :: Parser SummaryMetadata
parseMessage
= let
loop ::
SummaryMetadata
-> Data.ProtoLens.Encoding.Bytes.Parser SummaryMetadata
loop :: SummaryMetadata -> Parser SummaryMetadata
loop x :: SummaryMetadata
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]))))
SummaryMetadata -> Parser SummaryMetadata
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SummaryMetadata SummaryMetadata FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SummaryMetadata -> SummaryMetadata
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 SummaryMetadata SummaryMetadata FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SummaryMetadata
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do SummaryMetadata'PluginData
y <- Parser SummaryMetadata'PluginData
-> String -> Parser SummaryMetadata'PluginData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser SummaryMetadata'PluginData
-> Parser SummaryMetadata'PluginData
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 SummaryMetadata'PluginData
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"plugin_data"
SummaryMetadata -> Parser SummaryMetadata
loop
(Setter
SummaryMetadata
SummaryMetadata
SummaryMetadata'PluginData
SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> SummaryMetadata -> SummaryMetadata
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "pluginData" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pluginData") SummaryMetadata'PluginData
y SummaryMetadata
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))
"display_name"
SummaryMetadata -> Parser SummaryMetadata
loop
(Setter SummaryMetadata SummaryMetadata Text Text
-> Text -> SummaryMetadata -> SummaryMetadata
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "displayName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"displayName") Text
y SummaryMetadata
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))
"summary_description"
SummaryMetadata -> Parser SummaryMetadata
loop
(Setter SummaryMetadata SummaryMetadata Text Text
-> Text -> SummaryMetadata -> SummaryMetadata
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "summaryDescription" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"summaryDescription") Text
y SummaryMetadata
x)
32
-> do DataClass
y <- Parser DataClass -> String -> Parser DataClass
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> DataClass) -> Parser Int -> Parser DataClass
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> DataClass
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))
"data_class"
SummaryMetadata -> Parser SummaryMetadata
loop
(Setter SummaryMetadata SummaryMetadata DataClass DataClass
-> DataClass -> SummaryMetadata -> SummaryMetadata
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "dataClass" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dataClass") DataClass
y SummaryMetadata
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SummaryMetadata -> Parser SummaryMetadata
loop
(Setter SummaryMetadata SummaryMetadata FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SummaryMetadata -> SummaryMetadata
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 SummaryMetadata SummaryMetadata FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SummaryMetadata
x)
in
Parser SummaryMetadata -> String -> Parser SummaryMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SummaryMetadata -> Parser SummaryMetadata
loop SummaryMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SummaryMetadata"
buildMessage :: SummaryMetadata -> Builder
buildMessage
= \ _x :: SummaryMetadata
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe SummaryMetadata'PluginData)
SummaryMetadata
SummaryMetadata
(Maybe SummaryMetadata'PluginData)
(Maybe SummaryMetadata'PluginData)
-> SummaryMetadata -> Maybe SummaryMetadata'PluginData
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'pluginData" a, Functor f) =>
(a -> f a) -> s -> 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'pluginData") SummaryMetadata
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: SummaryMetadata'PluginData
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (SummaryMetadata'PluginData -> ByteString)
-> SummaryMetadata'PluginData
-> 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))
SummaryMetadata'PluginData -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SummaryMetadata'PluginData
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text SummaryMetadata SummaryMetadata Text Text
-> SummaryMetadata -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "displayName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"displayName") SummaryMetadata
_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 SummaryMetadata SummaryMetadata Text Text
-> SummaryMetadata -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "summaryDescription" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"summaryDescription") SummaryMetadata
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: DataClass
_v = FoldLike
DataClass SummaryMetadata SummaryMetadata DataClass DataClass
-> SummaryMetadata -> DataClass
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "dataClass" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dataClass") SummaryMetadata
_x
in
if DataClass -> DataClass -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) DataClass
_v DataClass
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 32)
((Int -> Builder) -> (DataClass -> Int) -> DataClass -> 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)
DataClass -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
DataClass
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet SummaryMetadata SummaryMetadata FieldSet FieldSet
-> SummaryMetadata -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SummaryMetadata SummaryMetadata FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SummaryMetadata
_x)))))
instance Control.DeepSeq.NFData SummaryMetadata where
rnf :: SummaryMetadata -> ()
rnf
= \ x__ :: SummaryMetadata
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryMetadata -> FieldSet
_SummaryMetadata'_unknownFields SummaryMetadata
x__)
(Maybe SummaryMetadata'PluginData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryMetadata -> Maybe SummaryMetadata'PluginData
_SummaryMetadata'pluginData SummaryMetadata
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryMetadata -> Text
_SummaryMetadata'displayName SummaryMetadata
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryMetadata -> Text
_SummaryMetadata'summaryDescription SummaryMetadata
x__)
(DataClass -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SummaryMetadata -> DataClass
_SummaryMetadata'dataClass SummaryMetadata
x__) ()))))
data SummaryMetadata'PluginData
= SummaryMetadata'PluginData'_constructor {SummaryMetadata'PluginData -> Text
_SummaryMetadata'PluginData'pluginName :: !Data.Text.Text,
SummaryMetadata'PluginData -> ByteString
_SummaryMetadata'PluginData'content :: !Data.ByteString.ByteString,
SummaryMetadata'PluginData -> FieldSet
_SummaryMetadata'PluginData'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
(SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool)
-> (SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> Bool)
-> Eq SummaryMetadata'PluginData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
$c/= :: SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
== :: SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
$c== :: SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
Prelude.Eq, Eq SummaryMetadata'PluginData
Eq SummaryMetadata'PluginData =>
(SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> Ordering)
-> (SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> Bool)
-> (SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> Bool)
-> (SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> Bool)
-> (SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> Bool)
-> (SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> SummaryMetadata'PluginData)
-> (SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> SummaryMetadata'PluginData)
-> Ord SummaryMetadata'PluginData
SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> Ordering
SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> SummaryMetadata'PluginData
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 :: SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> SummaryMetadata'PluginData
$cmin :: SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> SummaryMetadata'PluginData
max :: SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> SummaryMetadata'PluginData
$cmax :: SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> SummaryMetadata'PluginData
>= :: SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
$c>= :: SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
> :: SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
$c> :: SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
<= :: SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
$c<= :: SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
< :: SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
$c< :: SummaryMetadata'PluginData -> SummaryMetadata'PluginData -> Bool
compare :: SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> Ordering
$ccompare :: SummaryMetadata'PluginData
-> SummaryMetadata'PluginData -> Ordering
$cp1Ord :: Eq SummaryMetadata'PluginData
Prelude.Ord)
instance Prelude.Show SummaryMetadata'PluginData where
showsPrec :: Int -> SummaryMetadata'PluginData -> ShowS
showsPrec _ __x :: SummaryMetadata'PluginData
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SummaryMetadata'PluginData -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SummaryMetadata'PluginData
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SummaryMetadata'PluginData "pluginName" Data.Text.Text where
fieldOf :: Proxy# "pluginName"
-> (Text -> f Text)
-> SummaryMetadata'PluginData
-> f SummaryMetadata'PluginData
fieldOf _
= ((Text -> f Text)
-> SummaryMetadata'PluginData -> f SummaryMetadata'PluginData)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SummaryMetadata'PluginData
-> f SummaryMetadata'PluginData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryMetadata'PluginData -> Text)
-> (SummaryMetadata'PluginData
-> Text -> SummaryMetadata'PluginData)
-> Lens
SummaryMetadata'PluginData SummaryMetadata'PluginData Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryMetadata'PluginData -> Text
_SummaryMetadata'PluginData'pluginName
(\ x__ :: SummaryMetadata'PluginData
x__ y__ :: Text
y__ -> SummaryMetadata'PluginData
x__ {_SummaryMetadata'PluginData'pluginName :: Text
_SummaryMetadata'PluginData'pluginName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SummaryMetadata'PluginData "content" Data.ByteString.ByteString where
fieldOf :: Proxy# "content"
-> (ByteString -> f ByteString)
-> SummaryMetadata'PluginData
-> f SummaryMetadata'PluginData
fieldOf _
= ((ByteString -> f ByteString)
-> SummaryMetadata'PluginData -> f SummaryMetadata'PluginData)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> SummaryMetadata'PluginData
-> f SummaryMetadata'PluginData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryMetadata'PluginData -> ByteString)
-> (SummaryMetadata'PluginData
-> ByteString -> SummaryMetadata'PluginData)
-> Lens
SummaryMetadata'PluginData
SummaryMetadata'PluginData
ByteString
ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryMetadata'PluginData -> ByteString
_SummaryMetadata'PluginData'content
(\ x__ :: SummaryMetadata'PluginData
x__ y__ :: ByteString
y__ -> SummaryMetadata'PluginData
x__ {_SummaryMetadata'PluginData'content :: ByteString
_SummaryMetadata'PluginData'content = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SummaryMetadata'PluginData where
messageName :: Proxy SummaryMetadata'PluginData -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.SummaryMetadata.PluginData"
packedMessageDescriptor :: Proxy SummaryMetadata'PluginData -> ByteString
packedMessageDescriptor _
= "\n\
\\n\
\PluginData\DC2\US\n\
\\vplugin_name\CAN\SOH \SOH(\tR\n\
\pluginName\DC2\CAN\n\
\\acontent\CAN\STX \SOH(\fR\acontent"
packedFileDescriptor :: Proxy SummaryMetadata'PluginData -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SummaryMetadata'PluginData)
fieldsByTag
= let
pluginName__field_descriptor :: FieldDescriptor SummaryMetadata'PluginData
pluginName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SummaryMetadata'PluginData Text
-> FieldDescriptor SummaryMetadata'PluginData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"plugin_name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
SummaryMetadata'PluginData SummaryMetadata'PluginData Text Text
-> FieldAccessor SummaryMetadata'PluginData 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 "pluginName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pluginName")) ::
Data.ProtoLens.FieldDescriptor SummaryMetadata'PluginData
content__field_descriptor :: FieldDescriptor SummaryMetadata'PluginData
content__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor SummaryMetadata'PluginData ByteString
-> FieldDescriptor SummaryMetadata'PluginData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"content"
(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
SummaryMetadata'PluginData
SummaryMetadata'PluginData
ByteString
ByteString
-> FieldAccessor SummaryMetadata'PluginData 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 "content" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"content")) ::
Data.ProtoLens.FieldDescriptor SummaryMetadata'PluginData
in
[(Tag, FieldDescriptor SummaryMetadata'PluginData)]
-> Map Tag (FieldDescriptor SummaryMetadata'PluginData)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SummaryMetadata'PluginData
pluginName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SummaryMetadata'PluginData
content__field_descriptor)]
unknownFields :: LensLike' f SummaryMetadata'PluginData FieldSet
unknownFields
= (SummaryMetadata'PluginData -> FieldSet)
-> (SummaryMetadata'PluginData
-> FieldSet -> SummaryMetadata'PluginData)
-> Lens' SummaryMetadata'PluginData FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryMetadata'PluginData -> FieldSet
_SummaryMetadata'PluginData'_unknownFields
(\ x__ :: SummaryMetadata'PluginData
x__ y__ :: FieldSet
y__
-> SummaryMetadata'PluginData
x__ {_SummaryMetadata'PluginData'_unknownFields :: FieldSet
_SummaryMetadata'PluginData'_unknownFields = FieldSet
y__})
defMessage :: SummaryMetadata'PluginData
defMessage
= $WSummaryMetadata'PluginData'_constructor :: Text -> ByteString -> FieldSet -> SummaryMetadata'PluginData
SummaryMetadata'PluginData'_constructor
{_SummaryMetadata'PluginData'pluginName :: Text
_SummaryMetadata'PluginData'pluginName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryMetadata'PluginData'content :: ByteString
_SummaryMetadata'PluginData'content = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryMetadata'PluginData'_unknownFields :: FieldSet
_SummaryMetadata'PluginData'_unknownFields = []}
parseMessage :: Parser SummaryMetadata'PluginData
parseMessage
= let
loop ::
SummaryMetadata'PluginData
-> Data.ProtoLens.Encoding.Bytes.Parser SummaryMetadata'PluginData
loop :: SummaryMetadata'PluginData -> Parser SummaryMetadata'PluginData
loop x :: SummaryMetadata'PluginData
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]))))
SummaryMetadata'PluginData -> Parser SummaryMetadata'PluginData
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
SummaryMetadata'PluginData
SummaryMetadata'PluginData
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> SummaryMetadata'PluginData
-> SummaryMetadata'PluginData
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
SummaryMetadata'PluginData
SummaryMetadata'PluginData
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SummaryMetadata'PluginData
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))
"plugin_name"
SummaryMetadata'PluginData -> Parser SummaryMetadata'PluginData
loop
(Setter
SummaryMetadata'PluginData SummaryMetadata'PluginData Text Text
-> Text -> SummaryMetadata'PluginData -> SummaryMetadata'PluginData
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "pluginName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pluginName") Text
y SummaryMetadata'PluginData
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))
"content"
SummaryMetadata'PluginData -> Parser SummaryMetadata'PluginData
loop (Setter
SummaryMetadata'PluginData
SummaryMetadata'PluginData
ByteString
ByteString
-> ByteString
-> SummaryMetadata'PluginData
-> SummaryMetadata'PluginData
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "content" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"content") ByteString
y SummaryMetadata'PluginData
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SummaryMetadata'PluginData -> Parser SummaryMetadata'PluginData
loop
(Setter
SummaryMetadata'PluginData
SummaryMetadata'PluginData
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> SummaryMetadata'PluginData
-> SummaryMetadata'PluginData
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
SummaryMetadata'PluginData
SummaryMetadata'PluginData
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SummaryMetadata'PluginData
x)
in
Parser SummaryMetadata'PluginData
-> String -> Parser SummaryMetadata'PluginData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SummaryMetadata'PluginData -> Parser SummaryMetadata'PluginData
loop SummaryMetadata'PluginData
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "PluginData"
buildMessage :: SummaryMetadata'PluginData -> Builder
buildMessage
= \ _x :: SummaryMetadata'PluginData
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text
SummaryMetadata'PluginData
SummaryMetadata'PluginData
Text
Text
-> SummaryMetadata'PluginData -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "pluginName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pluginName") SummaryMetadata'PluginData
_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
SummaryMetadata'PluginData
SummaryMetadata'PluginData
ByteString
ByteString
-> SummaryMetadata'PluginData -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "content" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"content") SummaryMetadata'PluginData
_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
SummaryMetadata'PluginData
SummaryMetadata'PluginData
FieldSet
FieldSet
-> SummaryMetadata'PluginData -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
SummaryMetadata'PluginData
SummaryMetadata'PluginData
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SummaryMetadata'PluginData
_x)))
instance Control.DeepSeq.NFData SummaryMetadata'PluginData where
rnf :: SummaryMetadata'PluginData -> ()
rnf
= \ x__ :: SummaryMetadata'PluginData
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryMetadata'PluginData -> FieldSet
_SummaryMetadata'PluginData'_unknownFields SummaryMetadata'PluginData
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryMetadata'PluginData -> Text
_SummaryMetadata'PluginData'pluginName SummaryMetadata'PluginData
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryMetadata'PluginData -> ByteString
_SummaryMetadata'PluginData'content SummaryMetadata'PluginData
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\'tensorflow/core/framework/summary.proto\DC2\n\
\tensorflow\SUB&tensorflow/core/framework/tensor.proto\"1\n\
\\DC2SummaryDescription\DC2\ESC\n\
\\ttype_hint\CAN\SOH \SOH(\tR\btypeHint\"\188\SOH\n\
\\SO\&HistogramProto\DC2\DLE\n\
\\ETXmin\CAN\SOH \SOH(\SOHR\ETXmin\DC2\DLE\n\
\\ETXmax\CAN\STX \SOH(\SOHR\ETXmax\DC2\DLE\n\
\\ETXnum\CAN\ETX \SOH(\SOHR\ETXnum\DC2\DLE\n\
\\ETXsum\CAN\EOT \SOH(\SOHR\ETXsum\DC2\US\n\
\\vsum_squares\CAN\ENQ \SOH(\SOHR\n\
\sumSquares\DC2%\n\
\\fbucket_limit\CAN\ACK \ETX(\SOHR\vbucketLimitB\STX\DLE\SOH\DC2\SUB\n\
\\ACKbucket\CAN\a \ETX(\SOHR\ACKbucketB\STX\DLE\SOH\"\173\STX\n\
\\SISummaryMetadata\DC2G\n\
\\vplugin_data\CAN\SOH \SOH(\v2&.tensorflow.SummaryMetadata.PluginDataR\n\
\pluginData\DC2!\n\
\\fdisplay_name\CAN\STX \SOH(\tR\vdisplayName\DC2/\n\
\\DC3summary_description\CAN\ETX \SOH(\tR\DC2summaryDescription\DC24\n\
\\n\
\data_class\CAN\EOT \SOH(\SO2\NAK.tensorflow.DataClassR\tdataClass\SUBG\n\
\\n\
\PluginData\DC2\US\n\
\\vplugin_name\CAN\SOH \SOH(\tR\n\
\pluginName\DC2\CAN\n\
\\acontent\CAN\STX \SOH(\fR\acontent\"\188\ACK\n\
\\aSummary\DC2/\n\
\\ENQvalue\CAN\SOH \ETX(\v2\EM.tensorflow.Summary.ValueR\ENQvalue\SUB\135\SOH\n\
\\ENQImage\DC2\SYN\n\
\\ACKheight\CAN\SOH \SOH(\ENQR\ACKheight\DC2\DC4\n\
\\ENQwidth\CAN\STX \SOH(\ENQR\ENQwidth\DC2\RS\n\
\\n\
\colorspace\CAN\ETX \SOH(\ENQR\n\
\colorspace\DC20\n\
\\DC4encoded_image_string\CAN\EOT \SOH(\fR\DC2encodedImageString\SUB\197\SOH\n\
\\ENQAudio\DC2\US\n\
\\vsample_rate\CAN\SOH \SOH(\STXR\n\
\sampleRate\DC2!\n\
\\fnum_channels\CAN\STX \SOH(\ETXR\vnumChannels\DC2#\n\
\\rlength_frames\CAN\ETX \SOH(\ETXR\flengthFrames\DC20\n\
\\DC4encoded_audio_string\CAN\EOT \SOH(\fR\DC2encodedAudioString\DC2!\n\
\\fcontent_type\CAN\ENQ \SOH(\tR\vcontentType\SUB\173\ETX\n\
\\ENQValue\DC2\ESC\n\
\\tnode_name\CAN\a \SOH(\tR\bnodeName\DC2\DLE\n\
\\ETXtag\CAN\SOH \SOH(\tR\ETXtag\DC27\n\
\\bmetadata\CAN\t \SOH(\v2\ESC.tensorflow.SummaryMetadataR\bmetadata\DC2#\n\
\\fsimple_value\CAN\STX \SOH(\STXH\NULR\vsimpleValue\DC2A\n\
\\FSobsolete_old_style_histogram\CAN\ETX \SOH(\fH\NULR\EMobsoleteOldStyleHistogram\DC21\n\
\\ENQimage\CAN\EOT \SOH(\v2\EM.tensorflow.Summary.ImageH\NULR\ENQimage\DC22\n\
\\ENQhisto\CAN\ENQ \SOH(\v2\SUB.tensorflow.HistogramProtoH\NULR\ENQhisto\DC21\n\
\\ENQaudio\CAN\ACK \SOH(\v2\EM.tensorflow.Summary.AudioH\NULR\ENQaudio\DC21\n\
\\ACKtensor\CAN\b \SOH(\v2\ETB.tensorflow.TensorProtoH\NULR\ACKtensorB\a\n\
\\ENQvalue*o\n\
\\tDataClass\DC2\SYN\n\
\\DC2DATA_CLASS_UNKNOWN\DLE\NUL\DC2\NAK\n\
\\DC1DATA_CLASS_SCALAR\DLE\SOH\DC2\NAK\n\
\\DC1DATA_CLASS_TENSOR\DLE\STX\DC2\FS\n\
\\CANDATA_CLASS_BLOB_SEQUENCE\DLE\ETXB~\n\
\\CANorg.tensorflow.frameworkB\rSummaryProtosP\SOHZNgithub.com/tensorflow/tensorflow/tensorflow/go/core/framework/summary_go_proto\248\SOH\SOHJ\214.\n\
\\a\DC2\ENQ\NUL\NUL\149\SOH\SOH\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
\\b\n\
\\SOH\STX\DC2\ETX\STX\NUL\DC3\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\EOT\NUL0\n\
\\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\NUL1\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\t\NUL1\n\
\\b\n\
\\SOH\b\DC2\ETX\n\
\\NULe\n\
\\t\n\
\\STX\b\v\DC2\ETX\n\
\\NULe\n\
\?\n\
\\STX\EOT\NUL\DC2\EOT\r\NUL\DC1\SOH\SUB3 Metadata associated with a series of Summary data\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\r\b\SUB\n\
\\140\SOH\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\DLE\STX\ETB\SUB\DEL Hint on how plugins should process the data in this series.\n\
\ Supported values include \"scalar\", \"histogram\", \"image\", \"audio\"\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\DLE\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\DLE\t\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\DLE\NAK\SYN\n\
\Z\n\
\\STX\EOT\SOH\DC2\EOT\NAK\NUL#\SOH\SUBN Serialization format for histogram module in\n\
\ core/lib/histogram/histogram.h\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\NAK\b\SYN\n\
\\v\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\SYN\STX\DC1\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\SYN\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\SYN\t\f\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\SYN\SI\DLE\n\
\\v\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX\ETB\STX\DC1\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\ETB\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\ETB\t\f\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\ETB\SI\DLE\n\
\\v\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETX\CAN\STX\DC1\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETX\CAN\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\CAN\t\f\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\CAN\SI\DLE\n\
\\v\n\
\\EOT\EOT\SOH\STX\ETX\DC2\ETX\EM\STX\DC1\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\ENQ\DC2\ETX\EM\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\EM\t\f\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\EM\SI\DLE\n\
\\v\n\
\\EOT\EOT\SOH\STX\EOT\DC2\ETX\SUB\STX\EM\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\ENQ\DC2\ETX\SUB\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\SOH\DC2\ETX\SUB\t\DC4\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\ETX\DC2\ETX\SUB\ETB\CAN\n\
\\245\SOH\n\
\\EOT\EOT\SOH\STX\ENQ\DC2\ETX!\STX3\SUB\231\SOH Parallel arrays encoding the bucket boundaries and the bucket values.\n\
\ bucket(i) is the count for the bucket i. The range for\n\
\ a bucket is:\n\
\ i == 0: -DBL_MAX .. bucket_limit(0)\n\
\ i != 0: bucket_limit(i-1) .. bucket_limit(i)\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\EOT\DC2\ETX!\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\ENQ\DC2\ETX!\v\DC1\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\SOH\DC2\ETX!\DC2\RS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\ETX\DC2\ETX!!\"\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\b\DC2\ETX!#2\n\
\\r\n\
\\ACK\EOT\SOH\STX\ENQ\b\STX\DC2\ETX!$1\n\
\\v\n\
\\EOT\EOT\SOH\STX\ACK\DC2\ETX\"\STX-\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ACK\EOT\DC2\ETX\"\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ACK\ENQ\DC2\ETX\"\v\DC1\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ACK\SOH\DC2\ETX\"\DC2\CAN\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ACK\ETX\DC2\ETX\"\ESC\FS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ACK\b\DC2\ETX\"\GS,\n\
\\r\n\
\\ACK\EOT\SOH\STX\ACK\b\STX\DC2\ETX\"\RS+\n\
\{\n\
\\STX\EOT\STX\DC2\EOT'\NUL?\SOH\SUBo A SummaryMetadata encapsulates information on which plugins are able to make\n\
\ use of a certain summary value.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX'\b\ETB\n\
\\f\n\
\\EOT\EOT\STX\ETX\NUL\DC2\EOT(\STX/\ETX\n\
\\f\n\
\\ENQ\EOT\STX\ETX\NUL\SOH\DC2\ETX(\n\
\\DC4\n\
\>\n\
\\ACK\EOT\STX\ETX\NUL\STX\NUL\DC2\ETX*\EOT\ESC\SUB/ The name of the plugin this data pertains to.\n\
\\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\NUL\ENQ\DC2\ETX*\EOT\n\
\\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\NUL\SOH\DC2\ETX*\v\SYN\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\NUL\ETX\DC2\ETX*\EM\SUB\n\
\\DEL\n\
\\ACK\EOT\STX\ETX\NUL\STX\SOH\DC2\ETX.\EOT\SYN\SUBp The content to store for the plugin. The best practice is for this to be\n\
\ a binary serialized protocol buffer.\n\
\\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\SOH\ENQ\DC2\ETX.\EOT\t\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\SOH\SOH\DC2\ETX.\n\
\\DC1\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\SOH\ETX\DC2\ETX.\DC4\NAK\n\
\D\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX2\STX\GS\SUB7 Data that associates a summary with a certain plugin.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX2\STX\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX2\r\CAN\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX2\ESC\FS\n\
\7\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETX5\STX\SUB\SUB* Display name for viewing in TensorBoard.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX5\STX\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX5\t\NAK\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX5\CAN\EM\n\
\Y\n\
\\EOT\EOT\STX\STX\STX\DC2\ETX8\STX!\SUBL Longform readable description of the summary sequence. Markdown supported.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETX8\STX\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX8\t\FS\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX8\US \n\
\\152\STX\n\
\\EOT\EOT\STX\STX\ETX\DC2\ETX>\STX\ESC\SUB\138\STX Class of data stored in this time series. Required for compatibility with\n\
\ TensorBoard's generic data facilities (`DataProvider`, et al.). This value\n\
\ imposes constraints on the dtype and shape of the corresponding tensor\n\
\ values. See `DataClass` docs for details.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\ACK\DC2\ETX>\STX\v\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\SOH\DC2\ETX>\f\SYN\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\ETX\DC2\ETX>\EM\SUB\n\
\\n\
\\n\
\\STX\ENQ\NUL\DC2\EOTA\NULQ\SOH\n\
\\n\
\\n\
\\ETX\ENQ\NUL\SOH\DC2\ETXA\ENQ\SO\n\
\y\n\
\\EOT\ENQ\NUL\STX\NUL\DC2\ETXD\STX\EM\SUBl Unknown data class, used (implicitly) for legacy data. Will not be\n\
\ processed by data ingestion pipelines.\n\
\\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETXD\STX\DC4\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETXD\ETB\CAN\n\
\\179\SOH\n\
\\EOT\ENQ\NUL\STX\SOH\DC2\ETXH\STX\CAN\SUB\165\SOH Scalar time series. Each `Value` for the corresponding tag must have\n\
\ `tensor` set to a rank-0 tensor of floating-point dtype, which will be\n\
\ converted to float64.\n\
\\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETXH\STX\DC3\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETXH\SYN\ETB\n\
\\141\STX\n\
\\EOT\ENQ\NUL\STX\STX\DC2\ETXM\STX\CAN\SUB\255\SOH Tensor time series. Each `Value` for the corresponding tag must have\n\
\ `tensor` set. The tensor value is arbitrary, but should be small to\n\
\ accommodate direct storage in database backends: an upper bound of a few\n\
\ kilobytes is a reasonable rule of thumb.\n\
\\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETXM\STX\DC3\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETXM\SYN\ETB\n\
\\145\SOH\n\
\\EOT\ENQ\NUL\STX\ETX\DC2\ETXP\STX\US\SUB\131\SOH Blob sequence time series. Each `Value` for the corresponding tag must\n\
\ have `tensor` set to a rank-1 tensor of bytestring dtype.\n\
\\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETXP\STX\SUB\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETXP\GS\RS\n\
\\151\STX\n\
\\STX\EOT\ETX\DC2\ENQY\NUL\149\SOH\SOH\SUB\137\STX A Summary is a set of named values to be displayed by the\n\
\ visualizer.\n\
\\n\
\ Summaries are produced regularly during training, as controlled by\n\
\ the \"summary_interval_secs\" attribute of the training operation.\n\
\ Summaries are also produced at the end of an evaluation.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETXY\b\SI\n\
\\f\n\
\\EOT\EOT\ETX\ETX\NUL\DC2\EOTZ\STXi\ETX\n\
\\f\n\
\\ENQ\EOT\ETX\ETX\NUL\SOH\DC2\ETXZ\n\
\\SI\n\
\)\n\
\\ACK\EOT\ETX\ETX\NUL\STX\NUL\DC2\ETX\\\EOT\NAK\SUB\SUB Dimensions of the image.\n\
\\n\
\\SO\n\
\\a\EOT\ETX\ETX\NUL\STX\NUL\ENQ\DC2\ETX\\\EOT\t\n\
\\SO\n\
\\a\EOT\ETX\ETX\NUL\STX\NUL\SOH\DC2\ETX\\\n\
\\DLE\n\
\\SO\n\
\\a\EOT\ETX\ETX\NUL\STX\NUL\ETX\DC2\ETX\\\DC3\DC4\n\
\\r\n\
\\ACK\EOT\ETX\ETX\NUL\STX\SOH\DC2\ETX]\EOT\DC4\n\
\\SO\n\
\\a\EOT\ETX\ETX\NUL\STX\SOH\ENQ\DC2\ETX]\EOT\t\n\
\\SO\n\
\\a\EOT\ETX\ETX\NUL\STX\SOH\SOH\DC2\ETX]\n\
\\SI\n\
\\SO\n\
\\a\EOT\ETX\ETX\NUL\STX\SOH\ETX\DC2\ETX]\DC2\DC3\n\
\\140\SOH\n\
\\ACK\EOT\ETX\ETX\NUL\STX\STX\DC2\ETXe\EOT\EM\SUB} Valid colorspace values are\n\
\ 1 - grayscale\n\
\ 2 - grayscale + alpha\n\
\ 3 - RGB\n\
\ 4 - RGBA\n\
\ 5 - DIGITAL_YUV\n\
\ 6 - BGRA\n\
\\n\
\\SO\n\
\\a\EOT\ETX\ETX\NUL\STX\STX\ENQ\DC2\ETXe\EOT\t\n\
\\SO\n\
\\a\EOT\ETX\ETX\NUL\STX\STX\SOH\DC2\ETXe\n\
\\DC4\n\
\\SO\n\
\\a\EOT\ETX\ETX\NUL\STX\STX\ETX\DC2\ETXe\ETB\CAN\n\
\z\n\
\\ACK\EOT\ETX\ETX\NUL\STX\ETX\DC2\ETXh\EOT#\SUBk Image data in encoded format. All image formats supported by\n\
\ image_codec::CoderUtil can be stored here.\n\
\\n\
\\SO\n\
\\a\EOT\ETX\ETX\NUL\STX\ETX\ENQ\DC2\ETXh\EOT\t\n\
\\SO\n\
\\a\EOT\ETX\ETX\NUL\STX\ETX\SOH\DC2\ETXh\n\
\\RS\n\
\\SO\n\
\\a\EOT\ETX\ETX\NUL\STX\ETX\ETX\DC2\ETXh!\"\n\
\\f\n\
\\EOT\EOT\ETX\ETX\SOH\DC2\EOTk\STXv\ETX\n\
\\f\n\
\\ENQ\EOT\ETX\ETX\SOH\SOH\DC2\ETXk\n\
\\SI\n\
\0\n\
\\ACK\EOT\ETX\ETX\SOH\STX\NUL\DC2\ETXm\EOT\SUB\SUB! Sample rate of the audio in Hz.\n\
\\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\NUL\ENQ\DC2\ETXm\EOT\t\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\NUL\SOH\DC2\ETXm\n\
\\NAK\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\NUL\ETX\DC2\ETXm\CAN\EM\n\
\-\n\
\\ACK\EOT\ETX\ETX\SOH\STX\SOH\DC2\ETXo\EOT\ESC\SUB\RS Number of channels of audio.\n\
\\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\SOH\ENQ\DC2\ETXo\EOT\t\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\SOH\SOH\DC2\ETXo\n\
\\SYN\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\SOH\ETX\DC2\ETXo\EM\SUB\n\
\E\n\
\\ACK\EOT\ETX\ETX\SOH\STX\STX\DC2\ETXq\EOT\FS\SUB6 Length of the audio in frames (samples per channel).\n\
\\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\STX\ENQ\DC2\ETXq\EOT\t\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\STX\SOH\DC2\ETXq\n\
\\ETB\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\STX\ETX\DC2\ETXq\SUB\ESC\n\
\a\n\
\\ACK\EOT\ETX\ETX\SOH\STX\ETX\DC2\ETXt\EOT#\SUBR Encoded audio data and its associated RFC 2045 content type (e.g.\n\
\ \"audio/wav\").\n\
\\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\ETX\ENQ\DC2\ETXt\EOT\t\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\ETX\SOH\DC2\ETXt\n\
\\RS\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\ETX\ETX\DC2\ETXt!\"\n\
\\r\n\
\\ACK\EOT\ETX\ETX\SOH\STX\EOT\DC2\ETXu\EOT\FS\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\EOT\ENQ\DC2\ETXu\EOT\n\
\\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\EOT\SOH\DC2\ETXu\v\ETB\n\
\\SO\n\
\\a\EOT\ETX\ETX\SOH\STX\EOT\ETX\DC2\ETXu\SUB\ESC\n\
\\r\n\
\\EOT\EOT\ETX\ETX\STX\DC2\ENQx\STX\145\SOH\ETX\n\
\\f\n\
\\ENQ\EOT\ETX\ETX\STX\SOH\DC2\ETXx\n\
\\SI\n\
\>\n\
\\ACK\EOT\ETX\ETX\STX\STX\NUL\DC2\ETXz\EOT\EM\SUB/ This field is deprecated and will not be set.\n\
\\n\
\\SO\n\
\\a\EOT\ETX\ETX\STX\STX\NUL\ENQ\DC2\ETXz\EOT\n\
\\n\
\\SO\n\
\\a\EOT\ETX\ETX\STX\STX\NUL\SOH\DC2\ETXz\v\DC4\n\
\\SO\n\
\\a\EOT\ETX\ETX\STX\STX\NUL\ETX\DC2\ETXz\ETB\CAN\n\
\\191\SOH\n\
\\ACK\EOT\ETX\ETX\STX\STX\SOH\DC2\ETX\DEL\EOT\DC3\SUB\175\SOH Tag name for the data. Used by TensorBoard plugins to organize data. Tags\n\
\ are often organized by scope (which contains slashes to convey\n\
\ hierarchy). For example: foo/bar/0\n\
\\n\
\\SO\n\
\\a\EOT\ETX\ETX\STX\STX\SOH\ENQ\DC2\ETX\DEL\EOT\n\
\\n\
\\SO\n\
\\a\EOT\ETX\ETX\STX\STX\SOH\SOH\DC2\ETX\DEL\v\SO\n\
\\SO\n\
\\a\EOT\ETX\ETX\STX\STX\SOH\ETX\DC2\ETX\DEL\DC1\DC2\n\
\\240\STX\n\
\\ACK\EOT\ETX\ETX\STX\STX\STX\DC2\EOT\134\SOH\EOT!\SUB\223\STX Contains metadata on the summary value such as which plugins may use it.\n\
\ Take note that many summary values may lack a metadata field. This is\n\
\ because the FileWriter only keeps a metadata object on the first summary\n\
\ value with a certain tag for each tag. TensorBoard then remembers which\n\
\ tags are associated with which plugins. This saves space.\n\
\\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\STX\ACK\DC2\EOT\134\SOH\EOT\DC3\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\STX\SOH\DC2\EOT\134\SOH\DC4\FS\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\STX\ETX\DC2\EOT\134\SOH\US \n\
\2\n\
\\ACK\EOT\ETX\ETX\STX\b\NUL\DC2\ACK\137\SOH\EOT\144\SOH\ENQ\SUB Value associated with the tag.\n\
\\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\b\NUL\SOH\DC2\EOT\137\SOH\n\
\\SI\n\
\\SO\n\
\\ACK\EOT\ETX\ETX\STX\STX\ETX\DC2\EOT\138\SOH\ACK\GS\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\ETX\ENQ\DC2\EOT\138\SOH\ACK\v\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\ETX\SOH\DC2\EOT\138\SOH\f\CAN\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\ETX\ETX\DC2\EOT\138\SOH\ESC\FS\n\
\\SO\n\
\\ACK\EOT\ETX\ETX\STX\STX\EOT\DC2\EOT\139\SOH\ACK-\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\EOT\ENQ\DC2\EOT\139\SOH\ACK\v\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\EOT\SOH\DC2\EOT\139\SOH\f(\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\EOT\ETX\DC2\EOT\139\SOH+,\n\
\\SO\n\
\\ACK\EOT\ETX\ETX\STX\STX\ENQ\DC2\EOT\140\SOH\ACK\SYN\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\ENQ\ACK\DC2\EOT\140\SOH\ACK\v\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\ENQ\SOH\DC2\EOT\140\SOH\f\DC1\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\ENQ\ETX\DC2\EOT\140\SOH\DC4\NAK\n\
\\SO\n\
\\ACK\EOT\ETX\ETX\STX\STX\ACK\DC2\EOT\141\SOH\ACK\US\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\ACK\ACK\DC2\EOT\141\SOH\ACK\DC4\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\ACK\SOH\DC2\EOT\141\SOH\NAK\SUB\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\ACK\ETX\DC2\EOT\141\SOH\GS\RS\n\
\\SO\n\
\\ACK\EOT\ETX\ETX\STX\STX\a\DC2\EOT\142\SOH\ACK\SYN\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\a\ACK\DC2\EOT\142\SOH\ACK\v\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\a\SOH\DC2\EOT\142\SOH\f\DC1\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\a\ETX\DC2\EOT\142\SOH\DC4\NAK\n\
\\SO\n\
\\ACK\EOT\ETX\ETX\STX\STX\b\DC2\EOT\143\SOH\ACK\GS\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\b\ACK\DC2\EOT\143\SOH\ACK\DC1\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\b\SOH\DC2\EOT\143\SOH\DC2\CAN\n\
\\SI\n\
\\a\EOT\ETX\ETX\STX\STX\b\ETX\DC2\EOT\143\SOH\ESC\FS\n\
\.\n\
\\EOT\EOT\ETX\STX\NUL\DC2\EOT\148\SOH\STX\ESC\SUB Set of values for the summary.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\EOT\DC2\EOT\148\SOH\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\EOT\148\SOH\v\DLE\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\EOT\148\SOH\DC1\SYN\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\EOT\148\SOH\EM\SUBb\ACKproto3"