{-# 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.Temporal.Api.Taskqueue.V1.Message (
BuildIdAssignmentRule(), BuildIdAssignmentRule'Ramp(..),
_BuildIdAssignmentRule'PercentageRamp, BuildIdReachability(),
CompatibleBuildIdRedirectRule(), CompatibleVersionSet(),
PollerInfo(), RampByPercentage(), StickyExecutionAttributes(),
TaskIdBlock(), TaskQueue(), TaskQueueMetadata(),
TaskQueuePartitionMetadata(), TaskQueueReachability(),
TaskQueueStatus(), TaskQueueTypeInfo(), TaskQueueVersionInfo(),
TaskQueueVersionInfo'TypesInfoEntry(), TaskQueueVersionSelection(),
TimestampedBuildIdAssignmentRule(),
TimestampedCompatibleBuildIdRedirectRule()
) 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.Google.Protobuf.Duration
import qualified Proto.Google.Protobuf.Timestamp
import qualified Proto.Google.Protobuf.Wrappers
import qualified Proto.Temporal.Api.Common.V1.Message
import qualified Proto.Temporal.Api.Enums.V1.TaskQueue
data BuildIdAssignmentRule
= BuildIdAssignmentRule'_constructor {BuildIdAssignmentRule -> Text
_BuildIdAssignmentRule'targetBuildId :: !Data.Text.Text,
BuildIdAssignmentRule -> Maybe BuildIdAssignmentRule'Ramp
_BuildIdAssignmentRule'ramp :: !(Prelude.Maybe BuildIdAssignmentRule'Ramp),
BuildIdAssignmentRule -> FieldSet
_BuildIdAssignmentRule'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
(BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool)
-> (BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool)
-> Eq BuildIdAssignmentRule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
== :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
$c/= :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
/= :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
Prelude.Eq, Eq BuildIdAssignmentRule
Eq BuildIdAssignmentRule =>
(BuildIdAssignmentRule -> BuildIdAssignmentRule -> Ordering)
-> (BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool)
-> (BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool)
-> (BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool)
-> (BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool)
-> (BuildIdAssignmentRule
-> BuildIdAssignmentRule -> BuildIdAssignmentRule)
-> (BuildIdAssignmentRule
-> BuildIdAssignmentRule -> BuildIdAssignmentRule)
-> Ord BuildIdAssignmentRule
BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
BuildIdAssignmentRule -> BuildIdAssignmentRule -> Ordering
BuildIdAssignmentRule
-> BuildIdAssignmentRule -> BuildIdAssignmentRule
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
$ccompare :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Ordering
compare :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Ordering
$c< :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
< :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
$c<= :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
<= :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
$c> :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
> :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
$c>= :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
>= :: BuildIdAssignmentRule -> BuildIdAssignmentRule -> Bool
$cmax :: BuildIdAssignmentRule
-> BuildIdAssignmentRule -> BuildIdAssignmentRule
max :: BuildIdAssignmentRule
-> BuildIdAssignmentRule -> BuildIdAssignmentRule
$cmin :: BuildIdAssignmentRule
-> BuildIdAssignmentRule -> BuildIdAssignmentRule
min :: BuildIdAssignmentRule
-> BuildIdAssignmentRule -> BuildIdAssignmentRule
Prelude.Ord)
instance Prelude.Show BuildIdAssignmentRule where
showsPrec :: Int -> BuildIdAssignmentRule -> ShowS
showsPrec Int
_ BuildIdAssignmentRule
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(BuildIdAssignmentRule -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BuildIdAssignmentRule
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data BuildIdAssignmentRule'Ramp
= BuildIdAssignmentRule'PercentageRamp !RampByPercentage
deriving stock (Int -> BuildIdAssignmentRule'Ramp -> ShowS
[BuildIdAssignmentRule'Ramp] -> ShowS
BuildIdAssignmentRule'Ramp -> String
(Int -> BuildIdAssignmentRule'Ramp -> ShowS)
-> (BuildIdAssignmentRule'Ramp -> String)
-> ([BuildIdAssignmentRule'Ramp] -> ShowS)
-> Show BuildIdAssignmentRule'Ramp
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> BuildIdAssignmentRule'Ramp -> ShowS
showsPrec :: Int -> BuildIdAssignmentRule'Ramp -> ShowS
$cshow :: BuildIdAssignmentRule'Ramp -> String
show :: BuildIdAssignmentRule'Ramp -> String
$cshowList :: [BuildIdAssignmentRule'Ramp] -> ShowS
showList :: [BuildIdAssignmentRule'Ramp] -> ShowS
Prelude.Show, BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
(BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool)
-> (BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> Bool)
-> Eq BuildIdAssignmentRule'Ramp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
== :: BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
$c/= :: BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
/= :: BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
Prelude.Eq, Eq BuildIdAssignmentRule'Ramp
Eq BuildIdAssignmentRule'Ramp =>
(BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> Ordering)
-> (BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> Bool)
-> (BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> Bool)
-> (BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> Bool)
-> (BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> Bool)
-> (BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp)
-> (BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp)
-> Ord BuildIdAssignmentRule'Ramp
BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> Ordering
BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp
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
$ccompare :: BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> Ordering
compare :: BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> Ordering
$c< :: BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
< :: BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
$c<= :: BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
<= :: BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
$c> :: BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
> :: BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
$c>= :: BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
>= :: BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp -> Bool
$cmax :: BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp
max :: BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp
$cmin :: BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp
min :: BuildIdAssignmentRule'Ramp
-> BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule'Ramp
Prelude.Ord)
instance Data.ProtoLens.Field.HasField BuildIdAssignmentRule "targetBuildId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "targetBuildId"
-> (Text -> f Text)
-> BuildIdAssignmentRule
-> f BuildIdAssignmentRule
fieldOf Proxy# "targetBuildId"
_
= ((Text -> f Text)
-> BuildIdAssignmentRule -> f BuildIdAssignmentRule)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BuildIdAssignmentRule
-> f BuildIdAssignmentRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((BuildIdAssignmentRule -> Text)
-> (BuildIdAssignmentRule -> Text -> BuildIdAssignmentRule)
-> Lens BuildIdAssignmentRule BuildIdAssignmentRule Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BuildIdAssignmentRule -> Text
_BuildIdAssignmentRule'targetBuildId
(\ BuildIdAssignmentRule
x__ Text
y__ -> BuildIdAssignmentRule
x__ {_BuildIdAssignmentRule'targetBuildId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BuildIdAssignmentRule "maybe'ramp" (Prelude.Maybe BuildIdAssignmentRule'Ramp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'ramp"
-> (Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp))
-> BuildIdAssignmentRule
-> f BuildIdAssignmentRule
fieldOf Proxy# "maybe'ramp"
_
= ((Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp))
-> BuildIdAssignmentRule -> f BuildIdAssignmentRule)
-> ((Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp))
-> Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp))
-> (Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp))
-> BuildIdAssignmentRule
-> f BuildIdAssignmentRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((BuildIdAssignmentRule -> Maybe BuildIdAssignmentRule'Ramp)
-> (BuildIdAssignmentRule
-> Maybe BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule)
-> Lens
BuildIdAssignmentRule
BuildIdAssignmentRule
(Maybe BuildIdAssignmentRule'Ramp)
(Maybe BuildIdAssignmentRule'Ramp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BuildIdAssignmentRule -> Maybe BuildIdAssignmentRule'Ramp
_BuildIdAssignmentRule'ramp
(\ BuildIdAssignmentRule
x__ Maybe BuildIdAssignmentRule'Ramp
y__ -> BuildIdAssignmentRule
x__ {_BuildIdAssignmentRule'ramp = y__}))
(Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp))
-> Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BuildIdAssignmentRule "maybe'percentageRamp" (Prelude.Maybe RampByPercentage) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'percentageRamp"
-> (Maybe RampByPercentage -> f (Maybe RampByPercentage))
-> BuildIdAssignmentRule
-> f BuildIdAssignmentRule
fieldOf Proxy# "maybe'percentageRamp"
_
= ((Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp))
-> BuildIdAssignmentRule -> f BuildIdAssignmentRule)
-> ((Maybe RampByPercentage -> f (Maybe RampByPercentage))
-> Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp))
-> (Maybe RampByPercentage -> f (Maybe RampByPercentage))
-> BuildIdAssignmentRule
-> f BuildIdAssignmentRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((BuildIdAssignmentRule -> Maybe BuildIdAssignmentRule'Ramp)
-> (BuildIdAssignmentRule
-> Maybe BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule)
-> Lens
BuildIdAssignmentRule
BuildIdAssignmentRule
(Maybe BuildIdAssignmentRule'Ramp)
(Maybe BuildIdAssignmentRule'Ramp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BuildIdAssignmentRule -> Maybe BuildIdAssignmentRule'Ramp
_BuildIdAssignmentRule'ramp
(\ BuildIdAssignmentRule
x__ Maybe BuildIdAssignmentRule'Ramp
y__ -> BuildIdAssignmentRule
x__ {_BuildIdAssignmentRule'ramp = y__}))
((Maybe BuildIdAssignmentRule'Ramp -> Maybe RampByPercentage)
-> (Maybe BuildIdAssignmentRule'Ramp
-> Maybe RampByPercentage -> Maybe BuildIdAssignmentRule'Ramp)
-> Lens
(Maybe BuildIdAssignmentRule'Ramp)
(Maybe BuildIdAssignmentRule'Ramp)
(Maybe RampByPercentage)
(Maybe RampByPercentage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe BuildIdAssignmentRule'Ramp
x__
-> case Maybe BuildIdAssignmentRule'Ramp
x__ of
(Prelude.Just (BuildIdAssignmentRule'PercentageRamp RampByPercentage
x__val))
-> RampByPercentage -> Maybe RampByPercentage
forall a. a -> Maybe a
Prelude.Just RampByPercentage
x__val
Maybe BuildIdAssignmentRule'Ramp
_otherwise -> Maybe RampByPercentage
forall a. Maybe a
Prelude.Nothing)
(\ Maybe BuildIdAssignmentRule'Ramp
_ Maybe RampByPercentage
y__ -> (RampByPercentage -> BuildIdAssignmentRule'Ramp)
-> Maybe RampByPercentage -> Maybe BuildIdAssignmentRule'Ramp
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap RampByPercentage -> BuildIdAssignmentRule'Ramp
BuildIdAssignmentRule'PercentageRamp Maybe RampByPercentage
y__))
instance Data.ProtoLens.Field.HasField BuildIdAssignmentRule "percentageRamp" RampByPercentage where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "percentageRamp"
-> (RampByPercentage -> f RampByPercentage)
-> BuildIdAssignmentRule
-> f BuildIdAssignmentRule
fieldOf Proxy# "percentageRamp"
_
= ((Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp))
-> BuildIdAssignmentRule -> f BuildIdAssignmentRule)
-> ((RampByPercentage -> f RampByPercentage)
-> Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp))
-> (RampByPercentage -> f RampByPercentage)
-> BuildIdAssignmentRule
-> f BuildIdAssignmentRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((BuildIdAssignmentRule -> Maybe BuildIdAssignmentRule'Ramp)
-> (BuildIdAssignmentRule
-> Maybe BuildIdAssignmentRule'Ramp -> BuildIdAssignmentRule)
-> Lens
BuildIdAssignmentRule
BuildIdAssignmentRule
(Maybe BuildIdAssignmentRule'Ramp)
(Maybe BuildIdAssignmentRule'Ramp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BuildIdAssignmentRule -> Maybe BuildIdAssignmentRule'Ramp
_BuildIdAssignmentRule'ramp
(\ BuildIdAssignmentRule
x__ Maybe BuildIdAssignmentRule'Ramp
y__ -> BuildIdAssignmentRule
x__ {_BuildIdAssignmentRule'ramp = y__}))
(((Maybe RampByPercentage -> f (Maybe RampByPercentage))
-> Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp))
-> ((RampByPercentage -> f RampByPercentage)
-> Maybe RampByPercentage -> f (Maybe RampByPercentage))
-> (RampByPercentage -> f RampByPercentage)
-> Maybe BuildIdAssignmentRule'Ramp
-> f (Maybe BuildIdAssignmentRule'Ramp)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe BuildIdAssignmentRule'Ramp -> Maybe RampByPercentage)
-> (Maybe BuildIdAssignmentRule'Ramp
-> Maybe RampByPercentage -> Maybe BuildIdAssignmentRule'Ramp)
-> Lens
(Maybe BuildIdAssignmentRule'Ramp)
(Maybe BuildIdAssignmentRule'Ramp)
(Maybe RampByPercentage)
(Maybe RampByPercentage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe BuildIdAssignmentRule'Ramp
x__
-> case Maybe BuildIdAssignmentRule'Ramp
x__ of
(Prelude.Just (BuildIdAssignmentRule'PercentageRamp RampByPercentage
x__val))
-> RampByPercentage -> Maybe RampByPercentage
forall a. a -> Maybe a
Prelude.Just RampByPercentage
x__val
Maybe BuildIdAssignmentRule'Ramp
_otherwise -> Maybe RampByPercentage
forall a. Maybe a
Prelude.Nothing)
(\ Maybe BuildIdAssignmentRule'Ramp
_ Maybe RampByPercentage
y__ -> (RampByPercentage -> BuildIdAssignmentRule'Ramp)
-> Maybe RampByPercentage -> Maybe BuildIdAssignmentRule'Ramp
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap RampByPercentage -> BuildIdAssignmentRule'Ramp
BuildIdAssignmentRule'PercentageRamp Maybe RampByPercentage
y__))
(RampByPercentage -> Lens' (Maybe RampByPercentage) RampByPercentage
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RampByPercentage
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message BuildIdAssignmentRule where
messageName :: Proxy BuildIdAssignmentRule -> Text
messageName Proxy BuildIdAssignmentRule
_
= String -> Text
Data.Text.pack String
"temporal.api.taskqueue.v1.BuildIdAssignmentRule"
packedMessageDescriptor :: Proxy BuildIdAssignmentRule -> ByteString
packedMessageDescriptor Proxy BuildIdAssignmentRule
_
= ByteString
"\n\
\\NAKBuildIdAssignmentRule\DC2&\n\
\\SItarget_build_id\CAN\SOH \SOH(\tR\rtargetBuildId\DC2V\n\
\\SIpercentage_ramp\CAN\ETX \SOH(\v2+.temporal.api.taskqueue.v1.RampByPercentageH\NULR\SOpercentageRampB\ACK\n\
\\EOTramp"
packedFileDescriptor :: Proxy BuildIdAssignmentRule -> ByteString
packedFileDescriptor Proxy BuildIdAssignmentRule
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor BuildIdAssignmentRule)
fieldsByTag
= let
targetBuildId__field_descriptor :: FieldDescriptor BuildIdAssignmentRule
targetBuildId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor BuildIdAssignmentRule Text
-> FieldDescriptor BuildIdAssignmentRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"target_build_id"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens BuildIdAssignmentRule BuildIdAssignmentRule Text Text
-> FieldAccessor BuildIdAssignmentRule Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"targetBuildId")) ::
Data.ProtoLens.FieldDescriptor BuildIdAssignmentRule
percentageRamp__field_descriptor :: FieldDescriptor BuildIdAssignmentRule
percentageRamp__field_descriptor
= String
-> FieldTypeDescriptor RampByPercentage
-> FieldAccessor BuildIdAssignmentRule RampByPercentage
-> FieldDescriptor BuildIdAssignmentRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"percentage_ramp"
(MessageOrGroup -> FieldTypeDescriptor RampByPercentage
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RampByPercentage)
(Lens' BuildIdAssignmentRule (Maybe RampByPercentage)
-> FieldAccessor BuildIdAssignmentRule RampByPercentage
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'percentageRamp")) ::
Data.ProtoLens.FieldDescriptor BuildIdAssignmentRule
in
[(Tag, FieldDescriptor BuildIdAssignmentRule)]
-> Map Tag (FieldDescriptor BuildIdAssignmentRule)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor BuildIdAssignmentRule
targetBuildId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor BuildIdAssignmentRule
percentageRamp__field_descriptor)]
unknownFields :: Lens' BuildIdAssignmentRule FieldSet
unknownFields
= (BuildIdAssignmentRule -> FieldSet)
-> (BuildIdAssignmentRule -> FieldSet -> BuildIdAssignmentRule)
-> Lens' BuildIdAssignmentRule FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BuildIdAssignmentRule -> FieldSet
_BuildIdAssignmentRule'_unknownFields
(\ BuildIdAssignmentRule
x__ FieldSet
y__ -> BuildIdAssignmentRule
x__ {_BuildIdAssignmentRule'_unknownFields = y__})
defMessage :: BuildIdAssignmentRule
defMessage
= BuildIdAssignmentRule'_constructor
{_BuildIdAssignmentRule'targetBuildId :: Text
_BuildIdAssignmentRule'targetBuildId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_BuildIdAssignmentRule'ramp :: Maybe BuildIdAssignmentRule'Ramp
_BuildIdAssignmentRule'ramp = Maybe BuildIdAssignmentRule'Ramp
forall a. Maybe a
Prelude.Nothing,
_BuildIdAssignmentRule'_unknownFields :: FieldSet
_BuildIdAssignmentRule'_unknownFields = []}
parseMessage :: Parser BuildIdAssignmentRule
parseMessage
= let
loop ::
BuildIdAssignmentRule
-> Data.ProtoLens.Encoding.Bytes.Parser BuildIdAssignmentRule
loop :: BuildIdAssignmentRule -> Parser BuildIdAssignmentRule
loop BuildIdAssignmentRule
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"target_build_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"targetBuildId") y x)
Word64
26
-> do y <- Parser RampByPercentage -> String -> Parser RampByPercentage
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"percentage_ramp"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"percentageRamp") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser BuildIdAssignmentRule
-> String -> Parser BuildIdAssignmentRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do BuildIdAssignmentRule -> Parser BuildIdAssignmentRule
loop BuildIdAssignmentRule
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"BuildIdAssignmentRule"
buildMessage :: BuildIdAssignmentRule -> Builder
buildMessage
= \ BuildIdAssignmentRule
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text BuildIdAssignmentRule BuildIdAssignmentRule Text Text
-> BuildIdAssignmentRule -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"targetBuildId") BuildIdAssignmentRule
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe BuildIdAssignmentRule'Ramp)
BuildIdAssignmentRule
BuildIdAssignmentRule
(Maybe BuildIdAssignmentRule'Ramp)
(Maybe BuildIdAssignmentRule'Ramp)
-> BuildIdAssignmentRule -> Maybe BuildIdAssignmentRule'Ramp
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ramp") BuildIdAssignmentRule
_x
of
Maybe BuildIdAssignmentRule'Ramp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (BuildIdAssignmentRule'PercentageRamp RampByPercentage
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (RampByPercentage -> ByteString) -> RampByPercentage -> 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))
RampByPercentage -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RampByPercentage
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
BuildIdAssignmentRule
BuildIdAssignmentRule
FieldSet
FieldSet
-> BuildIdAssignmentRule -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
BuildIdAssignmentRule
BuildIdAssignmentRule
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BuildIdAssignmentRule FieldSet
Data.ProtoLens.unknownFields BuildIdAssignmentRule
_x)))
instance Control.DeepSeq.NFData BuildIdAssignmentRule where
rnf :: BuildIdAssignmentRule -> ()
rnf
= \ BuildIdAssignmentRule
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(BuildIdAssignmentRule -> FieldSet
_BuildIdAssignmentRule'_unknownFields BuildIdAssignmentRule
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(BuildIdAssignmentRule -> Text
_BuildIdAssignmentRule'targetBuildId BuildIdAssignmentRule
x__)
(Maybe BuildIdAssignmentRule'Ramp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (BuildIdAssignmentRule -> Maybe BuildIdAssignmentRule'Ramp
_BuildIdAssignmentRule'ramp BuildIdAssignmentRule
x__) ()))
instance Control.DeepSeq.NFData BuildIdAssignmentRule'Ramp where
rnf :: BuildIdAssignmentRule'Ramp -> ()
rnf (BuildIdAssignmentRule'PercentageRamp RampByPercentage
x__)
= RampByPercentage -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf RampByPercentage
x__
_BuildIdAssignmentRule'PercentageRamp ::
Data.ProtoLens.Prism.Prism' BuildIdAssignmentRule'Ramp RampByPercentage
_BuildIdAssignmentRule'PercentageRamp :: Prism' BuildIdAssignmentRule'Ramp RampByPercentage
_BuildIdAssignmentRule'PercentageRamp
= (RampByPercentage -> BuildIdAssignmentRule'Ramp)
-> (BuildIdAssignmentRule'Ramp -> Maybe RampByPercentage)
-> Prism' BuildIdAssignmentRule'Ramp RampByPercentage
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
RampByPercentage -> BuildIdAssignmentRule'Ramp
BuildIdAssignmentRule'PercentageRamp
(\ BuildIdAssignmentRule'Ramp
p__
-> case BuildIdAssignmentRule'Ramp
p__ of
(BuildIdAssignmentRule'PercentageRamp RampByPercentage
p__val)
-> RampByPercentage -> Maybe RampByPercentage
forall a. a -> Maybe a
Prelude.Just RampByPercentage
p__val)
data BuildIdReachability
= BuildIdReachability'_constructor {BuildIdReachability -> Text
_BuildIdReachability'buildId :: !Data.Text.Text,
BuildIdReachability -> Vector TaskQueueReachability
_BuildIdReachability'taskQueueReachability :: !(Data.Vector.Vector TaskQueueReachability),
BuildIdReachability -> FieldSet
_BuildIdReachability'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (BuildIdReachability -> BuildIdReachability -> Bool
(BuildIdReachability -> BuildIdReachability -> Bool)
-> (BuildIdReachability -> BuildIdReachability -> Bool)
-> Eq BuildIdReachability
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BuildIdReachability -> BuildIdReachability -> Bool
== :: BuildIdReachability -> BuildIdReachability -> Bool
$c/= :: BuildIdReachability -> BuildIdReachability -> Bool
/= :: BuildIdReachability -> BuildIdReachability -> Bool
Prelude.Eq, Eq BuildIdReachability
Eq BuildIdReachability =>
(BuildIdReachability -> BuildIdReachability -> Ordering)
-> (BuildIdReachability -> BuildIdReachability -> Bool)
-> (BuildIdReachability -> BuildIdReachability -> Bool)
-> (BuildIdReachability -> BuildIdReachability -> Bool)
-> (BuildIdReachability -> BuildIdReachability -> Bool)
-> (BuildIdReachability
-> BuildIdReachability -> BuildIdReachability)
-> (BuildIdReachability
-> BuildIdReachability -> BuildIdReachability)
-> Ord BuildIdReachability
BuildIdReachability -> BuildIdReachability -> Bool
BuildIdReachability -> BuildIdReachability -> Ordering
BuildIdReachability -> BuildIdReachability -> BuildIdReachability
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
$ccompare :: BuildIdReachability -> BuildIdReachability -> Ordering
compare :: BuildIdReachability -> BuildIdReachability -> Ordering
$c< :: BuildIdReachability -> BuildIdReachability -> Bool
< :: BuildIdReachability -> BuildIdReachability -> Bool
$c<= :: BuildIdReachability -> BuildIdReachability -> Bool
<= :: BuildIdReachability -> BuildIdReachability -> Bool
$c> :: BuildIdReachability -> BuildIdReachability -> Bool
> :: BuildIdReachability -> BuildIdReachability -> Bool
$c>= :: BuildIdReachability -> BuildIdReachability -> Bool
>= :: BuildIdReachability -> BuildIdReachability -> Bool
$cmax :: BuildIdReachability -> BuildIdReachability -> BuildIdReachability
max :: BuildIdReachability -> BuildIdReachability -> BuildIdReachability
$cmin :: BuildIdReachability -> BuildIdReachability -> BuildIdReachability
min :: BuildIdReachability -> BuildIdReachability -> BuildIdReachability
Prelude.Ord)
instance Prelude.Show BuildIdReachability where
showsPrec :: Int -> BuildIdReachability -> ShowS
showsPrec Int
_ BuildIdReachability
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(BuildIdReachability -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BuildIdReachability
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField BuildIdReachability "buildId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "buildId"
-> (Text -> f Text) -> BuildIdReachability -> f BuildIdReachability
fieldOf Proxy# "buildId"
_
= ((Text -> f Text) -> BuildIdReachability -> f BuildIdReachability)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BuildIdReachability
-> f BuildIdReachability
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((BuildIdReachability -> Text)
-> (BuildIdReachability -> Text -> BuildIdReachability)
-> Lens BuildIdReachability BuildIdReachability Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BuildIdReachability -> Text
_BuildIdReachability'buildId
(\ BuildIdReachability
x__ Text
y__ -> BuildIdReachability
x__ {_BuildIdReachability'buildId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BuildIdReachability "taskQueueReachability" [TaskQueueReachability] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "taskQueueReachability"
-> ([TaskQueueReachability] -> f [TaskQueueReachability])
-> BuildIdReachability
-> f BuildIdReachability
fieldOf Proxy# "taskQueueReachability"
_
= ((Vector TaskQueueReachability -> f (Vector TaskQueueReachability))
-> BuildIdReachability -> f BuildIdReachability)
-> (([TaskQueueReachability] -> f [TaskQueueReachability])
-> Vector TaskQueueReachability
-> f (Vector TaskQueueReachability))
-> ([TaskQueueReachability] -> f [TaskQueueReachability])
-> BuildIdReachability
-> f BuildIdReachability
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((BuildIdReachability -> Vector TaskQueueReachability)
-> (BuildIdReachability
-> Vector TaskQueueReachability -> BuildIdReachability)
-> Lens
BuildIdReachability
BuildIdReachability
(Vector TaskQueueReachability)
(Vector TaskQueueReachability)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BuildIdReachability -> Vector TaskQueueReachability
_BuildIdReachability'taskQueueReachability
(\ BuildIdReachability
x__ Vector TaskQueueReachability
y__
-> BuildIdReachability
x__ {_BuildIdReachability'taskQueueReachability = y__}))
((Vector TaskQueueReachability -> [TaskQueueReachability])
-> (Vector TaskQueueReachability
-> [TaskQueueReachability] -> Vector TaskQueueReachability)
-> Lens
(Vector TaskQueueReachability)
(Vector TaskQueueReachability)
[TaskQueueReachability]
[TaskQueueReachability]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TaskQueueReachability -> [TaskQueueReachability]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector TaskQueueReachability
_ [TaskQueueReachability]
y__ -> [TaskQueueReachability] -> Vector TaskQueueReachability
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TaskQueueReachability]
y__))
instance Data.ProtoLens.Field.HasField BuildIdReachability "vec'taskQueueReachability" (Data.Vector.Vector TaskQueueReachability) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'taskQueueReachability"
-> (Vector TaskQueueReachability
-> f (Vector TaskQueueReachability))
-> BuildIdReachability
-> f BuildIdReachability
fieldOf Proxy# "vec'taskQueueReachability"
_
= ((Vector TaskQueueReachability -> f (Vector TaskQueueReachability))
-> BuildIdReachability -> f BuildIdReachability)
-> ((Vector TaskQueueReachability
-> f (Vector TaskQueueReachability))
-> Vector TaskQueueReachability
-> f (Vector TaskQueueReachability))
-> (Vector TaskQueueReachability
-> f (Vector TaskQueueReachability))
-> BuildIdReachability
-> f BuildIdReachability
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((BuildIdReachability -> Vector TaskQueueReachability)
-> (BuildIdReachability
-> Vector TaskQueueReachability -> BuildIdReachability)
-> Lens
BuildIdReachability
BuildIdReachability
(Vector TaskQueueReachability)
(Vector TaskQueueReachability)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BuildIdReachability -> Vector TaskQueueReachability
_BuildIdReachability'taskQueueReachability
(\ BuildIdReachability
x__ Vector TaskQueueReachability
y__
-> BuildIdReachability
x__ {_BuildIdReachability'taskQueueReachability = y__}))
(Vector TaskQueueReachability -> f (Vector TaskQueueReachability))
-> Vector TaskQueueReachability -> f (Vector TaskQueueReachability)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BuildIdReachability where
messageName :: Proxy BuildIdReachability -> Text
messageName Proxy BuildIdReachability
_
= String -> Text
Data.Text.pack String
"temporal.api.taskqueue.v1.BuildIdReachability"
packedMessageDescriptor :: Proxy BuildIdReachability -> ByteString
packedMessageDescriptor Proxy BuildIdReachability
_
= ByteString
"\n\
\\DC3BuildIdReachability\DC2\EM\n\
\\bbuild_id\CAN\SOH \SOH(\tR\abuildId\DC2h\n\
\\ETBtask_queue_reachability\CAN\STX \ETX(\v20.temporal.api.taskqueue.v1.TaskQueueReachabilityR\NAKtaskQueueReachability"
packedFileDescriptor :: Proxy BuildIdReachability -> ByteString
packedFileDescriptor Proxy BuildIdReachability
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor BuildIdReachability)
fieldsByTag
= let
buildId__field_descriptor :: FieldDescriptor BuildIdReachability
buildId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor BuildIdReachability Text
-> FieldDescriptor BuildIdReachability
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"build_id"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens BuildIdReachability BuildIdReachability Text Text
-> FieldAccessor BuildIdReachability Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"buildId")) ::
Data.ProtoLens.FieldDescriptor BuildIdReachability
taskQueueReachability__field_descriptor :: FieldDescriptor BuildIdReachability
taskQueueReachability__field_descriptor
= String
-> FieldTypeDescriptor TaskQueueReachability
-> FieldAccessor BuildIdReachability TaskQueueReachability
-> FieldDescriptor BuildIdReachability
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"task_queue_reachability"
(MessageOrGroup -> FieldTypeDescriptor TaskQueueReachability
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TaskQueueReachability)
(Packing
-> Lens' BuildIdReachability [TaskQueueReachability]
-> FieldAccessor BuildIdReachability TaskQueueReachability
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"taskQueueReachability")) ::
Data.ProtoLens.FieldDescriptor BuildIdReachability
in
[(Tag, FieldDescriptor BuildIdReachability)]
-> Map Tag (FieldDescriptor BuildIdReachability)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor BuildIdReachability
buildId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor BuildIdReachability
taskQueueReachability__field_descriptor)]
unknownFields :: Lens' BuildIdReachability FieldSet
unknownFields
= (BuildIdReachability -> FieldSet)
-> (BuildIdReachability -> FieldSet -> BuildIdReachability)
-> Lens' BuildIdReachability FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BuildIdReachability -> FieldSet
_BuildIdReachability'_unknownFields
(\ BuildIdReachability
x__ FieldSet
y__ -> BuildIdReachability
x__ {_BuildIdReachability'_unknownFields = y__})
defMessage :: BuildIdReachability
defMessage
= BuildIdReachability'_constructor
{_BuildIdReachability'buildId :: Text
_BuildIdReachability'buildId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_BuildIdReachability'taskQueueReachability :: Vector TaskQueueReachability
_BuildIdReachability'taskQueueReachability = Vector TaskQueueReachability
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_BuildIdReachability'_unknownFields :: FieldSet
_BuildIdReachability'_unknownFields = []}
parseMessage :: Parser BuildIdReachability
parseMessage
= let
loop ::
BuildIdReachability
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TaskQueueReachability
-> Data.ProtoLens.Encoding.Bytes.Parser BuildIdReachability
loop :: BuildIdReachability
-> Growing Vector RealWorld TaskQueueReachability
-> Parser BuildIdReachability
loop BuildIdReachability
x Growing Vector RealWorld TaskQueueReachability
mutable'taskQueueReachability
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'taskQueueReachability <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'taskQueueReachability)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'taskQueueReachability")
frozen'taskQueueReachability x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"build_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"buildId") y x)
mutable'taskQueueReachability
Word64
18
-> do !y <- Parser TaskQueueReachability
-> String -> Parser TaskQueueReachability
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
String
"task_queue_reachability"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'taskQueueReachability y)
loop x v
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
mutable'taskQueueReachability
in
Parser BuildIdReachability -> String -> Parser BuildIdReachability
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'taskQueueReachability <- IO (Growing Vector RealWorld TaskQueueReachability)
-> Parser (Growing Vector RealWorld TaskQueueReachability)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld TaskQueueReachability)
IO (Growing Vector (PrimState IO) TaskQueueReachability)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'taskQueueReachability)
String
"BuildIdReachability"
buildMessage :: BuildIdReachability -> Builder
buildMessage
= \ BuildIdReachability
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text BuildIdReachability BuildIdReachability Text Text
-> BuildIdReachability -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"buildId") BuildIdReachability
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((TaskQueueReachability -> Builder)
-> Vector TaskQueueReachability -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ TaskQueueReachability
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (TaskQueueReachability -> ByteString)
-> TaskQueueReachability
-> 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))
TaskQueueReachability -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TaskQueueReachability
_v))
(FoldLike
(Vector TaskQueueReachability)
BuildIdReachability
BuildIdReachability
(Vector TaskQueueReachability)
(Vector TaskQueueReachability)
-> BuildIdReachability -> Vector TaskQueueReachability
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'taskQueueReachability") BuildIdReachability
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet BuildIdReachability BuildIdReachability FieldSet FieldSet
-> BuildIdReachability -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet BuildIdReachability BuildIdReachability FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BuildIdReachability FieldSet
Data.ProtoLens.unknownFields BuildIdReachability
_x)))
instance Control.DeepSeq.NFData BuildIdReachability where
rnf :: BuildIdReachability -> ()
rnf
= \ BuildIdReachability
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(BuildIdReachability -> FieldSet
_BuildIdReachability'_unknownFields BuildIdReachability
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(BuildIdReachability -> Text
_BuildIdReachability'buildId BuildIdReachability
x__)
(Vector TaskQueueReachability -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(BuildIdReachability -> Vector TaskQueueReachability
_BuildIdReachability'taskQueueReachability BuildIdReachability
x__) ()))
data CompatibleBuildIdRedirectRule
= CompatibleBuildIdRedirectRule'_constructor {CompatibleBuildIdRedirectRule -> Text
_CompatibleBuildIdRedirectRule'sourceBuildId :: !Data.Text.Text,
CompatibleBuildIdRedirectRule -> Text
_CompatibleBuildIdRedirectRule'targetBuildId :: !Data.Text.Text,
CompatibleBuildIdRedirectRule -> FieldSet
_CompatibleBuildIdRedirectRule'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
(CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool)
-> (CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool)
-> Eq CompatibleBuildIdRedirectRule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
== :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
$c/= :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
/= :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
Prelude.Eq, Eq CompatibleBuildIdRedirectRule
Eq CompatibleBuildIdRedirectRule =>
(CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Ordering)
-> (CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool)
-> (CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool)
-> (CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool)
-> (CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool)
-> (CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> CompatibleBuildIdRedirectRule)
-> (CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> CompatibleBuildIdRedirectRule)
-> Ord CompatibleBuildIdRedirectRule
CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Ordering
CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> CompatibleBuildIdRedirectRule
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
$ccompare :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Ordering
compare :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Ordering
$c< :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
< :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
$c<= :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
<= :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
$c> :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
> :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
$c>= :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
>= :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> Bool
$cmax :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> CompatibleBuildIdRedirectRule
max :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> CompatibleBuildIdRedirectRule
$cmin :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> CompatibleBuildIdRedirectRule
min :: CompatibleBuildIdRedirectRule
-> CompatibleBuildIdRedirectRule -> CompatibleBuildIdRedirectRule
Prelude.Ord)
instance Prelude.Show CompatibleBuildIdRedirectRule where
showsPrec :: Int -> CompatibleBuildIdRedirectRule -> ShowS
showsPrec Int
_ CompatibleBuildIdRedirectRule
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(CompatibleBuildIdRedirectRule -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CompatibleBuildIdRedirectRule
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CompatibleBuildIdRedirectRule "sourceBuildId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "sourceBuildId"
-> (Text -> f Text)
-> CompatibleBuildIdRedirectRule
-> f CompatibleBuildIdRedirectRule
fieldOf Proxy# "sourceBuildId"
_
= ((Text -> f Text)
-> CompatibleBuildIdRedirectRule
-> f CompatibleBuildIdRedirectRule)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CompatibleBuildIdRedirectRule
-> f CompatibleBuildIdRedirectRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CompatibleBuildIdRedirectRule -> Text)
-> (CompatibleBuildIdRedirectRule
-> Text -> CompatibleBuildIdRedirectRule)
-> Lens
CompatibleBuildIdRedirectRule
CompatibleBuildIdRedirectRule
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CompatibleBuildIdRedirectRule -> Text
_CompatibleBuildIdRedirectRule'sourceBuildId
(\ CompatibleBuildIdRedirectRule
x__ Text
y__
-> CompatibleBuildIdRedirectRule
x__ {_CompatibleBuildIdRedirectRule'sourceBuildId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CompatibleBuildIdRedirectRule "targetBuildId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "targetBuildId"
-> (Text -> f Text)
-> CompatibleBuildIdRedirectRule
-> f CompatibleBuildIdRedirectRule
fieldOf Proxy# "targetBuildId"
_
= ((Text -> f Text)
-> CompatibleBuildIdRedirectRule
-> f CompatibleBuildIdRedirectRule)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CompatibleBuildIdRedirectRule
-> f CompatibleBuildIdRedirectRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CompatibleBuildIdRedirectRule -> Text)
-> (CompatibleBuildIdRedirectRule
-> Text -> CompatibleBuildIdRedirectRule)
-> Lens
CompatibleBuildIdRedirectRule
CompatibleBuildIdRedirectRule
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CompatibleBuildIdRedirectRule -> Text
_CompatibleBuildIdRedirectRule'targetBuildId
(\ CompatibleBuildIdRedirectRule
x__ Text
y__
-> CompatibleBuildIdRedirectRule
x__ {_CompatibleBuildIdRedirectRule'targetBuildId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CompatibleBuildIdRedirectRule where
messageName :: Proxy CompatibleBuildIdRedirectRule -> Text
messageName Proxy CompatibleBuildIdRedirectRule
_
= String -> Text
Data.Text.pack
String
"temporal.api.taskqueue.v1.CompatibleBuildIdRedirectRule"
packedMessageDescriptor :: Proxy CompatibleBuildIdRedirectRule -> ByteString
packedMessageDescriptor Proxy CompatibleBuildIdRedirectRule
_
= ByteString
"\n\
\\GSCompatibleBuildIdRedirectRule\DC2&\n\
\\SIsource_build_id\CAN\SOH \SOH(\tR\rsourceBuildId\DC2&\n\
\\SItarget_build_id\CAN\STX \SOH(\tR\rtargetBuildId"
packedFileDescriptor :: Proxy CompatibleBuildIdRedirectRule -> ByteString
packedFileDescriptor Proxy CompatibleBuildIdRedirectRule
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CompatibleBuildIdRedirectRule)
fieldsByTag
= let
sourceBuildId__field_descriptor :: FieldDescriptor CompatibleBuildIdRedirectRule
sourceBuildId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CompatibleBuildIdRedirectRule Text
-> FieldDescriptor CompatibleBuildIdRedirectRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"source_build_id"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
CompatibleBuildIdRedirectRule
CompatibleBuildIdRedirectRule
Text
Text
-> FieldAccessor CompatibleBuildIdRedirectRule Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sourceBuildId")) ::
Data.ProtoLens.FieldDescriptor CompatibleBuildIdRedirectRule
targetBuildId__field_descriptor :: FieldDescriptor CompatibleBuildIdRedirectRule
targetBuildId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CompatibleBuildIdRedirectRule Text
-> FieldDescriptor CompatibleBuildIdRedirectRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"target_build_id"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
CompatibleBuildIdRedirectRule
CompatibleBuildIdRedirectRule
Text
Text
-> FieldAccessor CompatibleBuildIdRedirectRule Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"targetBuildId")) ::
Data.ProtoLens.FieldDescriptor CompatibleBuildIdRedirectRule
in
[(Tag, FieldDescriptor CompatibleBuildIdRedirectRule)]
-> Map Tag (FieldDescriptor CompatibleBuildIdRedirectRule)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CompatibleBuildIdRedirectRule
sourceBuildId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor CompatibleBuildIdRedirectRule
targetBuildId__field_descriptor)]
unknownFields :: Lens' CompatibleBuildIdRedirectRule FieldSet
unknownFields
= (CompatibleBuildIdRedirectRule -> FieldSet)
-> (CompatibleBuildIdRedirectRule
-> FieldSet -> CompatibleBuildIdRedirectRule)
-> Lens' CompatibleBuildIdRedirectRule FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CompatibleBuildIdRedirectRule -> FieldSet
_CompatibleBuildIdRedirectRule'_unknownFields
(\ CompatibleBuildIdRedirectRule
x__ FieldSet
y__
-> CompatibleBuildIdRedirectRule
x__ {_CompatibleBuildIdRedirectRule'_unknownFields = y__})
defMessage :: CompatibleBuildIdRedirectRule
defMessage
= CompatibleBuildIdRedirectRule'_constructor
{_CompatibleBuildIdRedirectRule'sourceBuildId :: Text
_CompatibleBuildIdRedirectRule'sourceBuildId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CompatibleBuildIdRedirectRule'targetBuildId :: Text
_CompatibleBuildIdRedirectRule'targetBuildId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CompatibleBuildIdRedirectRule'_unknownFields :: FieldSet
_CompatibleBuildIdRedirectRule'_unknownFields = []}
parseMessage :: Parser CompatibleBuildIdRedirectRule
parseMessage
= let
loop ::
CompatibleBuildIdRedirectRule
-> Data.ProtoLens.Encoding.Bytes.Parser CompatibleBuildIdRedirectRule
loop :: CompatibleBuildIdRedirectRule
-> Parser CompatibleBuildIdRedirectRule
loop CompatibleBuildIdRedirectRule
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"source_build_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"sourceBuildId") y x)
Word64
18
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"target_build_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"targetBuildId") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser CompatibleBuildIdRedirectRule
-> String -> Parser CompatibleBuildIdRedirectRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do CompatibleBuildIdRedirectRule
-> Parser CompatibleBuildIdRedirectRule
loop CompatibleBuildIdRedirectRule
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CompatibleBuildIdRedirectRule"
buildMessage :: CompatibleBuildIdRedirectRule -> Builder
buildMessage
= \ CompatibleBuildIdRedirectRule
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text
CompatibleBuildIdRedirectRule
CompatibleBuildIdRedirectRule
Text
Text
-> CompatibleBuildIdRedirectRule -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sourceBuildId") CompatibleBuildIdRedirectRule
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text
CompatibleBuildIdRedirectRule
CompatibleBuildIdRedirectRule
Text
Text
-> CompatibleBuildIdRedirectRule -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"targetBuildId") CompatibleBuildIdRedirectRule
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 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
CompatibleBuildIdRedirectRule
CompatibleBuildIdRedirectRule
FieldSet
FieldSet
-> CompatibleBuildIdRedirectRule -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
CompatibleBuildIdRedirectRule
CompatibleBuildIdRedirectRule
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CompatibleBuildIdRedirectRule FieldSet
Data.ProtoLens.unknownFields CompatibleBuildIdRedirectRule
_x)))
instance Control.DeepSeq.NFData CompatibleBuildIdRedirectRule where
rnf :: CompatibleBuildIdRedirectRule -> ()
rnf
= \ CompatibleBuildIdRedirectRule
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CompatibleBuildIdRedirectRule -> FieldSet
_CompatibleBuildIdRedirectRule'_unknownFields CompatibleBuildIdRedirectRule
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CompatibleBuildIdRedirectRule -> Text
_CompatibleBuildIdRedirectRule'sourceBuildId CompatibleBuildIdRedirectRule
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CompatibleBuildIdRedirectRule -> Text
_CompatibleBuildIdRedirectRule'targetBuildId CompatibleBuildIdRedirectRule
x__) ()))
data CompatibleVersionSet
= CompatibleVersionSet'_constructor {CompatibleVersionSet -> Vector Text
_CompatibleVersionSet'buildIds :: !(Data.Vector.Vector Data.Text.Text),
CompatibleVersionSet -> FieldSet
_CompatibleVersionSet'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CompatibleVersionSet -> CompatibleVersionSet -> Bool
(CompatibleVersionSet -> CompatibleVersionSet -> Bool)
-> (CompatibleVersionSet -> CompatibleVersionSet -> Bool)
-> Eq CompatibleVersionSet
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CompatibleVersionSet -> CompatibleVersionSet -> Bool
== :: CompatibleVersionSet -> CompatibleVersionSet -> Bool
$c/= :: CompatibleVersionSet -> CompatibleVersionSet -> Bool
/= :: CompatibleVersionSet -> CompatibleVersionSet -> Bool
Prelude.Eq, Eq CompatibleVersionSet
Eq CompatibleVersionSet =>
(CompatibleVersionSet -> CompatibleVersionSet -> Ordering)
-> (CompatibleVersionSet -> CompatibleVersionSet -> Bool)
-> (CompatibleVersionSet -> CompatibleVersionSet -> Bool)
-> (CompatibleVersionSet -> CompatibleVersionSet -> Bool)
-> (CompatibleVersionSet -> CompatibleVersionSet -> Bool)
-> (CompatibleVersionSet
-> CompatibleVersionSet -> CompatibleVersionSet)
-> (CompatibleVersionSet
-> CompatibleVersionSet -> CompatibleVersionSet)
-> Ord CompatibleVersionSet
CompatibleVersionSet -> CompatibleVersionSet -> Bool
CompatibleVersionSet -> CompatibleVersionSet -> Ordering
CompatibleVersionSet
-> CompatibleVersionSet -> CompatibleVersionSet
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
$ccompare :: CompatibleVersionSet -> CompatibleVersionSet -> Ordering
compare :: CompatibleVersionSet -> CompatibleVersionSet -> Ordering
$c< :: CompatibleVersionSet -> CompatibleVersionSet -> Bool
< :: CompatibleVersionSet -> CompatibleVersionSet -> Bool
$c<= :: CompatibleVersionSet -> CompatibleVersionSet -> Bool
<= :: CompatibleVersionSet -> CompatibleVersionSet -> Bool
$c> :: CompatibleVersionSet -> CompatibleVersionSet -> Bool
> :: CompatibleVersionSet -> CompatibleVersionSet -> Bool
$c>= :: CompatibleVersionSet -> CompatibleVersionSet -> Bool
>= :: CompatibleVersionSet -> CompatibleVersionSet -> Bool
$cmax :: CompatibleVersionSet
-> CompatibleVersionSet -> CompatibleVersionSet
max :: CompatibleVersionSet
-> CompatibleVersionSet -> CompatibleVersionSet
$cmin :: CompatibleVersionSet
-> CompatibleVersionSet -> CompatibleVersionSet
min :: CompatibleVersionSet
-> CompatibleVersionSet -> CompatibleVersionSet
Prelude.Ord)
instance Prelude.Show CompatibleVersionSet where
showsPrec :: Int -> CompatibleVersionSet -> ShowS
showsPrec Int
_ CompatibleVersionSet
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(CompatibleVersionSet -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CompatibleVersionSet
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CompatibleVersionSet "buildIds" [Data.Text.Text] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "buildIds"
-> ([Text] -> f [Text])
-> CompatibleVersionSet
-> f CompatibleVersionSet
fieldOf Proxy# "buildIds"
_
= ((Vector Text -> f (Vector Text))
-> CompatibleVersionSet -> f CompatibleVersionSet)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> CompatibleVersionSet
-> f CompatibleVersionSet
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CompatibleVersionSet -> Vector Text)
-> (CompatibleVersionSet -> Vector Text -> CompatibleVersionSet)
-> Lens
CompatibleVersionSet
CompatibleVersionSet
(Vector Text)
(Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CompatibleVersionSet -> Vector Text
_CompatibleVersionSet'buildIds
(\ CompatibleVersionSet
x__ Vector Text
y__ -> CompatibleVersionSet
x__ {_CompatibleVersionSet'buildIds = y__}))
((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField CompatibleVersionSet "vec'buildIds" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'buildIds"
-> (Vector Text -> f (Vector Text))
-> CompatibleVersionSet
-> f CompatibleVersionSet
fieldOf Proxy# "vec'buildIds"
_
= ((Vector Text -> f (Vector Text))
-> CompatibleVersionSet -> f CompatibleVersionSet)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> CompatibleVersionSet
-> f CompatibleVersionSet
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CompatibleVersionSet -> Vector Text)
-> (CompatibleVersionSet -> Vector Text -> CompatibleVersionSet)
-> Lens
CompatibleVersionSet
CompatibleVersionSet
(Vector Text)
(Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CompatibleVersionSet -> Vector Text
_CompatibleVersionSet'buildIds
(\ CompatibleVersionSet
x__ Vector Text
y__ -> CompatibleVersionSet
x__ {_CompatibleVersionSet'buildIds = y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CompatibleVersionSet where
messageName :: Proxy CompatibleVersionSet -> Text
messageName Proxy CompatibleVersionSet
_
= String -> Text
Data.Text.pack String
"temporal.api.taskqueue.v1.CompatibleVersionSet"
packedMessageDescriptor :: Proxy CompatibleVersionSet -> ByteString
packedMessageDescriptor Proxy CompatibleVersionSet
_
= ByteString
"\n\
\\DC4CompatibleVersionSet\DC2\ESC\n\
\\tbuild_ids\CAN\SOH \ETX(\tR\bbuildIds"
packedFileDescriptor :: Proxy CompatibleVersionSet -> ByteString
packedFileDescriptor Proxy CompatibleVersionSet
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CompatibleVersionSet)
fieldsByTag
= let
buildIds__field_descriptor :: FieldDescriptor CompatibleVersionSet
buildIds__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CompatibleVersionSet Text
-> FieldDescriptor CompatibleVersionSet
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"build_ids"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Packing
-> Lens' CompatibleVersionSet [Text]
-> FieldAccessor CompatibleVersionSet Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"buildIds")) ::
Data.ProtoLens.FieldDescriptor CompatibleVersionSet
in
[(Tag, FieldDescriptor CompatibleVersionSet)]
-> Map Tag (FieldDescriptor CompatibleVersionSet)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CompatibleVersionSet
buildIds__field_descriptor)]
unknownFields :: Lens' CompatibleVersionSet FieldSet
unknownFields
= (CompatibleVersionSet -> FieldSet)
-> (CompatibleVersionSet -> FieldSet -> CompatibleVersionSet)
-> Lens' CompatibleVersionSet FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CompatibleVersionSet -> FieldSet
_CompatibleVersionSet'_unknownFields
(\ CompatibleVersionSet
x__ FieldSet
y__ -> CompatibleVersionSet
x__ {_CompatibleVersionSet'_unknownFields = y__})
defMessage :: CompatibleVersionSet
defMessage
= CompatibleVersionSet'_constructor
{_CompatibleVersionSet'buildIds :: Vector Text
_CompatibleVersionSet'buildIds = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_CompatibleVersionSet'_unknownFields :: FieldSet
_CompatibleVersionSet'_unknownFields = []}
parseMessage :: Parser CompatibleVersionSet
parseMessage
= let
loop ::
CompatibleVersionSet
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Bytes.Parser CompatibleVersionSet
loop :: CompatibleVersionSet
-> Growing Vector RealWorld Text -> Parser CompatibleVersionSet
loop CompatibleVersionSet
x Growing Vector RealWorld Text
mutable'buildIds
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'buildIds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'buildIds)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'buildIds") frozen'buildIds x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do !y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"build_ids"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'buildIds y)
loop x v
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
mutable'buildIds
in
Parser CompatibleVersionSet
-> String -> Parser CompatibleVersionSet
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'buildIds <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Text)
IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'buildIds)
String
"CompatibleVersionSet"
buildMessage :: CompatibleVersionSet -> Builder
buildMessage
= \ CompatibleVersionSet
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ 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))
(FoldLike
(Vector Text)
CompatibleVersionSet
CompatibleVersionSet
(Vector Text)
(Vector Text)
-> CompatibleVersionSet -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'buildIds") CompatibleVersionSet
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
CompatibleVersionSet
CompatibleVersionSet
FieldSet
FieldSet
-> CompatibleVersionSet -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
CompatibleVersionSet
CompatibleVersionSet
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CompatibleVersionSet FieldSet
Data.ProtoLens.unknownFields CompatibleVersionSet
_x))
instance Control.DeepSeq.NFData CompatibleVersionSet where
rnf :: CompatibleVersionSet -> ()
rnf
= \ CompatibleVersionSet
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CompatibleVersionSet -> FieldSet
_CompatibleVersionSet'_unknownFields CompatibleVersionSet
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CompatibleVersionSet -> Vector Text
_CompatibleVersionSet'buildIds CompatibleVersionSet
x__) ())
data PollerInfo
= PollerInfo'_constructor {PollerInfo -> Maybe Timestamp
_PollerInfo'lastAccessTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
PollerInfo -> Text
_PollerInfo'identity :: !Data.Text.Text,
PollerInfo -> Double
_PollerInfo'ratePerSecond :: !Prelude.Double,
PollerInfo -> Maybe WorkerVersionCapabilities
_PollerInfo'workerVersionCapabilities :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkerVersionCapabilities),
PollerInfo -> FieldSet
_PollerInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (PollerInfo -> PollerInfo -> Bool
(PollerInfo -> PollerInfo -> Bool)
-> (PollerInfo -> PollerInfo -> Bool) -> Eq PollerInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PollerInfo -> PollerInfo -> Bool
== :: PollerInfo -> PollerInfo -> Bool
$c/= :: PollerInfo -> PollerInfo -> Bool
/= :: PollerInfo -> PollerInfo -> Bool
Prelude.Eq, Eq PollerInfo
Eq PollerInfo =>
(PollerInfo -> PollerInfo -> Ordering)
-> (PollerInfo -> PollerInfo -> Bool)
-> (PollerInfo -> PollerInfo -> Bool)
-> (PollerInfo -> PollerInfo -> Bool)
-> (PollerInfo -> PollerInfo -> Bool)
-> (PollerInfo -> PollerInfo -> PollerInfo)
-> (PollerInfo -> PollerInfo -> PollerInfo)
-> Ord PollerInfo
PollerInfo -> PollerInfo -> Bool
PollerInfo -> PollerInfo -> Ordering
PollerInfo -> PollerInfo -> PollerInfo
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
$ccompare :: PollerInfo -> PollerInfo -> Ordering
compare :: PollerInfo -> PollerInfo -> Ordering
$c< :: PollerInfo -> PollerInfo -> Bool
< :: PollerInfo -> PollerInfo -> Bool
$c<= :: PollerInfo -> PollerInfo -> Bool
<= :: PollerInfo -> PollerInfo -> Bool
$c> :: PollerInfo -> PollerInfo -> Bool
> :: PollerInfo -> PollerInfo -> Bool
$c>= :: PollerInfo -> PollerInfo -> Bool
>= :: PollerInfo -> PollerInfo -> Bool
$cmax :: PollerInfo -> PollerInfo -> PollerInfo
max :: PollerInfo -> PollerInfo -> PollerInfo
$cmin :: PollerInfo -> PollerInfo -> PollerInfo
min :: PollerInfo -> PollerInfo -> PollerInfo
Prelude.Ord)
instance Prelude.Show PollerInfo where
showsPrec :: Int -> PollerInfo -> ShowS
showsPrec Int
_ PollerInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(PollerInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PollerInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField PollerInfo "lastAccessTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "lastAccessTime"
-> (Timestamp -> f Timestamp) -> PollerInfo -> f PollerInfo
fieldOf Proxy# "lastAccessTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> PollerInfo -> f PollerInfo)
-> ((Timestamp -> f Timestamp)
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> PollerInfo
-> f PollerInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((PollerInfo -> Maybe Timestamp)
-> (PollerInfo -> Maybe Timestamp -> PollerInfo)
-> Lens PollerInfo PollerInfo (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
PollerInfo -> Maybe Timestamp
_PollerInfo'lastAccessTime
(\ PollerInfo
x__ Maybe Timestamp
y__ -> PollerInfo
x__ {_PollerInfo'lastAccessTime = y__}))
(Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PollerInfo "maybe'lastAccessTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'lastAccessTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> PollerInfo
-> f PollerInfo
fieldOf Proxy# "maybe'lastAccessTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> PollerInfo -> f PollerInfo)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> PollerInfo
-> f PollerInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((PollerInfo -> Maybe Timestamp)
-> (PollerInfo -> Maybe Timestamp -> PollerInfo)
-> Lens PollerInfo PollerInfo (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
PollerInfo -> Maybe Timestamp
_PollerInfo'lastAccessTime
(\ PollerInfo
x__ Maybe Timestamp
y__ -> PollerInfo
x__ {_PollerInfo'lastAccessTime = y__}))
(Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PollerInfo "identity" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "identity" -> (Text -> f Text) -> PollerInfo -> f PollerInfo
fieldOf Proxy# "identity"
_
= ((Text -> f Text) -> PollerInfo -> f PollerInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> PollerInfo
-> f PollerInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((PollerInfo -> Text)
-> (PollerInfo -> Text -> PollerInfo)
-> Lens PollerInfo PollerInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
PollerInfo -> Text
_PollerInfo'identity
(\ PollerInfo
x__ Text
y__ -> PollerInfo
x__ {_PollerInfo'identity = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PollerInfo "ratePerSecond" Prelude.Double where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ratePerSecond"
-> (Double -> f Double) -> PollerInfo -> f PollerInfo
fieldOf Proxy# "ratePerSecond"
_
= ((Double -> f Double) -> PollerInfo -> f PollerInfo)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> PollerInfo
-> f PollerInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((PollerInfo -> Double)
-> (PollerInfo -> Double -> PollerInfo)
-> Lens PollerInfo PollerInfo Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
PollerInfo -> Double
_PollerInfo'ratePerSecond
(\ PollerInfo
x__ Double
y__ -> PollerInfo
x__ {_PollerInfo'ratePerSecond = y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PollerInfo "workerVersionCapabilities" Proto.Temporal.Api.Common.V1.Message.WorkerVersionCapabilities where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workerVersionCapabilities"
-> (WorkerVersionCapabilities -> f WorkerVersionCapabilities)
-> PollerInfo
-> f PollerInfo
fieldOf Proxy# "workerVersionCapabilities"
_
= ((Maybe WorkerVersionCapabilities
-> f (Maybe WorkerVersionCapabilities))
-> PollerInfo -> f PollerInfo)
-> ((WorkerVersionCapabilities -> f WorkerVersionCapabilities)
-> Maybe WorkerVersionCapabilities
-> f (Maybe WorkerVersionCapabilities))
-> (WorkerVersionCapabilities -> f WorkerVersionCapabilities)
-> PollerInfo
-> f PollerInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((PollerInfo -> Maybe WorkerVersionCapabilities)
-> (PollerInfo -> Maybe WorkerVersionCapabilities -> PollerInfo)
-> Lens
PollerInfo
PollerInfo
(Maybe WorkerVersionCapabilities)
(Maybe WorkerVersionCapabilities)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
PollerInfo -> Maybe WorkerVersionCapabilities
_PollerInfo'workerVersionCapabilities
(\ PollerInfo
x__ Maybe WorkerVersionCapabilities
y__ -> PollerInfo
x__ {_PollerInfo'workerVersionCapabilities = y__}))
(WorkerVersionCapabilities
-> Lens'
(Maybe WorkerVersionCapabilities) WorkerVersionCapabilities
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WorkerVersionCapabilities
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PollerInfo "maybe'workerVersionCapabilities" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkerVersionCapabilities) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workerVersionCapabilities"
-> (Maybe WorkerVersionCapabilities
-> f (Maybe WorkerVersionCapabilities))
-> PollerInfo
-> f PollerInfo
fieldOf Proxy# "maybe'workerVersionCapabilities"
_
= ((Maybe WorkerVersionCapabilities
-> f (Maybe WorkerVersionCapabilities))
-> PollerInfo -> f PollerInfo)
-> ((Maybe WorkerVersionCapabilities
-> f (Maybe WorkerVersionCapabilities))
-> Maybe WorkerVersionCapabilities
-> f (Maybe WorkerVersionCapabilities))
-> (Maybe WorkerVersionCapabilities
-> f (Maybe WorkerVersionCapabilities))
-> PollerInfo
-> f PollerInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((PollerInfo -> Maybe WorkerVersionCapabilities)
-> (PollerInfo -> Maybe WorkerVersionCapabilities -> PollerInfo)
-> Lens
PollerInfo
PollerInfo
(Maybe WorkerVersionCapabilities)
(Maybe WorkerVersionCapabilities)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
PollerInfo -> Maybe WorkerVersionCapabilities
_PollerInfo'workerVersionCapabilities
(\ PollerInfo
x__ Maybe WorkerVersionCapabilities
y__ -> PollerInfo
x__ {_PollerInfo'workerVersionCapabilities = y__}))
(Maybe WorkerVersionCapabilities
-> f (Maybe WorkerVersionCapabilities))
-> Maybe WorkerVersionCapabilities
-> f (Maybe WorkerVersionCapabilities)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PollerInfo where
messageName :: Proxy PollerInfo -> Text
messageName Proxy PollerInfo
_
= String -> Text
Data.Text.pack String
"temporal.api.taskqueue.v1.PollerInfo"
packedMessageDescriptor :: Proxy PollerInfo -> ByteString
packedMessageDescriptor Proxy PollerInfo
_
= ByteString
"\n\
\\n\
\PollerInfo\DC2D\n\
\\DLElast_access_time\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\SOlastAccessTime\DC2\SUB\n\
\\bidentity\CAN\STX \SOH(\tR\bidentity\DC2&\n\
\\SIrate_per_second\CAN\ETX \SOH(\SOHR\rratePerSecond\DC2q\n\
\\ESCworker_version_capabilities\CAN\EOT \SOH(\v21.temporal.api.common.v1.WorkerVersionCapabilitiesR\EMworkerVersionCapabilities"
packedFileDescriptor :: Proxy PollerInfo -> ByteString
packedFileDescriptor Proxy PollerInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor PollerInfo)
fieldsByTag
= let
lastAccessTime__field_descriptor :: FieldDescriptor PollerInfo
lastAccessTime__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor PollerInfo Timestamp
-> FieldDescriptor PollerInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"last_access_time"
(MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
(Lens PollerInfo PollerInfo (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor PollerInfo Timestamp
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'lastAccessTime")) ::
Data.ProtoLens.FieldDescriptor PollerInfo
identity__field_descriptor :: FieldDescriptor PollerInfo
identity__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor PollerInfo Text
-> FieldDescriptor PollerInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"identity"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens PollerInfo PollerInfo Text Text
-> FieldAccessor PollerInfo Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"identity")) ::
Data.ProtoLens.FieldDescriptor PollerInfo
ratePerSecond__field_descriptor :: FieldDescriptor PollerInfo
ratePerSecond__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor PollerInfo Double
-> FieldDescriptor PollerInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"rate_per_second"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(WireDefault Double
-> Lens PollerInfo PollerInfo Double Double
-> FieldAccessor PollerInfo Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ratePerSecond")) ::
Data.ProtoLens.FieldDescriptor PollerInfo
workerVersionCapabilities__field_descriptor :: FieldDescriptor PollerInfo
workerVersionCapabilities__field_descriptor
= String
-> FieldTypeDescriptor WorkerVersionCapabilities
-> FieldAccessor PollerInfo WorkerVersionCapabilities
-> FieldDescriptor PollerInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"worker_version_capabilities"
(MessageOrGroup -> FieldTypeDescriptor WorkerVersionCapabilities
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.WorkerVersionCapabilities)
(Lens
PollerInfo
PollerInfo
(Maybe WorkerVersionCapabilities)
(Maybe WorkerVersionCapabilities)
-> FieldAccessor PollerInfo WorkerVersionCapabilities
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'workerVersionCapabilities")) ::
Data.ProtoLens.FieldDescriptor PollerInfo
in
[(Tag, FieldDescriptor PollerInfo)]
-> Map Tag (FieldDescriptor PollerInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor PollerInfo
lastAccessTime__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor PollerInfo
identity__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor PollerInfo
ratePerSecond__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4,
FieldDescriptor PollerInfo
workerVersionCapabilities__field_descriptor)]
unknownFields :: Lens' PollerInfo FieldSet
unknownFields
= (PollerInfo -> FieldSet)
-> (PollerInfo -> FieldSet -> PollerInfo)
-> Lens' PollerInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
PollerInfo -> FieldSet
_PollerInfo'_unknownFields
(\ PollerInfo
x__ FieldSet
y__ -> PollerInfo
x__ {_PollerInfo'_unknownFields = y__})
defMessage :: PollerInfo
defMessage
= PollerInfo'_constructor
{_PollerInfo'lastAccessTime :: Maybe Timestamp
_PollerInfo'lastAccessTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
_PollerInfo'identity :: Text
_PollerInfo'identity = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_PollerInfo'ratePerSecond :: Double
_PollerInfo'ratePerSecond = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_PollerInfo'workerVersionCapabilities :: Maybe WorkerVersionCapabilities
_PollerInfo'workerVersionCapabilities = Maybe WorkerVersionCapabilities
forall a. Maybe a
Prelude.Nothing,
_PollerInfo'_unknownFields :: FieldSet
_PollerInfo'_unknownFields = []}
parseMessage :: Parser PollerInfo
parseMessage
= let
loop ::
PollerInfo -> Data.ProtoLens.Encoding.Bytes.Parser PollerInfo
loop :: PollerInfo -> Parser PollerInfo
loop PollerInfo
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Timestamp -> String -> Parser Timestamp
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"last_access_time"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"lastAccessTime") y x)
Word64
18
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"identity"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"identity") y x)
Word64
25
-> do y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"rate_per_second"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"ratePerSecond") y x)
Word64
34
-> do y <- Parser WorkerVersionCapabilities
-> String -> Parser WorkerVersionCapabilities
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"worker_version_capabilities"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workerVersionCapabilities") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser PollerInfo -> String -> Parser PollerInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do PollerInfo -> Parser PollerInfo
loop PollerInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"PollerInfo"
buildMessage :: PollerInfo -> Builder
buildMessage
= \ PollerInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Timestamp)
PollerInfo
PollerInfo
(Maybe Timestamp)
(Maybe Timestamp)
-> PollerInfo -> Maybe Timestamp
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'lastAccessTime") PollerInfo
_x
of
Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Timestamp
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> 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))
Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text PollerInfo PollerInfo Text Text -> PollerInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"identity") PollerInfo
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Double
_v
= FoldLike Double PollerInfo PollerInfo Double Double
-> PollerInfo -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ratePerSecond") PollerInfo
_x
in
if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
25)
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe WorkerVersionCapabilities)
PollerInfo
PollerInfo
(Maybe WorkerVersionCapabilities)
(Maybe WorkerVersionCapabilities)
-> PollerInfo -> Maybe WorkerVersionCapabilities
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'workerVersionCapabilities") PollerInfo
_x
of
Maybe WorkerVersionCapabilities
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just WorkerVersionCapabilities
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (WorkerVersionCapabilities -> ByteString)
-> WorkerVersionCapabilities
-> 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))
WorkerVersionCapabilities -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WorkerVersionCapabilities
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet PollerInfo PollerInfo FieldSet FieldSet
-> PollerInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet PollerInfo PollerInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PollerInfo FieldSet
Data.ProtoLens.unknownFields PollerInfo
_x)))))
instance Control.DeepSeq.NFData PollerInfo where
rnf :: PollerInfo -> ()
rnf
= \ PollerInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(PollerInfo -> FieldSet
_PollerInfo'_unknownFields PollerInfo
x__)
(Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(PollerInfo -> Maybe Timestamp
_PollerInfo'lastAccessTime PollerInfo
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(PollerInfo -> Text
_PollerInfo'identity PollerInfo
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(PollerInfo -> Double
_PollerInfo'ratePerSecond PollerInfo
x__)
(Maybe WorkerVersionCapabilities -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(PollerInfo -> Maybe WorkerVersionCapabilities
_PollerInfo'workerVersionCapabilities PollerInfo
x__) ()))))
data RampByPercentage
= RampByPercentage'_constructor {RampByPercentage -> Float
_RampByPercentage'rampPercentage :: !Prelude.Float,
RampByPercentage -> FieldSet
_RampByPercentage'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RampByPercentage -> RampByPercentage -> Bool
(RampByPercentage -> RampByPercentage -> Bool)
-> (RampByPercentage -> RampByPercentage -> Bool)
-> Eq RampByPercentage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RampByPercentage -> RampByPercentage -> Bool
== :: RampByPercentage -> RampByPercentage -> Bool
$c/= :: RampByPercentage -> RampByPercentage -> Bool
/= :: RampByPercentage -> RampByPercentage -> Bool
Prelude.Eq, Eq RampByPercentage
Eq RampByPercentage =>
(RampByPercentage -> RampByPercentage -> Ordering)
-> (RampByPercentage -> RampByPercentage -> Bool)
-> (RampByPercentage -> RampByPercentage -> Bool)
-> (RampByPercentage -> RampByPercentage -> Bool)
-> (RampByPercentage -> RampByPercentage -> Bool)
-> (RampByPercentage -> RampByPercentage -> RampByPercentage)
-> (RampByPercentage -> RampByPercentage -> RampByPercentage)
-> Ord RampByPercentage
RampByPercentage -> RampByPercentage -> Bool
RampByPercentage -> RampByPercentage -> Ordering
RampByPercentage -> RampByPercentage -> RampByPercentage
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
$ccompare :: RampByPercentage -> RampByPercentage -> Ordering
compare :: RampByPercentage -> RampByPercentage -> Ordering
$c< :: RampByPercentage -> RampByPercentage -> Bool
< :: RampByPercentage -> RampByPercentage -> Bool
$c<= :: RampByPercentage -> RampByPercentage -> Bool
<= :: RampByPercentage -> RampByPercentage -> Bool
$c> :: RampByPercentage -> RampByPercentage -> Bool
> :: RampByPercentage -> RampByPercentage -> Bool
$c>= :: RampByPercentage -> RampByPercentage -> Bool
>= :: RampByPercentage -> RampByPercentage -> Bool
$cmax :: RampByPercentage -> RampByPercentage -> RampByPercentage
max :: RampByPercentage -> RampByPercentage -> RampByPercentage
$cmin :: RampByPercentage -> RampByPercentage -> RampByPercentage
min :: RampByPercentage -> RampByPercentage -> RampByPercentage
Prelude.Ord)
instance Prelude.Show RampByPercentage where
showsPrec :: Int -> RampByPercentage -> ShowS
showsPrec Int
_ RampByPercentage
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(RampByPercentage -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RampByPercentage
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RampByPercentage "rampPercentage" Prelude.Float where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rampPercentage"
-> (Float -> f Float) -> RampByPercentage -> f RampByPercentage
fieldOf Proxy# "rampPercentage"
_
= ((Float -> f Float) -> RampByPercentage -> f RampByPercentage)
-> ((Float -> f Float) -> Float -> f Float)
-> (Float -> f Float)
-> RampByPercentage
-> f RampByPercentage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RampByPercentage -> Float)
-> (RampByPercentage -> Float -> RampByPercentage)
-> Lens RampByPercentage RampByPercentage Float Float
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RampByPercentage -> Float
_RampByPercentage'rampPercentage
(\ RampByPercentage
x__ Float
y__ -> RampByPercentage
x__ {_RampByPercentage'rampPercentage = y__}))
(Float -> f Float) -> Float -> f Float
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RampByPercentage where
messageName :: Proxy RampByPercentage -> Text
messageName Proxy RampByPercentage
_
= String -> Text
Data.Text.pack String
"temporal.api.taskqueue.v1.RampByPercentage"
packedMessageDescriptor :: Proxy RampByPercentage -> ByteString
packedMessageDescriptor Proxy RampByPercentage
_
= ByteString
"\n\
\\DLERampByPercentage\DC2'\n\
\\SIramp_percentage\CAN\SOH \SOH(\STXR\SOrampPercentage"
packedFileDescriptor :: Proxy RampByPercentage -> ByteString
packedFileDescriptor Proxy RampByPercentage
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor RampByPercentage)
fieldsByTag
= let
rampPercentage__field_descriptor :: FieldDescriptor RampByPercentage
rampPercentage__field_descriptor
= String
-> FieldTypeDescriptor Float
-> FieldAccessor RampByPercentage Float
-> FieldDescriptor RampByPercentage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"ramp_percentage"
(ScalarField Float -> FieldTypeDescriptor Float
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Float
Data.ProtoLens.FloatField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Float)
(WireDefault Float
-> Lens RampByPercentage RampByPercentage Float Float
-> FieldAccessor RampByPercentage Float
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Float
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rampPercentage")) ::
Data.ProtoLens.FieldDescriptor RampByPercentage
in
[(Tag, FieldDescriptor RampByPercentage)]
-> Map Tag (FieldDescriptor RampByPercentage)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RampByPercentage
rampPercentage__field_descriptor)]
unknownFields :: Lens' RampByPercentage FieldSet
unknownFields
= (RampByPercentage -> FieldSet)
-> (RampByPercentage -> FieldSet -> RampByPercentage)
-> Lens' RampByPercentage FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RampByPercentage -> FieldSet
_RampByPercentage'_unknownFields
(\ RampByPercentage
x__ FieldSet
y__ -> RampByPercentage
x__ {_RampByPercentage'_unknownFields = y__})
defMessage :: RampByPercentage
defMessage
= RampByPercentage'_constructor
{_RampByPercentage'rampPercentage :: Float
_RampByPercentage'rampPercentage = Float
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RampByPercentage'_unknownFields :: FieldSet
_RampByPercentage'_unknownFields = []}
parseMessage :: Parser RampByPercentage
parseMessage
= let
loop ::
RampByPercentage
-> Data.ProtoLens.Encoding.Bytes.Parser RampByPercentage
loop :: RampByPercentage -> Parser RampByPercentage
loop RampByPercentage
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
13
-> do y <- Parser Float -> String -> Parser Float
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word32 -> Float) -> Parser Word32 -> Parser Float
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word32 -> Float
Data.ProtoLens.Encoding.Bytes.wordToFloat
Parser Word32
Data.ProtoLens.Encoding.Bytes.getFixed32)
String
"ramp_percentage"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"rampPercentage") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser RampByPercentage -> String -> Parser RampByPercentage
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do RampByPercentage -> Parser RampByPercentage
loop RampByPercentage
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"RampByPercentage"
buildMessage :: RampByPercentage -> Builder
buildMessage
= \ RampByPercentage
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Float
_v
= FoldLike Float RampByPercentage RampByPercentage Float Float
-> RampByPercentage -> Float
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rampPercentage") RampByPercentage
_x
in
if Float -> Float -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Float
_v Float
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
13)
((Word32 -> Builder) -> (Float -> Word32) -> Float -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word32 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed32
Float -> Word32
Data.ProtoLens.Encoding.Bytes.floatToWord Float
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet RampByPercentage RampByPercentage FieldSet FieldSet
-> RampByPercentage -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet RampByPercentage RampByPercentage FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RampByPercentage FieldSet
Data.ProtoLens.unknownFields RampByPercentage
_x))
instance Control.DeepSeq.NFData RampByPercentage where
rnf :: RampByPercentage -> ()
rnf
= \ RampByPercentage
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RampByPercentage -> FieldSet
_RampByPercentage'_unknownFields RampByPercentage
x__)
(Float -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (RampByPercentage -> Float
_RampByPercentage'rampPercentage RampByPercentage
x__) ())
data StickyExecutionAttributes
= StickyExecutionAttributes'_constructor {StickyExecutionAttributes -> Maybe TaskQueue
_StickyExecutionAttributes'workerTaskQueue :: !(Prelude.Maybe TaskQueue),
StickyExecutionAttributes -> Maybe Duration
_StickyExecutionAttributes'scheduleToStartTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
StickyExecutionAttributes -> FieldSet
_StickyExecutionAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
(StickyExecutionAttributes -> StickyExecutionAttributes -> Bool)
-> (StickyExecutionAttributes -> StickyExecutionAttributes -> Bool)
-> Eq StickyExecutionAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
== :: StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
$c/= :: StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
/= :: StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
Prelude.Eq, Eq StickyExecutionAttributes
Eq StickyExecutionAttributes =>
(StickyExecutionAttributes
-> StickyExecutionAttributes -> Ordering)
-> (StickyExecutionAttributes -> StickyExecutionAttributes -> Bool)
-> (StickyExecutionAttributes -> StickyExecutionAttributes -> Bool)
-> (StickyExecutionAttributes -> StickyExecutionAttributes -> Bool)
-> (StickyExecutionAttributes -> StickyExecutionAttributes -> Bool)
-> (StickyExecutionAttributes
-> StickyExecutionAttributes -> StickyExecutionAttributes)
-> (StickyExecutionAttributes
-> StickyExecutionAttributes -> StickyExecutionAttributes)
-> Ord StickyExecutionAttributes
StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
StickyExecutionAttributes -> StickyExecutionAttributes -> Ordering
StickyExecutionAttributes
-> StickyExecutionAttributes -> StickyExecutionAttributes
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
$ccompare :: StickyExecutionAttributes -> StickyExecutionAttributes -> Ordering
compare :: StickyExecutionAttributes -> StickyExecutionAttributes -> Ordering
$c< :: StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
< :: StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
$c<= :: StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
<= :: StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
$c> :: StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
> :: StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
$c>= :: StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
>= :: StickyExecutionAttributes -> StickyExecutionAttributes -> Bool
$cmax :: StickyExecutionAttributes
-> StickyExecutionAttributes -> StickyExecutionAttributes
max :: StickyExecutionAttributes
-> StickyExecutionAttributes -> StickyExecutionAttributes
$cmin :: StickyExecutionAttributes
-> StickyExecutionAttributes -> StickyExecutionAttributes
min :: StickyExecutionAttributes
-> StickyExecutionAttributes -> StickyExecutionAttributes
Prelude.Ord)
instance Prelude.Show StickyExecutionAttributes where
showsPrec :: Int -> StickyExecutionAttributes -> ShowS
showsPrec Int
_ StickyExecutionAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(StickyExecutionAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StickyExecutionAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField StickyExecutionAttributes "workerTaskQueue" TaskQueue where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workerTaskQueue"
-> (TaskQueue -> f TaskQueue)
-> StickyExecutionAttributes
-> f StickyExecutionAttributes
fieldOf Proxy# "workerTaskQueue"
_
= ((Maybe TaskQueue -> f (Maybe TaskQueue))
-> StickyExecutionAttributes -> f StickyExecutionAttributes)
-> ((TaskQueue -> f TaskQueue)
-> Maybe TaskQueue -> f (Maybe TaskQueue))
-> (TaskQueue -> f TaskQueue)
-> StickyExecutionAttributes
-> f StickyExecutionAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StickyExecutionAttributes -> Maybe TaskQueue)
-> (StickyExecutionAttributes
-> Maybe TaskQueue -> StickyExecutionAttributes)
-> Lens
StickyExecutionAttributes
StickyExecutionAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StickyExecutionAttributes -> Maybe TaskQueue
_StickyExecutionAttributes'workerTaskQueue
(\ StickyExecutionAttributes
x__ Maybe TaskQueue
y__
-> StickyExecutionAttributes
x__ {_StickyExecutionAttributes'workerTaskQueue = y__}))
(TaskQueue -> Lens' (Maybe TaskQueue) TaskQueue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TaskQueue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StickyExecutionAttributes "maybe'workerTaskQueue" (Prelude.Maybe TaskQueue) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workerTaskQueue"
-> (Maybe TaskQueue -> f (Maybe TaskQueue))
-> StickyExecutionAttributes
-> f StickyExecutionAttributes
fieldOf Proxy# "maybe'workerTaskQueue"
_
= ((Maybe TaskQueue -> f (Maybe TaskQueue))
-> StickyExecutionAttributes -> f StickyExecutionAttributes)
-> ((Maybe TaskQueue -> f (Maybe TaskQueue))
-> Maybe TaskQueue -> f (Maybe TaskQueue))
-> (Maybe TaskQueue -> f (Maybe TaskQueue))
-> StickyExecutionAttributes
-> f StickyExecutionAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StickyExecutionAttributes -> Maybe TaskQueue)
-> (StickyExecutionAttributes
-> Maybe TaskQueue -> StickyExecutionAttributes)
-> Lens
StickyExecutionAttributes
StickyExecutionAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StickyExecutionAttributes -> Maybe TaskQueue
_StickyExecutionAttributes'workerTaskQueue
(\ StickyExecutionAttributes
x__ Maybe TaskQueue
y__
-> StickyExecutionAttributes
x__ {_StickyExecutionAttributes'workerTaskQueue = y__}))
(Maybe TaskQueue -> f (Maybe TaskQueue))
-> Maybe TaskQueue -> f (Maybe TaskQueue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StickyExecutionAttributes "scheduleToStartTimeout" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduleToStartTimeout"
-> (Duration -> f Duration)
-> StickyExecutionAttributes
-> f StickyExecutionAttributes
fieldOf Proxy# "scheduleToStartTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> StickyExecutionAttributes -> f StickyExecutionAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> StickyExecutionAttributes
-> f StickyExecutionAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StickyExecutionAttributes -> Maybe Duration)
-> (StickyExecutionAttributes
-> Maybe Duration -> StickyExecutionAttributes)
-> Lens
StickyExecutionAttributes
StickyExecutionAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StickyExecutionAttributes -> Maybe Duration
_StickyExecutionAttributes'scheduleToStartTimeout
(\ StickyExecutionAttributes
x__ Maybe Duration
y__
-> StickyExecutionAttributes
x__ {_StickyExecutionAttributes'scheduleToStartTimeout = y__}))
(Duration -> Lens' (Maybe Duration) Duration
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Duration
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StickyExecutionAttributes "maybe'scheduleToStartTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scheduleToStartTimeout"
-> (Maybe Duration -> f (Maybe Duration))
-> StickyExecutionAttributes
-> f StickyExecutionAttributes
fieldOf Proxy# "maybe'scheduleToStartTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> StickyExecutionAttributes -> f StickyExecutionAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> StickyExecutionAttributes
-> f StickyExecutionAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StickyExecutionAttributes -> Maybe Duration)
-> (StickyExecutionAttributes
-> Maybe Duration -> StickyExecutionAttributes)
-> Lens
StickyExecutionAttributes
StickyExecutionAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StickyExecutionAttributes -> Maybe Duration
_StickyExecutionAttributes'scheduleToStartTimeout
(\ StickyExecutionAttributes
x__ Maybe Duration
y__
-> StickyExecutionAttributes
x__ {_StickyExecutionAttributes'scheduleToStartTimeout = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StickyExecutionAttributes where
messageName :: Proxy StickyExecutionAttributes -> Text
messageName Proxy StickyExecutionAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.taskqueue.v1.StickyExecutionAttributes"
packedMessageDescriptor :: Proxy StickyExecutionAttributes -> ByteString
packedMessageDescriptor Proxy StickyExecutionAttributes
_
= ByteString
"\n\
\\EMStickyExecutionAttributes\DC2P\n\
\\DC1worker_task_queue\CAN\SOH \SOH(\v2$.temporal.api.taskqueue.v1.TaskQueueR\SIworkerTaskQueue\DC2T\n\
\\EMschedule_to_start_timeout\CAN\STX \SOH(\v2\EM.google.protobuf.DurationR\SYNscheduleToStartTimeout"
packedFileDescriptor :: Proxy StickyExecutionAttributes -> ByteString
packedFileDescriptor Proxy StickyExecutionAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor StickyExecutionAttributes)
fieldsByTag
= let
workerTaskQueue__field_descriptor :: FieldDescriptor StickyExecutionAttributes
workerTaskQueue__field_descriptor
= String
-> FieldTypeDescriptor TaskQueue
-> FieldAccessor StickyExecutionAttributes TaskQueue
-> FieldDescriptor StickyExecutionAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"worker_task_queue"
(MessageOrGroup -> FieldTypeDescriptor TaskQueue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TaskQueue)
(Lens
StickyExecutionAttributes
StickyExecutionAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
-> FieldAccessor StickyExecutionAttributes TaskQueue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'workerTaskQueue")) ::
Data.ProtoLens.FieldDescriptor StickyExecutionAttributes
scheduleToStartTimeout__field_descriptor :: FieldDescriptor StickyExecutionAttributes
scheduleToStartTimeout__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor StickyExecutionAttributes Duration
-> FieldDescriptor StickyExecutionAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"schedule_to_start_timeout"
(MessageOrGroup -> FieldTypeDescriptor Duration
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Duration.Duration)
(Lens
StickyExecutionAttributes
StickyExecutionAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor StickyExecutionAttributes Duration
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'scheduleToStartTimeout")) ::
Data.ProtoLens.FieldDescriptor StickyExecutionAttributes
in
[(Tag, FieldDescriptor StickyExecutionAttributes)]
-> Map Tag (FieldDescriptor StickyExecutionAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StickyExecutionAttributes
workerTaskQueue__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor StickyExecutionAttributes
scheduleToStartTimeout__field_descriptor)]
unknownFields :: Lens' StickyExecutionAttributes FieldSet
unknownFields
= (StickyExecutionAttributes -> FieldSet)
-> (StickyExecutionAttributes
-> FieldSet -> StickyExecutionAttributes)
-> Lens' StickyExecutionAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StickyExecutionAttributes -> FieldSet
_StickyExecutionAttributes'_unknownFields
(\ StickyExecutionAttributes
x__ FieldSet
y__
-> StickyExecutionAttributes
x__ {_StickyExecutionAttributes'_unknownFields = y__})
defMessage :: StickyExecutionAttributes
defMessage
= StickyExecutionAttributes'_constructor
{_StickyExecutionAttributes'workerTaskQueue :: Maybe TaskQueue
_StickyExecutionAttributes'workerTaskQueue = Maybe TaskQueue
forall a. Maybe a
Prelude.Nothing,
_StickyExecutionAttributes'scheduleToStartTimeout :: Maybe Duration
_StickyExecutionAttributes'scheduleToStartTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_StickyExecutionAttributes'_unknownFields :: FieldSet
_StickyExecutionAttributes'_unknownFields = []}
parseMessage :: Parser StickyExecutionAttributes
parseMessage
= let
loop ::
StickyExecutionAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser StickyExecutionAttributes
loop :: StickyExecutionAttributes -> Parser StickyExecutionAttributes
loop StickyExecutionAttributes
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser TaskQueue -> String -> Parser TaskQueue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"worker_task_queue"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workerTaskQueue") y x)
Word64
18
-> do y <- Parser Duration -> String -> Parser Duration
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"schedule_to_start_timeout"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"scheduleToStartTimeout") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser StickyExecutionAttributes
-> String -> Parser StickyExecutionAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do StickyExecutionAttributes -> Parser StickyExecutionAttributes
loop StickyExecutionAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"StickyExecutionAttributes"
buildMessage :: StickyExecutionAttributes -> Builder
buildMessage
= \ StickyExecutionAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TaskQueue)
StickyExecutionAttributes
StickyExecutionAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
-> StickyExecutionAttributes -> Maybe TaskQueue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'workerTaskQueue") StickyExecutionAttributes
_x
of
Maybe TaskQueue
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just TaskQueue
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (TaskQueue -> ByteString) -> TaskQueue -> 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))
TaskQueue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TaskQueue
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Duration)
StickyExecutionAttributes
StickyExecutionAttributes
(Maybe Duration)
(Maybe Duration)
-> StickyExecutionAttributes -> Maybe Duration
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'scheduleToStartTimeout") StickyExecutionAttributes
_x
of
Maybe Duration
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Duration
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (Duration -> ByteString) -> Duration -> 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))
Duration -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Duration
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
StickyExecutionAttributes
StickyExecutionAttributes
FieldSet
FieldSet
-> StickyExecutionAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
StickyExecutionAttributes
StickyExecutionAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StickyExecutionAttributes FieldSet
Data.ProtoLens.unknownFields StickyExecutionAttributes
_x)))
instance Control.DeepSeq.NFData StickyExecutionAttributes where
rnf :: StickyExecutionAttributes -> ()
rnf
= \ StickyExecutionAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StickyExecutionAttributes -> FieldSet
_StickyExecutionAttributes'_unknownFields StickyExecutionAttributes
x__)
(Maybe TaskQueue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StickyExecutionAttributes -> Maybe TaskQueue
_StickyExecutionAttributes'workerTaskQueue StickyExecutionAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StickyExecutionAttributes -> Maybe Duration
_StickyExecutionAttributes'scheduleToStartTimeout StickyExecutionAttributes
x__) ()))
data TaskIdBlock
= TaskIdBlock'_constructor {TaskIdBlock -> Int64
_TaskIdBlock'startId :: !Data.Int.Int64,
TaskIdBlock -> Int64
_TaskIdBlock'endId :: !Data.Int.Int64,
TaskIdBlock -> FieldSet
_TaskIdBlock'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TaskIdBlock -> TaskIdBlock -> Bool
(TaskIdBlock -> TaskIdBlock -> Bool)
-> (TaskIdBlock -> TaskIdBlock -> Bool) -> Eq TaskIdBlock
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TaskIdBlock -> TaskIdBlock -> Bool
== :: TaskIdBlock -> TaskIdBlock -> Bool
$c/= :: TaskIdBlock -> TaskIdBlock -> Bool
/= :: TaskIdBlock -> TaskIdBlock -> Bool
Prelude.Eq, Eq TaskIdBlock
Eq TaskIdBlock =>
(TaskIdBlock -> TaskIdBlock -> Ordering)
-> (TaskIdBlock -> TaskIdBlock -> Bool)
-> (TaskIdBlock -> TaskIdBlock -> Bool)
-> (TaskIdBlock -> TaskIdBlock -> Bool)
-> (TaskIdBlock -> TaskIdBlock -> Bool)
-> (TaskIdBlock -> TaskIdBlock -> TaskIdBlock)
-> (TaskIdBlock -> TaskIdBlock -> TaskIdBlock)
-> Ord TaskIdBlock
TaskIdBlock -> TaskIdBlock -> Bool
TaskIdBlock -> TaskIdBlock -> Ordering
TaskIdBlock -> TaskIdBlock -> TaskIdBlock
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
$ccompare :: TaskIdBlock -> TaskIdBlock -> Ordering
compare :: TaskIdBlock -> TaskIdBlock -> Ordering
$c< :: TaskIdBlock -> TaskIdBlock -> Bool
< :: TaskIdBlock -> TaskIdBlock -> Bool
$c<= :: TaskIdBlock -> TaskIdBlock -> Bool
<= :: TaskIdBlock -> TaskIdBlock -> Bool
$c> :: TaskIdBlock -> TaskIdBlock -> Bool
> :: TaskIdBlock -> TaskIdBlock -> Bool
$c>= :: TaskIdBlock -> TaskIdBlock -> Bool
>= :: TaskIdBlock -> TaskIdBlock -> Bool
$cmax :: TaskIdBlock -> TaskIdBlock -> TaskIdBlock
max :: TaskIdBlock -> TaskIdBlock -> TaskIdBlock
$cmin :: TaskIdBlock -> TaskIdBlock -> TaskIdBlock
min :: TaskIdBlock -> TaskIdBlock -> TaskIdBlock
Prelude.Ord)
instance Prelude.Show TaskIdBlock where
showsPrec :: Int -> TaskIdBlock -> ShowS
showsPrec Int
_ TaskIdBlock
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TaskIdBlock -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TaskIdBlock
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TaskIdBlock "startId" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startId"
-> (Int64 -> f Int64) -> TaskIdBlock -> f TaskIdBlock
fieldOf Proxy# "startId"
_
= ((Int64 -> f Int64) -> TaskIdBlock -> f TaskIdBlock)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> TaskIdBlock
-> f TaskIdBlock
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskIdBlock -> Int64)
-> (TaskIdBlock -> Int64 -> TaskIdBlock)
-> Lens TaskIdBlock TaskIdBlock Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskIdBlock -> Int64
_TaskIdBlock'startId
(\ TaskIdBlock
x__ Int64
y__ -> TaskIdBlock
x__ {_TaskIdBlock'startId = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskIdBlock "endId" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "endId"
-> (Int64 -> f Int64) -> TaskIdBlock -> f TaskIdBlock
fieldOf Proxy# "endId"
_
= ((Int64 -> f Int64) -> TaskIdBlock -> f TaskIdBlock)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> TaskIdBlock
-> f TaskIdBlock
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskIdBlock -> Int64)
-> (TaskIdBlock -> Int64 -> TaskIdBlock)
-> Lens TaskIdBlock TaskIdBlock Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskIdBlock -> Int64
_TaskIdBlock'endId (\ TaskIdBlock
x__ Int64
y__ -> TaskIdBlock
x__ {_TaskIdBlock'endId = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TaskIdBlock where
messageName :: Proxy TaskIdBlock -> Text
messageName Proxy TaskIdBlock
_
= String -> Text
Data.Text.pack String
"temporal.api.taskqueue.v1.TaskIdBlock"
packedMessageDescriptor :: Proxy TaskIdBlock -> ByteString
packedMessageDescriptor Proxy TaskIdBlock
_
= ByteString
"\n\
\\vTaskIdBlock\DC2\EM\n\
\\bstart_id\CAN\SOH \SOH(\ETXR\astartId\DC2\NAK\n\
\\ACKend_id\CAN\STX \SOH(\ETXR\ENQendId"
packedFileDescriptor :: Proxy TaskIdBlock -> ByteString
packedFileDescriptor Proxy TaskIdBlock
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TaskIdBlock)
fieldsByTag
= let
startId__field_descriptor :: FieldDescriptor TaskIdBlock
startId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor TaskIdBlock Int64
-> FieldDescriptor TaskIdBlock
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_id"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens TaskIdBlock TaskIdBlock Int64 Int64
-> FieldAccessor TaskIdBlock Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startId")) ::
Data.ProtoLens.FieldDescriptor TaskIdBlock
endId__field_descriptor :: FieldDescriptor TaskIdBlock
endId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor TaskIdBlock Int64
-> FieldDescriptor TaskIdBlock
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"end_id"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens TaskIdBlock TaskIdBlock Int64 Int64
-> FieldAccessor TaskIdBlock Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"endId")) ::
Data.ProtoLens.FieldDescriptor TaskIdBlock
in
[(Tag, FieldDescriptor TaskIdBlock)]
-> Map Tag (FieldDescriptor TaskIdBlock)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TaskIdBlock
startId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TaskIdBlock
endId__field_descriptor)]
unknownFields :: Lens' TaskIdBlock FieldSet
unknownFields
= (TaskIdBlock -> FieldSet)
-> (TaskIdBlock -> FieldSet -> TaskIdBlock)
-> Lens' TaskIdBlock FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskIdBlock -> FieldSet
_TaskIdBlock'_unknownFields
(\ TaskIdBlock
x__ FieldSet
y__ -> TaskIdBlock
x__ {_TaskIdBlock'_unknownFields = y__})
defMessage :: TaskIdBlock
defMessage
= TaskIdBlock'_constructor
{_TaskIdBlock'startId :: Int64
_TaskIdBlock'startId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskIdBlock'endId :: Int64
_TaskIdBlock'endId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskIdBlock'_unknownFields :: FieldSet
_TaskIdBlock'_unknownFields = []}
parseMessage :: Parser TaskIdBlock
parseMessage
= let
loop ::
TaskIdBlock -> Data.ProtoLens.Encoding.Bytes.Parser TaskIdBlock
loop :: TaskIdBlock -> Parser TaskIdBlock
loop TaskIdBlock
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
8 -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"start_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"startId") y x)
Word64
16
-> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"end_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"endId") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser TaskIdBlock -> String -> Parser TaskIdBlock
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TaskIdBlock -> Parser TaskIdBlock
loop TaskIdBlock
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TaskIdBlock"
buildMessage :: TaskIdBlock -> Builder
buildMessage
= \ TaskIdBlock
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike Int64 TaskIdBlock TaskIdBlock Int64 Int64
-> TaskIdBlock -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startId") TaskIdBlock
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike Int64 TaskIdBlock TaskIdBlock Int64 Int64
-> TaskIdBlock -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"endId") TaskIdBlock
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet TaskIdBlock TaskIdBlock FieldSet FieldSet
-> TaskIdBlock -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TaskIdBlock TaskIdBlock FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TaskIdBlock FieldSet
Data.ProtoLens.unknownFields TaskIdBlock
_x)))
instance Control.DeepSeq.NFData TaskIdBlock where
rnf :: TaskIdBlock -> ()
rnf
= \ TaskIdBlock
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskIdBlock -> FieldSet
_TaskIdBlock'_unknownFields TaskIdBlock
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskIdBlock -> Int64
_TaskIdBlock'startId TaskIdBlock
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TaskIdBlock -> Int64
_TaskIdBlock'endId TaskIdBlock
x__) ()))
data TaskQueue
= TaskQueue'_constructor {TaskQueue -> Text
_TaskQueue'name :: !Data.Text.Text,
TaskQueue -> TaskQueueKind
_TaskQueue'kind :: !Proto.Temporal.Api.Enums.V1.TaskQueue.TaskQueueKind,
TaskQueue -> Text
_TaskQueue'normalName :: !Data.Text.Text,
TaskQueue -> FieldSet
_TaskQueue'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TaskQueue -> TaskQueue -> Bool
(TaskQueue -> TaskQueue -> Bool)
-> (TaskQueue -> TaskQueue -> Bool) -> Eq TaskQueue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TaskQueue -> TaskQueue -> Bool
== :: TaskQueue -> TaskQueue -> Bool
$c/= :: TaskQueue -> TaskQueue -> Bool
/= :: TaskQueue -> TaskQueue -> Bool
Prelude.Eq, Eq TaskQueue
Eq TaskQueue =>
(TaskQueue -> TaskQueue -> Ordering)
-> (TaskQueue -> TaskQueue -> Bool)
-> (TaskQueue -> TaskQueue -> Bool)
-> (TaskQueue -> TaskQueue -> Bool)
-> (TaskQueue -> TaskQueue -> Bool)
-> (TaskQueue -> TaskQueue -> TaskQueue)
-> (TaskQueue -> TaskQueue -> TaskQueue)
-> Ord TaskQueue
TaskQueue -> TaskQueue -> Bool
TaskQueue -> TaskQueue -> Ordering
TaskQueue -> TaskQueue -> TaskQueue
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
$ccompare :: TaskQueue -> TaskQueue -> Ordering
compare :: TaskQueue -> TaskQueue -> Ordering
$c< :: TaskQueue -> TaskQueue -> Bool
< :: TaskQueue -> TaskQueue -> Bool
$c<= :: TaskQueue -> TaskQueue -> Bool
<= :: TaskQueue -> TaskQueue -> Bool
$c> :: TaskQueue -> TaskQueue -> Bool
> :: TaskQueue -> TaskQueue -> Bool
$c>= :: TaskQueue -> TaskQueue -> Bool
>= :: TaskQueue -> TaskQueue -> Bool
$cmax :: TaskQueue -> TaskQueue -> TaskQueue
max :: TaskQueue -> TaskQueue -> TaskQueue
$cmin :: TaskQueue -> TaskQueue -> TaskQueue
min :: TaskQueue -> TaskQueue -> TaskQueue
Prelude.Ord)
instance Prelude.Show TaskQueue where
showsPrec :: Int -> TaskQueue -> ShowS
showsPrec Int
_ TaskQueue
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TaskQueue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TaskQueue
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TaskQueue "name" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name" -> (Text -> f Text) -> TaskQueue -> f TaskQueue
fieldOf Proxy# "name"
_
= ((Text -> f Text) -> TaskQueue -> f TaskQueue)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TaskQueue
-> f TaskQueue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueue -> Text)
-> (TaskQueue -> Text -> TaskQueue)
-> Lens TaskQueue TaskQueue Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueue -> Text
_TaskQueue'name (\ TaskQueue
x__ Text
y__ -> TaskQueue
x__ {_TaskQueue'name = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskQueue "kind" Proto.Temporal.Api.Enums.V1.TaskQueue.TaskQueueKind where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "kind"
-> (TaskQueueKind -> f TaskQueueKind) -> TaskQueue -> f TaskQueue
fieldOf Proxy# "kind"
_
= ((TaskQueueKind -> f TaskQueueKind) -> TaskQueue -> f TaskQueue)
-> ((TaskQueueKind -> f TaskQueueKind)
-> TaskQueueKind -> f TaskQueueKind)
-> (TaskQueueKind -> f TaskQueueKind)
-> TaskQueue
-> f TaskQueue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueue -> TaskQueueKind)
-> (TaskQueue -> TaskQueueKind -> TaskQueue)
-> Lens TaskQueue TaskQueue TaskQueueKind TaskQueueKind
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueue -> TaskQueueKind
_TaskQueue'kind (\ TaskQueue
x__ TaskQueueKind
y__ -> TaskQueue
x__ {_TaskQueue'kind = y__}))
(TaskQueueKind -> f TaskQueueKind)
-> TaskQueueKind -> f TaskQueueKind
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskQueue "normalName" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "normalName" -> (Text -> f Text) -> TaskQueue -> f TaskQueue
fieldOf Proxy# "normalName"
_
= ((Text -> f Text) -> TaskQueue -> f TaskQueue)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TaskQueue
-> f TaskQueue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueue -> Text)
-> (TaskQueue -> Text -> TaskQueue)
-> Lens TaskQueue TaskQueue Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueue -> Text
_TaskQueue'normalName
(\ TaskQueue
x__ Text
y__ -> TaskQueue
x__ {_TaskQueue'normalName = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TaskQueue where
messageName :: Proxy TaskQueue -> Text
messageName Proxy TaskQueue
_
= String -> Text
Data.Text.pack String
"temporal.api.taskqueue.v1.TaskQueue"
packedMessageDescriptor :: Proxy TaskQueue -> ByteString
packedMessageDescriptor Proxy TaskQueue
_
= ByteString
"\n\
\\tTaskQueue\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC28\n\
\\EOTkind\CAN\STX \SOH(\SO2$.temporal.api.enums.v1.TaskQueueKindR\EOTkind\DC2\US\n\
\\vnormal_name\CAN\ETX \SOH(\tR\n\
\normalName"
packedFileDescriptor :: Proxy TaskQueue -> ByteString
packedFileDescriptor Proxy TaskQueue
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TaskQueue)
fieldsByTag
= let
name__field_descriptor :: FieldDescriptor TaskQueue
name__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TaskQueue Text
-> FieldDescriptor TaskQueue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens TaskQueue TaskQueue Text Text
-> FieldAccessor TaskQueue Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
Data.ProtoLens.FieldDescriptor TaskQueue
kind__field_descriptor :: FieldDescriptor TaskQueue
kind__field_descriptor
= String
-> FieldTypeDescriptor TaskQueueKind
-> FieldAccessor TaskQueue TaskQueueKind
-> FieldDescriptor TaskQueue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"kind"
(ScalarField TaskQueueKind -> FieldTypeDescriptor TaskQueueKind
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField TaskQueueKind
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.TaskQueue.TaskQueueKind)
(WireDefault TaskQueueKind
-> Lens TaskQueue TaskQueue TaskQueueKind TaskQueueKind
-> FieldAccessor TaskQueue TaskQueueKind
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault TaskQueueKind
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kind")) ::
Data.ProtoLens.FieldDescriptor TaskQueue
normalName__field_descriptor :: FieldDescriptor TaskQueue
normalName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TaskQueue Text
-> FieldDescriptor TaskQueue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"normal_name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens TaskQueue TaskQueue Text Text
-> FieldAccessor TaskQueue Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"normalName")) ::
Data.ProtoLens.FieldDescriptor TaskQueue
in
[(Tag, FieldDescriptor TaskQueue)]
-> Map Tag (FieldDescriptor TaskQueue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TaskQueue
name__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TaskQueue
kind__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor TaskQueue
normalName__field_descriptor)]
unknownFields :: Lens' TaskQueue FieldSet
unknownFields
= (TaskQueue -> FieldSet)
-> (TaskQueue -> FieldSet -> TaskQueue) -> Lens' TaskQueue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueue -> FieldSet
_TaskQueue'_unknownFields
(\ TaskQueue
x__ FieldSet
y__ -> TaskQueue
x__ {_TaskQueue'_unknownFields = y__})
defMessage :: TaskQueue
defMessage
= TaskQueue'_constructor
{_TaskQueue'name :: Text
_TaskQueue'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueue'kind :: TaskQueueKind
_TaskQueue'kind = TaskQueueKind
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueue'normalName :: Text
_TaskQueue'normalName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueue'_unknownFields :: FieldSet
_TaskQueue'_unknownFields = []}
parseMessage :: Parser TaskQueue
parseMessage
= let
loop :: TaskQueue -> Data.ProtoLens.Encoding.Bytes.Parser TaskQueue
loop :: TaskQueue -> Parser TaskQueue
loop TaskQueue
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"name"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
Word64
16
-> do y <- Parser TaskQueueKind -> String -> Parser TaskQueueKind
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> TaskQueueKind) -> Parser Int -> Parser TaskQueueKind
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> TaskQueueKind
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"kind"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"kind") y x)
Word64
26
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"normal_name"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"normalName") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser TaskQueue -> String -> Parser TaskQueue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TaskQueue -> Parser TaskQueue
loop TaskQueue
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TaskQueue"
buildMessage :: TaskQueue -> Builder
buildMessage
= \ TaskQueue
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text TaskQueue TaskQueue Text Text -> TaskQueue -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") TaskQueue
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: TaskQueueKind
_v = FoldLike
TaskQueueKind TaskQueue TaskQueue TaskQueueKind TaskQueueKind
-> TaskQueue -> TaskQueueKind
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kind") TaskQueue
_x
in
if TaskQueueKind -> TaskQueueKind -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) TaskQueueKind
_v TaskQueueKind
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
16)
((Int -> Builder)
-> (TaskQueueKind -> Int) -> TaskQueueKind -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
TaskQueueKind -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum TaskQueueKind
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text TaskQueue TaskQueue Text Text -> TaskQueue -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"normalName") TaskQueue
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((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 TaskQueue TaskQueue FieldSet FieldSet
-> TaskQueue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TaskQueue TaskQueue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TaskQueue FieldSet
Data.ProtoLens.unknownFields TaskQueue
_x))))
instance Control.DeepSeq.NFData TaskQueue where
rnf :: TaskQueue -> ()
rnf
= \ TaskQueue
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueue -> FieldSet
_TaskQueue'_unknownFields TaskQueue
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueue -> Text
_TaskQueue'name TaskQueue
x__)
(TaskQueueKind -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueue -> TaskQueueKind
_TaskQueue'kind TaskQueue
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TaskQueue -> Text
_TaskQueue'normalName TaskQueue
x__) ())))
data TaskQueueMetadata
= TaskQueueMetadata'_constructor {TaskQueueMetadata -> Maybe DoubleValue
_TaskQueueMetadata'maxTasksPerSecond :: !(Prelude.Maybe Proto.Google.Protobuf.Wrappers.DoubleValue),
TaskQueueMetadata -> FieldSet
_TaskQueueMetadata'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TaskQueueMetadata -> TaskQueueMetadata -> Bool
(TaskQueueMetadata -> TaskQueueMetadata -> Bool)
-> (TaskQueueMetadata -> TaskQueueMetadata -> Bool)
-> Eq TaskQueueMetadata
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TaskQueueMetadata -> TaskQueueMetadata -> Bool
== :: TaskQueueMetadata -> TaskQueueMetadata -> Bool
$c/= :: TaskQueueMetadata -> TaskQueueMetadata -> Bool
/= :: TaskQueueMetadata -> TaskQueueMetadata -> Bool
Prelude.Eq, Eq TaskQueueMetadata
Eq TaskQueueMetadata =>
(TaskQueueMetadata -> TaskQueueMetadata -> Ordering)
-> (TaskQueueMetadata -> TaskQueueMetadata -> Bool)
-> (TaskQueueMetadata -> TaskQueueMetadata -> Bool)
-> (TaskQueueMetadata -> TaskQueueMetadata -> Bool)
-> (TaskQueueMetadata -> TaskQueueMetadata -> Bool)
-> (TaskQueueMetadata -> TaskQueueMetadata -> TaskQueueMetadata)
-> (TaskQueueMetadata -> TaskQueueMetadata -> TaskQueueMetadata)
-> Ord TaskQueueMetadata
TaskQueueMetadata -> TaskQueueMetadata -> Bool
TaskQueueMetadata -> TaskQueueMetadata -> Ordering
TaskQueueMetadata -> TaskQueueMetadata -> TaskQueueMetadata
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
$ccompare :: TaskQueueMetadata -> TaskQueueMetadata -> Ordering
compare :: TaskQueueMetadata -> TaskQueueMetadata -> Ordering
$c< :: TaskQueueMetadata -> TaskQueueMetadata -> Bool
< :: TaskQueueMetadata -> TaskQueueMetadata -> Bool
$c<= :: TaskQueueMetadata -> TaskQueueMetadata -> Bool
<= :: TaskQueueMetadata -> TaskQueueMetadata -> Bool
$c> :: TaskQueueMetadata -> TaskQueueMetadata -> Bool
> :: TaskQueueMetadata -> TaskQueueMetadata -> Bool
$c>= :: TaskQueueMetadata -> TaskQueueMetadata -> Bool
>= :: TaskQueueMetadata -> TaskQueueMetadata -> Bool
$cmax :: TaskQueueMetadata -> TaskQueueMetadata -> TaskQueueMetadata
max :: TaskQueueMetadata -> TaskQueueMetadata -> TaskQueueMetadata
$cmin :: TaskQueueMetadata -> TaskQueueMetadata -> TaskQueueMetadata
min :: TaskQueueMetadata -> TaskQueueMetadata -> TaskQueueMetadata
Prelude.Ord)
instance Prelude.Show TaskQueueMetadata where
showsPrec :: Int -> TaskQueueMetadata -> ShowS
showsPrec Int
_ TaskQueueMetadata
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TaskQueueMetadata -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TaskQueueMetadata
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TaskQueueMetadata "maxTasksPerSecond" Proto.Google.Protobuf.Wrappers.DoubleValue where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxTasksPerSecond"
-> (DoubleValue -> f DoubleValue)
-> TaskQueueMetadata
-> f TaskQueueMetadata
fieldOf Proxy# "maxTasksPerSecond"
_
= ((Maybe DoubleValue -> f (Maybe DoubleValue))
-> TaskQueueMetadata -> f TaskQueueMetadata)
-> ((DoubleValue -> f DoubleValue)
-> Maybe DoubleValue -> f (Maybe DoubleValue))
-> (DoubleValue -> f DoubleValue)
-> TaskQueueMetadata
-> f TaskQueueMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueMetadata -> Maybe DoubleValue)
-> (TaskQueueMetadata -> Maybe DoubleValue -> TaskQueueMetadata)
-> Lens
TaskQueueMetadata
TaskQueueMetadata
(Maybe DoubleValue)
(Maybe DoubleValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueMetadata -> Maybe DoubleValue
_TaskQueueMetadata'maxTasksPerSecond
(\ TaskQueueMetadata
x__ Maybe DoubleValue
y__ -> TaskQueueMetadata
x__ {_TaskQueueMetadata'maxTasksPerSecond = y__}))
(DoubleValue -> Lens' (Maybe DoubleValue) DoubleValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens DoubleValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TaskQueueMetadata "maybe'maxTasksPerSecond" (Prelude.Maybe Proto.Google.Protobuf.Wrappers.DoubleValue) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'maxTasksPerSecond"
-> (Maybe DoubleValue -> f (Maybe DoubleValue))
-> TaskQueueMetadata
-> f TaskQueueMetadata
fieldOf Proxy# "maybe'maxTasksPerSecond"
_
= ((Maybe DoubleValue -> f (Maybe DoubleValue))
-> TaskQueueMetadata -> f TaskQueueMetadata)
-> ((Maybe DoubleValue -> f (Maybe DoubleValue))
-> Maybe DoubleValue -> f (Maybe DoubleValue))
-> (Maybe DoubleValue -> f (Maybe DoubleValue))
-> TaskQueueMetadata
-> f TaskQueueMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueMetadata -> Maybe DoubleValue)
-> (TaskQueueMetadata -> Maybe DoubleValue -> TaskQueueMetadata)
-> Lens
TaskQueueMetadata
TaskQueueMetadata
(Maybe DoubleValue)
(Maybe DoubleValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueMetadata -> Maybe DoubleValue
_TaskQueueMetadata'maxTasksPerSecond
(\ TaskQueueMetadata
x__ Maybe DoubleValue
y__ -> TaskQueueMetadata
x__ {_TaskQueueMetadata'maxTasksPerSecond = y__}))
(Maybe DoubleValue -> f (Maybe DoubleValue))
-> Maybe DoubleValue -> f (Maybe DoubleValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TaskQueueMetadata where
messageName :: Proxy TaskQueueMetadata -> Text
messageName Proxy TaskQueueMetadata
_
= String -> Text
Data.Text.pack String
"temporal.api.taskqueue.v1.TaskQueueMetadata"
packedMessageDescriptor :: Proxy TaskQueueMetadata -> ByteString
packedMessageDescriptor Proxy TaskQueueMetadata
_
= ByteString
"\n\
\\DC1TaskQueueMetadata\DC2M\n\
\\DC4max_tasks_per_second\CAN\SOH \SOH(\v2\FS.google.protobuf.DoubleValueR\DC1maxTasksPerSecond"
packedFileDescriptor :: Proxy TaskQueueMetadata -> ByteString
packedFileDescriptor Proxy TaskQueueMetadata
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TaskQueueMetadata)
fieldsByTag
= let
maxTasksPerSecond__field_descriptor :: FieldDescriptor TaskQueueMetadata
maxTasksPerSecond__field_descriptor
= String
-> FieldTypeDescriptor DoubleValue
-> FieldAccessor TaskQueueMetadata DoubleValue
-> FieldDescriptor TaskQueueMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"max_tasks_per_second"
(MessageOrGroup -> FieldTypeDescriptor DoubleValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Wrappers.DoubleValue)
(Lens
TaskQueueMetadata
TaskQueueMetadata
(Maybe DoubleValue)
(Maybe DoubleValue)
-> FieldAccessor TaskQueueMetadata DoubleValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'maxTasksPerSecond")) ::
Data.ProtoLens.FieldDescriptor TaskQueueMetadata
in
[(Tag, FieldDescriptor TaskQueueMetadata)]
-> Map Tag (FieldDescriptor TaskQueueMetadata)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TaskQueueMetadata
maxTasksPerSecond__field_descriptor)]
unknownFields :: Lens' TaskQueueMetadata FieldSet
unknownFields
= (TaskQueueMetadata -> FieldSet)
-> (TaskQueueMetadata -> FieldSet -> TaskQueueMetadata)
-> Lens' TaskQueueMetadata FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueMetadata -> FieldSet
_TaskQueueMetadata'_unknownFields
(\ TaskQueueMetadata
x__ FieldSet
y__ -> TaskQueueMetadata
x__ {_TaskQueueMetadata'_unknownFields = y__})
defMessage :: TaskQueueMetadata
defMessage
= TaskQueueMetadata'_constructor
{_TaskQueueMetadata'maxTasksPerSecond :: Maybe DoubleValue
_TaskQueueMetadata'maxTasksPerSecond = Maybe DoubleValue
forall a. Maybe a
Prelude.Nothing,
_TaskQueueMetadata'_unknownFields :: FieldSet
_TaskQueueMetadata'_unknownFields = []}
parseMessage :: Parser TaskQueueMetadata
parseMessage
= let
loop ::
TaskQueueMetadata
-> Data.ProtoLens.Encoding.Bytes.Parser TaskQueueMetadata
loop :: TaskQueueMetadata -> Parser TaskQueueMetadata
loop TaskQueueMetadata
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser DoubleValue -> String -> Parser DoubleValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"max_tasks_per_second"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"maxTasksPerSecond") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser TaskQueueMetadata -> String -> Parser TaskQueueMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TaskQueueMetadata -> Parser TaskQueueMetadata
loop TaskQueueMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TaskQueueMetadata"
buildMessage :: TaskQueueMetadata -> Builder
buildMessage
= \ TaskQueueMetadata
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe DoubleValue)
TaskQueueMetadata
TaskQueueMetadata
(Maybe DoubleValue)
(Maybe DoubleValue)
-> TaskQueueMetadata -> Maybe DoubleValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'maxTasksPerSecond") TaskQueueMetadata
_x
of
Maybe DoubleValue
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just DoubleValue
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (DoubleValue -> ByteString) -> DoubleValue -> 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))
DoubleValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage DoubleValue
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet TaskQueueMetadata TaskQueueMetadata FieldSet FieldSet
-> TaskQueueMetadata -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet TaskQueueMetadata TaskQueueMetadata FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TaskQueueMetadata FieldSet
Data.ProtoLens.unknownFields TaskQueueMetadata
_x))
instance Control.DeepSeq.NFData TaskQueueMetadata where
rnf :: TaskQueueMetadata -> ()
rnf
= \ TaskQueueMetadata
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueMetadata -> FieldSet
_TaskQueueMetadata'_unknownFields TaskQueueMetadata
x__)
(Maybe DoubleValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueMetadata -> Maybe DoubleValue
_TaskQueueMetadata'maxTasksPerSecond TaskQueueMetadata
x__) ())
data TaskQueuePartitionMetadata
= TaskQueuePartitionMetadata'_constructor {TaskQueuePartitionMetadata -> Text
_TaskQueuePartitionMetadata'key :: !Data.Text.Text,
TaskQueuePartitionMetadata -> Text
_TaskQueuePartitionMetadata'ownerHostName :: !Data.Text.Text,
TaskQueuePartitionMetadata -> FieldSet
_TaskQueuePartitionMetadata'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
(TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool)
-> (TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> Bool)
-> Eq TaskQueuePartitionMetadata
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
== :: TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
$c/= :: TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
/= :: TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
Prelude.Eq, Eq TaskQueuePartitionMetadata
Eq TaskQueuePartitionMetadata =>
(TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> Ordering)
-> (TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> Bool)
-> (TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> Bool)
-> (TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> Bool)
-> (TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> Bool)
-> (TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata)
-> (TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata)
-> Ord TaskQueuePartitionMetadata
TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> Ordering
TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata
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
$ccompare :: TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> Ordering
compare :: TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> Ordering
$c< :: TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
< :: TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
$c<= :: TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
<= :: TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
$c> :: TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
> :: TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
$c>= :: TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
>= :: TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata -> Bool
$cmax :: TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata
max :: TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata
$cmin :: TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata
min :: TaskQueuePartitionMetadata
-> TaskQueuePartitionMetadata -> TaskQueuePartitionMetadata
Prelude.Ord)
instance Prelude.Show TaskQueuePartitionMetadata where
showsPrec :: Int -> TaskQueuePartitionMetadata -> ShowS
showsPrec Int
_ TaskQueuePartitionMetadata
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TaskQueuePartitionMetadata -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TaskQueuePartitionMetadata
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TaskQueuePartitionMetadata "key" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> TaskQueuePartitionMetadata
-> f TaskQueuePartitionMetadata
fieldOf Proxy# "key"
_
= ((Text -> f Text)
-> TaskQueuePartitionMetadata -> f TaskQueuePartitionMetadata)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TaskQueuePartitionMetadata
-> f TaskQueuePartitionMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueuePartitionMetadata -> Text)
-> (TaskQueuePartitionMetadata
-> Text -> TaskQueuePartitionMetadata)
-> Lens
TaskQueuePartitionMetadata TaskQueuePartitionMetadata Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueuePartitionMetadata -> Text
_TaskQueuePartitionMetadata'key
(\ TaskQueuePartitionMetadata
x__ Text
y__ -> TaskQueuePartitionMetadata
x__ {_TaskQueuePartitionMetadata'key = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskQueuePartitionMetadata "ownerHostName" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ownerHostName"
-> (Text -> f Text)
-> TaskQueuePartitionMetadata
-> f TaskQueuePartitionMetadata
fieldOf Proxy# "ownerHostName"
_
= ((Text -> f Text)
-> TaskQueuePartitionMetadata -> f TaskQueuePartitionMetadata)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TaskQueuePartitionMetadata
-> f TaskQueuePartitionMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueuePartitionMetadata -> Text)
-> (TaskQueuePartitionMetadata
-> Text -> TaskQueuePartitionMetadata)
-> Lens
TaskQueuePartitionMetadata TaskQueuePartitionMetadata Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueuePartitionMetadata -> Text
_TaskQueuePartitionMetadata'ownerHostName
(\ TaskQueuePartitionMetadata
x__ Text
y__
-> TaskQueuePartitionMetadata
x__ {_TaskQueuePartitionMetadata'ownerHostName = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TaskQueuePartitionMetadata where
messageName :: Proxy TaskQueuePartitionMetadata -> Text
messageName Proxy TaskQueuePartitionMetadata
_
= String -> Text
Data.Text.pack
String
"temporal.api.taskqueue.v1.TaskQueuePartitionMetadata"
packedMessageDescriptor :: Proxy TaskQueuePartitionMetadata -> ByteString
packedMessageDescriptor Proxy TaskQueuePartitionMetadata
_
= ByteString
"\n\
\\SUBTaskQueuePartitionMetadata\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2&\n\
\\SIowner_host_name\CAN\STX \SOH(\tR\rownerHostName"
packedFileDescriptor :: Proxy TaskQueuePartitionMetadata -> ByteString
packedFileDescriptor Proxy TaskQueuePartitionMetadata
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TaskQueuePartitionMetadata)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor TaskQueuePartitionMetadata
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TaskQueuePartitionMetadata Text
-> FieldDescriptor TaskQueuePartitionMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"key"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
TaskQueuePartitionMetadata TaskQueuePartitionMetadata Text Text
-> FieldAccessor TaskQueuePartitionMetadata Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor TaskQueuePartitionMetadata
ownerHostName__field_descriptor :: FieldDescriptor TaskQueuePartitionMetadata
ownerHostName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TaskQueuePartitionMetadata Text
-> FieldDescriptor TaskQueuePartitionMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"owner_host_name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
TaskQueuePartitionMetadata TaskQueuePartitionMetadata Text Text
-> FieldAccessor TaskQueuePartitionMetadata Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ownerHostName")) ::
Data.ProtoLens.FieldDescriptor TaskQueuePartitionMetadata
in
[(Tag, FieldDescriptor TaskQueuePartitionMetadata)]
-> Map Tag (FieldDescriptor TaskQueuePartitionMetadata)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TaskQueuePartitionMetadata
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TaskQueuePartitionMetadata
ownerHostName__field_descriptor)]
unknownFields :: Lens' TaskQueuePartitionMetadata FieldSet
unknownFields
= (TaskQueuePartitionMetadata -> FieldSet)
-> (TaskQueuePartitionMetadata
-> FieldSet -> TaskQueuePartitionMetadata)
-> Lens' TaskQueuePartitionMetadata FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueuePartitionMetadata -> FieldSet
_TaskQueuePartitionMetadata'_unknownFields
(\ TaskQueuePartitionMetadata
x__ FieldSet
y__
-> TaskQueuePartitionMetadata
x__ {_TaskQueuePartitionMetadata'_unknownFields = y__})
defMessage :: TaskQueuePartitionMetadata
defMessage
= TaskQueuePartitionMetadata'_constructor
{_TaskQueuePartitionMetadata'key :: Text
_TaskQueuePartitionMetadata'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueuePartitionMetadata'ownerHostName :: Text
_TaskQueuePartitionMetadata'ownerHostName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueuePartitionMetadata'_unknownFields :: FieldSet
_TaskQueuePartitionMetadata'_unknownFields = []}
parseMessage :: Parser TaskQueuePartitionMetadata
parseMessage
= let
loop ::
TaskQueuePartitionMetadata
-> Data.ProtoLens.Encoding.Bytes.Parser TaskQueuePartitionMetadata
loop :: TaskQueuePartitionMetadata -> Parser TaskQueuePartitionMetadata
loop TaskQueuePartitionMetadata
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
Word64
18
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"owner_host_name"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"ownerHostName") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser TaskQueuePartitionMetadata
-> String -> Parser TaskQueuePartitionMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TaskQueuePartitionMetadata -> Parser TaskQueuePartitionMetadata
loop TaskQueuePartitionMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TaskQueuePartitionMetadata"
buildMessage :: TaskQueuePartitionMetadata -> Builder
buildMessage
= \ TaskQueuePartitionMetadata
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
TaskQueuePartitionMetadata
TaskQueuePartitionMetadata
Text
Text
-> TaskQueuePartitionMetadata -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") TaskQueuePartitionMetadata
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text
TaskQueuePartitionMetadata
TaskQueuePartitionMetadata
Text
Text
-> TaskQueuePartitionMetadata -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ownerHostName") TaskQueuePartitionMetadata
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 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
TaskQueuePartitionMetadata
TaskQueuePartitionMetadata
FieldSet
FieldSet
-> TaskQueuePartitionMetadata -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TaskQueuePartitionMetadata
TaskQueuePartitionMetadata
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TaskQueuePartitionMetadata FieldSet
Data.ProtoLens.unknownFields TaskQueuePartitionMetadata
_x)))
instance Control.DeepSeq.NFData TaskQueuePartitionMetadata where
rnf :: TaskQueuePartitionMetadata -> ()
rnf
= \ TaskQueuePartitionMetadata
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueuePartitionMetadata -> FieldSet
_TaskQueuePartitionMetadata'_unknownFields TaskQueuePartitionMetadata
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueuePartitionMetadata -> Text
_TaskQueuePartitionMetadata'key TaskQueuePartitionMetadata
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueuePartitionMetadata -> Text
_TaskQueuePartitionMetadata'ownerHostName TaskQueuePartitionMetadata
x__) ()))
data TaskQueueReachability
= TaskQueueReachability'_constructor {TaskQueueReachability -> Text
_TaskQueueReachability'taskQueue :: !Data.Text.Text,
TaskQueueReachability -> Vector TaskReachability
_TaskQueueReachability'reachability :: !(Data.Vector.Vector Proto.Temporal.Api.Enums.V1.TaskQueue.TaskReachability),
TaskQueueReachability -> FieldSet
_TaskQueueReachability'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TaskQueueReachability -> TaskQueueReachability -> Bool
(TaskQueueReachability -> TaskQueueReachability -> Bool)
-> (TaskQueueReachability -> TaskQueueReachability -> Bool)
-> Eq TaskQueueReachability
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TaskQueueReachability -> TaskQueueReachability -> Bool
== :: TaskQueueReachability -> TaskQueueReachability -> Bool
$c/= :: TaskQueueReachability -> TaskQueueReachability -> Bool
/= :: TaskQueueReachability -> TaskQueueReachability -> Bool
Prelude.Eq, Eq TaskQueueReachability
Eq TaskQueueReachability =>
(TaskQueueReachability -> TaskQueueReachability -> Ordering)
-> (TaskQueueReachability -> TaskQueueReachability -> Bool)
-> (TaskQueueReachability -> TaskQueueReachability -> Bool)
-> (TaskQueueReachability -> TaskQueueReachability -> Bool)
-> (TaskQueueReachability -> TaskQueueReachability -> Bool)
-> (TaskQueueReachability
-> TaskQueueReachability -> TaskQueueReachability)
-> (TaskQueueReachability
-> TaskQueueReachability -> TaskQueueReachability)
-> Ord TaskQueueReachability
TaskQueueReachability -> TaskQueueReachability -> Bool
TaskQueueReachability -> TaskQueueReachability -> Ordering
TaskQueueReachability
-> TaskQueueReachability -> TaskQueueReachability
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
$ccompare :: TaskQueueReachability -> TaskQueueReachability -> Ordering
compare :: TaskQueueReachability -> TaskQueueReachability -> Ordering
$c< :: TaskQueueReachability -> TaskQueueReachability -> Bool
< :: TaskQueueReachability -> TaskQueueReachability -> Bool
$c<= :: TaskQueueReachability -> TaskQueueReachability -> Bool
<= :: TaskQueueReachability -> TaskQueueReachability -> Bool
$c> :: TaskQueueReachability -> TaskQueueReachability -> Bool
> :: TaskQueueReachability -> TaskQueueReachability -> Bool
$c>= :: TaskQueueReachability -> TaskQueueReachability -> Bool
>= :: TaskQueueReachability -> TaskQueueReachability -> Bool
$cmax :: TaskQueueReachability
-> TaskQueueReachability -> TaskQueueReachability
max :: TaskQueueReachability
-> TaskQueueReachability -> TaskQueueReachability
$cmin :: TaskQueueReachability
-> TaskQueueReachability -> TaskQueueReachability
min :: TaskQueueReachability
-> TaskQueueReachability -> TaskQueueReachability
Prelude.Ord)
instance Prelude.Show TaskQueueReachability where
showsPrec :: Int -> TaskQueueReachability -> ShowS
showsPrec Int
_ TaskQueueReachability
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TaskQueueReachability -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TaskQueueReachability
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TaskQueueReachability "taskQueue" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "taskQueue"
-> (Text -> f Text)
-> TaskQueueReachability
-> f TaskQueueReachability
fieldOf Proxy# "taskQueue"
_
= ((Text -> f Text)
-> TaskQueueReachability -> f TaskQueueReachability)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TaskQueueReachability
-> f TaskQueueReachability
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueReachability -> Text)
-> (TaskQueueReachability -> Text -> TaskQueueReachability)
-> Lens TaskQueueReachability TaskQueueReachability Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueReachability -> Text
_TaskQueueReachability'taskQueue
(\ TaskQueueReachability
x__ Text
y__ -> TaskQueueReachability
x__ {_TaskQueueReachability'taskQueue = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskQueueReachability "reachability" [Proto.Temporal.Api.Enums.V1.TaskQueue.TaskReachability] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "reachability"
-> ([TaskReachability] -> f [TaskReachability])
-> TaskQueueReachability
-> f TaskQueueReachability
fieldOf Proxy# "reachability"
_
= ((Vector TaskReachability -> f (Vector TaskReachability))
-> TaskQueueReachability -> f TaskQueueReachability)
-> (([TaskReachability] -> f [TaskReachability])
-> Vector TaskReachability -> f (Vector TaskReachability))
-> ([TaskReachability] -> f [TaskReachability])
-> TaskQueueReachability
-> f TaskQueueReachability
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueReachability -> Vector TaskReachability)
-> (TaskQueueReachability
-> Vector TaskReachability -> TaskQueueReachability)
-> Lens
TaskQueueReachability
TaskQueueReachability
(Vector TaskReachability)
(Vector TaskReachability)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueReachability -> Vector TaskReachability
_TaskQueueReachability'reachability
(\ TaskQueueReachability
x__ Vector TaskReachability
y__ -> TaskQueueReachability
x__ {_TaskQueueReachability'reachability = y__}))
((Vector TaskReachability -> [TaskReachability])
-> (Vector TaskReachability
-> [TaskReachability] -> Vector TaskReachability)
-> Lens
(Vector TaskReachability)
(Vector TaskReachability)
[TaskReachability]
[TaskReachability]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TaskReachability -> [TaskReachability]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector TaskReachability
_ [TaskReachability]
y__ -> [TaskReachability] -> Vector TaskReachability
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TaskReachability]
y__))
instance Data.ProtoLens.Field.HasField TaskQueueReachability "vec'reachability" (Data.Vector.Vector Proto.Temporal.Api.Enums.V1.TaskQueue.TaskReachability) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'reachability"
-> (Vector TaskReachability -> f (Vector TaskReachability))
-> TaskQueueReachability
-> f TaskQueueReachability
fieldOf Proxy# "vec'reachability"
_
= ((Vector TaskReachability -> f (Vector TaskReachability))
-> TaskQueueReachability -> f TaskQueueReachability)
-> ((Vector TaskReachability -> f (Vector TaskReachability))
-> Vector TaskReachability -> f (Vector TaskReachability))
-> (Vector TaskReachability -> f (Vector TaskReachability))
-> TaskQueueReachability
-> f TaskQueueReachability
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueReachability -> Vector TaskReachability)
-> (TaskQueueReachability
-> Vector TaskReachability -> TaskQueueReachability)
-> Lens
TaskQueueReachability
TaskQueueReachability
(Vector TaskReachability)
(Vector TaskReachability)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueReachability -> Vector TaskReachability
_TaskQueueReachability'reachability
(\ TaskQueueReachability
x__ Vector TaskReachability
y__ -> TaskQueueReachability
x__ {_TaskQueueReachability'reachability = y__}))
(Vector TaskReachability -> f (Vector TaskReachability))
-> Vector TaskReachability -> f (Vector TaskReachability)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TaskQueueReachability where
messageName :: Proxy TaskQueueReachability -> Text
messageName Proxy TaskQueueReachability
_
= String -> Text
Data.Text.pack String
"temporal.api.taskqueue.v1.TaskQueueReachability"
packedMessageDescriptor :: Proxy TaskQueueReachability -> ByteString
packedMessageDescriptor Proxy TaskQueueReachability
_
= ByteString
"\n\
\\NAKTaskQueueReachability\DC2\GS\n\
\\n\
\task_queue\CAN\SOH \SOH(\tR\ttaskQueue\DC2K\n\
\\freachability\CAN\STX \ETX(\SO2'.temporal.api.enums.v1.TaskReachabilityR\freachability"
packedFileDescriptor :: Proxy TaskQueueReachability -> ByteString
packedFileDescriptor Proxy TaskQueueReachability
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TaskQueueReachability)
fieldsByTag
= let
taskQueue__field_descriptor :: FieldDescriptor TaskQueueReachability
taskQueue__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TaskQueueReachability Text
-> FieldDescriptor TaskQueueReachability
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"task_queue"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens TaskQueueReachability TaskQueueReachability Text Text
-> FieldAccessor TaskQueueReachability Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"taskQueue")) ::
Data.ProtoLens.FieldDescriptor TaskQueueReachability
reachability__field_descriptor :: FieldDescriptor TaskQueueReachability
reachability__field_descriptor
= String
-> FieldTypeDescriptor TaskReachability
-> FieldAccessor TaskQueueReachability TaskReachability
-> FieldDescriptor TaskQueueReachability
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"reachability"
(ScalarField TaskReachability
-> FieldTypeDescriptor TaskReachability
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField TaskReachability
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.TaskQueue.TaskReachability)
(Packing
-> Lens' TaskQueueReachability [TaskReachability]
-> FieldAccessor TaskQueueReachability TaskReachability
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reachability")) ::
Data.ProtoLens.FieldDescriptor TaskQueueReachability
in
[(Tag, FieldDescriptor TaskQueueReachability)]
-> Map Tag (FieldDescriptor TaskQueueReachability)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TaskQueueReachability
taskQueue__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TaskQueueReachability
reachability__field_descriptor)]
unknownFields :: Lens' TaskQueueReachability FieldSet
unknownFields
= (TaskQueueReachability -> FieldSet)
-> (TaskQueueReachability -> FieldSet -> TaskQueueReachability)
-> Lens' TaskQueueReachability FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueReachability -> FieldSet
_TaskQueueReachability'_unknownFields
(\ TaskQueueReachability
x__ FieldSet
y__ -> TaskQueueReachability
x__ {_TaskQueueReachability'_unknownFields = y__})
defMessage :: TaskQueueReachability
defMessage
= TaskQueueReachability'_constructor
{_TaskQueueReachability'taskQueue :: Text
_TaskQueueReachability'taskQueue = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueueReachability'reachability :: Vector TaskReachability
_TaskQueueReachability'reachability = Vector TaskReachability
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TaskQueueReachability'_unknownFields :: FieldSet
_TaskQueueReachability'_unknownFields = []}
parseMessage :: Parser TaskQueueReachability
parseMessage
= let
loop ::
TaskQueueReachability
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Temporal.Api.Enums.V1.TaskQueue.TaskReachability
-> Data.ProtoLens.Encoding.Bytes.Parser TaskQueueReachability
loop :: TaskQueueReachability
-> Growing Vector RealWorld TaskReachability
-> Parser TaskQueueReachability
loop TaskQueueReachability
x Growing Vector RealWorld TaskReachability
mutable'reachability
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'reachability <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'reachability)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'reachability")
frozen'reachability x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"task_queue"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"taskQueue") y x)
mutable'reachability
Word64
16
-> do !y <- Parser TaskReachability -> String -> Parser TaskReachability
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> TaskReachability) -> Parser Int -> Parser TaskReachability
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> TaskReachability
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"reachability"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'reachability y)
loop x v
Word64
18
-> do y <- do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
((let
ploop Growing v RealWorld a
qs
= do packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if packedEnd then
Prelude.return qs
else
do !q <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.toEnum
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt))
"reachability"
qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
qs q)
ploop qs'
in ploop)
mutable'reachability)
loop x y
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
mutable'reachability
in
Parser TaskQueueReachability
-> String -> Parser TaskQueueReachability
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'reachability <- IO (Growing Vector RealWorld TaskReachability)
-> Parser (Growing Vector RealWorld TaskReachability)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld TaskReachability)
IO (Growing Vector (PrimState IO) TaskReachability)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'reachability)
String
"TaskQueueReachability"
buildMessage :: TaskQueueReachability -> Builder
buildMessage
= \ TaskQueueReachability
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text TaskQueueReachability TaskQueueReachability Text Text
-> TaskQueueReachability -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"taskQueue") TaskQueueReachability
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector TaskReachability
p = FoldLike
(Vector TaskReachability)
TaskQueueReachability
TaskQueueReachability
(Vector TaskReachability)
(Vector TaskReachability)
-> TaskQueueReachability -> Vector TaskReachability
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'reachability") TaskQueueReachability
_x
in
if Vector TaskReachability -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector TaskReachability
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 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))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((TaskReachability -> Builder) -> Vector TaskReachability -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((Int -> Builder)
-> (TaskReachability -> Int) -> TaskReachability -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
TaskReachability -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum)
Vector TaskReachability
p))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
TaskQueueReachability
TaskQueueReachability
FieldSet
FieldSet
-> TaskQueueReachability -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TaskQueueReachability
TaskQueueReachability
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TaskQueueReachability FieldSet
Data.ProtoLens.unknownFields TaskQueueReachability
_x)))
instance Control.DeepSeq.NFData TaskQueueReachability where
rnf :: TaskQueueReachability -> ()
rnf
= \ TaskQueueReachability
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueReachability -> FieldSet
_TaskQueueReachability'_unknownFields TaskQueueReachability
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueReachability -> Text
_TaskQueueReachability'taskQueue TaskQueueReachability
x__)
(Vector TaskReachability -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueReachability -> Vector TaskReachability
_TaskQueueReachability'reachability TaskQueueReachability
x__) ()))
data TaskQueueStatus
= TaskQueueStatus'_constructor {TaskQueueStatus -> Int64
_TaskQueueStatus'backlogCountHint :: !Data.Int.Int64,
TaskQueueStatus -> Int64
_TaskQueueStatus'readLevel :: !Data.Int.Int64,
TaskQueueStatus -> Int64
_TaskQueueStatus'ackLevel :: !Data.Int.Int64,
TaskQueueStatus -> Double
_TaskQueueStatus'ratePerSecond :: !Prelude.Double,
TaskQueueStatus -> Maybe TaskIdBlock
_TaskQueueStatus'taskIdBlock :: !(Prelude.Maybe TaskIdBlock),
TaskQueueStatus -> FieldSet
_TaskQueueStatus'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TaskQueueStatus -> TaskQueueStatus -> Bool
(TaskQueueStatus -> TaskQueueStatus -> Bool)
-> (TaskQueueStatus -> TaskQueueStatus -> Bool)
-> Eq TaskQueueStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TaskQueueStatus -> TaskQueueStatus -> Bool
== :: TaskQueueStatus -> TaskQueueStatus -> Bool
$c/= :: TaskQueueStatus -> TaskQueueStatus -> Bool
/= :: TaskQueueStatus -> TaskQueueStatus -> Bool
Prelude.Eq, Eq TaskQueueStatus
Eq TaskQueueStatus =>
(TaskQueueStatus -> TaskQueueStatus -> Ordering)
-> (TaskQueueStatus -> TaskQueueStatus -> Bool)
-> (TaskQueueStatus -> TaskQueueStatus -> Bool)
-> (TaskQueueStatus -> TaskQueueStatus -> Bool)
-> (TaskQueueStatus -> TaskQueueStatus -> Bool)
-> (TaskQueueStatus -> TaskQueueStatus -> TaskQueueStatus)
-> (TaskQueueStatus -> TaskQueueStatus -> TaskQueueStatus)
-> Ord TaskQueueStatus
TaskQueueStatus -> TaskQueueStatus -> Bool
TaskQueueStatus -> TaskQueueStatus -> Ordering
TaskQueueStatus -> TaskQueueStatus -> TaskQueueStatus
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
$ccompare :: TaskQueueStatus -> TaskQueueStatus -> Ordering
compare :: TaskQueueStatus -> TaskQueueStatus -> Ordering
$c< :: TaskQueueStatus -> TaskQueueStatus -> Bool
< :: TaskQueueStatus -> TaskQueueStatus -> Bool
$c<= :: TaskQueueStatus -> TaskQueueStatus -> Bool
<= :: TaskQueueStatus -> TaskQueueStatus -> Bool
$c> :: TaskQueueStatus -> TaskQueueStatus -> Bool
> :: TaskQueueStatus -> TaskQueueStatus -> Bool
$c>= :: TaskQueueStatus -> TaskQueueStatus -> Bool
>= :: TaskQueueStatus -> TaskQueueStatus -> Bool
$cmax :: TaskQueueStatus -> TaskQueueStatus -> TaskQueueStatus
max :: TaskQueueStatus -> TaskQueueStatus -> TaskQueueStatus
$cmin :: TaskQueueStatus -> TaskQueueStatus -> TaskQueueStatus
min :: TaskQueueStatus -> TaskQueueStatus -> TaskQueueStatus
Prelude.Ord)
instance Prelude.Show TaskQueueStatus where
showsPrec :: Int -> TaskQueueStatus -> ShowS
showsPrec Int
_ TaskQueueStatus
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TaskQueueStatus -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TaskQueueStatus
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TaskQueueStatus "backlogCountHint" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "backlogCountHint"
-> (Int64 -> f Int64) -> TaskQueueStatus -> f TaskQueueStatus
fieldOf Proxy# "backlogCountHint"
_
= ((Int64 -> f Int64) -> TaskQueueStatus -> f TaskQueueStatus)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> TaskQueueStatus
-> f TaskQueueStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueStatus -> Int64)
-> (TaskQueueStatus -> Int64 -> TaskQueueStatus)
-> Lens TaskQueueStatus TaskQueueStatus Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueStatus -> Int64
_TaskQueueStatus'backlogCountHint
(\ TaskQueueStatus
x__ Int64
y__ -> TaskQueueStatus
x__ {_TaskQueueStatus'backlogCountHint = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskQueueStatus "readLevel" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "readLevel"
-> (Int64 -> f Int64) -> TaskQueueStatus -> f TaskQueueStatus
fieldOf Proxy# "readLevel"
_
= ((Int64 -> f Int64) -> TaskQueueStatus -> f TaskQueueStatus)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> TaskQueueStatus
-> f TaskQueueStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueStatus -> Int64)
-> (TaskQueueStatus -> Int64 -> TaskQueueStatus)
-> Lens TaskQueueStatus TaskQueueStatus Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueStatus -> Int64
_TaskQueueStatus'readLevel
(\ TaskQueueStatus
x__ Int64
y__ -> TaskQueueStatus
x__ {_TaskQueueStatus'readLevel = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskQueueStatus "ackLevel" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ackLevel"
-> (Int64 -> f Int64) -> TaskQueueStatus -> f TaskQueueStatus
fieldOf Proxy# "ackLevel"
_
= ((Int64 -> f Int64) -> TaskQueueStatus -> f TaskQueueStatus)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> TaskQueueStatus
-> f TaskQueueStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueStatus -> Int64)
-> (TaskQueueStatus -> Int64 -> TaskQueueStatus)
-> Lens TaskQueueStatus TaskQueueStatus Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueStatus -> Int64
_TaskQueueStatus'ackLevel
(\ TaskQueueStatus
x__ Int64
y__ -> TaskQueueStatus
x__ {_TaskQueueStatus'ackLevel = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskQueueStatus "ratePerSecond" Prelude.Double where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ratePerSecond"
-> (Double -> f Double) -> TaskQueueStatus -> f TaskQueueStatus
fieldOf Proxy# "ratePerSecond"
_
= ((Double -> f Double) -> TaskQueueStatus -> f TaskQueueStatus)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> TaskQueueStatus
-> f TaskQueueStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueStatus -> Double)
-> (TaskQueueStatus -> Double -> TaskQueueStatus)
-> Lens TaskQueueStatus TaskQueueStatus Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueStatus -> Double
_TaskQueueStatus'ratePerSecond
(\ TaskQueueStatus
x__ Double
y__ -> TaskQueueStatus
x__ {_TaskQueueStatus'ratePerSecond = y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskQueueStatus "taskIdBlock" TaskIdBlock where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "taskIdBlock"
-> (TaskIdBlock -> f TaskIdBlock)
-> TaskQueueStatus
-> f TaskQueueStatus
fieldOf Proxy# "taskIdBlock"
_
= ((Maybe TaskIdBlock -> f (Maybe TaskIdBlock))
-> TaskQueueStatus -> f TaskQueueStatus)
-> ((TaskIdBlock -> f TaskIdBlock)
-> Maybe TaskIdBlock -> f (Maybe TaskIdBlock))
-> (TaskIdBlock -> f TaskIdBlock)
-> TaskQueueStatus
-> f TaskQueueStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueStatus -> Maybe TaskIdBlock)
-> (TaskQueueStatus -> Maybe TaskIdBlock -> TaskQueueStatus)
-> Lens
TaskQueueStatus
TaskQueueStatus
(Maybe TaskIdBlock)
(Maybe TaskIdBlock)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueStatus -> Maybe TaskIdBlock
_TaskQueueStatus'taskIdBlock
(\ TaskQueueStatus
x__ Maybe TaskIdBlock
y__ -> TaskQueueStatus
x__ {_TaskQueueStatus'taskIdBlock = y__}))
(TaskIdBlock -> Lens' (Maybe TaskIdBlock) TaskIdBlock
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TaskIdBlock
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TaskQueueStatus "maybe'taskIdBlock" (Prelude.Maybe TaskIdBlock) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'taskIdBlock"
-> (Maybe TaskIdBlock -> f (Maybe TaskIdBlock))
-> TaskQueueStatus
-> f TaskQueueStatus
fieldOf Proxy# "maybe'taskIdBlock"
_
= ((Maybe TaskIdBlock -> f (Maybe TaskIdBlock))
-> TaskQueueStatus -> f TaskQueueStatus)
-> ((Maybe TaskIdBlock -> f (Maybe TaskIdBlock))
-> Maybe TaskIdBlock -> f (Maybe TaskIdBlock))
-> (Maybe TaskIdBlock -> f (Maybe TaskIdBlock))
-> TaskQueueStatus
-> f TaskQueueStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueStatus -> Maybe TaskIdBlock)
-> (TaskQueueStatus -> Maybe TaskIdBlock -> TaskQueueStatus)
-> Lens
TaskQueueStatus
TaskQueueStatus
(Maybe TaskIdBlock)
(Maybe TaskIdBlock)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueStatus -> Maybe TaskIdBlock
_TaskQueueStatus'taskIdBlock
(\ TaskQueueStatus
x__ Maybe TaskIdBlock
y__ -> TaskQueueStatus
x__ {_TaskQueueStatus'taskIdBlock = y__}))
(Maybe TaskIdBlock -> f (Maybe TaskIdBlock))
-> Maybe TaskIdBlock -> f (Maybe TaskIdBlock)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TaskQueueStatus where
messageName :: Proxy TaskQueueStatus -> Text
messageName Proxy TaskQueueStatus
_
= String -> Text
Data.Text.pack String
"temporal.api.taskqueue.v1.TaskQueueStatus"
packedMessageDescriptor :: Proxy TaskQueueStatus -> ByteString
packedMessageDescriptor Proxy TaskQueueStatus
_
= ByteString
"\n\
\\SITaskQueueStatus\DC2,\n\
\\DC2backlog_count_hint\CAN\SOH \SOH(\ETXR\DLEbacklogCountHint\DC2\GS\n\
\\n\
\read_level\CAN\STX \SOH(\ETXR\treadLevel\DC2\ESC\n\
\\tack_level\CAN\ETX \SOH(\ETXR\backLevel\DC2&\n\
\\SIrate_per_second\CAN\EOT \SOH(\SOHR\rratePerSecond\DC2J\n\
\\rtask_id_block\CAN\ENQ \SOH(\v2&.temporal.api.taskqueue.v1.TaskIdBlockR\vtaskIdBlock"
packedFileDescriptor :: Proxy TaskQueueStatus -> ByteString
packedFileDescriptor Proxy TaskQueueStatus
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TaskQueueStatus)
fieldsByTag
= let
backlogCountHint__field_descriptor :: FieldDescriptor TaskQueueStatus
backlogCountHint__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor TaskQueueStatus Int64
-> FieldDescriptor TaskQueueStatus
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"backlog_count_hint"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens TaskQueueStatus TaskQueueStatus Int64 Int64
-> FieldAccessor TaskQueueStatus Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"backlogCountHint")) ::
Data.ProtoLens.FieldDescriptor TaskQueueStatus
readLevel__field_descriptor :: FieldDescriptor TaskQueueStatus
readLevel__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor TaskQueueStatus Int64
-> FieldDescriptor TaskQueueStatus
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"read_level"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens TaskQueueStatus TaskQueueStatus Int64 Int64
-> FieldAccessor TaskQueueStatus Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"readLevel")) ::
Data.ProtoLens.FieldDescriptor TaskQueueStatus
ackLevel__field_descriptor :: FieldDescriptor TaskQueueStatus
ackLevel__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor TaskQueueStatus Int64
-> FieldDescriptor TaskQueueStatus
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"ack_level"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens TaskQueueStatus TaskQueueStatus Int64 Int64
-> FieldAccessor TaskQueueStatus Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ackLevel")) ::
Data.ProtoLens.FieldDescriptor TaskQueueStatus
ratePerSecond__field_descriptor :: FieldDescriptor TaskQueueStatus
ratePerSecond__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor TaskQueueStatus Double
-> FieldDescriptor TaskQueueStatus
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"rate_per_second"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(WireDefault Double
-> Lens TaskQueueStatus TaskQueueStatus Double Double
-> FieldAccessor TaskQueueStatus Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ratePerSecond")) ::
Data.ProtoLens.FieldDescriptor TaskQueueStatus
taskIdBlock__field_descriptor :: FieldDescriptor TaskQueueStatus
taskIdBlock__field_descriptor
= String
-> FieldTypeDescriptor TaskIdBlock
-> FieldAccessor TaskQueueStatus TaskIdBlock
-> FieldDescriptor TaskQueueStatus
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"task_id_block"
(MessageOrGroup -> FieldTypeDescriptor TaskIdBlock
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TaskIdBlock)
(Lens
TaskQueueStatus
TaskQueueStatus
(Maybe TaskIdBlock)
(Maybe TaskIdBlock)
-> FieldAccessor TaskQueueStatus TaskIdBlock
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'taskIdBlock")) ::
Data.ProtoLens.FieldDescriptor TaskQueueStatus
in
[(Tag, FieldDescriptor TaskQueueStatus)]
-> Map Tag (FieldDescriptor TaskQueueStatus)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TaskQueueStatus
backlogCountHint__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TaskQueueStatus
readLevel__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor TaskQueueStatus
ackLevel__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor TaskQueueStatus
ratePerSecond__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor TaskQueueStatus
taskIdBlock__field_descriptor)]
unknownFields :: Lens' TaskQueueStatus FieldSet
unknownFields
= (TaskQueueStatus -> FieldSet)
-> (TaskQueueStatus -> FieldSet -> TaskQueueStatus)
-> Lens' TaskQueueStatus FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueStatus -> FieldSet
_TaskQueueStatus'_unknownFields
(\ TaskQueueStatus
x__ FieldSet
y__ -> TaskQueueStatus
x__ {_TaskQueueStatus'_unknownFields = y__})
defMessage :: TaskQueueStatus
defMessage
= TaskQueueStatus'_constructor
{_TaskQueueStatus'backlogCountHint :: Int64
_TaskQueueStatus'backlogCountHint = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueueStatus'readLevel :: Int64
_TaskQueueStatus'readLevel = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueueStatus'ackLevel :: Int64
_TaskQueueStatus'ackLevel = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueueStatus'ratePerSecond :: Double
_TaskQueueStatus'ratePerSecond = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueueStatus'taskIdBlock :: Maybe TaskIdBlock
_TaskQueueStatus'taskIdBlock = Maybe TaskIdBlock
forall a. Maybe a
Prelude.Nothing,
_TaskQueueStatus'_unknownFields :: FieldSet
_TaskQueueStatus'_unknownFields = []}
parseMessage :: Parser TaskQueueStatus
parseMessage
= let
loop ::
TaskQueueStatus
-> Data.ProtoLens.Encoding.Bytes.Parser TaskQueueStatus
loop :: TaskQueueStatus -> Parser TaskQueueStatus
loop TaskQueueStatus
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
8 -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"backlog_count_hint"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"backlogCountHint") y x)
Word64
16
-> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"read_level"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"readLevel") y x)
Word64
24
-> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"ack_level"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"ackLevel") y x)
Word64
33
-> do y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"rate_per_second"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"ratePerSecond") y x)
Word64
42
-> do y <- Parser TaskIdBlock -> String -> Parser TaskIdBlock
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"task_id_block"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"taskIdBlock") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser TaskQueueStatus -> String -> Parser TaskQueueStatus
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TaskQueueStatus -> Parser TaskQueueStatus
loop TaskQueueStatus
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TaskQueueStatus"
buildMessage :: TaskQueueStatus -> Builder
buildMessage
= \ TaskQueueStatus
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 TaskQueueStatus TaskQueueStatus Int64 Int64
-> TaskQueueStatus -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"backlogCountHint") TaskQueueStatus
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike Int64 TaskQueueStatus TaskQueueStatus Int64 Int64
-> TaskQueueStatus -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"readLevel") TaskQueueStatus
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike Int64 TaskQueueStatus TaskQueueStatus Int64 Int64
-> TaskQueueStatus -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ackLevel") TaskQueueStatus
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Double
_v
= FoldLike Double TaskQueueStatus TaskQueueStatus Double Double
-> TaskQueueStatus -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ratePerSecond") TaskQueueStatus
_x
in
if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
33)
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TaskIdBlock)
TaskQueueStatus
TaskQueueStatus
(Maybe TaskIdBlock)
(Maybe TaskIdBlock)
-> TaskQueueStatus -> Maybe TaskIdBlock
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'taskIdBlock") TaskQueueStatus
_x
of
Maybe TaskIdBlock
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just TaskIdBlock
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder)
-> (TaskIdBlock -> ByteString) -> TaskIdBlock -> 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))
TaskIdBlock -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TaskIdBlock
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet TaskQueueStatus TaskQueueStatus FieldSet FieldSet
-> TaskQueueStatus -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TaskQueueStatus TaskQueueStatus FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TaskQueueStatus FieldSet
Data.ProtoLens.unknownFields TaskQueueStatus
_x))))))
instance Control.DeepSeq.NFData TaskQueueStatus where
rnf :: TaskQueueStatus -> ()
rnf
= \ TaskQueueStatus
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueStatus -> FieldSet
_TaskQueueStatus'_unknownFields TaskQueueStatus
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueStatus -> Int64
_TaskQueueStatus'backlogCountHint TaskQueueStatus
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueStatus -> Int64
_TaskQueueStatus'readLevel TaskQueueStatus
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueStatus -> Int64
_TaskQueueStatus'ackLevel TaskQueueStatus
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueStatus -> Double
_TaskQueueStatus'ratePerSecond TaskQueueStatus
x__)
(Maybe TaskIdBlock -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TaskQueueStatus -> Maybe TaskIdBlock
_TaskQueueStatus'taskIdBlock TaskQueueStatus
x__) ())))))
data TaskQueueTypeInfo
= TaskQueueTypeInfo'_constructor {TaskQueueTypeInfo -> Vector PollerInfo
_TaskQueueTypeInfo'pollers :: !(Data.Vector.Vector PollerInfo),
TaskQueueTypeInfo -> FieldSet
_TaskQueueTypeInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
(TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool)
-> (TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool)
-> Eq TaskQueueTypeInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
== :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
$c/= :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
/= :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
Prelude.Eq, Eq TaskQueueTypeInfo
Eq TaskQueueTypeInfo =>
(TaskQueueTypeInfo -> TaskQueueTypeInfo -> Ordering)
-> (TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool)
-> (TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool)
-> (TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool)
-> (TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool)
-> (TaskQueueTypeInfo -> TaskQueueTypeInfo -> TaskQueueTypeInfo)
-> (TaskQueueTypeInfo -> TaskQueueTypeInfo -> TaskQueueTypeInfo)
-> Ord TaskQueueTypeInfo
TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
TaskQueueTypeInfo -> TaskQueueTypeInfo -> Ordering
TaskQueueTypeInfo -> TaskQueueTypeInfo -> TaskQueueTypeInfo
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
$ccompare :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Ordering
compare :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Ordering
$c< :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
< :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
$c<= :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
<= :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
$c> :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
> :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
$c>= :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
>= :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> Bool
$cmax :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> TaskQueueTypeInfo
max :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> TaskQueueTypeInfo
$cmin :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> TaskQueueTypeInfo
min :: TaskQueueTypeInfo -> TaskQueueTypeInfo -> TaskQueueTypeInfo
Prelude.Ord)
instance Prelude.Show TaskQueueTypeInfo where
showsPrec :: Int -> TaskQueueTypeInfo -> ShowS
showsPrec Int
_ TaskQueueTypeInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TaskQueueTypeInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TaskQueueTypeInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TaskQueueTypeInfo "pollers" [PollerInfo] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "pollers"
-> ([PollerInfo] -> f [PollerInfo])
-> TaskQueueTypeInfo
-> f TaskQueueTypeInfo
fieldOf Proxy# "pollers"
_
= ((Vector PollerInfo -> f (Vector PollerInfo))
-> TaskQueueTypeInfo -> f TaskQueueTypeInfo)
-> (([PollerInfo] -> f [PollerInfo])
-> Vector PollerInfo -> f (Vector PollerInfo))
-> ([PollerInfo] -> f [PollerInfo])
-> TaskQueueTypeInfo
-> f TaskQueueTypeInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueTypeInfo -> Vector PollerInfo)
-> (TaskQueueTypeInfo -> Vector PollerInfo -> TaskQueueTypeInfo)
-> Lens
TaskQueueTypeInfo
TaskQueueTypeInfo
(Vector PollerInfo)
(Vector PollerInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueTypeInfo -> Vector PollerInfo
_TaskQueueTypeInfo'pollers
(\ TaskQueueTypeInfo
x__ Vector PollerInfo
y__ -> TaskQueueTypeInfo
x__ {_TaskQueueTypeInfo'pollers = y__}))
((Vector PollerInfo -> [PollerInfo])
-> (Vector PollerInfo -> [PollerInfo] -> Vector PollerInfo)
-> Lens
(Vector PollerInfo) (Vector PollerInfo) [PollerInfo] [PollerInfo]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector PollerInfo -> [PollerInfo]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector PollerInfo
_ [PollerInfo]
y__ -> [PollerInfo] -> Vector PollerInfo
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [PollerInfo]
y__))
instance Data.ProtoLens.Field.HasField TaskQueueTypeInfo "vec'pollers" (Data.Vector.Vector PollerInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'pollers"
-> (Vector PollerInfo -> f (Vector PollerInfo))
-> TaskQueueTypeInfo
-> f TaskQueueTypeInfo
fieldOf Proxy# "vec'pollers"
_
= ((Vector PollerInfo -> f (Vector PollerInfo))
-> TaskQueueTypeInfo -> f TaskQueueTypeInfo)
-> ((Vector PollerInfo -> f (Vector PollerInfo))
-> Vector PollerInfo -> f (Vector PollerInfo))
-> (Vector PollerInfo -> f (Vector PollerInfo))
-> TaskQueueTypeInfo
-> f TaskQueueTypeInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueTypeInfo -> Vector PollerInfo)
-> (TaskQueueTypeInfo -> Vector PollerInfo -> TaskQueueTypeInfo)
-> Lens
TaskQueueTypeInfo
TaskQueueTypeInfo
(Vector PollerInfo)
(Vector PollerInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueTypeInfo -> Vector PollerInfo
_TaskQueueTypeInfo'pollers
(\ TaskQueueTypeInfo
x__ Vector PollerInfo
y__ -> TaskQueueTypeInfo
x__ {_TaskQueueTypeInfo'pollers = y__}))
(Vector PollerInfo -> f (Vector PollerInfo))
-> Vector PollerInfo -> f (Vector PollerInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TaskQueueTypeInfo where
messageName :: Proxy TaskQueueTypeInfo -> Text
messageName Proxy TaskQueueTypeInfo
_
= String -> Text
Data.Text.pack String
"temporal.api.taskqueue.v1.TaskQueueTypeInfo"
packedMessageDescriptor :: Proxy TaskQueueTypeInfo -> ByteString
packedMessageDescriptor Proxy TaskQueueTypeInfo
_
= ByteString
"\n\
\\DC1TaskQueueTypeInfo\DC2?\n\
\\apollers\CAN\SOH \ETX(\v2%.temporal.api.taskqueue.v1.PollerInfoR\apollers"
packedFileDescriptor :: Proxy TaskQueueTypeInfo -> ByteString
packedFileDescriptor Proxy TaskQueueTypeInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TaskQueueTypeInfo)
fieldsByTag
= let
pollers__field_descriptor :: FieldDescriptor TaskQueueTypeInfo
pollers__field_descriptor
= String
-> FieldTypeDescriptor PollerInfo
-> FieldAccessor TaskQueueTypeInfo PollerInfo
-> FieldDescriptor TaskQueueTypeInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"pollers"
(MessageOrGroup -> FieldTypeDescriptor PollerInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor PollerInfo)
(Packing
-> Lens' TaskQueueTypeInfo [PollerInfo]
-> FieldAccessor TaskQueueTypeInfo PollerInfo
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pollers")) ::
Data.ProtoLens.FieldDescriptor TaskQueueTypeInfo
in
[(Tag, FieldDescriptor TaskQueueTypeInfo)]
-> Map Tag (FieldDescriptor TaskQueueTypeInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TaskQueueTypeInfo
pollers__field_descriptor)]
unknownFields :: Lens' TaskQueueTypeInfo FieldSet
unknownFields
= (TaskQueueTypeInfo -> FieldSet)
-> (TaskQueueTypeInfo -> FieldSet -> TaskQueueTypeInfo)
-> Lens' TaskQueueTypeInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueTypeInfo -> FieldSet
_TaskQueueTypeInfo'_unknownFields
(\ TaskQueueTypeInfo
x__ FieldSet
y__ -> TaskQueueTypeInfo
x__ {_TaskQueueTypeInfo'_unknownFields = y__})
defMessage :: TaskQueueTypeInfo
defMessage
= TaskQueueTypeInfo'_constructor
{_TaskQueueTypeInfo'pollers :: Vector PollerInfo
_TaskQueueTypeInfo'pollers = Vector PollerInfo
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TaskQueueTypeInfo'_unknownFields :: FieldSet
_TaskQueueTypeInfo'_unknownFields = []}
parseMessage :: Parser TaskQueueTypeInfo
parseMessage
= let
loop ::
TaskQueueTypeInfo
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PollerInfo
-> Data.ProtoLens.Encoding.Bytes.Parser TaskQueueTypeInfo
loop :: TaskQueueTypeInfo
-> Growing Vector RealWorld PollerInfo -> Parser TaskQueueTypeInfo
loop TaskQueueTypeInfo
x Growing Vector RealWorld PollerInfo
mutable'pollers
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'pollers <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'pollers)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'pollers") frozen'pollers x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do !y <- Parser PollerInfo -> String -> Parser PollerInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
String
"pollers"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'pollers y)
loop x v
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
mutable'pollers
in
Parser TaskQueueTypeInfo -> String -> Parser TaskQueueTypeInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'pollers <- IO (Growing Vector RealWorld PollerInfo)
-> Parser (Growing Vector RealWorld PollerInfo)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld PollerInfo)
IO (Growing Vector (PrimState IO) PollerInfo)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'pollers)
String
"TaskQueueTypeInfo"
buildMessage :: TaskQueueTypeInfo -> Builder
buildMessage
= \ TaskQueueTypeInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((PollerInfo -> Builder) -> Vector PollerInfo -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ PollerInfo
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (PollerInfo -> ByteString) -> PollerInfo -> 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))
PollerInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PollerInfo
_v))
(FoldLike
(Vector PollerInfo)
TaskQueueTypeInfo
TaskQueueTypeInfo
(Vector PollerInfo)
(Vector PollerInfo)
-> TaskQueueTypeInfo -> Vector PollerInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'pollers") TaskQueueTypeInfo
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet TaskQueueTypeInfo TaskQueueTypeInfo FieldSet FieldSet
-> TaskQueueTypeInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet TaskQueueTypeInfo TaskQueueTypeInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TaskQueueTypeInfo FieldSet
Data.ProtoLens.unknownFields TaskQueueTypeInfo
_x))
instance Control.DeepSeq.NFData TaskQueueTypeInfo where
rnf :: TaskQueueTypeInfo -> ()
rnf
= \ TaskQueueTypeInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueTypeInfo -> FieldSet
_TaskQueueTypeInfo'_unknownFields TaskQueueTypeInfo
x__)
(Vector PollerInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TaskQueueTypeInfo -> Vector PollerInfo
_TaskQueueTypeInfo'pollers TaskQueueTypeInfo
x__) ())
data TaskQueueVersionInfo
= TaskQueueVersionInfo'_constructor {TaskQueueVersionInfo -> Map Int32 TaskQueueTypeInfo
_TaskQueueVersionInfo'typesInfo :: !(Data.Map.Map Data.Int.Int32 TaskQueueTypeInfo),
TaskQueueVersionInfo -> BuildIdTaskReachability
_TaskQueueVersionInfo'taskReachability :: !Proto.Temporal.Api.Enums.V1.TaskQueue.BuildIdTaskReachability,
TaskQueueVersionInfo -> FieldSet
_TaskQueueVersionInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
(TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool)
-> (TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool)
-> Eq TaskQueueVersionInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
== :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
$c/= :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
/= :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
Prelude.Eq, Eq TaskQueueVersionInfo
Eq TaskQueueVersionInfo =>
(TaskQueueVersionInfo -> TaskQueueVersionInfo -> Ordering)
-> (TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool)
-> (TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool)
-> (TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool)
-> (TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool)
-> (TaskQueueVersionInfo
-> TaskQueueVersionInfo -> TaskQueueVersionInfo)
-> (TaskQueueVersionInfo
-> TaskQueueVersionInfo -> TaskQueueVersionInfo)
-> Ord TaskQueueVersionInfo
TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
TaskQueueVersionInfo -> TaskQueueVersionInfo -> Ordering
TaskQueueVersionInfo
-> TaskQueueVersionInfo -> TaskQueueVersionInfo
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
$ccompare :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Ordering
compare :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Ordering
$c< :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
< :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
$c<= :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
<= :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
$c> :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
> :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
$c>= :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
>= :: TaskQueueVersionInfo -> TaskQueueVersionInfo -> Bool
$cmax :: TaskQueueVersionInfo
-> TaskQueueVersionInfo -> TaskQueueVersionInfo
max :: TaskQueueVersionInfo
-> TaskQueueVersionInfo -> TaskQueueVersionInfo
$cmin :: TaskQueueVersionInfo
-> TaskQueueVersionInfo -> TaskQueueVersionInfo
min :: TaskQueueVersionInfo
-> TaskQueueVersionInfo -> TaskQueueVersionInfo
Prelude.Ord)
instance Prelude.Show TaskQueueVersionInfo where
showsPrec :: Int -> TaskQueueVersionInfo -> ShowS
showsPrec Int
_ TaskQueueVersionInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TaskQueueVersionInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TaskQueueVersionInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TaskQueueVersionInfo "typesInfo" (Data.Map.Map Data.Int.Int32 TaskQueueTypeInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "typesInfo"
-> (Map Int32 TaskQueueTypeInfo -> f (Map Int32 TaskQueueTypeInfo))
-> TaskQueueVersionInfo
-> f TaskQueueVersionInfo
fieldOf Proxy# "typesInfo"
_
= ((Map Int32 TaskQueueTypeInfo -> f (Map Int32 TaskQueueTypeInfo))
-> TaskQueueVersionInfo -> f TaskQueueVersionInfo)
-> ((Map Int32 TaskQueueTypeInfo
-> f (Map Int32 TaskQueueTypeInfo))
-> Map Int32 TaskQueueTypeInfo -> f (Map Int32 TaskQueueTypeInfo))
-> (Map Int32 TaskQueueTypeInfo -> f (Map Int32 TaskQueueTypeInfo))
-> TaskQueueVersionInfo
-> f TaskQueueVersionInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueVersionInfo -> Map Int32 TaskQueueTypeInfo)
-> (TaskQueueVersionInfo
-> Map Int32 TaskQueueTypeInfo -> TaskQueueVersionInfo)
-> Lens
TaskQueueVersionInfo
TaskQueueVersionInfo
(Map Int32 TaskQueueTypeInfo)
(Map Int32 TaskQueueTypeInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueVersionInfo -> Map Int32 TaskQueueTypeInfo
_TaskQueueVersionInfo'typesInfo
(\ TaskQueueVersionInfo
x__ Map Int32 TaskQueueTypeInfo
y__ -> TaskQueueVersionInfo
x__ {_TaskQueueVersionInfo'typesInfo = y__}))
(Map Int32 TaskQueueTypeInfo -> f (Map Int32 TaskQueueTypeInfo))
-> Map Int32 TaskQueueTypeInfo -> f (Map Int32 TaskQueueTypeInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskQueueVersionInfo "taskReachability" Proto.Temporal.Api.Enums.V1.TaskQueue.BuildIdTaskReachability where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "taskReachability"
-> (BuildIdTaskReachability -> f BuildIdTaskReachability)
-> TaskQueueVersionInfo
-> f TaskQueueVersionInfo
fieldOf Proxy# "taskReachability"
_
= ((BuildIdTaskReachability -> f BuildIdTaskReachability)
-> TaskQueueVersionInfo -> f TaskQueueVersionInfo)
-> ((BuildIdTaskReachability -> f BuildIdTaskReachability)
-> BuildIdTaskReachability -> f BuildIdTaskReachability)
-> (BuildIdTaskReachability -> f BuildIdTaskReachability)
-> TaskQueueVersionInfo
-> f TaskQueueVersionInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueVersionInfo -> BuildIdTaskReachability)
-> (TaskQueueVersionInfo
-> BuildIdTaskReachability -> TaskQueueVersionInfo)
-> Lens
TaskQueueVersionInfo
TaskQueueVersionInfo
BuildIdTaskReachability
BuildIdTaskReachability
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueVersionInfo -> BuildIdTaskReachability
_TaskQueueVersionInfo'taskReachability
(\ TaskQueueVersionInfo
x__ BuildIdTaskReachability
y__ -> TaskQueueVersionInfo
x__ {_TaskQueueVersionInfo'taskReachability = y__}))
(BuildIdTaskReachability -> f BuildIdTaskReachability)
-> BuildIdTaskReachability -> f BuildIdTaskReachability
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TaskQueueVersionInfo where
messageName :: Proxy TaskQueueVersionInfo -> Text
messageName Proxy TaskQueueVersionInfo
_
= String -> Text
Data.Text.pack String
"temporal.api.taskqueue.v1.TaskQueueVersionInfo"
packedMessageDescriptor :: Proxy TaskQueueVersionInfo -> ByteString
packedMessageDescriptor Proxy TaskQueueVersionInfo
_
= ByteString
"\n\
\\DC4TaskQueueVersionInfo\DC2]\n\
\\n\
\types_info\CAN\SOH \ETX(\v2>.temporal.api.taskqueue.v1.TaskQueueVersionInfo.TypesInfoEntryR\ttypesInfo\DC2[\n\
\\DC1task_reachability\CAN\STX \SOH(\SO2..temporal.api.enums.v1.BuildIdTaskReachabilityR\DLEtaskReachability\SUBj\n\
\\SOTypesInfoEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC2B\n\
\\ENQvalue\CAN\STX \SOH(\v2,.temporal.api.taskqueue.v1.TaskQueueTypeInfoR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy TaskQueueVersionInfo -> ByteString
packedFileDescriptor Proxy TaskQueueVersionInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TaskQueueVersionInfo)
fieldsByTag
= let
typesInfo__field_descriptor :: FieldDescriptor TaskQueueVersionInfo
typesInfo__field_descriptor
= String
-> FieldTypeDescriptor TaskQueueVersionInfo'TypesInfoEntry
-> FieldAccessor
TaskQueueVersionInfo TaskQueueVersionInfo'TypesInfoEntry
-> FieldDescriptor TaskQueueVersionInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"types_info"
(MessageOrGroup
-> FieldTypeDescriptor TaskQueueVersionInfo'TypesInfoEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TaskQueueVersionInfo'TypesInfoEntry)
(Lens' TaskQueueVersionInfo'TypesInfoEntry Int32
-> Lens' TaskQueueVersionInfo'TypesInfoEntry TaskQueueTypeInfo
-> Lens
TaskQueueVersionInfo
TaskQueueVersionInfo
(Map Int32 TaskQueueTypeInfo)
(Map Int32 TaskQueueTypeInfo)
-> FieldAccessor
TaskQueueVersionInfo TaskQueueVersionInfo'TypesInfoEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typesInfo")) ::
Data.ProtoLens.FieldDescriptor TaskQueueVersionInfo
taskReachability__field_descriptor :: FieldDescriptor TaskQueueVersionInfo
taskReachability__field_descriptor
= String
-> FieldTypeDescriptor BuildIdTaskReachability
-> FieldAccessor TaskQueueVersionInfo BuildIdTaskReachability
-> FieldDescriptor TaskQueueVersionInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"task_reachability"
(ScalarField BuildIdTaskReachability
-> FieldTypeDescriptor BuildIdTaskReachability
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField BuildIdTaskReachability
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.TaskQueue.BuildIdTaskReachability)
(WireDefault BuildIdTaskReachability
-> Lens
TaskQueueVersionInfo
TaskQueueVersionInfo
BuildIdTaskReachability
BuildIdTaskReachability
-> FieldAccessor TaskQueueVersionInfo BuildIdTaskReachability
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault BuildIdTaskReachability
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"taskReachability")) ::
Data.ProtoLens.FieldDescriptor TaskQueueVersionInfo
in
[(Tag, FieldDescriptor TaskQueueVersionInfo)]
-> Map Tag (FieldDescriptor TaskQueueVersionInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TaskQueueVersionInfo
typesInfo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TaskQueueVersionInfo
taskReachability__field_descriptor)]
unknownFields :: Lens' TaskQueueVersionInfo FieldSet
unknownFields
= (TaskQueueVersionInfo -> FieldSet)
-> (TaskQueueVersionInfo -> FieldSet -> TaskQueueVersionInfo)
-> Lens' TaskQueueVersionInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueVersionInfo -> FieldSet
_TaskQueueVersionInfo'_unknownFields
(\ TaskQueueVersionInfo
x__ FieldSet
y__ -> TaskQueueVersionInfo
x__ {_TaskQueueVersionInfo'_unknownFields = y__})
defMessage :: TaskQueueVersionInfo
defMessage
= TaskQueueVersionInfo'_constructor
{_TaskQueueVersionInfo'typesInfo :: Map Int32 TaskQueueTypeInfo
_TaskQueueVersionInfo'typesInfo = Map Int32 TaskQueueTypeInfo
forall k a. Map k a
Data.Map.empty,
_TaskQueueVersionInfo'taskReachability :: BuildIdTaskReachability
_TaskQueueVersionInfo'taskReachability = BuildIdTaskReachability
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueueVersionInfo'_unknownFields :: FieldSet
_TaskQueueVersionInfo'_unknownFields = []}
parseMessage :: Parser TaskQueueVersionInfo
parseMessage
= let
loop ::
TaskQueueVersionInfo
-> Data.ProtoLens.Encoding.Bytes.Parser TaskQueueVersionInfo
loop :: TaskQueueVersionInfo -> Parser TaskQueueVersionInfo
loop TaskQueueVersionInfo
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do !(entry :: TaskQueueVersionInfo'TypesInfoEntry) <- Parser TaskQueueVersionInfo'TypesInfoEntry
-> String -> Parser TaskQueueVersionInfo'TypesInfoEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral
len)
Data.ProtoLens.parseMessage)
String
"types_info"
(let
key = FoldLike
Int32
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueVersionInfo'TypesInfoEntry
Int32
Int32
-> TaskQueueVersionInfo'TypesInfoEntry -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") TaskQueueVersionInfo'TypesInfoEntry
entry
value
= FoldLike
TaskQueueTypeInfo
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueTypeInfo
TaskQueueTypeInfo
-> TaskQueueVersionInfo'TypesInfoEntry -> TaskQueueTypeInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") TaskQueueVersionInfo'TypesInfoEntry
entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"typesInfo")
(\ !Map Int32 TaskQueueTypeInfo
t -> Int32
-> TaskQueueTypeInfo
-> Map Int32 TaskQueueTypeInfo
-> Map Int32 TaskQueueTypeInfo
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Int32
key TaskQueueTypeInfo
value Map Int32 TaskQueueTypeInfo
t) x))
Word64
16
-> do y <- Parser BuildIdTaskReachability
-> String -> Parser BuildIdTaskReachability
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> BuildIdTaskReachability)
-> Parser Int -> Parser BuildIdTaskReachability
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> BuildIdTaskReachability
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"task_reachability"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"taskReachability") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser TaskQueueVersionInfo
-> String -> Parser TaskQueueVersionInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TaskQueueVersionInfo -> Parser TaskQueueVersionInfo
loop TaskQueueVersionInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TaskQueueVersionInfo"
buildMessage :: TaskQueueVersionInfo -> Builder
buildMessage
= \ TaskQueueVersionInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Int32, TaskQueueTypeInfo) -> Builder)
-> [(Int32, TaskQueueTypeInfo)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ (Int32, TaskQueueTypeInfo)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (TaskQueueVersionInfo'TypesInfoEntry -> ByteString)
-> TaskQueueVersionInfo'TypesInfoEntry
-> 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))
TaskQueueVersionInfo'TypesInfoEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueVersionInfo'TypesInfoEntry
Int32
Int32
-> Int32
-> TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Int32, TaskQueueTypeInfo) -> Int32
forall a b. (a, b) -> a
Prelude.fst (Int32, TaskQueueTypeInfo)
_v)
(Setter
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueTypeInfo
TaskQueueTypeInfo
-> TaskQueueTypeInfo
-> TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ((Int32, TaskQueueTypeInfo) -> TaskQueueTypeInfo
forall a b. (a, b) -> b
Prelude.snd (Int32, TaskQueueTypeInfo)
_v)
(TaskQueueVersionInfo'TypesInfoEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
TaskQueueVersionInfo'TypesInfoEntry)))))
(Map Int32 TaskQueueTypeInfo -> [(Int32, TaskQueueTypeInfo)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Int32 TaskQueueTypeInfo)
TaskQueueVersionInfo
TaskQueueVersionInfo
(Map Int32 TaskQueueTypeInfo)
(Map Int32 TaskQueueTypeInfo)
-> TaskQueueVersionInfo -> Map Int32 TaskQueueTypeInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typesInfo") TaskQueueVersionInfo
_x))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: BuildIdTaskReachability
_v
= FoldLike
BuildIdTaskReachability
TaskQueueVersionInfo
TaskQueueVersionInfo
BuildIdTaskReachability
BuildIdTaskReachability
-> TaskQueueVersionInfo -> BuildIdTaskReachability
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"taskReachability") TaskQueueVersionInfo
_x
in
if BuildIdTaskReachability -> BuildIdTaskReachability -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) BuildIdTaskReachability
_v BuildIdTaskReachability
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
16)
((Int -> Builder)
-> (BuildIdTaskReachability -> Int)
-> BuildIdTaskReachability
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
BuildIdTaskReachability -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum BuildIdTaskReachability
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
TaskQueueVersionInfo
TaskQueueVersionInfo
FieldSet
FieldSet
-> TaskQueueVersionInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TaskQueueVersionInfo
TaskQueueVersionInfo
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TaskQueueVersionInfo FieldSet
Data.ProtoLens.unknownFields TaskQueueVersionInfo
_x)))
instance Control.DeepSeq.NFData TaskQueueVersionInfo where
rnf :: TaskQueueVersionInfo -> ()
rnf
= \ TaskQueueVersionInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueVersionInfo -> FieldSet
_TaskQueueVersionInfo'_unknownFields TaskQueueVersionInfo
x__)
(Map Int32 TaskQueueTypeInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueVersionInfo -> Map Int32 TaskQueueTypeInfo
_TaskQueueVersionInfo'typesInfo TaskQueueVersionInfo
x__)
(BuildIdTaskReachability -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueVersionInfo -> BuildIdTaskReachability
_TaskQueueVersionInfo'taskReachability TaskQueueVersionInfo
x__) ()))
data TaskQueueVersionInfo'TypesInfoEntry
= TaskQueueVersionInfo'TypesInfoEntry'_constructor {TaskQueueVersionInfo'TypesInfoEntry -> Int32
_TaskQueueVersionInfo'TypesInfoEntry'key :: !Data.Int.Int32,
TaskQueueVersionInfo'TypesInfoEntry -> Maybe TaskQueueTypeInfo
_TaskQueueVersionInfo'TypesInfoEntry'value :: !(Prelude.Maybe TaskQueueTypeInfo),
TaskQueueVersionInfo'TypesInfoEntry -> FieldSet
_TaskQueueVersionInfo'TypesInfoEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
(TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool)
-> (TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool)
-> Eq TaskQueueVersionInfo'TypesInfoEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
== :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
$c/= :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
/= :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
Prelude.Eq, Eq TaskQueueVersionInfo'TypesInfoEntry
Eq TaskQueueVersionInfo'TypesInfoEntry =>
(TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Ordering)
-> (TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool)
-> (TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool)
-> (TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool)
-> (TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool)
-> (TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry)
-> (TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry)
-> Ord TaskQueueVersionInfo'TypesInfoEntry
TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Ordering
TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
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
$ccompare :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Ordering
compare :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Ordering
$c< :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
< :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
$c<= :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
<= :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
$c> :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
> :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
$c>= :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
>= :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry -> Bool
$cmax :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
max :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
$cmin :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
min :: TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
-> TaskQueueVersionInfo'TypesInfoEntry
Prelude.Ord)
instance Prelude.Show TaskQueueVersionInfo'TypesInfoEntry where
showsPrec :: Int -> TaskQueueVersionInfo'TypesInfoEntry -> ShowS
showsPrec Int
_ TaskQueueVersionInfo'TypesInfoEntry
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TaskQueueVersionInfo'TypesInfoEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TaskQueueVersionInfo'TypesInfoEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TaskQueueVersionInfo'TypesInfoEntry "key" Data.Int.Int32 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Int32 -> f Int32)
-> TaskQueueVersionInfo'TypesInfoEntry
-> f TaskQueueVersionInfo'TypesInfoEntry
fieldOf Proxy# "key"
_
= ((Int32 -> f Int32)
-> TaskQueueVersionInfo'TypesInfoEntry
-> f TaskQueueVersionInfo'TypesInfoEntry)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> TaskQueueVersionInfo'TypesInfoEntry
-> f TaskQueueVersionInfo'TypesInfoEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueVersionInfo'TypesInfoEntry -> Int32)
-> (TaskQueueVersionInfo'TypesInfoEntry
-> Int32 -> TaskQueueVersionInfo'TypesInfoEntry)
-> Lens' TaskQueueVersionInfo'TypesInfoEntry Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueVersionInfo'TypesInfoEntry -> Int32
_TaskQueueVersionInfo'TypesInfoEntry'key
(\ TaskQueueVersionInfo'TypesInfoEntry
x__ Int32
y__
-> TaskQueueVersionInfo'TypesInfoEntry
x__ {_TaskQueueVersionInfo'TypesInfoEntry'key = y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskQueueVersionInfo'TypesInfoEntry "value" TaskQueueTypeInfo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (TaskQueueTypeInfo -> f TaskQueueTypeInfo)
-> TaskQueueVersionInfo'TypesInfoEntry
-> f TaskQueueVersionInfo'TypesInfoEntry
fieldOf Proxy# "value"
_
= ((Maybe TaskQueueTypeInfo -> f (Maybe TaskQueueTypeInfo))
-> TaskQueueVersionInfo'TypesInfoEntry
-> f TaskQueueVersionInfo'TypesInfoEntry)
-> ((TaskQueueTypeInfo -> f TaskQueueTypeInfo)
-> Maybe TaskQueueTypeInfo -> f (Maybe TaskQueueTypeInfo))
-> (TaskQueueTypeInfo -> f TaskQueueTypeInfo)
-> TaskQueueVersionInfo'TypesInfoEntry
-> f TaskQueueVersionInfo'TypesInfoEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueVersionInfo'TypesInfoEntry -> Maybe TaskQueueTypeInfo)
-> (TaskQueueVersionInfo'TypesInfoEntry
-> Maybe TaskQueueTypeInfo -> TaskQueueVersionInfo'TypesInfoEntry)
-> Lens
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueVersionInfo'TypesInfoEntry
(Maybe TaskQueueTypeInfo)
(Maybe TaskQueueTypeInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueVersionInfo'TypesInfoEntry -> Maybe TaskQueueTypeInfo
_TaskQueueVersionInfo'TypesInfoEntry'value
(\ TaskQueueVersionInfo'TypesInfoEntry
x__ Maybe TaskQueueTypeInfo
y__
-> TaskQueueVersionInfo'TypesInfoEntry
x__ {_TaskQueueVersionInfo'TypesInfoEntry'value = y__}))
(TaskQueueTypeInfo
-> Lens' (Maybe TaskQueueTypeInfo) TaskQueueTypeInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TaskQueueTypeInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TaskQueueVersionInfo'TypesInfoEntry "maybe'value" (Prelude.Maybe TaskQueueTypeInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'value"
-> (Maybe TaskQueueTypeInfo -> f (Maybe TaskQueueTypeInfo))
-> TaskQueueVersionInfo'TypesInfoEntry
-> f TaskQueueVersionInfo'TypesInfoEntry
fieldOf Proxy# "maybe'value"
_
= ((Maybe TaskQueueTypeInfo -> f (Maybe TaskQueueTypeInfo))
-> TaskQueueVersionInfo'TypesInfoEntry
-> f TaskQueueVersionInfo'TypesInfoEntry)
-> ((Maybe TaskQueueTypeInfo -> f (Maybe TaskQueueTypeInfo))
-> Maybe TaskQueueTypeInfo -> f (Maybe TaskQueueTypeInfo))
-> (Maybe TaskQueueTypeInfo -> f (Maybe TaskQueueTypeInfo))
-> TaskQueueVersionInfo'TypesInfoEntry
-> f TaskQueueVersionInfo'TypesInfoEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueVersionInfo'TypesInfoEntry -> Maybe TaskQueueTypeInfo)
-> (TaskQueueVersionInfo'TypesInfoEntry
-> Maybe TaskQueueTypeInfo -> TaskQueueVersionInfo'TypesInfoEntry)
-> Lens
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueVersionInfo'TypesInfoEntry
(Maybe TaskQueueTypeInfo)
(Maybe TaskQueueTypeInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueVersionInfo'TypesInfoEntry -> Maybe TaskQueueTypeInfo
_TaskQueueVersionInfo'TypesInfoEntry'value
(\ TaskQueueVersionInfo'TypesInfoEntry
x__ Maybe TaskQueueTypeInfo
y__
-> TaskQueueVersionInfo'TypesInfoEntry
x__ {_TaskQueueVersionInfo'TypesInfoEntry'value = y__}))
(Maybe TaskQueueTypeInfo -> f (Maybe TaskQueueTypeInfo))
-> Maybe TaskQueueTypeInfo -> f (Maybe TaskQueueTypeInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TaskQueueVersionInfo'TypesInfoEntry where
messageName :: Proxy TaskQueueVersionInfo'TypesInfoEntry -> Text
messageName Proxy TaskQueueVersionInfo'TypesInfoEntry
_
= String -> Text
Data.Text.pack
String
"temporal.api.taskqueue.v1.TaskQueueVersionInfo.TypesInfoEntry"
packedMessageDescriptor :: Proxy TaskQueueVersionInfo'TypesInfoEntry -> ByteString
packedMessageDescriptor Proxy TaskQueueVersionInfo'TypesInfoEntry
_
= ByteString
"\n\
\\SOTypesInfoEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC2B\n\
\\ENQvalue\CAN\STX \SOH(\v2,.temporal.api.taskqueue.v1.TaskQueueTypeInfoR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy TaskQueueVersionInfo'TypesInfoEntry -> ByteString
packedFileDescriptor Proxy TaskQueueVersionInfo'TypesInfoEntry
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TaskQueueVersionInfo'TypesInfoEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor TaskQueueVersionInfo'TypesInfoEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor TaskQueueVersionInfo'TypesInfoEntry Int32
-> FieldDescriptor TaskQueueVersionInfo'TypesInfoEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"key"
(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' TaskQueueVersionInfo'TypesInfoEntry Int32
-> FieldAccessor TaskQueueVersionInfo'TypesInfoEntry 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 (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor TaskQueueVersionInfo'TypesInfoEntry
value__field_descriptor :: FieldDescriptor TaskQueueVersionInfo'TypesInfoEntry
value__field_descriptor
= String
-> FieldTypeDescriptor TaskQueueTypeInfo
-> FieldAccessor
TaskQueueVersionInfo'TypesInfoEntry TaskQueueTypeInfo
-> FieldDescriptor TaskQueueVersionInfo'TypesInfoEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"value"
(MessageOrGroup -> FieldTypeDescriptor TaskQueueTypeInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TaskQueueTypeInfo)
(Lens
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueVersionInfo'TypesInfoEntry
(Maybe TaskQueueTypeInfo)
(Maybe TaskQueueTypeInfo)
-> FieldAccessor
TaskQueueVersionInfo'TypesInfoEntry TaskQueueTypeInfo
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value")) ::
Data.ProtoLens.FieldDescriptor TaskQueueVersionInfo'TypesInfoEntry
in
[(Tag, FieldDescriptor TaskQueueVersionInfo'TypesInfoEntry)]
-> Map Tag (FieldDescriptor TaskQueueVersionInfo'TypesInfoEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TaskQueueVersionInfo'TypesInfoEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TaskQueueVersionInfo'TypesInfoEntry
value__field_descriptor)]
unknownFields :: Lens' TaskQueueVersionInfo'TypesInfoEntry FieldSet
unknownFields
= (TaskQueueVersionInfo'TypesInfoEntry -> FieldSet)
-> (TaskQueueVersionInfo'TypesInfoEntry
-> FieldSet -> TaskQueueVersionInfo'TypesInfoEntry)
-> Lens' TaskQueueVersionInfo'TypesInfoEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueVersionInfo'TypesInfoEntry -> FieldSet
_TaskQueueVersionInfo'TypesInfoEntry'_unknownFields
(\ TaskQueueVersionInfo'TypesInfoEntry
x__ FieldSet
y__
-> TaskQueueVersionInfo'TypesInfoEntry
x__ {_TaskQueueVersionInfo'TypesInfoEntry'_unknownFields = y__})
defMessage :: TaskQueueVersionInfo'TypesInfoEntry
defMessage
= TaskQueueVersionInfo'TypesInfoEntry'_constructor
{_TaskQueueVersionInfo'TypesInfoEntry'key :: Int32
_TaskQueueVersionInfo'TypesInfoEntry'key = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueueVersionInfo'TypesInfoEntry'value :: Maybe TaskQueueTypeInfo
_TaskQueueVersionInfo'TypesInfoEntry'value = Maybe TaskQueueTypeInfo
forall a. Maybe a
Prelude.Nothing,
_TaskQueueVersionInfo'TypesInfoEntry'_unknownFields :: FieldSet
_TaskQueueVersionInfo'TypesInfoEntry'_unknownFields = []}
parseMessage :: Parser TaskQueueVersionInfo'TypesInfoEntry
parseMessage
= let
loop ::
TaskQueueVersionInfo'TypesInfoEntry
-> Data.ProtoLens.Encoding.Bytes.Parser TaskQueueVersionInfo'TypesInfoEntry
loop :: TaskQueueVersionInfo'TypesInfoEntry
-> Parser TaskQueueVersionInfo'TypesInfoEntry
loop TaskQueueVersionInfo'TypesInfoEntry
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
8 -> do y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall a b. (a -> b) -> Parser a -> Parser b
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
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
Word64
18
-> do y <- Parser TaskQueueTypeInfo -> String -> Parser TaskQueueTypeInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser TaskQueueVersionInfo'TypesInfoEntry
-> String -> Parser TaskQueueVersionInfo'TypesInfoEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TaskQueueVersionInfo'TypesInfoEntry
-> Parser TaskQueueVersionInfo'TypesInfoEntry
loop TaskQueueVersionInfo'TypesInfoEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TypesInfoEntry"
buildMessage :: TaskQueueVersionInfo'TypesInfoEntry -> Builder
buildMessage
= \ TaskQueueVersionInfo'TypesInfoEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Int32
_v = FoldLike
Int32
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueVersionInfo'TypesInfoEntry
Int32
Int32
-> TaskQueueVersionInfo'TypesInfoEntry -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") TaskQueueVersionInfo'TypesInfoEntry
_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
8)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TaskQueueTypeInfo)
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueVersionInfo'TypesInfoEntry
(Maybe TaskQueueTypeInfo)
(Maybe TaskQueueTypeInfo)
-> TaskQueueVersionInfo'TypesInfoEntry -> Maybe TaskQueueTypeInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value") TaskQueueVersionInfo'TypesInfoEntry
_x
of
Maybe TaskQueueTypeInfo
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just TaskQueueTypeInfo
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (TaskQueueTypeInfo -> ByteString)
-> TaskQueueTypeInfo
-> 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))
TaskQueueTypeInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TaskQueueTypeInfo
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueVersionInfo'TypesInfoEntry
FieldSet
FieldSet
-> TaskQueueVersionInfo'TypesInfoEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TaskQueueVersionInfo'TypesInfoEntry
TaskQueueVersionInfo'TypesInfoEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TaskQueueVersionInfo'TypesInfoEntry FieldSet
Data.ProtoLens.unknownFields TaskQueueVersionInfo'TypesInfoEntry
_x)))
instance Control.DeepSeq.NFData TaskQueueVersionInfo'TypesInfoEntry where
rnf :: TaskQueueVersionInfo'TypesInfoEntry -> ()
rnf
= \ TaskQueueVersionInfo'TypesInfoEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueVersionInfo'TypesInfoEntry -> FieldSet
_TaskQueueVersionInfo'TypesInfoEntry'_unknownFields TaskQueueVersionInfo'TypesInfoEntry
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueVersionInfo'TypesInfoEntry -> Int32
_TaskQueueVersionInfo'TypesInfoEntry'key TaskQueueVersionInfo'TypesInfoEntry
x__)
(Maybe TaskQueueTypeInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueVersionInfo'TypesInfoEntry -> Maybe TaskQueueTypeInfo
_TaskQueueVersionInfo'TypesInfoEntry'value TaskQueueVersionInfo'TypesInfoEntry
x__) ()))
data TaskQueueVersionSelection
= TaskQueueVersionSelection'_constructor {TaskQueueVersionSelection -> Vector Text
_TaskQueueVersionSelection'buildIds :: !(Data.Vector.Vector Data.Text.Text),
TaskQueueVersionSelection -> Bool
_TaskQueueVersionSelection'unversioned :: !Prelude.Bool,
TaskQueueVersionSelection -> Bool
_TaskQueueVersionSelection'allActive :: !Prelude.Bool,
TaskQueueVersionSelection -> FieldSet
_TaskQueueVersionSelection'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
(TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool)
-> (TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool)
-> Eq TaskQueueVersionSelection
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
== :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
$c/= :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
/= :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
Prelude.Eq, Eq TaskQueueVersionSelection
Eq TaskQueueVersionSelection =>
(TaskQueueVersionSelection
-> TaskQueueVersionSelection -> Ordering)
-> (TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool)
-> (TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool)
-> (TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool)
-> (TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool)
-> (TaskQueueVersionSelection
-> TaskQueueVersionSelection -> TaskQueueVersionSelection)
-> (TaskQueueVersionSelection
-> TaskQueueVersionSelection -> TaskQueueVersionSelection)
-> Ord TaskQueueVersionSelection
TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
TaskQueueVersionSelection -> TaskQueueVersionSelection -> Ordering
TaskQueueVersionSelection
-> TaskQueueVersionSelection -> TaskQueueVersionSelection
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
$ccompare :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Ordering
compare :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Ordering
$c< :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
< :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
$c<= :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
<= :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
$c> :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
> :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
$c>= :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
>= :: TaskQueueVersionSelection -> TaskQueueVersionSelection -> Bool
$cmax :: TaskQueueVersionSelection
-> TaskQueueVersionSelection -> TaskQueueVersionSelection
max :: TaskQueueVersionSelection
-> TaskQueueVersionSelection -> TaskQueueVersionSelection
$cmin :: TaskQueueVersionSelection
-> TaskQueueVersionSelection -> TaskQueueVersionSelection
min :: TaskQueueVersionSelection
-> TaskQueueVersionSelection -> TaskQueueVersionSelection
Prelude.Ord)
instance Prelude.Show TaskQueueVersionSelection where
showsPrec :: Int -> TaskQueueVersionSelection -> ShowS
showsPrec Int
_ TaskQueueVersionSelection
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TaskQueueVersionSelection -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TaskQueueVersionSelection
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TaskQueueVersionSelection "buildIds" [Data.Text.Text] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "buildIds"
-> ([Text] -> f [Text])
-> TaskQueueVersionSelection
-> f TaskQueueVersionSelection
fieldOf Proxy# "buildIds"
_
= ((Vector Text -> f (Vector Text))
-> TaskQueueVersionSelection -> f TaskQueueVersionSelection)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> TaskQueueVersionSelection
-> f TaskQueueVersionSelection
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueVersionSelection -> Vector Text)
-> (TaskQueueVersionSelection
-> Vector Text -> TaskQueueVersionSelection)
-> Lens
TaskQueueVersionSelection
TaskQueueVersionSelection
(Vector Text)
(Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueVersionSelection -> Vector Text
_TaskQueueVersionSelection'buildIds
(\ TaskQueueVersionSelection
x__ Vector Text
y__ -> TaskQueueVersionSelection
x__ {_TaskQueueVersionSelection'buildIds = y__}))
((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField TaskQueueVersionSelection "vec'buildIds" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'buildIds"
-> (Vector Text -> f (Vector Text))
-> TaskQueueVersionSelection
-> f TaskQueueVersionSelection
fieldOf Proxy# "vec'buildIds"
_
= ((Vector Text -> f (Vector Text))
-> TaskQueueVersionSelection -> f TaskQueueVersionSelection)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> TaskQueueVersionSelection
-> f TaskQueueVersionSelection
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueVersionSelection -> Vector Text)
-> (TaskQueueVersionSelection
-> Vector Text -> TaskQueueVersionSelection)
-> Lens
TaskQueueVersionSelection
TaskQueueVersionSelection
(Vector Text)
(Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueVersionSelection -> Vector Text
_TaskQueueVersionSelection'buildIds
(\ TaskQueueVersionSelection
x__ Vector Text
y__ -> TaskQueueVersionSelection
x__ {_TaskQueueVersionSelection'buildIds = y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskQueueVersionSelection "unversioned" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "unversioned"
-> (Bool -> f Bool)
-> TaskQueueVersionSelection
-> f TaskQueueVersionSelection
fieldOf Proxy# "unversioned"
_
= ((Bool -> f Bool)
-> TaskQueueVersionSelection -> f TaskQueueVersionSelection)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> TaskQueueVersionSelection
-> f TaskQueueVersionSelection
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueVersionSelection -> Bool)
-> (TaskQueueVersionSelection -> Bool -> TaskQueueVersionSelection)
-> Lens
TaskQueueVersionSelection TaskQueueVersionSelection Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueVersionSelection -> Bool
_TaskQueueVersionSelection'unversioned
(\ TaskQueueVersionSelection
x__ Bool
y__ -> TaskQueueVersionSelection
x__ {_TaskQueueVersionSelection'unversioned = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TaskQueueVersionSelection "allActive" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "allActive"
-> (Bool -> f Bool)
-> TaskQueueVersionSelection
-> f TaskQueueVersionSelection
fieldOf Proxy# "allActive"
_
= ((Bool -> f Bool)
-> TaskQueueVersionSelection -> f TaskQueueVersionSelection)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> TaskQueueVersionSelection
-> f TaskQueueVersionSelection
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TaskQueueVersionSelection -> Bool)
-> (TaskQueueVersionSelection -> Bool -> TaskQueueVersionSelection)
-> Lens
TaskQueueVersionSelection TaskQueueVersionSelection Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueVersionSelection -> Bool
_TaskQueueVersionSelection'allActive
(\ TaskQueueVersionSelection
x__ Bool
y__ -> TaskQueueVersionSelection
x__ {_TaskQueueVersionSelection'allActive = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TaskQueueVersionSelection where
messageName :: Proxy TaskQueueVersionSelection -> Text
messageName Proxy TaskQueueVersionSelection
_
= String -> Text
Data.Text.pack
String
"temporal.api.taskqueue.v1.TaskQueueVersionSelection"
packedMessageDescriptor :: Proxy TaskQueueVersionSelection -> ByteString
packedMessageDescriptor Proxy TaskQueueVersionSelection
_
= ByteString
"\n\
\\EMTaskQueueVersionSelection\DC2\ESC\n\
\\tbuild_ids\CAN\SOH \ETX(\tR\bbuildIds\DC2 \n\
\\vunversioned\CAN\STX \SOH(\bR\vunversioned\DC2\GS\n\
\\n\
\all_active\CAN\ETX \SOH(\bR\tallActive"
packedFileDescriptor :: Proxy TaskQueueVersionSelection -> ByteString
packedFileDescriptor Proxy TaskQueueVersionSelection
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TaskQueueVersionSelection)
fieldsByTag
= let
buildIds__field_descriptor :: FieldDescriptor TaskQueueVersionSelection
buildIds__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TaskQueueVersionSelection Text
-> FieldDescriptor TaskQueueVersionSelection
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"build_ids"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Packing
-> Lens' TaskQueueVersionSelection [Text]
-> FieldAccessor TaskQueueVersionSelection Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"buildIds")) ::
Data.ProtoLens.FieldDescriptor TaskQueueVersionSelection
unversioned__field_descriptor :: FieldDescriptor TaskQueueVersionSelection
unversioned__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor TaskQueueVersionSelection Bool
-> FieldDescriptor TaskQueueVersionSelection
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"unversioned"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens
TaskQueueVersionSelection TaskQueueVersionSelection Bool Bool
-> FieldAccessor TaskQueueVersionSelection Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"unversioned")) ::
Data.ProtoLens.FieldDescriptor TaskQueueVersionSelection
allActive__field_descriptor :: FieldDescriptor TaskQueueVersionSelection
allActive__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor TaskQueueVersionSelection Bool
-> FieldDescriptor TaskQueueVersionSelection
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"all_active"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens
TaskQueueVersionSelection TaskQueueVersionSelection Bool Bool
-> FieldAccessor TaskQueueVersionSelection Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allActive")) ::
Data.ProtoLens.FieldDescriptor TaskQueueVersionSelection
in
[(Tag, FieldDescriptor TaskQueueVersionSelection)]
-> Map Tag (FieldDescriptor TaskQueueVersionSelection)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TaskQueueVersionSelection
buildIds__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TaskQueueVersionSelection
unversioned__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor TaskQueueVersionSelection
allActive__field_descriptor)]
unknownFields :: Lens' TaskQueueVersionSelection FieldSet
unknownFields
= (TaskQueueVersionSelection -> FieldSet)
-> (TaskQueueVersionSelection
-> FieldSet -> TaskQueueVersionSelection)
-> Lens' TaskQueueVersionSelection FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TaskQueueVersionSelection -> FieldSet
_TaskQueueVersionSelection'_unknownFields
(\ TaskQueueVersionSelection
x__ FieldSet
y__
-> TaskQueueVersionSelection
x__ {_TaskQueueVersionSelection'_unknownFields = y__})
defMessage :: TaskQueueVersionSelection
defMessage
= TaskQueueVersionSelection'_constructor
{_TaskQueueVersionSelection'buildIds :: Vector Text
_TaskQueueVersionSelection'buildIds = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TaskQueueVersionSelection'unversioned :: Bool
_TaskQueueVersionSelection'unversioned = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueueVersionSelection'allActive :: Bool
_TaskQueueVersionSelection'allActive = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TaskQueueVersionSelection'_unknownFields :: FieldSet
_TaskQueueVersionSelection'_unknownFields = []}
parseMessage :: Parser TaskQueueVersionSelection
parseMessage
= let
loop ::
TaskQueueVersionSelection
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Bytes.Parser TaskQueueVersionSelection
loop :: TaskQueueVersionSelection
-> Growing Vector RealWorld Text
-> Parser TaskQueueVersionSelection
loop TaskQueueVersionSelection
x Growing Vector RealWorld Text
mutable'buildIds
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'buildIds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'buildIds)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'buildIds") frozen'buildIds x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do !y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"build_ids"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'buildIds y)
loop x v
Word64
16
-> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"unversioned"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"unversioned") y x)
mutable'buildIds
Word64
24
-> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"all_active"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"allActive") y x)
mutable'buildIds
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
mutable'buildIds
in
Parser TaskQueueVersionSelection
-> String -> Parser TaskQueueVersionSelection
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'buildIds <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Text)
IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'buildIds)
String
"TaskQueueVersionSelection"
buildMessage :: TaskQueueVersionSelection -> Builder
buildMessage
= \ TaskQueueVersionSelection
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ 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))
(FoldLike
(Vector Text)
TaskQueueVersionSelection
TaskQueueVersionSelection
(Vector Text)
(Vector Text)
-> TaskQueueVersionSelection -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'buildIds") TaskQueueVersionSelection
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike
Bool TaskQueueVersionSelection TaskQueueVersionSelection Bool Bool
-> TaskQueueVersionSelection -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"unversioned") TaskQueueVersionSelection
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
Bool
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v = FoldLike
Bool TaskQueueVersionSelection TaskQueueVersionSelection Bool Bool
-> TaskQueueVersionSelection -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allActive") TaskQueueVersionSelection
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
Bool
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
TaskQueueVersionSelection
TaskQueueVersionSelection
FieldSet
FieldSet
-> TaskQueueVersionSelection -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TaskQueueVersionSelection
TaskQueueVersionSelection
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TaskQueueVersionSelection FieldSet
Data.ProtoLens.unknownFields TaskQueueVersionSelection
_x))))
instance Control.DeepSeq.NFData TaskQueueVersionSelection where
rnf :: TaskQueueVersionSelection -> ()
rnf
= \ TaskQueueVersionSelection
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueVersionSelection -> FieldSet
_TaskQueueVersionSelection'_unknownFields TaskQueueVersionSelection
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueVersionSelection -> Vector Text
_TaskQueueVersionSelection'buildIds TaskQueueVersionSelection
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueVersionSelection -> Bool
_TaskQueueVersionSelection'unversioned TaskQueueVersionSelection
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TaskQueueVersionSelection -> Bool
_TaskQueueVersionSelection'allActive TaskQueueVersionSelection
x__) ())))
data TimestampedBuildIdAssignmentRule
= TimestampedBuildIdAssignmentRule'_constructor {TimestampedBuildIdAssignmentRule -> Maybe BuildIdAssignmentRule
_TimestampedBuildIdAssignmentRule'rule :: !(Prelude.Maybe BuildIdAssignmentRule),
TimestampedBuildIdAssignmentRule -> Maybe Timestamp
_TimestampedBuildIdAssignmentRule'createTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
TimestampedBuildIdAssignmentRule -> FieldSet
_TimestampedBuildIdAssignmentRule'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
(TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool)
-> (TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool)
-> Eq TimestampedBuildIdAssignmentRule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
== :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
$c/= :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
/= :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
Prelude.Eq, Eq TimestampedBuildIdAssignmentRule
Eq TimestampedBuildIdAssignmentRule =>
(TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Ordering)
-> (TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool)
-> (TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool)
-> (TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool)
-> (TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool)
-> (TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule)
-> (TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule)
-> Ord TimestampedBuildIdAssignmentRule
TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Ordering
TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule
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
$ccompare :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Ordering
compare :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Ordering
$c< :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
< :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
$c<= :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
<= :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
$c> :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
> :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
$c>= :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
>= :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule -> Bool
$cmax :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule
max :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule
$cmin :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule
min :: TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule
-> TimestampedBuildIdAssignmentRule
Prelude.Ord)
instance Prelude.Show TimestampedBuildIdAssignmentRule where
showsPrec :: Int -> TimestampedBuildIdAssignmentRule -> ShowS
showsPrec Int
_ TimestampedBuildIdAssignmentRule
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TimestampedBuildIdAssignmentRule -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TimestampedBuildIdAssignmentRule
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TimestampedBuildIdAssignmentRule "rule" BuildIdAssignmentRule where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rule"
-> (BuildIdAssignmentRule -> f BuildIdAssignmentRule)
-> TimestampedBuildIdAssignmentRule
-> f TimestampedBuildIdAssignmentRule
fieldOf Proxy# "rule"
_
= ((Maybe BuildIdAssignmentRule -> f (Maybe BuildIdAssignmentRule))
-> TimestampedBuildIdAssignmentRule
-> f TimestampedBuildIdAssignmentRule)
-> ((BuildIdAssignmentRule -> f BuildIdAssignmentRule)
-> Maybe BuildIdAssignmentRule -> f (Maybe BuildIdAssignmentRule))
-> (BuildIdAssignmentRule -> f BuildIdAssignmentRule)
-> TimestampedBuildIdAssignmentRule
-> f TimestampedBuildIdAssignmentRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TimestampedBuildIdAssignmentRule -> Maybe BuildIdAssignmentRule)
-> (TimestampedBuildIdAssignmentRule
-> Maybe BuildIdAssignmentRule -> TimestampedBuildIdAssignmentRule)
-> Lens
TimestampedBuildIdAssignmentRule
TimestampedBuildIdAssignmentRule
(Maybe BuildIdAssignmentRule)
(Maybe BuildIdAssignmentRule)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimestampedBuildIdAssignmentRule -> Maybe BuildIdAssignmentRule
_TimestampedBuildIdAssignmentRule'rule
(\ TimestampedBuildIdAssignmentRule
x__ Maybe BuildIdAssignmentRule
y__ -> TimestampedBuildIdAssignmentRule
x__ {_TimestampedBuildIdAssignmentRule'rule = y__}))
(BuildIdAssignmentRule
-> Lens' (Maybe BuildIdAssignmentRule) BuildIdAssignmentRule
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens BuildIdAssignmentRule
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TimestampedBuildIdAssignmentRule "maybe'rule" (Prelude.Maybe BuildIdAssignmentRule) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'rule"
-> (Maybe BuildIdAssignmentRule -> f (Maybe BuildIdAssignmentRule))
-> TimestampedBuildIdAssignmentRule
-> f TimestampedBuildIdAssignmentRule
fieldOf Proxy# "maybe'rule"
_
= ((Maybe BuildIdAssignmentRule -> f (Maybe BuildIdAssignmentRule))
-> TimestampedBuildIdAssignmentRule
-> f TimestampedBuildIdAssignmentRule)
-> ((Maybe BuildIdAssignmentRule
-> f (Maybe BuildIdAssignmentRule))
-> Maybe BuildIdAssignmentRule -> f (Maybe BuildIdAssignmentRule))
-> (Maybe BuildIdAssignmentRule -> f (Maybe BuildIdAssignmentRule))
-> TimestampedBuildIdAssignmentRule
-> f TimestampedBuildIdAssignmentRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TimestampedBuildIdAssignmentRule -> Maybe BuildIdAssignmentRule)
-> (TimestampedBuildIdAssignmentRule
-> Maybe BuildIdAssignmentRule -> TimestampedBuildIdAssignmentRule)
-> Lens
TimestampedBuildIdAssignmentRule
TimestampedBuildIdAssignmentRule
(Maybe BuildIdAssignmentRule)
(Maybe BuildIdAssignmentRule)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimestampedBuildIdAssignmentRule -> Maybe BuildIdAssignmentRule
_TimestampedBuildIdAssignmentRule'rule
(\ TimestampedBuildIdAssignmentRule
x__ Maybe BuildIdAssignmentRule
y__ -> TimestampedBuildIdAssignmentRule
x__ {_TimestampedBuildIdAssignmentRule'rule = y__}))
(Maybe BuildIdAssignmentRule -> f (Maybe BuildIdAssignmentRule))
-> Maybe BuildIdAssignmentRule -> f (Maybe BuildIdAssignmentRule)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TimestampedBuildIdAssignmentRule "createTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "createTime"
-> (Timestamp -> f Timestamp)
-> TimestampedBuildIdAssignmentRule
-> f TimestampedBuildIdAssignmentRule
fieldOf Proxy# "createTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> TimestampedBuildIdAssignmentRule
-> f TimestampedBuildIdAssignmentRule)
-> ((Timestamp -> f Timestamp)
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> TimestampedBuildIdAssignmentRule
-> f TimestampedBuildIdAssignmentRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TimestampedBuildIdAssignmentRule -> Maybe Timestamp)
-> (TimestampedBuildIdAssignmentRule
-> Maybe Timestamp -> TimestampedBuildIdAssignmentRule)
-> Lens
TimestampedBuildIdAssignmentRule
TimestampedBuildIdAssignmentRule
(Maybe Timestamp)
(Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimestampedBuildIdAssignmentRule -> Maybe Timestamp
_TimestampedBuildIdAssignmentRule'createTime
(\ TimestampedBuildIdAssignmentRule
x__ Maybe Timestamp
y__
-> TimestampedBuildIdAssignmentRule
x__ {_TimestampedBuildIdAssignmentRule'createTime = y__}))
(Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TimestampedBuildIdAssignmentRule "maybe'createTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'createTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> TimestampedBuildIdAssignmentRule
-> f TimestampedBuildIdAssignmentRule
fieldOf Proxy# "maybe'createTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> TimestampedBuildIdAssignmentRule
-> f TimestampedBuildIdAssignmentRule)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> TimestampedBuildIdAssignmentRule
-> f TimestampedBuildIdAssignmentRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TimestampedBuildIdAssignmentRule -> Maybe Timestamp)
-> (TimestampedBuildIdAssignmentRule
-> Maybe Timestamp -> TimestampedBuildIdAssignmentRule)
-> Lens
TimestampedBuildIdAssignmentRule
TimestampedBuildIdAssignmentRule
(Maybe Timestamp)
(Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimestampedBuildIdAssignmentRule -> Maybe Timestamp
_TimestampedBuildIdAssignmentRule'createTime
(\ TimestampedBuildIdAssignmentRule
x__ Maybe Timestamp
y__
-> TimestampedBuildIdAssignmentRule
x__ {_TimestampedBuildIdAssignmentRule'createTime = y__}))
(Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TimestampedBuildIdAssignmentRule where
messageName :: Proxy TimestampedBuildIdAssignmentRule -> Text
messageName Proxy TimestampedBuildIdAssignmentRule
_
= String -> Text
Data.Text.pack
String
"temporal.api.taskqueue.v1.TimestampedBuildIdAssignmentRule"
packedMessageDescriptor :: Proxy TimestampedBuildIdAssignmentRule -> ByteString
packedMessageDescriptor Proxy TimestampedBuildIdAssignmentRule
_
= ByteString
"\n\
\ TimestampedBuildIdAssignmentRule\DC2D\n\
\\EOTrule\CAN\SOH \SOH(\v20.temporal.api.taskqueue.v1.BuildIdAssignmentRuleR\EOTrule\DC2;\n\
\\vcreate_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\n\
\createTime"
packedFileDescriptor :: Proxy TimestampedBuildIdAssignmentRule -> ByteString
packedFileDescriptor Proxy TimestampedBuildIdAssignmentRule
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TimestampedBuildIdAssignmentRule)
fieldsByTag
= let
rule__field_descriptor :: FieldDescriptor TimestampedBuildIdAssignmentRule
rule__field_descriptor
= String
-> FieldTypeDescriptor BuildIdAssignmentRule
-> FieldAccessor
TimestampedBuildIdAssignmentRule BuildIdAssignmentRule
-> FieldDescriptor TimestampedBuildIdAssignmentRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"rule"
(MessageOrGroup -> FieldTypeDescriptor BuildIdAssignmentRule
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor BuildIdAssignmentRule)
(Lens
TimestampedBuildIdAssignmentRule
TimestampedBuildIdAssignmentRule
(Maybe BuildIdAssignmentRule)
(Maybe BuildIdAssignmentRule)
-> FieldAccessor
TimestampedBuildIdAssignmentRule BuildIdAssignmentRule
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'rule")) ::
Data.ProtoLens.FieldDescriptor TimestampedBuildIdAssignmentRule
createTime__field_descriptor :: FieldDescriptor TimestampedBuildIdAssignmentRule
createTime__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor TimestampedBuildIdAssignmentRule Timestamp
-> FieldDescriptor TimestampedBuildIdAssignmentRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"create_time"
(MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
(Lens
TimestampedBuildIdAssignmentRule
TimestampedBuildIdAssignmentRule
(Maybe Timestamp)
(Maybe Timestamp)
-> FieldAccessor TimestampedBuildIdAssignmentRule Timestamp
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'createTime")) ::
Data.ProtoLens.FieldDescriptor TimestampedBuildIdAssignmentRule
in
[(Tag, FieldDescriptor TimestampedBuildIdAssignmentRule)]
-> Map Tag (FieldDescriptor TimestampedBuildIdAssignmentRule)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TimestampedBuildIdAssignmentRule
rule__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TimestampedBuildIdAssignmentRule
createTime__field_descriptor)]
unknownFields :: Lens' TimestampedBuildIdAssignmentRule FieldSet
unknownFields
= (TimestampedBuildIdAssignmentRule -> FieldSet)
-> (TimestampedBuildIdAssignmentRule
-> FieldSet -> TimestampedBuildIdAssignmentRule)
-> Lens' TimestampedBuildIdAssignmentRule FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimestampedBuildIdAssignmentRule -> FieldSet
_TimestampedBuildIdAssignmentRule'_unknownFields
(\ TimestampedBuildIdAssignmentRule
x__ FieldSet
y__
-> TimestampedBuildIdAssignmentRule
x__ {_TimestampedBuildIdAssignmentRule'_unknownFields = y__})
defMessage :: TimestampedBuildIdAssignmentRule
defMessage
= TimestampedBuildIdAssignmentRule'_constructor
{_TimestampedBuildIdAssignmentRule'rule :: Maybe BuildIdAssignmentRule
_TimestampedBuildIdAssignmentRule'rule = Maybe BuildIdAssignmentRule
forall a. Maybe a
Prelude.Nothing,
_TimestampedBuildIdAssignmentRule'createTime :: Maybe Timestamp
_TimestampedBuildIdAssignmentRule'createTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
_TimestampedBuildIdAssignmentRule'_unknownFields :: FieldSet
_TimestampedBuildIdAssignmentRule'_unknownFields = []}
parseMessage :: Parser TimestampedBuildIdAssignmentRule
parseMessage
= let
loop ::
TimestampedBuildIdAssignmentRule
-> Data.ProtoLens.Encoding.Bytes.Parser TimestampedBuildIdAssignmentRule
loop :: TimestampedBuildIdAssignmentRule
-> Parser TimestampedBuildIdAssignmentRule
loop TimestampedBuildIdAssignmentRule
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser BuildIdAssignmentRule
-> String -> Parser BuildIdAssignmentRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"rule"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"rule") y x)
Word64
18
-> do y <- Parser Timestamp -> String -> Parser Timestamp
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"create_time"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"createTime") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser TimestampedBuildIdAssignmentRule
-> String -> Parser TimestampedBuildIdAssignmentRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TimestampedBuildIdAssignmentRule
-> Parser TimestampedBuildIdAssignmentRule
loop TimestampedBuildIdAssignmentRule
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"TimestampedBuildIdAssignmentRule"
buildMessage :: TimestampedBuildIdAssignmentRule -> Builder
buildMessage
= \ TimestampedBuildIdAssignmentRule
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe BuildIdAssignmentRule)
TimestampedBuildIdAssignmentRule
TimestampedBuildIdAssignmentRule
(Maybe BuildIdAssignmentRule)
(Maybe BuildIdAssignmentRule)
-> TimestampedBuildIdAssignmentRule -> Maybe BuildIdAssignmentRule
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'rule") TimestampedBuildIdAssignmentRule
_x
of
Maybe BuildIdAssignmentRule
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just BuildIdAssignmentRule
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (BuildIdAssignmentRule -> ByteString)
-> BuildIdAssignmentRule
-> 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))
BuildIdAssignmentRule -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage BuildIdAssignmentRule
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Timestamp)
TimestampedBuildIdAssignmentRule
TimestampedBuildIdAssignmentRule
(Maybe Timestamp)
(Maybe Timestamp)
-> TimestampedBuildIdAssignmentRule -> Maybe Timestamp
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'createTime") TimestampedBuildIdAssignmentRule
_x
of
Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Timestamp
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> 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))
Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
TimestampedBuildIdAssignmentRule
TimestampedBuildIdAssignmentRule
FieldSet
FieldSet
-> TimestampedBuildIdAssignmentRule -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TimestampedBuildIdAssignmentRule
TimestampedBuildIdAssignmentRule
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TimestampedBuildIdAssignmentRule FieldSet
Data.ProtoLens.unknownFields TimestampedBuildIdAssignmentRule
_x)))
instance Control.DeepSeq.NFData TimestampedBuildIdAssignmentRule where
rnf :: TimestampedBuildIdAssignmentRule -> ()
rnf
= \ TimestampedBuildIdAssignmentRule
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TimestampedBuildIdAssignmentRule -> FieldSet
_TimestampedBuildIdAssignmentRule'_unknownFields TimestampedBuildIdAssignmentRule
x__)
(Maybe BuildIdAssignmentRule -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TimestampedBuildIdAssignmentRule -> Maybe BuildIdAssignmentRule
_TimestampedBuildIdAssignmentRule'rule TimestampedBuildIdAssignmentRule
x__)
(Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TimestampedBuildIdAssignmentRule -> Maybe Timestamp
_TimestampedBuildIdAssignmentRule'createTime TimestampedBuildIdAssignmentRule
x__) ()))
data TimestampedCompatibleBuildIdRedirectRule
= TimestampedCompatibleBuildIdRedirectRule'_constructor {TimestampedCompatibleBuildIdRedirectRule
-> Maybe CompatibleBuildIdRedirectRule
_TimestampedCompatibleBuildIdRedirectRule'rule :: !(Prelude.Maybe CompatibleBuildIdRedirectRule),
TimestampedCompatibleBuildIdRedirectRule -> Maybe Timestamp
_TimestampedCompatibleBuildIdRedirectRule'createTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
TimestampedCompatibleBuildIdRedirectRule -> FieldSet
_TimestampedCompatibleBuildIdRedirectRule'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
(TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool)
-> (TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool)
-> Eq TimestampedCompatibleBuildIdRedirectRule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
== :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
$c/= :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
/= :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
Prelude.Eq, Eq TimestampedCompatibleBuildIdRedirectRule
Eq TimestampedCompatibleBuildIdRedirectRule =>
(TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Ordering)
-> (TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool)
-> (TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool)
-> (TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool)
-> (TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool)
-> (TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule)
-> (TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule)
-> Ord TimestampedCompatibleBuildIdRedirectRule
TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Ordering
TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule
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
$ccompare :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Ordering
compare :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Ordering
$c< :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
< :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
$c<= :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
<= :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
$c> :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
> :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
$c>= :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
>= :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule -> Bool
$cmax :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule
max :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule
$cmin :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule
min :: TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule
Prelude.Ord)
instance Prelude.Show TimestampedCompatibleBuildIdRedirectRule where
showsPrec :: Int -> TimestampedCompatibleBuildIdRedirectRule -> ShowS
showsPrec Int
_ TimestampedCompatibleBuildIdRedirectRule
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TimestampedCompatibleBuildIdRedirectRule -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TimestampedCompatibleBuildIdRedirectRule
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TimestampedCompatibleBuildIdRedirectRule "rule" CompatibleBuildIdRedirectRule where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rule"
-> (CompatibleBuildIdRedirectRule
-> f CompatibleBuildIdRedirectRule)
-> TimestampedCompatibleBuildIdRedirectRule
-> f TimestampedCompatibleBuildIdRedirectRule
fieldOf Proxy# "rule"
_
= ((Maybe CompatibleBuildIdRedirectRule
-> f (Maybe CompatibleBuildIdRedirectRule))
-> TimestampedCompatibleBuildIdRedirectRule
-> f TimestampedCompatibleBuildIdRedirectRule)
-> ((CompatibleBuildIdRedirectRule
-> f CompatibleBuildIdRedirectRule)
-> Maybe CompatibleBuildIdRedirectRule
-> f (Maybe CompatibleBuildIdRedirectRule))
-> (CompatibleBuildIdRedirectRule
-> f CompatibleBuildIdRedirectRule)
-> TimestampedCompatibleBuildIdRedirectRule
-> f TimestampedCompatibleBuildIdRedirectRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TimestampedCompatibleBuildIdRedirectRule
-> Maybe CompatibleBuildIdRedirectRule)
-> (TimestampedCompatibleBuildIdRedirectRule
-> Maybe CompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule)
-> Lens
TimestampedCompatibleBuildIdRedirectRule
TimestampedCompatibleBuildIdRedirectRule
(Maybe CompatibleBuildIdRedirectRule)
(Maybe CompatibleBuildIdRedirectRule)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimestampedCompatibleBuildIdRedirectRule
-> Maybe CompatibleBuildIdRedirectRule
_TimestampedCompatibleBuildIdRedirectRule'rule
(\ TimestampedCompatibleBuildIdRedirectRule
x__ Maybe CompatibleBuildIdRedirectRule
y__
-> TimestampedCompatibleBuildIdRedirectRule
x__ {_TimestampedCompatibleBuildIdRedirectRule'rule = y__}))
(CompatibleBuildIdRedirectRule
-> Lens'
(Maybe CompatibleBuildIdRedirectRule) CompatibleBuildIdRedirectRule
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CompatibleBuildIdRedirectRule
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TimestampedCompatibleBuildIdRedirectRule "maybe'rule" (Prelude.Maybe CompatibleBuildIdRedirectRule) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'rule"
-> (Maybe CompatibleBuildIdRedirectRule
-> f (Maybe CompatibleBuildIdRedirectRule))
-> TimestampedCompatibleBuildIdRedirectRule
-> f TimestampedCompatibleBuildIdRedirectRule
fieldOf Proxy# "maybe'rule"
_
= ((Maybe CompatibleBuildIdRedirectRule
-> f (Maybe CompatibleBuildIdRedirectRule))
-> TimestampedCompatibleBuildIdRedirectRule
-> f TimestampedCompatibleBuildIdRedirectRule)
-> ((Maybe CompatibleBuildIdRedirectRule
-> f (Maybe CompatibleBuildIdRedirectRule))
-> Maybe CompatibleBuildIdRedirectRule
-> f (Maybe CompatibleBuildIdRedirectRule))
-> (Maybe CompatibleBuildIdRedirectRule
-> f (Maybe CompatibleBuildIdRedirectRule))
-> TimestampedCompatibleBuildIdRedirectRule
-> f TimestampedCompatibleBuildIdRedirectRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TimestampedCompatibleBuildIdRedirectRule
-> Maybe CompatibleBuildIdRedirectRule)
-> (TimestampedCompatibleBuildIdRedirectRule
-> Maybe CompatibleBuildIdRedirectRule
-> TimestampedCompatibleBuildIdRedirectRule)
-> Lens
TimestampedCompatibleBuildIdRedirectRule
TimestampedCompatibleBuildIdRedirectRule
(Maybe CompatibleBuildIdRedirectRule)
(Maybe CompatibleBuildIdRedirectRule)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimestampedCompatibleBuildIdRedirectRule
-> Maybe CompatibleBuildIdRedirectRule
_TimestampedCompatibleBuildIdRedirectRule'rule
(\ TimestampedCompatibleBuildIdRedirectRule
x__ Maybe CompatibleBuildIdRedirectRule
y__
-> TimestampedCompatibleBuildIdRedirectRule
x__ {_TimestampedCompatibleBuildIdRedirectRule'rule = y__}))
(Maybe CompatibleBuildIdRedirectRule
-> f (Maybe CompatibleBuildIdRedirectRule))
-> Maybe CompatibleBuildIdRedirectRule
-> f (Maybe CompatibleBuildIdRedirectRule)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TimestampedCompatibleBuildIdRedirectRule "createTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "createTime"
-> (Timestamp -> f Timestamp)
-> TimestampedCompatibleBuildIdRedirectRule
-> f TimestampedCompatibleBuildIdRedirectRule
fieldOf Proxy# "createTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> TimestampedCompatibleBuildIdRedirectRule
-> f TimestampedCompatibleBuildIdRedirectRule)
-> ((Timestamp -> f Timestamp)
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> TimestampedCompatibleBuildIdRedirectRule
-> f TimestampedCompatibleBuildIdRedirectRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TimestampedCompatibleBuildIdRedirectRule -> Maybe Timestamp)
-> (TimestampedCompatibleBuildIdRedirectRule
-> Maybe Timestamp -> TimestampedCompatibleBuildIdRedirectRule)
-> Lens
TimestampedCompatibleBuildIdRedirectRule
TimestampedCompatibleBuildIdRedirectRule
(Maybe Timestamp)
(Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimestampedCompatibleBuildIdRedirectRule -> Maybe Timestamp
_TimestampedCompatibleBuildIdRedirectRule'createTime
(\ TimestampedCompatibleBuildIdRedirectRule
x__ Maybe Timestamp
y__
-> TimestampedCompatibleBuildIdRedirectRule
x__
{_TimestampedCompatibleBuildIdRedirectRule'createTime = y__}))
(Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TimestampedCompatibleBuildIdRedirectRule "maybe'createTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'createTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> TimestampedCompatibleBuildIdRedirectRule
-> f TimestampedCompatibleBuildIdRedirectRule
fieldOf Proxy# "maybe'createTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> TimestampedCompatibleBuildIdRedirectRule
-> f TimestampedCompatibleBuildIdRedirectRule)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> TimestampedCompatibleBuildIdRedirectRule
-> f TimestampedCompatibleBuildIdRedirectRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TimestampedCompatibleBuildIdRedirectRule -> Maybe Timestamp)
-> (TimestampedCompatibleBuildIdRedirectRule
-> Maybe Timestamp -> TimestampedCompatibleBuildIdRedirectRule)
-> Lens
TimestampedCompatibleBuildIdRedirectRule
TimestampedCompatibleBuildIdRedirectRule
(Maybe Timestamp)
(Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimestampedCompatibleBuildIdRedirectRule -> Maybe Timestamp
_TimestampedCompatibleBuildIdRedirectRule'createTime
(\ TimestampedCompatibleBuildIdRedirectRule
x__ Maybe Timestamp
y__
-> TimestampedCompatibleBuildIdRedirectRule
x__
{_TimestampedCompatibleBuildIdRedirectRule'createTime = y__}))
(Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TimestampedCompatibleBuildIdRedirectRule where
messageName :: Proxy TimestampedCompatibleBuildIdRedirectRule -> Text
messageName Proxy TimestampedCompatibleBuildIdRedirectRule
_
= String -> Text
Data.Text.pack
String
"temporal.api.taskqueue.v1.TimestampedCompatibleBuildIdRedirectRule"
packedMessageDescriptor :: Proxy TimestampedCompatibleBuildIdRedirectRule -> ByteString
packedMessageDescriptor Proxy TimestampedCompatibleBuildIdRedirectRule
_
= ByteString
"\n\
\(TimestampedCompatibleBuildIdRedirectRule\DC2L\n\
\\EOTrule\CAN\SOH \SOH(\v28.temporal.api.taskqueue.v1.CompatibleBuildIdRedirectRuleR\EOTrule\DC2;\n\
\\vcreate_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\n\
\createTime"
packedFileDescriptor :: Proxy TimestampedCompatibleBuildIdRedirectRule -> ByteString
packedFileDescriptor Proxy TimestampedCompatibleBuildIdRedirectRule
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TimestampedCompatibleBuildIdRedirectRule)
fieldsByTag
= let
rule__field_descriptor :: FieldDescriptor TimestampedCompatibleBuildIdRedirectRule
rule__field_descriptor
= String
-> FieldTypeDescriptor CompatibleBuildIdRedirectRule
-> FieldAccessor
TimestampedCompatibleBuildIdRedirectRule
CompatibleBuildIdRedirectRule
-> FieldDescriptor TimestampedCompatibleBuildIdRedirectRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"rule"
(MessageOrGroup -> FieldTypeDescriptor CompatibleBuildIdRedirectRule
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CompatibleBuildIdRedirectRule)
(Lens
TimestampedCompatibleBuildIdRedirectRule
TimestampedCompatibleBuildIdRedirectRule
(Maybe CompatibleBuildIdRedirectRule)
(Maybe CompatibleBuildIdRedirectRule)
-> FieldAccessor
TimestampedCompatibleBuildIdRedirectRule
CompatibleBuildIdRedirectRule
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'rule")) ::
Data.ProtoLens.FieldDescriptor TimestampedCompatibleBuildIdRedirectRule
createTime__field_descriptor :: FieldDescriptor TimestampedCompatibleBuildIdRedirectRule
createTime__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor TimestampedCompatibleBuildIdRedirectRule Timestamp
-> FieldDescriptor TimestampedCompatibleBuildIdRedirectRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"create_time"
(MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
(Lens
TimestampedCompatibleBuildIdRedirectRule
TimestampedCompatibleBuildIdRedirectRule
(Maybe Timestamp)
(Maybe Timestamp)
-> FieldAccessor TimestampedCompatibleBuildIdRedirectRule Timestamp
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'createTime")) ::
Data.ProtoLens.FieldDescriptor TimestampedCompatibleBuildIdRedirectRule
in
[(Tag, FieldDescriptor TimestampedCompatibleBuildIdRedirectRule)]
-> Map
Tag (FieldDescriptor TimestampedCompatibleBuildIdRedirectRule)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TimestampedCompatibleBuildIdRedirectRule
rule__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TimestampedCompatibleBuildIdRedirectRule
createTime__field_descriptor)]
unknownFields :: Lens' TimestampedCompatibleBuildIdRedirectRule FieldSet
unknownFields
= (TimestampedCompatibleBuildIdRedirectRule -> FieldSet)
-> (TimestampedCompatibleBuildIdRedirectRule
-> FieldSet -> TimestampedCompatibleBuildIdRedirectRule)
-> Lens' TimestampedCompatibleBuildIdRedirectRule FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimestampedCompatibleBuildIdRedirectRule -> FieldSet
_TimestampedCompatibleBuildIdRedirectRule'_unknownFields
(\ TimestampedCompatibleBuildIdRedirectRule
x__ FieldSet
y__
-> TimestampedCompatibleBuildIdRedirectRule
x__
{_TimestampedCompatibleBuildIdRedirectRule'_unknownFields = y__})
defMessage :: TimestampedCompatibleBuildIdRedirectRule
defMessage
= TimestampedCompatibleBuildIdRedirectRule'_constructor
{_TimestampedCompatibleBuildIdRedirectRule'rule :: Maybe CompatibleBuildIdRedirectRule
_TimestampedCompatibleBuildIdRedirectRule'rule = Maybe CompatibleBuildIdRedirectRule
forall a. Maybe a
Prelude.Nothing,
_TimestampedCompatibleBuildIdRedirectRule'createTime :: Maybe Timestamp
_TimestampedCompatibleBuildIdRedirectRule'createTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
_TimestampedCompatibleBuildIdRedirectRule'_unknownFields :: FieldSet
_TimestampedCompatibleBuildIdRedirectRule'_unknownFields = []}
parseMessage :: Parser TimestampedCompatibleBuildIdRedirectRule
parseMessage
= let
loop ::
TimestampedCompatibleBuildIdRedirectRule
-> Data.ProtoLens.Encoding.Bytes.Parser TimestampedCompatibleBuildIdRedirectRule
loop :: TimestampedCompatibleBuildIdRedirectRule
-> Parser TimestampedCompatibleBuildIdRedirectRule
loop TimestampedCompatibleBuildIdRedirectRule
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser CompatibleBuildIdRedirectRule
-> String -> Parser CompatibleBuildIdRedirectRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"rule"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"rule") y x)
Word64
18
-> do y <- Parser Timestamp -> String -> Parser Timestamp
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"create_time"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"createTime") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser TimestampedCompatibleBuildIdRedirectRule
-> String -> Parser TimestampedCompatibleBuildIdRedirectRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TimestampedCompatibleBuildIdRedirectRule
-> Parser TimestampedCompatibleBuildIdRedirectRule
loop TimestampedCompatibleBuildIdRedirectRule
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"TimestampedCompatibleBuildIdRedirectRule"
buildMessage :: TimestampedCompatibleBuildIdRedirectRule -> Builder
buildMessage
= \ TimestampedCompatibleBuildIdRedirectRule
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe CompatibleBuildIdRedirectRule)
TimestampedCompatibleBuildIdRedirectRule
TimestampedCompatibleBuildIdRedirectRule
(Maybe CompatibleBuildIdRedirectRule)
(Maybe CompatibleBuildIdRedirectRule)
-> TimestampedCompatibleBuildIdRedirectRule
-> Maybe CompatibleBuildIdRedirectRule
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'rule") TimestampedCompatibleBuildIdRedirectRule
_x
of
Maybe CompatibleBuildIdRedirectRule
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just CompatibleBuildIdRedirectRule
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (CompatibleBuildIdRedirectRule -> ByteString)
-> CompatibleBuildIdRedirectRule
-> 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))
CompatibleBuildIdRedirectRule -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CompatibleBuildIdRedirectRule
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Timestamp)
TimestampedCompatibleBuildIdRedirectRule
TimestampedCompatibleBuildIdRedirectRule
(Maybe Timestamp)
(Maybe Timestamp)
-> TimestampedCompatibleBuildIdRedirectRule -> Maybe Timestamp
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'createTime") TimestampedCompatibleBuildIdRedirectRule
_x
of
Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Timestamp
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> 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))
Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
TimestampedCompatibleBuildIdRedirectRule
TimestampedCompatibleBuildIdRedirectRule
FieldSet
FieldSet
-> TimestampedCompatibleBuildIdRedirectRule -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TimestampedCompatibleBuildIdRedirectRule
TimestampedCompatibleBuildIdRedirectRule
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TimestampedCompatibleBuildIdRedirectRule FieldSet
Data.ProtoLens.unknownFields TimestampedCompatibleBuildIdRedirectRule
_x)))
instance Control.DeepSeq.NFData TimestampedCompatibleBuildIdRedirectRule where
rnf :: TimestampedCompatibleBuildIdRedirectRule -> ()
rnf
= \ TimestampedCompatibleBuildIdRedirectRule
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TimestampedCompatibleBuildIdRedirectRule -> FieldSet
_TimestampedCompatibleBuildIdRedirectRule'_unknownFields TimestampedCompatibleBuildIdRedirectRule
x__)
(Maybe CompatibleBuildIdRedirectRule -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TimestampedCompatibleBuildIdRedirectRule
-> Maybe CompatibleBuildIdRedirectRule
_TimestampedCompatibleBuildIdRedirectRule'rule TimestampedCompatibleBuildIdRedirectRule
x__)
(Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TimestampedCompatibleBuildIdRedirectRule -> Maybe Timestamp
_TimestampedCompatibleBuildIdRedirectRule'createTime TimestampedCompatibleBuildIdRedirectRule
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= ByteString
"\n\
\'temporal/api/taskqueue/v1/message.proto\DC2\EMtemporal.api.taskqueue.v1\SUB\RSgoogle/protobuf/duration.proto\SUB\USgoogle/protobuf/timestamp.proto\SUB\RSgoogle/protobuf/wrappers.proto\SUB&temporal/api/enums/v1/task_queue.proto\SUB$temporal/api/common/v1/message.proto\"z\n\
\\tTaskQueue\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC28\n\
\\EOTkind\CAN\STX \SOH(\SO2$.temporal.api.enums.v1.TaskQueueKindR\EOTkind\DC2\US\n\
\\vnormal_name\CAN\ETX \SOH(\tR\n\
\normalName\"b\n\
\\DC1TaskQueueMetadata\DC2M\n\
\\DC4max_tasks_per_second\CAN\SOH \SOH(\v2\FS.google.protobuf.DoubleValueR\DC1maxTasksPerSecond\"y\n\
\\EMTaskQueueVersionSelection\DC2\ESC\n\
\\tbuild_ids\CAN\SOH \ETX(\tR\bbuildIds\DC2 \n\
\\vunversioned\CAN\STX \SOH(\bR\vunversioned\DC2\GS\n\
\\n\
\all_active\CAN\ETX \SOH(\bR\tallActive\"\190\STX\n\
\\DC4TaskQueueVersionInfo\DC2]\n\
\\n\
\types_info\CAN\SOH \ETX(\v2>.temporal.api.taskqueue.v1.TaskQueueVersionInfo.TypesInfoEntryR\ttypesInfo\DC2[\n\
\\DC1task_reachability\CAN\STX \SOH(\SO2..temporal.api.enums.v1.BuildIdTaskReachabilityR\DLEtaskReachability\SUBj\n\
\\SOTypesInfoEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC2B\n\
\\ENQvalue\CAN\STX \SOH(\v2,.temporal.api.taskqueue.v1.TaskQueueTypeInfoR\ENQvalue:\STX8\SOH\"T\n\
\\DC1TaskQueueTypeInfo\DC2?\n\
\\apollers\CAN\SOH \ETX(\v2%.temporal.api.taskqueue.v1.PollerInfoR\apollers\"\239\SOH\n\
\\SITaskQueueStatus\DC2,\n\
\\DC2backlog_count_hint\CAN\SOH \SOH(\ETXR\DLEbacklogCountHint\DC2\GS\n\
\\n\
\read_level\CAN\STX \SOH(\ETXR\treadLevel\DC2\ESC\n\
\\tack_level\CAN\ETX \SOH(\ETXR\backLevel\DC2&\n\
\\SIrate_per_second\CAN\EOT \SOH(\SOHR\rratePerSecond\DC2J\n\
\\rtask_id_block\CAN\ENQ \SOH(\v2&.temporal.api.taskqueue.v1.TaskIdBlockR\vtaskIdBlock\"?\n\
\\vTaskIdBlock\DC2\EM\n\
\\bstart_id\CAN\SOH \SOH(\ETXR\astartId\DC2\NAK\n\
\\ACKend_id\CAN\STX \SOH(\ETXR\ENQendId\"V\n\
\\SUBTaskQueuePartitionMetadata\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2&\n\
\\SIowner_host_name\CAN\STX \SOH(\tR\rownerHostName\"\137\STX\n\
\\n\
\PollerInfo\DC2D\n\
\\DLElast_access_time\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\SOlastAccessTime\DC2\SUB\n\
\\bidentity\CAN\STX \SOH(\tR\bidentity\DC2&\n\
\\SIrate_per_second\CAN\ETX \SOH(\SOHR\rratePerSecond\DC2q\n\
\\ESCworker_version_capabilities\CAN\EOT \SOH(\v21.temporal.api.common.v1.WorkerVersionCapabilitiesR\EMworkerVersionCapabilities\"\195\SOH\n\
\\EMStickyExecutionAttributes\DC2P\n\
\\DC1worker_task_queue\CAN\SOH \SOH(\v2$.temporal.api.taskqueue.v1.TaskQueueR\SIworkerTaskQueue\DC2T\n\
\\EMschedule_to_start_timeout\CAN\STX \SOH(\v2\EM.google.protobuf.DurationR\SYNscheduleToStartTimeout\"3\n\
\\DC4CompatibleVersionSet\DC2\ESC\n\
\\tbuild_ids\CAN\SOH \ETX(\tR\bbuildIds\"\131\SOH\n\
\\NAKTaskQueueReachability\DC2\GS\n\
\\n\
\task_queue\CAN\SOH \SOH(\tR\ttaskQueue\DC2K\n\
\\freachability\CAN\STX \ETX(\SO2'.temporal.api.enums.v1.TaskReachabilityR\freachability\"\154\SOH\n\
\\DC3BuildIdReachability\DC2\EM\n\
\\bbuild_id\CAN\SOH \SOH(\tR\abuildId\DC2h\n\
\\ETBtask_queue_reachability\CAN\STX \ETX(\v20.temporal.api.taskqueue.v1.TaskQueueReachabilityR\NAKtaskQueueReachability\";\n\
\\DLERampByPercentage\DC2'\n\
\\SIramp_percentage\CAN\SOH \SOH(\STXR\SOrampPercentage\"\159\SOH\n\
\\NAKBuildIdAssignmentRule\DC2&\n\
\\SItarget_build_id\CAN\SOH \SOH(\tR\rtargetBuildId\DC2V\n\
\\SIpercentage_ramp\CAN\ETX \SOH(\v2+.temporal.api.taskqueue.v1.RampByPercentageH\NULR\SOpercentageRampB\ACK\n\
\\EOTramp\"o\n\
\\GSCompatibleBuildIdRedirectRule\DC2&\n\
\\SIsource_build_id\CAN\SOH \SOH(\tR\rsourceBuildId\DC2&\n\
\\SItarget_build_id\CAN\STX \SOH(\tR\rtargetBuildId\"\165\SOH\n\
\ TimestampedBuildIdAssignmentRule\DC2D\n\
\\EOTrule\CAN\SOH \SOH(\v20.temporal.api.taskqueue.v1.BuildIdAssignmentRuleR\EOTrule\DC2;\n\
\\vcreate_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\n\
\createTime\"\181\SOH\n\
\(TimestampedCompatibleBuildIdRedirectRule\DC2L\n\
\\EOTrule\CAN\SOH \SOH(\v28.temporal.api.taskqueue.v1.CompatibleBuildIdRedirectRuleR\EOTrule\DC2;\n\
\\vcreate_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\n\
\createTimeB\152\SOH\n\
\\FSio.temporal.api.taskqueue.v1B\fMessageProtoP\SOHZ)go.temporal.io/api/taskqueue/v1;taskqueue\170\STX\ESCTemporalio.Api.TaskQueue.V1\234\STX\RSTemporalio::Api::TaskQueue::V1J\237H\n\
\\a\DC2\ENQ\SYN\NUL\228\SOH\SOH\n\
\\241\b\n\
\\SOH\f\DC2\ETX\SYN\NUL\DC22\230\b The MIT License\n\
\\n\
\ Copyright (c) 2020 Temporal Technologies Inc. All rights reserved.\n\
\\n\
\ Permission is hereby granted, free of charge, to any person obtaining a copy\n\
\ of this software and associated documentation files (the \"Software\"), to deal\n\
\ in the Software without restriction, including without limitation the rights\n\
\ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell\n\
\ copies of the Software, and to permit persons to whom the Software is\n\
\ furnished to do so, subject to the following conditions:\n\
\\n\
\ The above copyright notice and this permission notice shall be included in\n\
\ all copies or substantial portions of the Software.\n\
\\n\
\ THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\n\
\ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\n\
\ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\n\
\ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\n\
\ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,\n\
\ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN\n\
\ THE SOFTWARE.\n\
\\n\
\\b\n\
\\SOH\STX\DC2\ETX\CAN\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\SUB\NUL@\n\
\\t\n\
\\STX\b\v\DC2\ETX\SUB\NUL@\n\
\\b\n\
\\SOH\b\DC2\ETX\ESC\NUL5\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\ESC\NUL5\n\
\\b\n\
\\SOH\b\DC2\ETX\FS\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\FS\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\GS\NUL-\n\
\\t\n\
\\STX\b\b\DC2\ETX\GS\NUL-\n\
\\b\n\
\\SOH\b\DC2\ETX\RS\NUL7\n\
\\t\n\
\\STX\b-\DC2\ETX\RS\NUL7\n\
\\b\n\
\\SOH\b\DC2\ETX\US\NUL8\n\
\\t\n\
\\STX\b%\DC2\ETX\US\NUL8\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX!\NUL(\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\"\NUL)\n\
\\t\n\
\\STX\ETX\STX\DC2\ETX#\NUL(\n\
\\t\n\
\\STX\ETX\ETX\DC2\ETX%\NUL0\n\
\\t\n\
\\STX\ETX\EOT\DC2\ETX&\NUL.\n\
\E\n\
\\STX\EOT\NUL\DC2\EOT)\NUL0\SOH\SUB9 See https://docs.temporal.io/docs/concepts/task-queues/\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX)\b\DC1\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX*\EOT\DC4\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX*\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX*\v\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX*\DC2\DC3\n\
\/\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX,\EOT1\SUB\" Default: TASK_QUEUE_KIND_NORMAL.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX,\EOT'\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX,(,\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX,/0\n\
\\149\SOH\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX/\EOT\ESC\SUB\135\SOH Iff kind == TASK_QUEUE_KIND_STICKY, then this field contains the name of\n\
\ the normal task queue that the sticky worker is running on.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX/\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX/\v\SYN\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX/\EM\SUB\n\
\2\n\
\\STX\EOT\SOH\DC2\EOT3\NUL6\SOH\SUB& Only applies to activity task queues\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX3\b\EM\n\
\B\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX5\EOT9\SUB5 Allows throttling dispatch of tasks from this queue\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX5\EOT\US\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX5 4\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX578\n\
\G\n\
\\STX\EOT\STX\DC2\EOT9\NULA\SOH\SUB; Used for specifying versions the caller is interested in.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX9\b!\n\
\*\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX;\EOT\"\SUB\GS Include specific Build IDs.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\EOT\DC2\ETX;\EOT\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX;\r\DC3\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX;\DC4\GS\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX; !\n\
\-\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETX=\EOT\EM\SUB Include the unversioned queue.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX=\EOT\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX=\t\DC4\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX=\ETB\CAN\n\
\v\n\
\\EOT\EOT\STX\STX\STX\DC2\ETX@\EOT\CAN\SUBi Include all active versions. A version is considered active if it has had new\n\
\ tasks or polls recently.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETX@\EOT\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX@\t\DC3\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX@\SYN\ETB\n\
\\n\
\\n\
\\STX\EOT\ETX\DC2\EOTC\NULG\SOH\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETXC\b\FS\n\
\y\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETXE\EOT1\SUBl Task Queue info per Task Type. Key is the numerical value of the temporal.api.enums.v1.TaskQueueType enum.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETXE\EOT!\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETXE\",\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETXE/0\n\
\\v\n\
\\EOT\EOT\ETX\STX\SOH\DC2\ETXF\EOTH\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ACK\DC2\ETXF\EOT1\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETXF2C\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETXFFG\n\
\\n\
\\n\
\\STX\EOT\EOT\DC2\EOTI\NULL\SOH\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETXI\b\EM\n\
\\DEL\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETXK\EOT$\SUBr Unversioned workers (with `useVersioning=false`) are reported in unversioned result even if they set a Build ID.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\EOT\DC2\ETXK\EOT\f\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETXK\r\ETB\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXK\CAN\US\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXK\"#\n\
\y\n\
\\STX\EOT\ENQ\DC2\EOTO\NULU\SOH\SUBm Deprecated. Use `InternalTaskQueueStatus`. This is kept until `DescribeTaskQueue` supports legacy behavior.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETXO\b\ETB\n\
\\v\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETXP\EOT!\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETXP\EOT\t\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXP\n\
\\FS\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXP\US \n\
\\v\n\
\\EOT\EOT\ENQ\STX\SOH\DC2\ETXQ\EOT\EM\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ENQ\DC2\ETXQ\EOT\t\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETXQ\n\
\\DC4\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETXQ\ETB\CAN\n\
\\v\n\
\\EOT\EOT\ENQ\STX\STX\DC2\ETXR\EOT\CAN\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\ENQ\DC2\ETXR\EOT\t\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETXR\n\
\\DC3\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETXR\SYN\ETB\n\
\\v\n\
\\EOT\EOT\ENQ\STX\ETX\DC2\ETXS\EOT\US\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\ENQ\DC2\ETXS\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\SOH\DC2\ETXS\v\SUB\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\ETX\DC2\ETXS\GS\RS\n\
\\v\n\
\\EOT\EOT\ENQ\STX\EOT\DC2\ETXT\EOT\"\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\EOT\ACK\DC2\ETXT\EOT\SI\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\EOT\SOH\DC2\ETXT\DLE\GS\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\EOT\ETX\DC2\ETXT !\n\
\\n\
\\n\
\\STX\EOT\ACK\DC2\EOTW\NULZ\SOH\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETXW\b\DC3\n\
\\v\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETXX\EOT\ETB\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETXX\EOT\t\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXX\n\
\\DC2\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXX\NAK\SYN\n\
\\v\n\
\\EOT\EOT\ACK\STX\SOH\DC2\ETXY\EOT\NAK\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETXY\EOT\t\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETXY\n\
\\DLE\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETXY\DC3\DC4\n\
\\n\
\\n\
\\STX\EOT\a\DC2\EOT\\\NUL_\SOH\n\
\\n\
\\n\
\\ETX\EOT\a\SOH\DC2\ETX\\\b\"\n\
\\v\n\
\\EOT\EOT\a\STX\NUL\DC2\ETX]\EOT\DC3\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETX]\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX]\v\SO\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX]\DC1\DC2\n\
\\v\n\
\\EOT\EOT\a\STX\SOH\DC2\ETX^\EOT\US\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETX^\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\SOH\DC2\ETX^\v\SUB\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\ETX\DC2\ETX^\GS\RS\n\
\\n\
\\n\
\\STX\EOT\b\DC2\EOTa\NULh\SOH\n\
\\n\
\\n\
\\ETX\EOT\b\SOH\DC2\ETXa\b\DC2\n\
\\v\n\
\\EOT\EOT\b\STX\NUL\DC2\ETXb\EOT3\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ACK\DC2\ETXb\EOT\GS\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXb\RS.\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXb12\n\
\\v\n\
\\EOT\EOT\b\STX\SOH\DC2\ETXc\EOT\CAN\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\ENQ\DC2\ETXc\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXc\v\DC3\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXc\SYN\ETB\n\
\\v\n\
\\EOT\EOT\b\STX\STX\DC2\ETXd\EOT\US\n\
\\f\n\
\\ENQ\EOT\b\STX\STX\ENQ\DC2\ETXd\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\STX\SOH\DC2\ETXd\v\SUB\n\
\\f\n\
\\ENQ\EOT\b\STX\STX\ETX\DC2\ETXd\GS\RS\n\
\z\n\
\\EOT\EOT\b\STX\ETX\DC2\ETXg\EOTU\SUBm If a worker has opted into the worker versioning feature while polling, its capabilities will\n\
\ appear here.\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\ETX\ACK\DC2\ETXg\EOT4\n\
\\f\n\
\\ENQ\EOT\b\STX\ETX\SOH\DC2\ETXg5P\n\
\\f\n\
\\ENQ\EOT\b\STX\ETX\ETX\DC2\ETXgST\n\
\\n\
\\n\
\\STX\EOT\t\DC2\EOTj\NULo\SOH\n\
\\n\
\\n\
\\ETX\EOT\t\SOH\DC2\ETXj\b!\n\
\\v\n\
\\EOT\EOT\t\STX\NUL\DC2\ETXk\EOT$\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ACK\DC2\ETXk\EOT\r\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXk\SO\US\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXk\"#\n\
\\131\SOH\n\
\\EOT\EOT\t\STX\SOH\DC2\ETXn\EOT;\SUBv (-- api-linter: core::0140::prepositions=disabled\n\
\ aip.dev/not-precedent: \"to\" is used to indicate interval. --)\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\ACK\DC2\ETXn\EOT\FS\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXn\GS6\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXn9:\n\
\\210\SOH\n\
\\STX\EOT\n\
\\DC2\EOTs\NULv\SOH\SUB\197\SOH Used by the worker versioning APIs, represents an unordered set of one or more versions which are\n\
\ considered to be compatible with each other. Currently the versions are always worker build IDs.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\n\
\\SOH\DC2\ETXs\b\FS\n\
\z\n\
\\EOT\EOT\n\
\\STX\NUL\DC2\ETXu\EOT\"\SUBm All the compatible versions, unordered, except for the last element, which is considered the set \"default\".\n\
\\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\EOT\DC2\ETXu\EOT\f\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\ENQ\DC2\ETXu\r\DC3\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\ETXu\DC4\GS\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\ETXu !\n\
\H\n\
\\STX\EOT\v\DC2\EOTy\NUL\DEL\SOH\SUB< Reachability of tasks for a worker on a single task queue.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\v\SOH\DC2\ETXy\b\GS\n\
\\v\n\
\\EOT\EOT\v\STX\NUL\DC2\ETXz\EOT\SUB\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\ENQ\DC2\ETXz\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXz\v\NAK\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXz\CAN\EM\n\
\\232\SOH\n\
\\EOT\EOT\v\STX\SOH\DC2\ETX~\EOTE\SUB\218\SOH Task reachability for a worker in a single task queue.\n\
\ See the TaskReachability docstring for information about each enum variant.\n\
\ If reachability is empty, this worker is considered unreachable in this task queue.\n\
\\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\EOT\DC2\ETX~\EOT\f\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\ACK\DC2\ETX~\r3\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\SOH\DC2\ETX~4@\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\ETX\DC2\ETX~CD\n\
\[\n\
\\STX\EOT\f\DC2\ACK\130\SOH\NUL\135\SOH\SOH\SUBM Reachability of tasks for a worker by build id, in one or more task queues.\n\
\\n\
\\v\n\
\\ETX\EOT\f\SOH\DC2\EOT\130\SOH\b\ESC\n\
\3\n\
\\EOT\EOT\f\STX\NUL\DC2\EOT\132\SOH\EOT\CAN\SUB% A build id or empty if unversioned.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ENQ\DC2\EOT\132\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\SOH\DC2\EOT\132\SOH\v\DC3\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ETX\DC2\EOT\132\SOH\SYN\ETB\n\
\,\n\
\\EOT\EOT\f\STX\SOH\DC2\EOT\134\SOH\EOT?\SUB\RS Reachability per task queue.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\EOT\DC2\EOT\134\SOH\EOT\f\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ACK\DC2\EOT\134\SOH\r\"\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\SOH\DC2\EOT\134\SOH#:\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ETX\DC2\EOT\134\SOH=>\n\
\\f\n\
\\STX\EOT\r\DC2\ACK\137\SOH\NUL\140\SOH\SOH\n\
\\v\n\
\\ETX\EOT\r\SOH\DC2\EOT\137\SOH\b\CAN\n\
\,\n\
\\EOT\EOT\r\STX\NUL\DC2\EOT\139\SOH\EOT\RS\SUB\RS Acceptable range is [0,100).\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\ENQ\DC2\EOT\139\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\SOH\DC2\EOT\139\SOH\n\
\\EM\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\ETX\DC2\EOT\139\SOH\FS\GS\n\
\\216\SI\n\
\\STX\EOT\SO\DC2\ACK\179\SOH\NUL\192\SOH\SOH\SUB\201\SI These rules assign a Build ID to Unassigned Workflow Executions and\n\
\ Activities.\n\
\\n\
\ Specifically, assignment rules are applied to the following Executions or\n\
\ Activities when they are scheduled in a Task Queue:\n\
\ - Generally, any new Workflow Execution, except:\n\
\ - When A Child Workflow or a Continue-As-New Execution inherits the\n\
\ Build ID from its parent/previous execution by setting the\n\
\ `inherit_build_id` flag.\n\
\ - Workflow Executions started Eagerly are assigned to the Build ID of\n\
\ the Starter.\n\
\ - An Activity that is scheduled on a Task Queue different from the one\n\
\ their Workflow runs on, unless the `use_workflow_build_id` flag is set.\n\
\\n\
\ In absence of (applicable) redirect rules (`CompatibleBuildIdRedirectRule`s)\n\
\ the task will be dispatched to Workers of the Build ID determined by the\n\
\ assignment rules. Otherwise, the final Build ID will be determined by the\n\
\ redirect rules.\n\
\\n\
\ When using Worker Versioning, in the steady state, for a given Task Queue,\n\
\ there should typically be exactly one assignment rule to send all Unassigned\n\
\ tasks to the latest Build ID. Existence of at least one such \"unconditional\"\n\
\ rule at all times is enforce by the system, unless the `force` flag is used\n\
\ by the user when replacing/deleting these rules (for exceptional cases).\n\
\\n\
\ During a deployment, one or more additional rules can be added to assign a\n\
\ subset of the tasks to a new Build ID based on a \"ramp percentage\".\n\
\\n\
\ When there are multiple assignment rules for a Task Queue, the rules are\n\
\ evaluated in order, starting from index 0. The first applicable rule will be\n\
\ applied and the rest will be ignored.\n\
\\n\
\ In the event that no assignment rule is applicable on a task (or the Task\n\
\ Queue is simply not versioned), the tasks will be sent to unversioned\n\
\ workers, if available. Otherwise, they remain Unassigned, and will be\n\
\ retried for assignment, or dispatch to unversioned workers, at a later time\n\
\ depending on the availability of workers.\n\
\\n\
\\v\n\
\\ETX\EOT\SO\SOH\DC2\EOT\179\SOH\b\GS\n\
\\f\n\
\\EOT\EOT\SO\STX\NUL\DC2\EOT\180\SOH\EOT\US\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\ENQ\DC2\EOT\180\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\SOH\DC2\EOT\180\SOH\v\SUB\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\ETX\DC2\EOT\180\SOH\GS\RS\n\
\\240\SOH\n\
\\EOT\EOT\SO\b\NUL\DC2\ACK\186\SOH\EOT\191\SOH\ENQ\SUB\223\SOH If a ramp is provided, this rule will be applied only to a sample of\n\
\ tasks according to the provided percentage.\n\
\ This option can be used only on \"terminal\" Build IDs (the ones not used\n\
\ as source in any redirect rules).\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\b\NUL\SOH\DC2\EOT\186\SOH\n\
\\SO\n\
\\167\SOH\n\
\\EOT\EOT\SO\STX\SOH\DC2\EOT\190\SOH\b-\SUB\152\SOH This ramp is useful for gradual Blue/Green deployments (and similar)\n\
\ where you want to send a certain portion of the traffic to the target\n\
\ Build ID.\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\SOH\ACK\DC2\EOT\190\SOH\b\CAN\n\
\\r\n\
\\ENQ\EOT\SO\STX\SOH\SOH\DC2\EOT\190\SOH\EM(\n\
\\r\n\
\\ENQ\EOT\SO\STX\SOH\ETX\DC2\EOT\190\SOH+,\n\
\\198\a\n\
\\STX\EOT\SI\DC2\ACK\215\SOH\NUL\218\SOH\SOH\SUB\183\a These rules apply to tasks assigned to a particular Build ID\n\
\ (`source_build_id`) to redirect them to another *compatible* Build ID\n\
\ (`target_build_id`).\n\
\\n\
\ It is user's responsibility to ensure that the target Build ID is compatible\n\
\ with the source Build ID (e.g. by using the Patching API).\n\
\\n\
\ Most deployments are not expected to need these rules, however following\n\
\ situations can greatly benefit from redirects:\n\
\ - Need to move long-running Workflow Executions from an old Build ID to a\n\
\ newer one.\n\
\ - Need to hotfix some broken or stuck Workflow Executions.\n\
\\n\
\ In steady state, redirect rules are beneficial when dealing with old\n\
\ Executions ran on now-decommissioned Build IDs:\n\
\ - To redirecting the Workflow Queries to the current (compatible) Build ID.\n\
\ - To be able to Reset an old Execution so it can run on the current\n\
\ (compatible) Build ID.\n\
\\n\
\ Redirect rules can be chained, but only the last rule in the chain can have\n\
\ a ramp.\n\
\\n\
\\v\n\
\\ETX\EOT\SI\SOH\DC2\EOT\215\SOH\b%\n\
\\f\n\
\\EOT\EOT\SI\STX\NUL\DC2\EOT\216\SOH\EOT\US\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\ENQ\DC2\EOT\216\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\SOH\DC2\EOT\216\SOH\v\SUB\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\ETX\DC2\EOT\216\SOH\GS\RS\n\
\\f\n\
\\EOT\EOT\SI\STX\SOH\DC2\EOT\217\SOH\EOT\US\n\
\\r\n\
\\ENQ\EOT\SI\STX\SOH\ENQ\DC2\EOT\217\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\SOH\SOH\DC2\EOT\217\SOH\v\SUB\n\
\\r\n\
\\ENQ\EOT\SI\STX\SOH\ETX\DC2\EOT\217\SOH\GS\RS\n\
\\f\n\
\\STX\EOT\DLE\DC2\ACK\220\SOH\NUL\223\SOH\SOH\n\
\\v\n\
\\ETX\EOT\DLE\SOH\DC2\EOT\220\SOH\b(\n\
\\f\n\
\\EOT\EOT\DLE\STX\NUL\DC2\EOT\221\SOH\EOT#\n\
\\r\n\
\\ENQ\EOT\DLE\STX\NUL\ACK\DC2\EOT\221\SOH\EOT\EM\n\
\\r\n\
\\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\221\SOH\SUB\RS\n\
\\r\n\
\\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\221\SOH!\"\n\
\\f\n\
\\EOT\EOT\DLE\STX\SOH\DC2\EOT\222\SOH\EOT.\n\
\\r\n\
\\ENQ\EOT\DLE\STX\SOH\ACK\DC2\EOT\222\SOH\EOT\GS\n\
\\r\n\
\\ENQ\EOT\DLE\STX\SOH\SOH\DC2\EOT\222\SOH\RS)\n\
\\r\n\
\\ENQ\EOT\DLE\STX\SOH\ETX\DC2\EOT\222\SOH,-\n\
\\f\n\
\\STX\EOT\DC1\DC2\ACK\225\SOH\NUL\228\SOH\SOH\n\
\\v\n\
\\ETX\EOT\DC1\SOH\DC2\EOT\225\SOH\b0\n\
\\f\n\
\\EOT\EOT\DC1\STX\NUL\DC2\EOT\226\SOH\EOT+\n\
\\r\n\
\\ENQ\EOT\DC1\STX\NUL\ACK\DC2\EOT\226\SOH\EOT!\n\
\\r\n\
\\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\226\SOH\"&\n\
\\r\n\
\\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\226\SOH)*\n\
\\f\n\
\\EOT\EOT\DC1\STX\SOH\DC2\EOT\227\SOH\EOT.\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SOH\ACK\DC2\EOT\227\SOH\EOT\GS\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SOH\SOH\DC2\EOT\227\SOH\RS)\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SOH\ETX\DC2\EOT\227\SOH,-b\ACKproto3"