{-# 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.Opentelemetry.Proto.Metrics.Experimental.MetricsConfigService (
MetricConfig(..), MetricConfigRequest(), MetricConfigResponse(),
MetricConfigResponse'Schedule(),
MetricConfigResponse'Schedule'Pattern(),
MetricConfigResponse'Schedule'Pattern'Match(..),
_MetricConfigResponse'Schedule'Pattern'Equals,
_MetricConfigResponse'Schedule'Pattern'StartsWith
) 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.Opentelemetry.Proto.Resource.V1.Resource
data MetricConfigRequest
= MetricConfigRequest'_constructor {MetricConfigRequest -> Maybe Resource
_MetricConfigRequest'resource :: !(Prelude.Maybe Proto.Opentelemetry.Proto.Resource.V1.Resource.Resource),
MetricConfigRequest -> ByteString
_MetricConfigRequest'lastKnownFingerprint :: !Data.ByteString.ByteString,
MetricConfigRequest -> FieldSet
_MetricConfigRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MetricConfigRequest -> MetricConfigRequest -> Bool
(MetricConfigRequest -> MetricConfigRequest -> Bool)
-> (MetricConfigRequest -> MetricConfigRequest -> Bool)
-> Eq MetricConfigRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetricConfigRequest -> MetricConfigRequest -> Bool
$c/= :: MetricConfigRequest -> MetricConfigRequest -> Bool
== :: MetricConfigRequest -> MetricConfigRequest -> Bool
$c== :: MetricConfigRequest -> MetricConfigRequest -> Bool
Prelude.Eq, Eq MetricConfigRequest
Eq MetricConfigRequest
-> (MetricConfigRequest -> MetricConfigRequest -> Ordering)
-> (MetricConfigRequest -> MetricConfigRequest -> Bool)
-> (MetricConfigRequest -> MetricConfigRequest -> Bool)
-> (MetricConfigRequest -> MetricConfigRequest -> Bool)
-> (MetricConfigRequest -> MetricConfigRequest -> Bool)
-> (MetricConfigRequest
-> MetricConfigRequest -> MetricConfigRequest)
-> (MetricConfigRequest
-> MetricConfigRequest -> MetricConfigRequest)
-> Ord MetricConfigRequest
MetricConfigRequest -> MetricConfigRequest -> Bool
MetricConfigRequest -> MetricConfigRequest -> Ordering
MetricConfigRequest -> MetricConfigRequest -> MetricConfigRequest
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 :: MetricConfigRequest -> MetricConfigRequest -> MetricConfigRequest
$cmin :: MetricConfigRequest -> MetricConfigRequest -> MetricConfigRequest
max :: MetricConfigRequest -> MetricConfigRequest -> MetricConfigRequest
$cmax :: MetricConfigRequest -> MetricConfigRequest -> MetricConfigRequest
>= :: MetricConfigRequest -> MetricConfigRequest -> Bool
$c>= :: MetricConfigRequest -> MetricConfigRequest -> Bool
> :: MetricConfigRequest -> MetricConfigRequest -> Bool
$c> :: MetricConfigRequest -> MetricConfigRequest -> Bool
<= :: MetricConfigRequest -> MetricConfigRequest -> Bool
$c<= :: MetricConfigRequest -> MetricConfigRequest -> Bool
< :: MetricConfigRequest -> MetricConfigRequest -> Bool
$c< :: MetricConfigRequest -> MetricConfigRequest -> Bool
compare :: MetricConfigRequest -> MetricConfigRequest -> Ordering
$ccompare :: MetricConfigRequest -> MetricConfigRequest -> Ordering
$cp1Ord :: Eq MetricConfigRequest
Prelude.Ord)
instance Prelude.Show MetricConfigRequest where
showsPrec :: Int -> MetricConfigRequest -> ShowS
showsPrec Int
_ MetricConfigRequest
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(MetricConfigRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetricConfigRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MetricConfigRequest "resource" Proto.Opentelemetry.Proto.Resource.V1.Resource.Resource where
fieldOf :: Proxy# "resource"
-> (Resource -> f Resource)
-> MetricConfigRequest
-> f MetricConfigRequest
fieldOf Proxy# "resource"
_
= ((Maybe Resource -> f (Maybe Resource))
-> MetricConfigRequest -> f MetricConfigRequest)
-> ((Resource -> f Resource)
-> Maybe Resource -> f (Maybe Resource))
-> (Resource -> f Resource)
-> MetricConfigRequest
-> f MetricConfigRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigRequest -> Maybe Resource)
-> (MetricConfigRequest -> Maybe Resource -> MetricConfigRequest)
-> Lens
MetricConfigRequest
MetricConfigRequest
(Maybe Resource)
(Maybe Resource)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigRequest -> Maybe Resource
_MetricConfigRequest'resource
(\ MetricConfigRequest
x__ Maybe Resource
y__ -> MetricConfigRequest
x__ {_MetricConfigRequest'resource :: Maybe Resource
_MetricConfigRequest'resource = Maybe Resource
y__}))
(Resource -> Lens' (Maybe Resource) Resource
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Resource
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetricConfigRequest "maybe'resource" (Prelude.Maybe Proto.Opentelemetry.Proto.Resource.V1.Resource.Resource) where
fieldOf :: Proxy# "maybe'resource"
-> (Maybe Resource -> f (Maybe Resource))
-> MetricConfigRequest
-> f MetricConfigRequest
fieldOf Proxy# "maybe'resource"
_
= ((Maybe Resource -> f (Maybe Resource))
-> MetricConfigRequest -> f MetricConfigRequest)
-> ((Maybe Resource -> f (Maybe Resource))
-> Maybe Resource -> f (Maybe Resource))
-> (Maybe Resource -> f (Maybe Resource))
-> MetricConfigRequest
-> f MetricConfigRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigRequest -> Maybe Resource)
-> (MetricConfigRequest -> Maybe Resource -> MetricConfigRequest)
-> Lens
MetricConfigRequest
MetricConfigRequest
(Maybe Resource)
(Maybe Resource)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigRequest -> Maybe Resource
_MetricConfigRequest'resource
(\ MetricConfigRequest
x__ Maybe Resource
y__ -> MetricConfigRequest
x__ {_MetricConfigRequest'resource :: Maybe Resource
_MetricConfigRequest'resource = Maybe Resource
y__}))
(Maybe Resource -> f (Maybe Resource))
-> Maybe Resource -> f (Maybe Resource)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetricConfigRequest "lastKnownFingerprint" Data.ByteString.ByteString where
fieldOf :: Proxy# "lastKnownFingerprint"
-> (ByteString -> f ByteString)
-> MetricConfigRequest
-> f MetricConfigRequest
fieldOf Proxy# "lastKnownFingerprint"
_
= ((ByteString -> f ByteString)
-> MetricConfigRequest -> f MetricConfigRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> MetricConfigRequest
-> f MetricConfigRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigRequest -> ByteString)
-> (MetricConfigRequest -> ByteString -> MetricConfigRequest)
-> Lens
MetricConfigRequest MetricConfigRequest ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigRequest -> ByteString
_MetricConfigRequest'lastKnownFingerprint
(\ MetricConfigRequest
x__ ByteString
y__
-> MetricConfigRequest
x__ {_MetricConfigRequest'lastKnownFingerprint :: ByteString
_MetricConfigRequest'lastKnownFingerprint = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetricConfigRequest where
messageName :: Proxy MetricConfigRequest -> Text
messageName Proxy MetricConfigRequest
_
= String -> Text
Data.Text.pack
String
"opentelemetry.proto.metrics.experimental.MetricConfigRequest"
packedMessageDescriptor :: Proxy MetricConfigRequest -> ByteString
packedMessageDescriptor Proxy MetricConfigRequest
_
= ByteString
"\n\
\\DC3MetricConfigRequest\DC2E\n\
\\bresource\CAN\SOH \SOH(\v2).opentelemetry.proto.resource.v1.ResourceR\bresource\DC24\n\
\\SYNlast_known_fingerprint\CAN\STX \SOH(\fR\DC4lastKnownFingerprint"
packedFileDescriptor :: Proxy MetricConfigRequest -> ByteString
packedFileDescriptor Proxy MetricConfigRequest
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MetricConfigRequest)
fieldsByTag
= let
resource__field_descriptor :: FieldDescriptor MetricConfigRequest
resource__field_descriptor
= String
-> FieldTypeDescriptor Resource
-> FieldAccessor MetricConfigRequest Resource
-> FieldDescriptor MetricConfigRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"resource"
(MessageOrGroup -> FieldTypeDescriptor Resource
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Resource.V1.Resource.Resource)
(Lens
MetricConfigRequest
MetricConfigRequest
(Maybe Resource)
(Maybe Resource)
-> FieldAccessor MetricConfigRequest Resource
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'resource" a, Functor f) =>
(a -> f a) -> s -> 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'resource")) ::
Data.ProtoLens.FieldDescriptor MetricConfigRequest
lastKnownFingerprint__field_descriptor :: FieldDescriptor MetricConfigRequest
lastKnownFingerprint__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor MetricConfigRequest ByteString
-> FieldDescriptor MetricConfigRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"last_known_fingerprint"
(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
MetricConfigRequest MetricConfigRequest ByteString ByteString
-> FieldAccessor MetricConfigRequest 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 "lastKnownFingerprint" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lastKnownFingerprint")) ::
Data.ProtoLens.FieldDescriptor MetricConfigRequest
in
[(Tag, FieldDescriptor MetricConfigRequest)]
-> Map Tag (FieldDescriptor MetricConfigRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MetricConfigRequest
resource__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MetricConfigRequest
lastKnownFingerprint__field_descriptor)]
unknownFields :: LensLike' f MetricConfigRequest FieldSet
unknownFields
= (MetricConfigRequest -> FieldSet)
-> (MetricConfigRequest -> FieldSet -> MetricConfigRequest)
-> Lens' MetricConfigRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigRequest -> FieldSet
_MetricConfigRequest'_unknownFields
(\ MetricConfigRequest
x__ FieldSet
y__ -> MetricConfigRequest
x__ {_MetricConfigRequest'_unknownFields :: FieldSet
_MetricConfigRequest'_unknownFields = FieldSet
y__})
defMessage :: MetricConfigRequest
defMessage
= MetricConfigRequest'_constructor :: Maybe Resource -> ByteString -> FieldSet -> MetricConfigRequest
MetricConfigRequest'_constructor
{_MetricConfigRequest'resource :: Maybe Resource
_MetricConfigRequest'resource = Maybe Resource
forall a. Maybe a
Prelude.Nothing,
_MetricConfigRequest'lastKnownFingerprint :: ByteString
_MetricConfigRequest'lastKnownFingerprint = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MetricConfigRequest'_unknownFields :: FieldSet
_MetricConfigRequest'_unknownFields = []}
parseMessage :: Parser MetricConfigRequest
parseMessage
= let
loop ::
MetricConfigRequest
-> Data.ProtoLens.Encoding.Bytes.Parser MetricConfigRequest
loop :: MetricConfigRequest -> Parser MetricConfigRequest
loop MetricConfigRequest
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.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
MetricConfigRequest -> Parser MetricConfigRequest
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter MetricConfigRequest MetricConfigRequest FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MetricConfigRequest
-> MetricConfigRequest
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 MetricConfigRequest MetricConfigRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MetricConfigRequest
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do Resource
y <- Parser Resource -> String -> Parser Resource
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Resource -> Parser Resource
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 Resource
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"resource"
MetricConfigRequest -> Parser MetricConfigRequest
loop
(Setter MetricConfigRequest MetricConfigRequest Resource Resource
-> Resource -> MetricConfigRequest -> MetricConfigRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "resource" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"resource") Resource
y MetricConfigRequest
x)
Word64
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))
String
"last_known_fingerprint"
MetricConfigRequest -> Parser MetricConfigRequest
loop
(Setter
MetricConfigRequest MetricConfigRequest ByteString ByteString
-> ByteString -> MetricConfigRequest -> MetricConfigRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "lastKnownFingerprint" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lastKnownFingerprint") ByteString
y MetricConfigRequest
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MetricConfigRequest -> Parser MetricConfigRequest
loop
(Setter MetricConfigRequest MetricConfigRequest FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MetricConfigRequest
-> MetricConfigRequest
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 MetricConfigRequest MetricConfigRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetricConfigRequest
x)
in
Parser MetricConfigRequest -> String -> Parser MetricConfigRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MetricConfigRequest -> Parser MetricConfigRequest
loop MetricConfigRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"MetricConfigRequest"
buildMessage :: MetricConfigRequest -> Builder
buildMessage
= \ MetricConfigRequest
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Resource)
MetricConfigRequest
MetricConfigRequest
(Maybe Resource)
(Maybe Resource)
-> MetricConfigRequest -> Maybe Resource
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'resource" a, Functor f) =>
(a -> f a) -> s -> 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'resource") MetricConfigRequest
_x
of
Maybe Resource
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Resource
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Resource -> ByteString) -> Resource -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ 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))
Resource -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Resource
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v
= FoldLike
ByteString
MetricConfigRequest
MetricConfigRequest
ByteString
ByteString
-> MetricConfigRequest -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "lastKnownFingerprint" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lastKnownFingerprint") MetricConfigRequest
_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 Word64
18)
((\ 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 MetricConfigRequest MetricConfigRequest FieldSet FieldSet
-> MetricConfigRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet MetricConfigRequest MetricConfigRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetricConfigRequest
_x)))
instance Control.DeepSeq.NFData MetricConfigRequest where
rnf :: MetricConfigRequest -> ()
rnf
= \ MetricConfigRequest
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigRequest -> FieldSet
_MetricConfigRequest'_unknownFields MetricConfigRequest
x__)
(Maybe Resource -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigRequest -> Maybe Resource
_MetricConfigRequest'resource MetricConfigRequest
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigRequest -> ByteString
_MetricConfigRequest'lastKnownFingerprint MetricConfigRequest
x__) ()))
data MetricConfigResponse
= MetricConfigResponse'_constructor {MetricConfigResponse -> ByteString
_MetricConfigResponse'fingerprint :: !Data.ByteString.ByteString,
MetricConfigResponse -> Vector MetricConfigResponse'Schedule
_MetricConfigResponse'schedules :: !(Data.Vector.Vector MetricConfigResponse'Schedule),
MetricConfigResponse -> Int32
_MetricConfigResponse'suggestedWaitTimeSec :: !Data.Int.Int32,
MetricConfigResponse -> FieldSet
_MetricConfigResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MetricConfigResponse -> MetricConfigResponse -> Bool
(MetricConfigResponse -> MetricConfigResponse -> Bool)
-> (MetricConfigResponse -> MetricConfigResponse -> Bool)
-> Eq MetricConfigResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetricConfigResponse -> MetricConfigResponse -> Bool
$c/= :: MetricConfigResponse -> MetricConfigResponse -> Bool
== :: MetricConfigResponse -> MetricConfigResponse -> Bool
$c== :: MetricConfigResponse -> MetricConfigResponse -> Bool
Prelude.Eq, Eq MetricConfigResponse
Eq MetricConfigResponse
-> (MetricConfigResponse -> MetricConfigResponse -> Ordering)
-> (MetricConfigResponse -> MetricConfigResponse -> Bool)
-> (MetricConfigResponse -> MetricConfigResponse -> Bool)
-> (MetricConfigResponse -> MetricConfigResponse -> Bool)
-> (MetricConfigResponse -> MetricConfigResponse -> Bool)
-> (MetricConfigResponse
-> MetricConfigResponse -> MetricConfigResponse)
-> (MetricConfigResponse
-> MetricConfigResponse -> MetricConfigResponse)
-> Ord MetricConfigResponse
MetricConfigResponse -> MetricConfigResponse -> Bool
MetricConfigResponse -> MetricConfigResponse -> Ordering
MetricConfigResponse
-> MetricConfigResponse -> MetricConfigResponse
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 :: MetricConfigResponse
-> MetricConfigResponse -> MetricConfigResponse
$cmin :: MetricConfigResponse
-> MetricConfigResponse -> MetricConfigResponse
max :: MetricConfigResponse
-> MetricConfigResponse -> MetricConfigResponse
$cmax :: MetricConfigResponse
-> MetricConfigResponse -> MetricConfigResponse
>= :: MetricConfigResponse -> MetricConfigResponse -> Bool
$c>= :: MetricConfigResponse -> MetricConfigResponse -> Bool
> :: MetricConfigResponse -> MetricConfigResponse -> Bool
$c> :: MetricConfigResponse -> MetricConfigResponse -> Bool
<= :: MetricConfigResponse -> MetricConfigResponse -> Bool
$c<= :: MetricConfigResponse -> MetricConfigResponse -> Bool
< :: MetricConfigResponse -> MetricConfigResponse -> Bool
$c< :: MetricConfigResponse -> MetricConfigResponse -> Bool
compare :: MetricConfigResponse -> MetricConfigResponse -> Ordering
$ccompare :: MetricConfigResponse -> MetricConfigResponse -> Ordering
$cp1Ord :: Eq MetricConfigResponse
Prelude.Ord)
instance Prelude.Show MetricConfigResponse where
showsPrec :: Int -> MetricConfigResponse -> ShowS
showsPrec Int
_ MetricConfigResponse
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(MetricConfigResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetricConfigResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MetricConfigResponse "fingerprint" Data.ByteString.ByteString where
fieldOf :: Proxy# "fingerprint"
-> (ByteString -> f ByteString)
-> MetricConfigResponse
-> f MetricConfigResponse
fieldOf Proxy# "fingerprint"
_
= ((ByteString -> f ByteString)
-> MetricConfigResponse -> f MetricConfigResponse)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> MetricConfigResponse
-> f MetricConfigResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse -> ByteString)
-> (MetricConfigResponse -> ByteString -> MetricConfigResponse)
-> Lens
MetricConfigResponse MetricConfigResponse ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse -> ByteString
_MetricConfigResponse'fingerprint
(\ MetricConfigResponse
x__ ByteString
y__ -> MetricConfigResponse
x__ {_MetricConfigResponse'fingerprint :: ByteString
_MetricConfigResponse'fingerprint = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetricConfigResponse "schedules" [MetricConfigResponse'Schedule] where
fieldOf :: Proxy# "schedules"
-> ([MetricConfigResponse'Schedule]
-> f [MetricConfigResponse'Schedule])
-> MetricConfigResponse
-> f MetricConfigResponse
fieldOf Proxy# "schedules"
_
= ((Vector MetricConfigResponse'Schedule
-> f (Vector MetricConfigResponse'Schedule))
-> MetricConfigResponse -> f MetricConfigResponse)
-> (([MetricConfigResponse'Schedule]
-> f [MetricConfigResponse'Schedule])
-> Vector MetricConfigResponse'Schedule
-> f (Vector MetricConfigResponse'Schedule))
-> ([MetricConfigResponse'Schedule]
-> f [MetricConfigResponse'Schedule])
-> MetricConfigResponse
-> f MetricConfigResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse -> Vector MetricConfigResponse'Schedule)
-> (MetricConfigResponse
-> Vector MetricConfigResponse'Schedule -> MetricConfigResponse)
-> Lens
MetricConfigResponse
MetricConfigResponse
(Vector MetricConfigResponse'Schedule)
(Vector MetricConfigResponse'Schedule)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse -> Vector MetricConfigResponse'Schedule
_MetricConfigResponse'schedules
(\ MetricConfigResponse
x__ Vector MetricConfigResponse'Schedule
y__ -> MetricConfigResponse
x__ {_MetricConfigResponse'schedules :: Vector MetricConfigResponse'Schedule
_MetricConfigResponse'schedules = Vector MetricConfigResponse'Schedule
y__}))
((Vector MetricConfigResponse'Schedule
-> [MetricConfigResponse'Schedule])
-> (Vector MetricConfigResponse'Schedule
-> [MetricConfigResponse'Schedule]
-> Vector MetricConfigResponse'Schedule)
-> Lens
(Vector MetricConfigResponse'Schedule)
(Vector MetricConfigResponse'Schedule)
[MetricConfigResponse'Schedule]
[MetricConfigResponse'Schedule]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector MetricConfigResponse'Schedule
-> [MetricConfigResponse'Schedule]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector MetricConfigResponse'Schedule
_ [MetricConfigResponse'Schedule]
y__ -> [MetricConfigResponse'Schedule]
-> Vector MetricConfigResponse'Schedule
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [MetricConfigResponse'Schedule]
y__))
instance Data.ProtoLens.Field.HasField MetricConfigResponse "vec'schedules" (Data.Vector.Vector MetricConfigResponse'Schedule) where
fieldOf :: Proxy# "vec'schedules"
-> (Vector MetricConfigResponse'Schedule
-> f (Vector MetricConfigResponse'Schedule))
-> MetricConfigResponse
-> f MetricConfigResponse
fieldOf Proxy# "vec'schedules"
_
= ((Vector MetricConfigResponse'Schedule
-> f (Vector MetricConfigResponse'Schedule))
-> MetricConfigResponse -> f MetricConfigResponse)
-> ((Vector MetricConfigResponse'Schedule
-> f (Vector MetricConfigResponse'Schedule))
-> Vector MetricConfigResponse'Schedule
-> f (Vector MetricConfigResponse'Schedule))
-> (Vector MetricConfigResponse'Schedule
-> f (Vector MetricConfigResponse'Schedule))
-> MetricConfigResponse
-> f MetricConfigResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse -> Vector MetricConfigResponse'Schedule)
-> (MetricConfigResponse
-> Vector MetricConfigResponse'Schedule -> MetricConfigResponse)
-> Lens
MetricConfigResponse
MetricConfigResponse
(Vector MetricConfigResponse'Schedule)
(Vector MetricConfigResponse'Schedule)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse -> Vector MetricConfigResponse'Schedule
_MetricConfigResponse'schedules
(\ MetricConfigResponse
x__ Vector MetricConfigResponse'Schedule
y__ -> MetricConfigResponse
x__ {_MetricConfigResponse'schedules :: Vector MetricConfigResponse'Schedule
_MetricConfigResponse'schedules = Vector MetricConfigResponse'Schedule
y__}))
(Vector MetricConfigResponse'Schedule
-> f (Vector MetricConfigResponse'Schedule))
-> Vector MetricConfigResponse'Schedule
-> f (Vector MetricConfigResponse'Schedule)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetricConfigResponse "suggestedWaitTimeSec" Data.Int.Int32 where
fieldOf :: Proxy# "suggestedWaitTimeSec"
-> (Int32 -> f Int32)
-> MetricConfigResponse
-> f MetricConfigResponse
fieldOf Proxy# "suggestedWaitTimeSec"
_
= ((Int32 -> f Int32)
-> MetricConfigResponse -> f MetricConfigResponse)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> MetricConfigResponse
-> f MetricConfigResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse -> Int32)
-> (MetricConfigResponse -> Int32 -> MetricConfigResponse)
-> Lens MetricConfigResponse MetricConfigResponse Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse -> Int32
_MetricConfigResponse'suggestedWaitTimeSec
(\ MetricConfigResponse
x__ Int32
y__
-> MetricConfigResponse
x__ {_MetricConfigResponse'suggestedWaitTimeSec :: Int32
_MetricConfigResponse'suggestedWaitTimeSec = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetricConfigResponse where
messageName :: Proxy MetricConfigResponse -> Text
messageName Proxy MetricConfigResponse
_
= String -> Text
Data.Text.pack
String
"opentelemetry.proto.metrics.experimental.MetricConfigResponse"
packedMessageDescriptor :: Proxy MetricConfigResponse -> ByteString
packedMessageDescriptor Proxy MetricConfigResponse
_
= ByteString
"\n\
\\DC4MetricConfigResponse\DC2 \n\
\\vfingerprint\CAN\SOH \SOH(\fR\vfingerprint\DC2e\n\
\\tschedules\CAN\STX \ETX(\v2G.opentelemetry.proto.metrics.experimental.MetricConfigResponse.ScheduleR\tschedules\DC25\n\
\\ETBsuggested_wait_time_sec\CAN\ETX \SOH(\ENQR\DC4suggestedWaitTimeSec\SUB\250\STX\n\
\\bSchedule\DC2~\n\
\\DC2exclusion_patterns\CAN\SOH \ETX(\v2O.opentelemetry.proto.metrics.experimental.MetricConfigResponse.Schedule.PatternR\DC1exclusionPatterns\DC2~\n\
\\DC2inclusion_patterns\CAN\STX \ETX(\v2O.opentelemetry.proto.metrics.experimental.MetricConfigResponse.Schedule.PatternR\DC1inclusionPatterns\DC2\GS\n\
\\n\
\period_sec\CAN\ETX \SOH(\ENQR\tperiodSec\SUBO\n\
\\aPattern\DC2\CAN\n\
\\ACKequals\CAN\SOH \SOH(\tH\NULR\ACKequals\DC2!\n\
\\vstarts_with\CAN\STX \SOH(\tH\NULR\n\
\startsWithB\a\n\
\\ENQmatch"
packedFileDescriptor :: Proxy MetricConfigResponse -> ByteString
packedFileDescriptor Proxy MetricConfigResponse
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MetricConfigResponse)
fieldsByTag
= let
fingerprint__field_descriptor :: FieldDescriptor MetricConfigResponse
fingerprint__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor MetricConfigResponse ByteString
-> FieldDescriptor MetricConfigResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"fingerprint"
(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
MetricConfigResponse MetricConfigResponse ByteString ByteString
-> FieldAccessor MetricConfigResponse 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 "fingerprint" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fingerprint")) ::
Data.ProtoLens.FieldDescriptor MetricConfigResponse
schedules__field_descriptor :: FieldDescriptor MetricConfigResponse
schedules__field_descriptor
= String
-> FieldTypeDescriptor MetricConfigResponse'Schedule
-> FieldAccessor MetricConfigResponse MetricConfigResponse'Schedule
-> FieldDescriptor MetricConfigResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"schedules"
(MessageOrGroup -> FieldTypeDescriptor MetricConfigResponse'Schedule
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MetricConfigResponse'Schedule)
(Packing
-> Lens' MetricConfigResponse [MetricConfigResponse'Schedule]
-> FieldAccessor MetricConfigResponse MetricConfigResponse'Schedule
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "schedules" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"schedules")) ::
Data.ProtoLens.FieldDescriptor MetricConfigResponse
suggestedWaitTimeSec__field_descriptor :: FieldDescriptor MetricConfigResponse
suggestedWaitTimeSec__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor MetricConfigResponse Int32
-> FieldDescriptor MetricConfigResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"suggested_wait_time_sec"
(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 MetricConfigResponse MetricConfigResponse Int32 Int32
-> FieldAccessor MetricConfigResponse 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 "suggestedWaitTimeSec" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"suggestedWaitTimeSec")) ::
Data.ProtoLens.FieldDescriptor MetricConfigResponse
in
[(Tag, FieldDescriptor MetricConfigResponse)]
-> Map Tag (FieldDescriptor MetricConfigResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MetricConfigResponse
fingerprint__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MetricConfigResponse
schedules__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor MetricConfigResponse
suggestedWaitTimeSec__field_descriptor)]
unknownFields :: LensLike' f MetricConfigResponse FieldSet
unknownFields
= (MetricConfigResponse -> FieldSet)
-> (MetricConfigResponse -> FieldSet -> MetricConfigResponse)
-> Lens' MetricConfigResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse -> FieldSet
_MetricConfigResponse'_unknownFields
(\ MetricConfigResponse
x__ FieldSet
y__ -> MetricConfigResponse
x__ {_MetricConfigResponse'_unknownFields :: FieldSet
_MetricConfigResponse'_unknownFields = FieldSet
y__})
defMessage :: MetricConfigResponse
defMessage
= MetricConfigResponse'_constructor :: ByteString
-> Vector MetricConfigResponse'Schedule
-> Int32
-> FieldSet
-> MetricConfigResponse
MetricConfigResponse'_constructor
{_MetricConfigResponse'fingerprint :: ByteString
_MetricConfigResponse'fingerprint = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MetricConfigResponse'schedules :: Vector MetricConfigResponse'Schedule
_MetricConfigResponse'schedules = Vector MetricConfigResponse'Schedule
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_MetricConfigResponse'suggestedWaitTimeSec :: Int32
_MetricConfigResponse'suggestedWaitTimeSec = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MetricConfigResponse'_unknownFields :: FieldSet
_MetricConfigResponse'_unknownFields = []}
parseMessage :: Parser MetricConfigResponse
parseMessage
= let
loop ::
MetricConfigResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MetricConfigResponse'Schedule
-> Data.ProtoLens.Encoding.Bytes.Parser MetricConfigResponse
loop :: MetricConfigResponse
-> Growing Vector RealWorld MetricConfigResponse'Schedule
-> Parser MetricConfigResponse
loop MetricConfigResponse
x Growing Vector RealWorld MetricConfigResponse'Schedule
mutable'schedules
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector MetricConfigResponse'Schedule
frozen'schedules <- IO (Vector MetricConfigResponse'Schedule)
-> Parser (Vector MetricConfigResponse'Schedule)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) MetricConfigResponse'Schedule
-> IO (Vector MetricConfigResponse'Schedule)
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 MetricConfigResponse'Schedule
Growing Vector (PrimState IO) MetricConfigResponse'Schedule
mutable'schedules)
(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.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
MetricConfigResponse -> Parser MetricConfigResponse
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter MetricConfigResponse MetricConfigResponse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MetricConfigResponse
-> MetricConfigResponse
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 MetricConfigResponse MetricConfigResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
MetricConfigResponse
MetricConfigResponse
(Vector MetricConfigResponse'Schedule)
(Vector MetricConfigResponse'Schedule)
-> Vector MetricConfigResponse'Schedule
-> MetricConfigResponse
-> MetricConfigResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'schedules" a, Functor f) =>
(a -> f a) -> s -> 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'schedules") Vector MetricConfigResponse'Schedule
frozen'schedules MetricConfigResponse
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> 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))
String
"fingerprint"
MetricConfigResponse
-> Growing Vector RealWorld MetricConfigResponse'Schedule
-> Parser MetricConfigResponse
loop
(Setter
MetricConfigResponse MetricConfigResponse ByteString ByteString
-> ByteString -> MetricConfigResponse -> MetricConfigResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "fingerprint" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fingerprint") ByteString
y MetricConfigResponse
x)
Growing Vector RealWorld MetricConfigResponse'Schedule
mutable'schedules
Word64
18
-> do !MetricConfigResponse'Schedule
y <- Parser MetricConfigResponse'Schedule
-> String -> Parser MetricConfigResponse'Schedule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser MetricConfigResponse'Schedule
-> Parser MetricConfigResponse'Schedule
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 MetricConfigResponse'Schedule
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"schedules"
Growing Vector RealWorld MetricConfigResponse'Schedule
v <- IO (Growing Vector RealWorld MetricConfigResponse'Schedule)
-> Parser (Growing Vector RealWorld MetricConfigResponse'Schedule)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule
-> IO (Growing Vector (PrimState IO) MetricConfigResponse'Schedule)
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 MetricConfigResponse'Schedule
Growing Vector (PrimState IO) MetricConfigResponse'Schedule
mutable'schedules MetricConfigResponse'Schedule
y)
MetricConfigResponse
-> Growing Vector RealWorld MetricConfigResponse'Schedule
-> Parser MetricConfigResponse
loop MetricConfigResponse
x Growing Vector RealWorld MetricConfigResponse'Schedule
v
Word64
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)
String
"suggested_wait_time_sec"
MetricConfigResponse
-> Growing Vector RealWorld MetricConfigResponse'Schedule
-> Parser MetricConfigResponse
loop
(Setter MetricConfigResponse MetricConfigResponse Int32 Int32
-> Int32 -> MetricConfigResponse -> MetricConfigResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "suggestedWaitTimeSec" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"suggestedWaitTimeSec") Int32
y MetricConfigResponse
x)
Growing Vector RealWorld MetricConfigResponse'Schedule
mutable'schedules
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MetricConfigResponse
-> Growing Vector RealWorld MetricConfigResponse'Schedule
-> Parser MetricConfigResponse
loop
(Setter MetricConfigResponse MetricConfigResponse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MetricConfigResponse
-> MetricConfigResponse
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 MetricConfigResponse MetricConfigResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetricConfigResponse
x)
Growing Vector RealWorld MetricConfigResponse'Schedule
mutable'schedules
in
Parser MetricConfigResponse
-> String -> Parser MetricConfigResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld MetricConfigResponse'Schedule
mutable'schedules <- IO (Growing Vector RealWorld MetricConfigResponse'Schedule)
-> Parser (Growing Vector RealWorld MetricConfigResponse'Schedule)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld MetricConfigResponse'Schedule)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
MetricConfigResponse
-> Growing Vector RealWorld MetricConfigResponse'Schedule
-> Parser MetricConfigResponse
loop MetricConfigResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld MetricConfigResponse'Schedule
mutable'schedules)
String
"MetricConfigResponse"
buildMessage :: MetricConfigResponse -> Builder
buildMessage
= \ MetricConfigResponse
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v
= FoldLike
ByteString
MetricConfigResponse
MetricConfigResponse
ByteString
ByteString
-> MetricConfigResponse -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "fingerprint" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fingerprint") MetricConfigResponse
_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 Word64
10)
((\ 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.<>)
((MetricConfigResponse'Schedule -> Builder)
-> Vector MetricConfigResponse'Schedule -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ MetricConfigResponse'Schedule
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (MetricConfigResponse'Schedule -> ByteString)
-> MetricConfigResponse'Schedule
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ 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))
MetricConfigResponse'Schedule -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage MetricConfigResponse'Schedule
_v))
(FoldLike
(Vector MetricConfigResponse'Schedule)
MetricConfigResponse
MetricConfigResponse
(Vector MetricConfigResponse'Schedule)
(Vector MetricConfigResponse'Schedule)
-> MetricConfigResponse -> Vector MetricConfigResponse'Schedule
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'schedules" a, Functor f) =>
(a -> f a) -> s -> 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'schedules") MetricConfigResponse
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v
= FoldLike
Int32 MetricConfigResponse MetricConfigResponse Int32 Int32
-> MetricConfigResponse -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "suggestedWaitTimeSec" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"suggestedWaitTimeSec") MetricConfigResponse
_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 Word64
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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
MetricConfigResponse
MetricConfigResponse
FieldSet
FieldSet
-> MetricConfigResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MetricConfigResponse
MetricConfigResponse
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetricConfigResponse
_x))))
instance Control.DeepSeq.NFData MetricConfigResponse where
rnf :: MetricConfigResponse -> ()
rnf
= \ MetricConfigResponse
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigResponse -> FieldSet
_MetricConfigResponse'_unknownFields MetricConfigResponse
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigResponse -> ByteString
_MetricConfigResponse'fingerprint MetricConfigResponse
x__)
(Vector MetricConfigResponse'Schedule -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigResponse -> Vector MetricConfigResponse'Schedule
_MetricConfigResponse'schedules MetricConfigResponse
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigResponse -> Int32
_MetricConfigResponse'suggestedWaitTimeSec MetricConfigResponse
x__) ())))
data MetricConfigResponse'Schedule
= MetricConfigResponse'Schedule'_constructor {MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'exclusionPatterns :: !(Data.Vector.Vector MetricConfigResponse'Schedule'Pattern),
MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'inclusionPatterns :: !(Data.Vector.Vector MetricConfigResponse'Schedule'Pattern),
MetricConfigResponse'Schedule -> Int32
_MetricConfigResponse'Schedule'periodSec :: !Data.Int.Int32,
MetricConfigResponse'Schedule -> FieldSet
_MetricConfigResponse'Schedule'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
(MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool)
-> (MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool)
-> Eq MetricConfigResponse'Schedule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
$c/= :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
== :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
$c== :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
Prelude.Eq, Eq MetricConfigResponse'Schedule
Eq MetricConfigResponse'Schedule
-> (MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Ordering)
-> (MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool)
-> (MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool)
-> (MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool)
-> (MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool)
-> (MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> MetricConfigResponse'Schedule)
-> (MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> MetricConfigResponse'Schedule)
-> Ord MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Ordering
MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> MetricConfigResponse'Schedule
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 :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> MetricConfigResponse'Schedule
$cmin :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> MetricConfigResponse'Schedule
max :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> MetricConfigResponse'Schedule
$cmax :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> MetricConfigResponse'Schedule
>= :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
$c>= :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
> :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
$c> :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
<= :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
$c<= :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
< :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
$c< :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Bool
compare :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Ordering
$ccompare :: MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule -> Ordering
$cp1Ord :: Eq MetricConfigResponse'Schedule
Prelude.Ord)
instance Prelude.Show MetricConfigResponse'Schedule where
showsPrec :: Int -> MetricConfigResponse'Schedule -> ShowS
showsPrec Int
_ MetricConfigResponse'Schedule
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(MetricConfigResponse'Schedule -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetricConfigResponse'Schedule
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MetricConfigResponse'Schedule "exclusionPatterns" [MetricConfigResponse'Schedule'Pattern] where
fieldOf :: Proxy# "exclusionPatterns"
-> ([MetricConfigResponse'Schedule'Pattern]
-> f [MetricConfigResponse'Schedule'Pattern])
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule
fieldOf Proxy# "exclusionPatterns"
_
= ((Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule)
-> (([MetricConfigResponse'Schedule'Pattern]
-> f [MetricConfigResponse'Schedule'Pattern])
-> Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> ([MetricConfigResponse'Schedule'Pattern]
-> f [MetricConfigResponse'Schedule'Pattern])
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern)
-> (MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule)
-> Lens
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
(Vector MetricConfigResponse'Schedule'Pattern)
(Vector MetricConfigResponse'Schedule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'exclusionPatterns
(\ MetricConfigResponse'Schedule
x__ Vector MetricConfigResponse'Schedule'Pattern
y__
-> MetricConfigResponse'Schedule
x__ {_MetricConfigResponse'Schedule'exclusionPatterns :: Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'exclusionPatterns = Vector MetricConfigResponse'Schedule'Pattern
y__}))
((Vector MetricConfigResponse'Schedule'Pattern
-> [MetricConfigResponse'Schedule'Pattern])
-> (Vector MetricConfigResponse'Schedule'Pattern
-> [MetricConfigResponse'Schedule'Pattern]
-> Vector MetricConfigResponse'Schedule'Pattern)
-> Lens
(Vector MetricConfigResponse'Schedule'Pattern)
(Vector MetricConfigResponse'Schedule'Pattern)
[MetricConfigResponse'Schedule'Pattern]
[MetricConfigResponse'Schedule'Pattern]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector MetricConfigResponse'Schedule'Pattern
-> [MetricConfigResponse'Schedule'Pattern]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector MetricConfigResponse'Schedule'Pattern
_ [MetricConfigResponse'Schedule'Pattern]
y__ -> [MetricConfigResponse'Schedule'Pattern]
-> Vector MetricConfigResponse'Schedule'Pattern
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [MetricConfigResponse'Schedule'Pattern]
y__))
instance Data.ProtoLens.Field.HasField MetricConfigResponse'Schedule "vec'exclusionPatterns" (Data.Vector.Vector MetricConfigResponse'Schedule'Pattern) where
fieldOf :: Proxy# "vec'exclusionPatterns"
-> (Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule
fieldOf Proxy# "vec'exclusionPatterns"
_
= ((Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule)
-> ((Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> (Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern)
-> (MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule)
-> Lens
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
(Vector MetricConfigResponse'Schedule'Pattern)
(Vector MetricConfigResponse'Schedule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'exclusionPatterns
(\ MetricConfigResponse'Schedule
x__ Vector MetricConfigResponse'Schedule'Pattern
y__
-> MetricConfigResponse'Schedule
x__ {_MetricConfigResponse'Schedule'exclusionPatterns :: Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'exclusionPatterns = Vector MetricConfigResponse'Schedule'Pattern
y__}))
(Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetricConfigResponse'Schedule "inclusionPatterns" [MetricConfigResponse'Schedule'Pattern] where
fieldOf :: Proxy# "inclusionPatterns"
-> ([MetricConfigResponse'Schedule'Pattern]
-> f [MetricConfigResponse'Schedule'Pattern])
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule
fieldOf Proxy# "inclusionPatterns"
_
= ((Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule)
-> (([MetricConfigResponse'Schedule'Pattern]
-> f [MetricConfigResponse'Schedule'Pattern])
-> Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> ([MetricConfigResponse'Schedule'Pattern]
-> f [MetricConfigResponse'Schedule'Pattern])
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern)
-> (MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule)
-> Lens
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
(Vector MetricConfigResponse'Schedule'Pattern)
(Vector MetricConfigResponse'Schedule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'inclusionPatterns
(\ MetricConfigResponse'Schedule
x__ Vector MetricConfigResponse'Schedule'Pattern
y__
-> MetricConfigResponse'Schedule
x__ {_MetricConfigResponse'Schedule'inclusionPatterns :: Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'inclusionPatterns = Vector MetricConfigResponse'Schedule'Pattern
y__}))
((Vector MetricConfigResponse'Schedule'Pattern
-> [MetricConfigResponse'Schedule'Pattern])
-> (Vector MetricConfigResponse'Schedule'Pattern
-> [MetricConfigResponse'Schedule'Pattern]
-> Vector MetricConfigResponse'Schedule'Pattern)
-> Lens
(Vector MetricConfigResponse'Schedule'Pattern)
(Vector MetricConfigResponse'Schedule'Pattern)
[MetricConfigResponse'Schedule'Pattern]
[MetricConfigResponse'Schedule'Pattern]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector MetricConfigResponse'Schedule'Pattern
-> [MetricConfigResponse'Schedule'Pattern]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector MetricConfigResponse'Schedule'Pattern
_ [MetricConfigResponse'Schedule'Pattern]
y__ -> [MetricConfigResponse'Schedule'Pattern]
-> Vector MetricConfigResponse'Schedule'Pattern
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [MetricConfigResponse'Schedule'Pattern]
y__))
instance Data.ProtoLens.Field.HasField MetricConfigResponse'Schedule "vec'inclusionPatterns" (Data.Vector.Vector MetricConfigResponse'Schedule'Pattern) where
fieldOf :: Proxy# "vec'inclusionPatterns"
-> (Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule
fieldOf Proxy# "vec'inclusionPatterns"
_
= ((Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule)
-> ((Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> (Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern)
-> (MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule)
-> Lens
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
(Vector MetricConfigResponse'Schedule'Pattern)
(Vector MetricConfigResponse'Schedule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'inclusionPatterns
(\ MetricConfigResponse'Schedule
x__ Vector MetricConfigResponse'Schedule'Pattern
y__
-> MetricConfigResponse'Schedule
x__ {_MetricConfigResponse'Schedule'inclusionPatterns :: Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'inclusionPatterns = Vector MetricConfigResponse'Schedule'Pattern
y__}))
(Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern))
-> Vector MetricConfigResponse'Schedule'Pattern
-> f (Vector MetricConfigResponse'Schedule'Pattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetricConfigResponse'Schedule "periodSec" Data.Int.Int32 where
fieldOf :: Proxy# "periodSec"
-> (Int32 -> f Int32)
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule
fieldOf Proxy# "periodSec"
_
= ((Int32 -> f Int32)
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> MetricConfigResponse'Schedule
-> f MetricConfigResponse'Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse'Schedule -> Int32)
-> (MetricConfigResponse'Schedule
-> Int32 -> MetricConfigResponse'Schedule)
-> Lens
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
Int32
Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse'Schedule -> Int32
_MetricConfigResponse'Schedule'periodSec
(\ MetricConfigResponse'Schedule
x__ Int32
y__
-> MetricConfigResponse'Schedule
x__ {_MetricConfigResponse'Schedule'periodSec :: Int32
_MetricConfigResponse'Schedule'periodSec = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetricConfigResponse'Schedule where
messageName :: Proxy MetricConfigResponse'Schedule -> Text
messageName Proxy MetricConfigResponse'Schedule
_
= String -> Text
Data.Text.pack
String
"opentelemetry.proto.metrics.experimental.MetricConfigResponse.Schedule"
packedMessageDescriptor :: Proxy MetricConfigResponse'Schedule -> ByteString
packedMessageDescriptor Proxy MetricConfigResponse'Schedule
_
= ByteString
"\n\
\\bSchedule\DC2~\n\
\\DC2exclusion_patterns\CAN\SOH \ETX(\v2O.opentelemetry.proto.metrics.experimental.MetricConfigResponse.Schedule.PatternR\DC1exclusionPatterns\DC2~\n\
\\DC2inclusion_patterns\CAN\STX \ETX(\v2O.opentelemetry.proto.metrics.experimental.MetricConfigResponse.Schedule.PatternR\DC1inclusionPatterns\DC2\GS\n\
\\n\
\period_sec\CAN\ETX \SOH(\ENQR\tperiodSec\SUBO\n\
\\aPattern\DC2\CAN\n\
\\ACKequals\CAN\SOH \SOH(\tH\NULR\ACKequals\DC2!\n\
\\vstarts_with\CAN\STX \SOH(\tH\NULR\n\
\startsWithB\a\n\
\\ENQmatch"
packedFileDescriptor :: Proxy MetricConfigResponse'Schedule -> ByteString
packedFileDescriptor Proxy MetricConfigResponse'Schedule
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MetricConfigResponse'Schedule)
fieldsByTag
= let
exclusionPatterns__field_descriptor :: FieldDescriptor MetricConfigResponse'Schedule
exclusionPatterns__field_descriptor
= String
-> FieldTypeDescriptor MetricConfigResponse'Schedule'Pattern
-> FieldAccessor
MetricConfigResponse'Schedule MetricConfigResponse'Schedule'Pattern
-> FieldDescriptor MetricConfigResponse'Schedule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"exclusion_patterns"
(MessageOrGroup
-> FieldTypeDescriptor MetricConfigResponse'Schedule'Pattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MetricConfigResponse'Schedule'Pattern)
(Packing
-> Lens'
MetricConfigResponse'Schedule
[MetricConfigResponse'Schedule'Pattern]
-> FieldAccessor
MetricConfigResponse'Schedule MetricConfigResponse'Schedule'Pattern
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "exclusionPatterns" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"exclusionPatterns")) ::
Data.ProtoLens.FieldDescriptor MetricConfigResponse'Schedule
inclusionPatterns__field_descriptor :: FieldDescriptor MetricConfigResponse'Schedule
inclusionPatterns__field_descriptor
= String
-> FieldTypeDescriptor MetricConfigResponse'Schedule'Pattern
-> FieldAccessor
MetricConfigResponse'Schedule MetricConfigResponse'Schedule'Pattern
-> FieldDescriptor MetricConfigResponse'Schedule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"inclusion_patterns"
(MessageOrGroup
-> FieldTypeDescriptor MetricConfigResponse'Schedule'Pattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MetricConfigResponse'Schedule'Pattern)
(Packing
-> Lens'
MetricConfigResponse'Schedule
[MetricConfigResponse'Schedule'Pattern]
-> FieldAccessor
MetricConfigResponse'Schedule MetricConfigResponse'Schedule'Pattern
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "inclusionPatterns" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"inclusionPatterns")) ::
Data.ProtoLens.FieldDescriptor MetricConfigResponse'Schedule
periodSec__field_descriptor :: FieldDescriptor MetricConfigResponse'Schedule
periodSec__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor MetricConfigResponse'Schedule Int32
-> FieldDescriptor MetricConfigResponse'Schedule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"period_sec"
(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
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
Int32
Int32
-> FieldAccessor MetricConfigResponse'Schedule 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 "periodSec" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"periodSec")) ::
Data.ProtoLens.FieldDescriptor MetricConfigResponse'Schedule
in
[(Tag, FieldDescriptor MetricConfigResponse'Schedule)]
-> Map Tag (FieldDescriptor MetricConfigResponse'Schedule)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MetricConfigResponse'Schedule
exclusionPatterns__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MetricConfigResponse'Schedule
inclusionPatterns__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor MetricConfigResponse'Schedule
periodSec__field_descriptor)]
unknownFields :: LensLike' f MetricConfigResponse'Schedule FieldSet
unknownFields
= (MetricConfigResponse'Schedule -> FieldSet)
-> (MetricConfigResponse'Schedule
-> FieldSet -> MetricConfigResponse'Schedule)
-> Lens' MetricConfigResponse'Schedule FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse'Schedule -> FieldSet
_MetricConfigResponse'Schedule'_unknownFields
(\ MetricConfigResponse'Schedule
x__ FieldSet
y__
-> MetricConfigResponse'Schedule
x__ {_MetricConfigResponse'Schedule'_unknownFields :: FieldSet
_MetricConfigResponse'Schedule'_unknownFields = FieldSet
y__})
defMessage :: MetricConfigResponse'Schedule
defMessage
= MetricConfigResponse'Schedule'_constructor :: Vector MetricConfigResponse'Schedule'Pattern
-> Vector MetricConfigResponse'Schedule'Pattern
-> Int32
-> FieldSet
-> MetricConfigResponse'Schedule
MetricConfigResponse'Schedule'_constructor
{_MetricConfigResponse'Schedule'exclusionPatterns :: Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'exclusionPatterns = Vector MetricConfigResponse'Schedule'Pattern
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_MetricConfigResponse'Schedule'inclusionPatterns :: Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'inclusionPatterns = Vector MetricConfigResponse'Schedule'Pattern
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_MetricConfigResponse'Schedule'periodSec :: Int32
_MetricConfigResponse'Schedule'periodSec = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MetricConfigResponse'Schedule'_unknownFields :: FieldSet
_MetricConfigResponse'Schedule'_unknownFields = []}
parseMessage :: Parser MetricConfigResponse'Schedule
parseMessage
= let
loop ::
MetricConfigResponse'Schedule
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MetricConfigResponse'Schedule'Pattern
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MetricConfigResponse'Schedule'Pattern
-> Data.ProtoLens.Encoding.Bytes.Parser MetricConfigResponse'Schedule
loop :: MetricConfigResponse'Schedule
-> Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
-> Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule
loop MetricConfigResponse'Schedule
x Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
mutable'exclusionPatterns Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
mutable'inclusionPatterns
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector MetricConfigResponse'Schedule'Pattern
frozen'exclusionPatterns <- IO (Vector MetricConfigResponse'Schedule'Pattern)
-> Parser (Vector MetricConfigResponse'Schedule'Pattern)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) MetricConfigResponse'Schedule'Pattern
-> IO (Vector MetricConfigResponse'Schedule'Pattern)
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 MetricConfigResponse'Schedule'Pattern
Growing Vector (PrimState IO) MetricConfigResponse'Schedule'Pattern
mutable'exclusionPatterns)
Vector MetricConfigResponse'Schedule'Pattern
frozen'inclusionPatterns <- IO (Vector MetricConfigResponse'Schedule'Pattern)
-> Parser (Vector MetricConfigResponse'Schedule'Pattern)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) MetricConfigResponse'Schedule'Pattern
-> IO (Vector MetricConfigResponse'Schedule'Pattern)
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 MetricConfigResponse'Schedule'Pattern
Growing Vector (PrimState IO) MetricConfigResponse'Schedule'Pattern
mutable'inclusionPatterns)
(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.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
MetricConfigResponse'Schedule
-> Parser MetricConfigResponse'Schedule
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule
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
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
(Vector MetricConfigResponse'Schedule'Pattern)
(Vector MetricConfigResponse'Schedule'Pattern)
-> Vector MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'exclusionPatterns" a, Functor f) =>
(a -> f a) -> s -> 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'exclusionPatterns")
Vector MetricConfigResponse'Schedule'Pattern
frozen'exclusionPatterns
(Setter
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
(Vector MetricConfigResponse'Schedule'Pattern)
(Vector MetricConfigResponse'Schedule'Pattern)
-> Vector MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'inclusionPatterns" a, Functor f) =>
(a -> f a) -> s -> 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'inclusionPatterns")
Vector MetricConfigResponse'Schedule'Pattern
frozen'inclusionPatterns MetricConfigResponse'Schedule
x)))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !MetricConfigResponse'Schedule'Pattern
y <- Parser MetricConfigResponse'Schedule'Pattern
-> String -> Parser MetricConfigResponse'Schedule'Pattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule'Pattern
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 MetricConfigResponse'Schedule'Pattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"exclusion_patterns"
Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
v <- IO (Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern)
-> Parser
(Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
-> IO
(Growing
Vector (PrimState IO) MetricConfigResponse'Schedule'Pattern)
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 MetricConfigResponse'Schedule'Pattern
Growing Vector (PrimState IO) MetricConfigResponse'Schedule'Pattern
mutable'exclusionPatterns MetricConfigResponse'Schedule'Pattern
y)
MetricConfigResponse'Schedule
-> Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
-> Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule
loop MetricConfigResponse'Schedule
x Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
v Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
mutable'inclusionPatterns
Word64
18
-> do !MetricConfigResponse'Schedule'Pattern
y <- Parser MetricConfigResponse'Schedule'Pattern
-> String -> Parser MetricConfigResponse'Schedule'Pattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule'Pattern
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 MetricConfigResponse'Schedule'Pattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"inclusion_patterns"
Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
v <- IO (Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern)
-> Parser
(Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
-> IO
(Growing
Vector (PrimState IO) MetricConfigResponse'Schedule'Pattern)
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 MetricConfigResponse'Schedule'Pattern
Growing Vector (PrimState IO) MetricConfigResponse'Schedule'Pattern
mutable'inclusionPatterns MetricConfigResponse'Schedule'Pattern
y)
MetricConfigResponse'Schedule
-> Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
-> Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule
loop MetricConfigResponse'Schedule
x Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
mutable'exclusionPatterns Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
v
Word64
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)
String
"period_sec"
MetricConfigResponse'Schedule
-> Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
-> Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule
loop
(Setter
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
Int32
Int32
-> Int32
-> MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "periodSec" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"periodSec") Int32
y MetricConfigResponse'Schedule
x)
Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
mutable'exclusionPatterns Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
mutable'inclusionPatterns
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MetricConfigResponse'Schedule
-> Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
-> Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule
loop
(Setter
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MetricConfigResponse'Schedule
-> MetricConfigResponse'Schedule
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
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetricConfigResponse'Schedule
x)
Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
mutable'exclusionPatterns Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
mutable'inclusionPatterns
in
Parser MetricConfigResponse'Schedule
-> String -> Parser MetricConfigResponse'Schedule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
mutable'exclusionPatterns <- IO (Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern)
-> Parser
(Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
mutable'inclusionPatterns <- IO (Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern)
-> Parser
(Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
MetricConfigResponse'Schedule
-> Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
-> Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule
loop
MetricConfigResponse'Schedule
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
mutable'exclusionPatterns
Growing Vector RealWorld MetricConfigResponse'Schedule'Pattern
mutable'inclusionPatterns)
String
"Schedule"
buildMessage :: MetricConfigResponse'Schedule -> Builder
buildMessage
= \ MetricConfigResponse'Schedule
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((MetricConfigResponse'Schedule'Pattern -> Builder)
-> Vector MetricConfigResponse'Schedule'Pattern -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ MetricConfigResponse'Schedule'Pattern
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (MetricConfigResponse'Schedule'Pattern -> ByteString)
-> MetricConfigResponse'Schedule'Pattern
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ 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))
MetricConfigResponse'Schedule'Pattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage MetricConfigResponse'Schedule'Pattern
_v))
(FoldLike
(Vector MetricConfigResponse'Schedule'Pattern)
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
(Vector MetricConfigResponse'Schedule'Pattern)
(Vector MetricConfigResponse'Schedule'Pattern)
-> MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'exclusionPatterns" a, Functor f) =>
(a -> f a) -> s -> 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'exclusionPatterns") MetricConfigResponse'Schedule
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((MetricConfigResponse'Schedule'Pattern -> Builder)
-> Vector MetricConfigResponse'Schedule'Pattern -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ MetricConfigResponse'Schedule'Pattern
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (MetricConfigResponse'Schedule'Pattern -> ByteString)
-> MetricConfigResponse'Schedule'Pattern
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ 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))
MetricConfigResponse'Schedule'Pattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage MetricConfigResponse'Schedule'Pattern
_v))
(FoldLike
(Vector MetricConfigResponse'Schedule'Pattern)
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
(Vector MetricConfigResponse'Schedule'Pattern)
(Vector MetricConfigResponse'Schedule'Pattern)
-> MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'inclusionPatterns" a, Functor f) =>
(a -> f a) -> s -> 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'inclusionPatterns") MetricConfigResponse'Schedule
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v = FoldLike
Int32
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
Int32
Int32
-> MetricConfigResponse'Schedule -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "periodSec" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"periodSec") MetricConfigResponse'Schedule
_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 Word64
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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
FieldSet
FieldSet
-> MetricConfigResponse'Schedule -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MetricConfigResponse'Schedule
MetricConfigResponse'Schedule
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetricConfigResponse'Schedule
_x))))
instance Control.DeepSeq.NFData MetricConfigResponse'Schedule where
rnf :: MetricConfigResponse'Schedule -> ()
rnf
= \ MetricConfigResponse'Schedule
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigResponse'Schedule -> FieldSet
_MetricConfigResponse'Schedule'_unknownFields MetricConfigResponse'Schedule
x__)
(Vector MetricConfigResponse'Schedule'Pattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'exclusionPatterns MetricConfigResponse'Schedule
x__)
(Vector MetricConfigResponse'Schedule'Pattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigResponse'Schedule
-> Vector MetricConfigResponse'Schedule'Pattern
_MetricConfigResponse'Schedule'inclusionPatterns MetricConfigResponse'Schedule
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigResponse'Schedule -> Int32
_MetricConfigResponse'Schedule'periodSec MetricConfigResponse'Schedule
x__) ())))
data MetricConfigResponse'Schedule'Pattern
= MetricConfigResponse'Schedule'Pattern'_constructor {MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match :: !(Prelude.Maybe MetricConfigResponse'Schedule'Pattern'Match),
MetricConfigResponse'Schedule'Pattern -> FieldSet
_MetricConfigResponse'Schedule'Pattern'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
(MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool)
-> (MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool)
-> Eq MetricConfigResponse'Schedule'Pattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
$c/= :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
== :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
$c== :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
Prelude.Eq, Eq MetricConfigResponse'Schedule'Pattern
Eq MetricConfigResponse'Schedule'Pattern
-> (MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Ordering)
-> (MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool)
-> (MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool)
-> (MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool)
-> (MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool)
-> (MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern)
-> (MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern)
-> Ord MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Ordering
MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
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 :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
$cmin :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
max :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
$cmax :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
>= :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
$c>= :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
> :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
$c> :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
<= :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
$c<= :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
< :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
$c< :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Bool
compare :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Ordering
$ccompare :: MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern -> Ordering
$cp1Ord :: Eq MetricConfigResponse'Schedule'Pattern
Prelude.Ord)
instance Prelude.Show MetricConfigResponse'Schedule'Pattern where
showsPrec :: Int -> MetricConfigResponse'Schedule'Pattern -> ShowS
showsPrec Int
_ MetricConfigResponse'Schedule'Pattern
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(MetricConfigResponse'Schedule'Pattern -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetricConfigResponse'Schedule'Pattern
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data MetricConfigResponse'Schedule'Pattern'Match
= MetricConfigResponse'Schedule'Pattern'Equals !Data.Text.Text |
MetricConfigResponse'Schedule'Pattern'StartsWith !Data.Text.Text
deriving stock (Int -> MetricConfigResponse'Schedule'Pattern'Match -> ShowS
[MetricConfigResponse'Schedule'Pattern'Match] -> ShowS
MetricConfigResponse'Schedule'Pattern'Match -> String
(Int -> MetricConfigResponse'Schedule'Pattern'Match -> ShowS)
-> (MetricConfigResponse'Schedule'Pattern'Match -> String)
-> ([MetricConfigResponse'Schedule'Pattern'Match] -> ShowS)
-> Show MetricConfigResponse'Schedule'Pattern'Match
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MetricConfigResponse'Schedule'Pattern'Match] -> ShowS
$cshowList :: [MetricConfigResponse'Schedule'Pattern'Match] -> ShowS
show :: MetricConfigResponse'Schedule'Pattern'Match -> String
$cshow :: MetricConfigResponse'Schedule'Pattern'Match -> String
showsPrec :: Int -> MetricConfigResponse'Schedule'Pattern'Match -> ShowS
$cshowsPrec :: Int -> MetricConfigResponse'Schedule'Pattern'Match -> ShowS
Prelude.Show, MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
(MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool)
-> (MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool)
-> Eq MetricConfigResponse'Schedule'Pattern'Match
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
$c/= :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
== :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
$c== :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
Prelude.Eq, Eq MetricConfigResponse'Schedule'Pattern'Match
Eq MetricConfigResponse'Schedule'Pattern'Match
-> (MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Ordering)
-> (MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool)
-> (MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool)
-> (MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool)
-> (MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool)
-> (MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match)
-> (MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match)
-> Ord MetricConfigResponse'Schedule'Pattern'Match
MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Ordering
MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match
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 :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match
$cmin :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match
max :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match
$cmax :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match
>= :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
$c>= :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
> :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
$c> :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
<= :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
$c<= :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
< :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
$c< :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Bool
compare :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Ordering
$ccompare :: MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern'Match -> Ordering
$cp1Ord :: Eq MetricConfigResponse'Schedule'Pattern'Match
Prelude.Ord)
instance Data.ProtoLens.Field.HasField MetricConfigResponse'Schedule'Pattern "maybe'match" (Prelude.Maybe MetricConfigResponse'Schedule'Pattern'Match) where
fieldOf :: Proxy# "maybe'match"
-> (Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern
fieldOf Proxy# "maybe'match"
_
= ((Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern)
-> ((Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> (Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match)
-> (MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern)
-> Lens
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match
(\ MetricConfigResponse'Schedule'Pattern
x__ Maybe MetricConfigResponse'Schedule'Pattern'Match
y__
-> MetricConfigResponse'Schedule'Pattern
x__ {_MetricConfigResponse'Schedule'Pattern'match :: Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match = Maybe MetricConfigResponse'Schedule'Pattern'Match
y__}))
(Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetricConfigResponse'Schedule'Pattern "maybe'equals" (Prelude.Maybe Data.Text.Text) where
fieldOf :: Proxy# "maybe'equals"
-> (Maybe Text -> f (Maybe Text))
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern
fieldOf Proxy# "maybe'equals"
_
= ((Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern)
-> ((Maybe Text -> f (Maybe Text))
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> (Maybe Text -> f (Maybe Text))
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match)
-> (MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern)
-> Lens
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match
(\ MetricConfigResponse'Schedule'Pattern
x__ Maybe MetricConfigResponse'Schedule'Pattern'Match
y__
-> MetricConfigResponse'Schedule'Pattern
x__ {_MetricConfigResponse'Schedule'Pattern'match :: Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match = Maybe MetricConfigResponse'Schedule'Pattern'Match
y__}))
((Maybe MetricConfigResponse'Schedule'Pattern'Match -> Maybe Text)
-> (Maybe MetricConfigResponse'Schedule'Pattern'Match
-> Maybe Text -> Maybe MetricConfigResponse'Schedule'Pattern'Match)
-> Lens
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe MetricConfigResponse'Schedule'Pattern'Match
x__
-> case Maybe MetricConfigResponse'Schedule'Pattern'Match
x__ of
(Prelude.Just (MetricConfigResponse'Schedule'Pattern'Equals Text
x__val))
-> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe MetricConfigResponse'Schedule'Pattern'Match
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe MetricConfigResponse'Schedule'Pattern'Match
_ Maybe Text
y__
-> (Text -> MetricConfigResponse'Schedule'Pattern'Match)
-> Maybe Text -> Maybe MetricConfigResponse'Schedule'Pattern'Match
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> MetricConfigResponse'Schedule'Pattern'Match
MetricConfigResponse'Schedule'Pattern'Equals Maybe Text
y__))
instance Data.ProtoLens.Field.HasField MetricConfigResponse'Schedule'Pattern "equals" Data.Text.Text where
fieldOf :: Proxy# "equals"
-> (Text -> f Text)
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern
fieldOf Proxy# "equals"
_
= ((Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern)
-> ((Text -> f Text)
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> (Text -> f Text)
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match)
-> (MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern)
-> Lens
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match
(\ MetricConfigResponse'Schedule'Pattern
x__ Maybe MetricConfigResponse'Schedule'Pattern'Match
y__
-> MetricConfigResponse'Schedule'Pattern
x__ {_MetricConfigResponse'Schedule'Pattern'match :: Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match = Maybe MetricConfigResponse'Schedule'Pattern'Match
y__}))
(((Maybe Text -> f (Maybe Text))
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe MetricConfigResponse'Schedule'Pattern'Match -> Maybe Text)
-> (Maybe MetricConfigResponse'Schedule'Pattern'Match
-> Maybe Text -> Maybe MetricConfigResponse'Schedule'Pattern'Match)
-> Lens
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe MetricConfigResponse'Schedule'Pattern'Match
x__
-> case Maybe MetricConfigResponse'Schedule'Pattern'Match
x__ of
(Prelude.Just (MetricConfigResponse'Schedule'Pattern'Equals Text
x__val))
-> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe MetricConfigResponse'Schedule'Pattern'Match
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe MetricConfigResponse'Schedule'Pattern'Match
_ Maybe Text
y__
-> (Text -> MetricConfigResponse'Schedule'Pattern'Match)
-> Maybe Text -> Maybe MetricConfigResponse'Schedule'Pattern'Match
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> MetricConfigResponse'Schedule'Pattern'Match
MetricConfigResponse'Schedule'Pattern'Equals Maybe Text
y__))
(Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField MetricConfigResponse'Schedule'Pattern "maybe'startsWith" (Prelude.Maybe Data.Text.Text) where
fieldOf :: Proxy# "maybe'startsWith"
-> (Maybe Text -> f (Maybe Text))
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern
fieldOf Proxy# "maybe'startsWith"
_
= ((Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern)
-> ((Maybe Text -> f (Maybe Text))
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> (Maybe Text -> f (Maybe Text))
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match)
-> (MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern)
-> Lens
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match
(\ MetricConfigResponse'Schedule'Pattern
x__ Maybe MetricConfigResponse'Schedule'Pattern'Match
y__
-> MetricConfigResponse'Schedule'Pattern
x__ {_MetricConfigResponse'Schedule'Pattern'match :: Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match = Maybe MetricConfigResponse'Schedule'Pattern'Match
y__}))
((Maybe MetricConfigResponse'Schedule'Pattern'Match -> Maybe Text)
-> (Maybe MetricConfigResponse'Schedule'Pattern'Match
-> Maybe Text -> Maybe MetricConfigResponse'Schedule'Pattern'Match)
-> Lens
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe MetricConfigResponse'Schedule'Pattern'Match
x__
-> case Maybe MetricConfigResponse'Schedule'Pattern'Match
x__ of
(Prelude.Just (MetricConfigResponse'Schedule'Pattern'StartsWith Text
x__val))
-> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe MetricConfigResponse'Schedule'Pattern'Match
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe MetricConfigResponse'Schedule'Pattern'Match
_ Maybe Text
y__
-> (Text -> MetricConfigResponse'Schedule'Pattern'Match)
-> Maybe Text -> Maybe MetricConfigResponse'Schedule'Pattern'Match
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Text -> MetricConfigResponse'Schedule'Pattern'Match
MetricConfigResponse'Schedule'Pattern'StartsWith Maybe Text
y__))
instance Data.ProtoLens.Field.HasField MetricConfigResponse'Schedule'Pattern "startsWith" Data.Text.Text where
fieldOf :: Proxy# "startsWith"
-> (Text -> f Text)
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern
fieldOf Proxy# "startsWith"
_
= ((Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern)
-> ((Text -> f Text)
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> (Text -> f Text)
-> MetricConfigResponse'Schedule'Pattern
-> f MetricConfigResponse'Schedule'Pattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match)
-> (MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> MetricConfigResponse'Schedule'Pattern)
-> Lens
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match
(\ MetricConfigResponse'Schedule'Pattern
x__ Maybe MetricConfigResponse'Schedule'Pattern'Match
y__
-> MetricConfigResponse'Schedule'Pattern
x__ {_MetricConfigResponse'Schedule'Pattern'match :: Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match = Maybe MetricConfigResponse'Schedule'Pattern'Match
y__}))
(((Maybe Text -> f (Maybe Text))
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
-> f (Maybe MetricConfigResponse'Schedule'Pattern'Match)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe MetricConfigResponse'Schedule'Pattern'Match -> Maybe Text)
-> (Maybe MetricConfigResponse'Schedule'Pattern'Match
-> Maybe Text -> Maybe MetricConfigResponse'Schedule'Pattern'Match)
-> Lens
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe MetricConfigResponse'Schedule'Pattern'Match
x__
-> case Maybe MetricConfigResponse'Schedule'Pattern'Match
x__ of
(Prelude.Just (MetricConfigResponse'Schedule'Pattern'StartsWith Text
x__val))
-> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe MetricConfigResponse'Schedule'Pattern'Match
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe MetricConfigResponse'Schedule'Pattern'Match
_ Maybe Text
y__
-> (Text -> MetricConfigResponse'Schedule'Pattern'Match)
-> Maybe Text -> Maybe MetricConfigResponse'Schedule'Pattern'Match
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Text -> MetricConfigResponse'Schedule'Pattern'Match
MetricConfigResponse'Schedule'Pattern'StartsWith Maybe Text
y__))
(Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message MetricConfigResponse'Schedule'Pattern where
messageName :: Proxy MetricConfigResponse'Schedule'Pattern -> Text
messageName Proxy MetricConfigResponse'Schedule'Pattern
_
= String -> Text
Data.Text.pack
String
"opentelemetry.proto.metrics.experimental.MetricConfigResponse.Schedule.Pattern"
packedMessageDescriptor :: Proxy MetricConfigResponse'Schedule'Pattern -> ByteString
packedMessageDescriptor Proxy MetricConfigResponse'Schedule'Pattern
_
= ByteString
"\n\
\\aPattern\DC2\CAN\n\
\\ACKequals\CAN\SOH \SOH(\tH\NULR\ACKequals\DC2!\n\
\\vstarts_with\CAN\STX \SOH(\tH\NULR\n\
\startsWithB\a\n\
\\ENQmatch"
packedFileDescriptor :: Proxy MetricConfigResponse'Schedule'Pattern -> ByteString
packedFileDescriptor Proxy MetricConfigResponse'Schedule'Pattern
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MetricConfigResponse'Schedule'Pattern)
fieldsByTag
= let
equals__field_descriptor :: FieldDescriptor MetricConfigResponse'Schedule'Pattern
equals__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MetricConfigResponse'Schedule'Pattern Text
-> FieldDescriptor MetricConfigResponse'Schedule'Pattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"equals"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Lens' MetricConfigResponse'Schedule'Pattern (Maybe Text)
-> FieldAccessor MetricConfigResponse'Schedule'Pattern Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'equals" a, Functor f) =>
(a -> f a) -> s -> 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'equals")) ::
Data.ProtoLens.FieldDescriptor MetricConfigResponse'Schedule'Pattern
startsWith__field_descriptor :: FieldDescriptor MetricConfigResponse'Schedule'Pattern
startsWith__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MetricConfigResponse'Schedule'Pattern Text
-> FieldDescriptor MetricConfigResponse'Schedule'Pattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"starts_with"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Lens' MetricConfigResponse'Schedule'Pattern (Maybe Text)
-> FieldAccessor MetricConfigResponse'Schedule'Pattern Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'startsWith" a, Functor f) =>
(a -> f a) -> s -> 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'startsWith")) ::
Data.ProtoLens.FieldDescriptor MetricConfigResponse'Schedule'Pattern
in
[(Tag, FieldDescriptor MetricConfigResponse'Schedule'Pattern)]
-> Map Tag (FieldDescriptor MetricConfigResponse'Schedule'Pattern)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MetricConfigResponse'Schedule'Pattern
equals__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MetricConfigResponse'Schedule'Pattern
startsWith__field_descriptor)]
unknownFields :: LensLike' f MetricConfigResponse'Schedule'Pattern FieldSet
unknownFields
= (MetricConfigResponse'Schedule'Pattern -> FieldSet)
-> (MetricConfigResponse'Schedule'Pattern
-> FieldSet -> MetricConfigResponse'Schedule'Pattern)
-> Lens' MetricConfigResponse'Schedule'Pattern FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricConfigResponse'Schedule'Pattern -> FieldSet
_MetricConfigResponse'Schedule'Pattern'_unknownFields
(\ MetricConfigResponse'Schedule'Pattern
x__ FieldSet
y__
-> MetricConfigResponse'Schedule'Pattern
x__
{_MetricConfigResponse'Schedule'Pattern'_unknownFields :: FieldSet
_MetricConfigResponse'Schedule'Pattern'_unknownFields = FieldSet
y__})
defMessage :: MetricConfigResponse'Schedule'Pattern
defMessage
= MetricConfigResponse'Schedule'Pattern'_constructor :: Maybe MetricConfigResponse'Schedule'Pattern'Match
-> FieldSet -> MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern'_constructor
{_MetricConfigResponse'Schedule'Pattern'match :: Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match = Maybe MetricConfigResponse'Schedule'Pattern'Match
forall a. Maybe a
Prelude.Nothing,
_MetricConfigResponse'Schedule'Pattern'_unknownFields :: FieldSet
_MetricConfigResponse'Schedule'Pattern'_unknownFields = []}
parseMessage :: Parser MetricConfigResponse'Schedule'Pattern
parseMessage
= let
loop ::
MetricConfigResponse'Schedule'Pattern
-> Data.ProtoLens.Encoding.Bytes.Parser MetricConfigResponse'Schedule'Pattern
loop :: MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule'Pattern
loop MetricConfigResponse'Schedule'Pattern
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.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule'Pattern
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
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
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MetricConfigResponse'Schedule'Pattern
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
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 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 Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
String
"equals"
MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule'Pattern
loop (Setter
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
Text
Text
-> Text
-> MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "equals" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"equals") Text
y MetricConfigResponse'Schedule'Pattern
x)
Word64
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 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 Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
String
"starts_with"
MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule'Pattern
loop
(Setter
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
Text
Text
-> Text
-> MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "startsWith" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startsWith") Text
y MetricConfigResponse'Schedule'Pattern
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule'Pattern
loop
(Setter
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MetricConfigResponse'Schedule'Pattern
-> MetricConfigResponse'Schedule'Pattern
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
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetricConfigResponse'Schedule'Pattern
x)
in
Parser MetricConfigResponse'Schedule'Pattern
-> String -> Parser MetricConfigResponse'Schedule'Pattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MetricConfigResponse'Schedule'Pattern
-> Parser MetricConfigResponse'Schedule'Pattern
loop MetricConfigResponse'Schedule'Pattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Pattern"
buildMessage :: MetricConfigResponse'Schedule'Pattern -> Builder
buildMessage
= \ MetricConfigResponse'Schedule'Pattern
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
(Maybe MetricConfigResponse'Schedule'Pattern'Match)
-> MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'match" a, Functor f) =>
(a -> f a) -> s -> 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'match") MetricConfigResponse'Schedule'Pattern
_x
of
Maybe MetricConfigResponse'Schedule'Pattern'Match
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (MetricConfigResponse'Schedule'Pattern'Equals Text
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
v)
(Prelude.Just (MetricConfigResponse'Schedule'Pattern'StartsWith Text
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ 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
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
FieldSet
FieldSet
-> MetricConfigResponse'Schedule'Pattern -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MetricConfigResponse'Schedule'Pattern
MetricConfigResponse'Schedule'Pattern
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetricConfigResponse'Schedule'Pattern
_x))
instance Control.DeepSeq.NFData MetricConfigResponse'Schedule'Pattern where
rnf :: MetricConfigResponse'Schedule'Pattern -> ()
rnf
= \ MetricConfigResponse'Schedule'Pattern
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigResponse'Schedule'Pattern -> FieldSet
_MetricConfigResponse'Schedule'Pattern'_unknownFields MetricConfigResponse'Schedule'Pattern
x__)
(Maybe MetricConfigResponse'Schedule'Pattern'Match -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricConfigResponse'Schedule'Pattern
-> Maybe MetricConfigResponse'Schedule'Pattern'Match
_MetricConfigResponse'Schedule'Pattern'match MetricConfigResponse'Schedule'Pattern
x__) ())
instance Control.DeepSeq.NFData MetricConfigResponse'Schedule'Pattern'Match where
rnf :: MetricConfigResponse'Schedule'Pattern'Match -> ()
rnf (MetricConfigResponse'Schedule'Pattern'Equals Text
x__)
= Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
rnf (MetricConfigResponse'Schedule'Pattern'StartsWith Text
x__)
= Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
_MetricConfigResponse'Schedule'Pattern'Equals ::
Data.ProtoLens.Prism.Prism' MetricConfigResponse'Schedule'Pattern'Match Data.Text.Text
_MetricConfigResponse'Schedule'Pattern'Equals :: p Text (f Text)
-> p MetricConfigResponse'Schedule'Pattern'Match
(f MetricConfigResponse'Schedule'Pattern'Match)
_MetricConfigResponse'Schedule'Pattern'Equals
= (Text -> MetricConfigResponse'Schedule'Pattern'Match)
-> (MetricConfigResponse'Schedule'Pattern'Match -> Maybe Text)
-> Prism
MetricConfigResponse'Schedule'Pattern'Match
MetricConfigResponse'Schedule'Pattern'Match
Text
Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Text -> MetricConfigResponse'Schedule'Pattern'Match
MetricConfigResponse'Schedule'Pattern'Equals
(\ MetricConfigResponse'Schedule'Pattern'Match
p__
-> case MetricConfigResponse'Schedule'Pattern'Match
p__ of
(MetricConfigResponse'Schedule'Pattern'Equals Text
p__val)
-> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
MetricConfigResponse'Schedule'Pattern'Match
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_MetricConfigResponse'Schedule'Pattern'StartsWith ::
Data.ProtoLens.Prism.Prism' MetricConfigResponse'Schedule'Pattern'Match Data.Text.Text
_MetricConfigResponse'Schedule'Pattern'StartsWith :: p Text (f Text)
-> p MetricConfigResponse'Schedule'Pattern'Match
(f MetricConfigResponse'Schedule'Pattern'Match)
_MetricConfigResponse'Schedule'Pattern'StartsWith
= (Text -> MetricConfigResponse'Schedule'Pattern'Match)
-> (MetricConfigResponse'Schedule'Pattern'Match -> Maybe Text)
-> Prism
MetricConfigResponse'Schedule'Pattern'Match
MetricConfigResponse'Schedule'Pattern'Match
Text
Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Text -> MetricConfigResponse'Schedule'Pattern'Match
MetricConfigResponse'Schedule'Pattern'StartsWith
(\ MetricConfigResponse'Schedule'Pattern'Match
p__
-> case MetricConfigResponse'Schedule'Pattern'Match
p__ of
(MetricConfigResponse'Schedule'Pattern'StartsWith Text
p__val)
-> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
MetricConfigResponse'Schedule'Pattern'Match
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
data MetricConfig = MetricConfig {}
instance Data.ProtoLens.Service.Types.Service MetricConfig where
type ServiceName MetricConfig = "MetricConfig"
type ServicePackage MetricConfig = "opentelemetry.proto.metrics.experimental"
type ServiceMethods MetricConfig = '["getMetricConfig"]
packedServiceDescriptor :: Proxy MetricConfig -> ByteString
packedServiceDescriptor Proxy MetricConfig
_
= ByteString
"\n\
\\fMetricConfig\DC2\144\SOH\n\
\\SIGetMetricConfig\DC2=.opentelemetry.proto.metrics.experimental.MetricConfigRequest\SUB>.opentelemetry.proto.metrics.experimental.MetricConfigResponse"
instance Data.ProtoLens.Service.Types.HasMethodImpl MetricConfig "getMetricConfig" where
type MethodName MetricConfig "getMetricConfig" = "GetMetricConfig"
type MethodInput MetricConfig "getMetricConfig" = MetricConfigRequest
type MethodOutput MetricConfig "getMetricConfig" = MetricConfigResponse
type MethodStreamingType MetricConfig "getMetricConfig" = 'Data.ProtoLens.Service.Types.NonStreaming
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= ByteString
"\n\
\Eopentelemetry/proto/metrics/experimental/metrics_config_service.proto\DC2(opentelemetry.proto.metrics.experimental\SUB.opentelemetry/proto/resource/v1/resource.proto\"\146\SOH\n\
\\DC3MetricConfigRequest\DC2E\n\
\\bresource\CAN\SOH \SOH(\v2).opentelemetry.proto.resource.v1.ResourceR\bresource\DC24\n\
\\SYNlast_known_fingerprint\CAN\STX \SOH(\fR\DC4lastKnownFingerprint\"\211\EOT\n\
\\DC4MetricConfigResponse\DC2 \n\
\\vfingerprint\CAN\SOH \SOH(\fR\vfingerprint\DC2e\n\
\\tschedules\CAN\STX \ETX(\v2G.opentelemetry.proto.metrics.experimental.MetricConfigResponse.ScheduleR\tschedules\DC25\n\
\\ETBsuggested_wait_time_sec\CAN\ETX \SOH(\ENQR\DC4suggestedWaitTimeSec\SUB\250\STX\n\
\\bSchedule\DC2~\n\
\\DC2exclusion_patterns\CAN\SOH \ETX(\v2O.opentelemetry.proto.metrics.experimental.MetricConfigResponse.Schedule.PatternR\DC1exclusionPatterns\DC2~\n\
\\DC2inclusion_patterns\CAN\STX \ETX(\v2O.opentelemetry.proto.metrics.experimental.MetricConfigResponse.Schedule.PatternR\DC1inclusionPatterns\DC2\GS\n\
\\n\
\period_sec\CAN\ETX \SOH(\ENQR\tperiodSec\SUBO\n\
\\aPattern\DC2\CAN\n\
\\ACKequals\CAN\SOH \SOH(\tH\NULR\ACKequals\DC2!\n\
\\vstarts_with\CAN\STX \SOH(\tH\NULR\n\
\startsWithB\a\n\
\\ENQmatch2\161\SOH\n\
\\fMetricConfig\DC2\144\SOH\n\
\\SIGetMetricConfig\DC2=.opentelemetry.proto.metrics.experimental.MetricConfigRequest\SUB>.opentelemetry.proto.metrics.experimental.MetricConfigResponseB\148\SOH\n\
\+io.opentelemetry.proto.metrics.experimentalB\CANMetricConfigServiceProtoP\SOHZIgithub.com/open-telemetry/opentelemetry-proto/gen/go/metrics/experimentalJ\182!\n\
\\ACK\DC2\EOT\SO\NULe\SOH\n\
\\200\EOT\n\
\\SOH\f\DC2\ETX\SO\NUL\DC22\189\EOT Copyright 2019, OpenTelemetry Authors\n\
\\n\
\ Licensed under the Apache License, Version 2.0 (the \"License\");\n\
\ you may not use this file except in compliance with the License.\n\
\ You may obtain a copy of the License at\n\
\\n\
\ http://www.apache.org/licenses/LICENSE-2.0\n\
\\n\
\ Unless required by applicable law or agreed to in writing, software\n\
\ distributed under the License is distributed on an \"AS IS\" BASIS,\n\
\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\n\
\ See the License for the specific language governing permissions and\n\
\ limitations under the License.\n\
\\n\
\\b\n\
\\SOH\STX\DC2\ETX\DLE\NUL1\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\DC2\NUL8\n\
\\b\n\
\\SOH\b\DC2\ETX\DC4\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\DC4\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\NAK\NULD\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\NAK\NULD\n\
\\b\n\
\\SOH\b\DC2\ETX\SYN\NUL9\n\
\\t\n\
\\STX\b\b\DC2\ETX\SYN\NUL9\n\
\\b\n\
\\SOH\b\DC2\ETX\ETB\NUL`\n\
\\t\n\
\\STX\b\v\DC2\ETX\ETB\NUL`\n\
\\154\ETX\n\
\\STX\ACK\NUL\DC2\EOT\US\NUL!\SOH\SUB\141\ETX MetricConfig is a service that enables updating metric schedules, trace\n\
\ parameters, and other configurations on the SDK without having to restart the\n\
\ instrumented application. The collector can also serve as the configuration\n\
\ service, acting as a bridge between third-party configuration services and\n\
\ the SDK, piping updated configs from a third-party source to an instrumented\n\
\ application.\n\
\\n\
\\n\
\\n\
\\ETX\ACK\NUL\SOH\DC2\ETX\US\b\DC4\n\
\\v\n\
\\EOT\ACK\NUL\STX\NUL\DC2\ETX \STXK\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX \ACK\NAK\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX \ETB*\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX 5I\n\
\\n\
\\n\
\\STX\EOT\NUL\DC2\EOT#\NUL+\SOH\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX#\b\ESC\n\
\Q\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX&\STX8\SUBD Required. The resource for which configuration should be returned.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX&\STX*\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX&+3\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX&67\n\
\\150\SOH\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX*\STX#\SUB\136\SOH Optional. The value of MetricConfigResponse.fingerprint for the last\n\
\ configuration that the caller received and successfully applied.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX*\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX*\b\RS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX*!\"\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOT-\NULe\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX-\b\FS\n\
\\171\ACK\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX<\STX\CAN\SUB\157\ACK Optional. The fingerprint associated with this MetricConfigResponse. Each\n\
\ change in configs yields a different fingerprint. The resource SHOULD copy\n\
\ this value to MetricConfigRequest.last_known_fingerprint for the next\n\
\ configuration request. If there are no changes between fingerprint and\n\
\ MetricConfigRequest.last_known_fingerprint, then all other fields besides\n\
\ fingerprint in the response are optional, or the same as the last update if\n\
\ present.\n\
\\n\
\ The exact mechanics of generating the fingerprint is up to the\n\
\ implementation. However, a fingerprint must be deterministically determined\n\
\ by the configurations -- the same configuration will generate the same\n\
\ fingerprint on any instance of an implementation. Hence using a timestamp is\n\
\ unacceptable, but a deterministic hash is fine.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX<\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX<\b\DC3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX<\SYN\ETB\n\
\\213\SOH\n\
\\EOT\EOT\SOH\ETX\NUL\DC2\EOTA\STXW\ETX\SUB\198\SOH A Schedule is used to apply a particular scheduling configuration to\n\
\ a metric. If a metric name matches a schedule's patterns, then the metric\n\
\ adopts the configuration specified by the schedule.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\ETX\NUL\SOH\DC2\ETXA\n\
\\DC2\n\
\\201\SOH\n\
\\ACK\EOT\SOH\ETX\NUL\ETX\NUL\DC2\EOTF\EOTK\ENQ\SUB\184\SOH A light-weight pattern that can match 1 or more\n\
\ metrics, for which this schedule will apply. The string is used to\n\
\ match against metric names. It should not exceed 100k characters.\n\
\\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\ETX\NUL\SOH\DC2\ETXF\f\DC3\n\
\\DLE\n\
\\b\EOT\SOH\ETX\NUL\ETX\NUL\b\NUL\DC2\EOTG\ACKJ\a\n\
\\DLE\n\
\\t\EOT\SOH\ETX\NUL\ETX\NUL\b\NUL\SOH\DC2\ETXG\f\DC1\n\
\2\n\
\\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\NUL\DC2\ETXH\b\SUB\"! matches the metric name exactly\n\
\\n\
\\DLE\n\
\\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\NUL\ENQ\DC2\ETXH\b\SO\n\
\\DLE\n\
\\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETXH\SI\NAK\n\
\\DLE\n\
\\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETXH\CAN\EM\n\
\1\n\
\\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\SOH\DC2\ETXI\b\US\" prefix-matches the metric name\n\
\\n\
\\DLE\n\
\\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\SOH\ENQ\DC2\ETXI\b\SO\n\
\\DLE\n\
\\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETXI\SI\SUB\n\
\\DLE\n\
\\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETXI\GS\RS\n\
\\233\SOH\n\
\\ACK\EOT\SOH\ETX\NUL\STX\NUL\DC2\ETXQ\EOT,\SUB\217\SOH Metrics with names that match a rule in the inclusion_patterns are\n\
\ targeted by this schedule. Metrics that match the exclusion_patterns\n\
\ are not targeted for this schedule, even if they match an inclusion\n\
\ pattern.\n\
\\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\NUL\EOT\DC2\ETXQ\EOT\f\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\NUL\ACK\DC2\ETXQ\r\DC4\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\NUL\SOH\DC2\ETXQ\NAK'\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\NUL\ETX\DC2\ETXQ*+\n\
\\r\n\
\\ACK\EOT\SOH\ETX\NUL\STX\SOH\DC2\ETXR\EOT,\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\SOH\EOT\DC2\ETXR\EOT\f\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\SOH\ACK\DC2\ETXR\r\DC4\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\SOH\SOH\DC2\ETXR\NAK'\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\SOH\ETX\DC2\ETXR*+\n\
\p\n\
\\ACK\EOT\SOH\ETX\NUL\STX\STX\DC2\ETXV\EOT\EM\SUBa Describes the collection period for each metric in seconds.\n\
\ A period of 0 means to not export.\n\
\\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\STX\ENQ\DC2\ETXV\EOT\t\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\STX\SOH\DC2\ETXV\n\
\\DC4\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\STX\ETX\DC2\ETXV\ETB\CAN\n\
\\148\ETX\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX`\STX\"\SUB\134\ETX A single metric may match multiple schedules. In such cases, the schedule\n\
\ that specifies the smallest period is applied.\n\
\\n\
\ Note, for optimization purposes, it is recommended to use as few schedules\n\
\ as possible to capture all required metric updates. Where you can be\n\
\ conservative, do take full advantage of the inclusion/exclusion patterns to\n\
\ capture as much of your targeted metrics.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\EOT\DC2\ETX`\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX`\v\DC3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX`\DC4\GS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX` !\n\
\\128\SOH\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETXd\STX$\SUBs Optional. The client is suggested to wait this long (in seconds) before\n\
\ pinging the configuration service again.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETXd\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETXd\b\US\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETXd\"#b\ACKproto3"