{-# 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.Schedule.V1.Message (
BackfillRequest(), CalendarSpec(), IntervalSpec(), Range(),
Schedule(), ScheduleAction(), ScheduleAction'Action(..),
_ScheduleAction'StartWorkflow, ScheduleActionResult(),
ScheduleInfo(), ScheduleListEntry(), ScheduleListInfo(),
SchedulePatch(), SchedulePolicies(), ScheduleSpec(),
ScheduleState(), StructuredCalendarSpec(),
TriggerImmediatelyRequest()
) 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.Temporal.Api.Common.V1.Message
import qualified Proto.Temporal.Api.Enums.V1.Schedule
import qualified Proto.Temporal.Api.Workflow.V1.Message
data BackfillRequest
= BackfillRequest'_constructor {BackfillRequest -> Maybe Timestamp
_BackfillRequest'startTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
BackfillRequest -> Maybe Timestamp
_BackfillRequest'endTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
BackfillRequest -> ScheduleOverlapPolicy
_BackfillRequest'overlapPolicy :: !Proto.Temporal.Api.Enums.V1.Schedule.ScheduleOverlapPolicy,
BackfillRequest -> FieldSet
_BackfillRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (BackfillRequest -> BackfillRequest -> Bool
(BackfillRequest -> BackfillRequest -> Bool)
-> (BackfillRequest -> BackfillRequest -> Bool)
-> Eq BackfillRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BackfillRequest -> BackfillRequest -> Bool
== :: BackfillRequest -> BackfillRequest -> Bool
$c/= :: BackfillRequest -> BackfillRequest -> Bool
/= :: BackfillRequest -> BackfillRequest -> Bool
Prelude.Eq, Eq BackfillRequest
Eq BackfillRequest =>
(BackfillRequest -> BackfillRequest -> Ordering)
-> (BackfillRequest -> BackfillRequest -> Bool)
-> (BackfillRequest -> BackfillRequest -> Bool)
-> (BackfillRequest -> BackfillRequest -> Bool)
-> (BackfillRequest -> BackfillRequest -> Bool)
-> (BackfillRequest -> BackfillRequest -> BackfillRequest)
-> (BackfillRequest -> BackfillRequest -> BackfillRequest)
-> Ord BackfillRequest
BackfillRequest -> BackfillRequest -> Bool
BackfillRequest -> BackfillRequest -> Ordering
BackfillRequest -> BackfillRequest -> BackfillRequest
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 :: BackfillRequest -> BackfillRequest -> Ordering
compare :: BackfillRequest -> BackfillRequest -> Ordering
$c< :: BackfillRequest -> BackfillRequest -> Bool
< :: BackfillRequest -> BackfillRequest -> Bool
$c<= :: BackfillRequest -> BackfillRequest -> Bool
<= :: BackfillRequest -> BackfillRequest -> Bool
$c> :: BackfillRequest -> BackfillRequest -> Bool
> :: BackfillRequest -> BackfillRequest -> Bool
$c>= :: BackfillRequest -> BackfillRequest -> Bool
>= :: BackfillRequest -> BackfillRequest -> Bool
$cmax :: BackfillRequest -> BackfillRequest -> BackfillRequest
max :: BackfillRequest -> BackfillRequest -> BackfillRequest
$cmin :: BackfillRequest -> BackfillRequest -> BackfillRequest
min :: BackfillRequest -> BackfillRequest -> BackfillRequest
Prelude.Ord)
instance Prelude.Show BackfillRequest where
showsPrec :: Int -> BackfillRequest -> ShowS
showsPrec Int
_ BackfillRequest
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(BackfillRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BackfillRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField BackfillRequest "startTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startTime"
-> (Timestamp -> f Timestamp)
-> BackfillRequest
-> f BackfillRequest
fieldOf Proxy# "startTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> BackfillRequest -> f BackfillRequest)
-> ((Timestamp -> f Timestamp)
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> BackfillRequest
-> f BackfillRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((BackfillRequest -> Maybe Timestamp)
-> (BackfillRequest -> Maybe Timestamp -> BackfillRequest)
-> Lens
BackfillRequest BackfillRequest (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BackfillRequest -> Maybe Timestamp
_BackfillRequest'startTime
(\ BackfillRequest
x__ Maybe Timestamp
y__ -> BackfillRequest
x__ {_BackfillRequest'startTime = 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 BackfillRequest "maybe'startTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'startTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> BackfillRequest
-> f BackfillRequest
fieldOf Proxy# "maybe'startTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> BackfillRequest -> f BackfillRequest)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> BackfillRequest
-> f BackfillRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((BackfillRequest -> Maybe Timestamp)
-> (BackfillRequest -> Maybe Timestamp -> BackfillRequest)
-> Lens
BackfillRequest BackfillRequest (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BackfillRequest -> Maybe Timestamp
_BackfillRequest'startTime
(\ BackfillRequest
x__ Maybe Timestamp
y__ -> BackfillRequest
x__ {_BackfillRequest'startTime = y__}))
(Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BackfillRequest "endTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "endTime"
-> (Timestamp -> f Timestamp)
-> BackfillRequest
-> f BackfillRequest
fieldOf Proxy# "endTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> BackfillRequest -> f BackfillRequest)
-> ((Timestamp -> f Timestamp)
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> BackfillRequest
-> f BackfillRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((BackfillRequest -> Maybe Timestamp)
-> (BackfillRequest -> Maybe Timestamp -> BackfillRequest)
-> Lens
BackfillRequest BackfillRequest (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BackfillRequest -> Maybe Timestamp
_BackfillRequest'endTime
(\ BackfillRequest
x__ Maybe Timestamp
y__ -> BackfillRequest
x__ {_BackfillRequest'endTime = 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 BackfillRequest "maybe'endTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'endTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> BackfillRequest
-> f BackfillRequest
fieldOf Proxy# "maybe'endTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> BackfillRequest -> f BackfillRequest)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> BackfillRequest
-> f BackfillRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((BackfillRequest -> Maybe Timestamp)
-> (BackfillRequest -> Maybe Timestamp -> BackfillRequest)
-> Lens
BackfillRequest BackfillRequest (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BackfillRequest -> Maybe Timestamp
_BackfillRequest'endTime
(\ BackfillRequest
x__ Maybe Timestamp
y__ -> BackfillRequest
x__ {_BackfillRequest'endTime = y__}))
(Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BackfillRequest "overlapPolicy" Proto.Temporal.Api.Enums.V1.Schedule.ScheduleOverlapPolicy where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "overlapPolicy"
-> (ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> BackfillRequest
-> f BackfillRequest
fieldOf Proxy# "overlapPolicy"
_
= ((ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> BackfillRequest -> f BackfillRequest)
-> ((ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> (ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> BackfillRequest
-> f BackfillRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((BackfillRequest -> ScheduleOverlapPolicy)
-> (BackfillRequest -> ScheduleOverlapPolicy -> BackfillRequest)
-> Lens
BackfillRequest
BackfillRequest
ScheduleOverlapPolicy
ScheduleOverlapPolicy
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BackfillRequest -> ScheduleOverlapPolicy
_BackfillRequest'overlapPolicy
(\ BackfillRequest
x__ ScheduleOverlapPolicy
y__ -> BackfillRequest
x__ {_BackfillRequest'overlapPolicy = y__}))
(ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> ScheduleOverlapPolicy -> f ScheduleOverlapPolicy
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BackfillRequest where
messageName :: Proxy BackfillRequest -> Text
messageName Proxy BackfillRequest
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.BackfillRequest"
packedMessageDescriptor :: Proxy BackfillRequest -> ByteString
packedMessageDescriptor Proxy BackfillRequest
_
= ByteString
"\n\
\\SIBackfillRequest\DC29\n\
\\n\
\start_time\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\tstartTime\DC25\n\
\\bend_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\aendTime\DC2S\n\
\\SOoverlap_policy\CAN\ETX \SOH(\SO2,.temporal.api.enums.v1.ScheduleOverlapPolicyR\roverlapPolicy"
packedFileDescriptor :: Proxy BackfillRequest -> ByteString
packedFileDescriptor Proxy BackfillRequest
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor BackfillRequest)
fieldsByTag
= let
startTime__field_descriptor :: FieldDescriptor BackfillRequest
startTime__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor BackfillRequest Timestamp
-> FieldDescriptor BackfillRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_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
BackfillRequest BackfillRequest (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor BackfillRequest 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'startTime")) ::
Data.ProtoLens.FieldDescriptor BackfillRequest
endTime__field_descriptor :: FieldDescriptor BackfillRequest
endTime__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor BackfillRequest Timestamp
-> FieldDescriptor BackfillRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"end_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
BackfillRequest BackfillRequest (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor BackfillRequest 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'endTime")) ::
Data.ProtoLens.FieldDescriptor BackfillRequest
overlapPolicy__field_descriptor :: FieldDescriptor BackfillRequest
overlapPolicy__field_descriptor
= String
-> FieldTypeDescriptor ScheduleOverlapPolicy
-> FieldAccessor BackfillRequest ScheduleOverlapPolicy
-> FieldDescriptor BackfillRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"overlap_policy"
(ScalarField ScheduleOverlapPolicy
-> FieldTypeDescriptor ScheduleOverlapPolicy
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ScheduleOverlapPolicy
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Schedule.ScheduleOverlapPolicy)
(WireDefault ScheduleOverlapPolicy
-> Lens
BackfillRequest
BackfillRequest
ScheduleOverlapPolicy
ScheduleOverlapPolicy
-> FieldAccessor BackfillRequest ScheduleOverlapPolicy
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ScheduleOverlapPolicy
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 @"overlapPolicy")) ::
Data.ProtoLens.FieldDescriptor BackfillRequest
in
[(Tag, FieldDescriptor BackfillRequest)]
-> Map Tag (FieldDescriptor BackfillRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor BackfillRequest
startTime__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor BackfillRequest
endTime__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor BackfillRequest
overlapPolicy__field_descriptor)]
unknownFields :: Lens' BackfillRequest FieldSet
unknownFields
= (BackfillRequest -> FieldSet)
-> (BackfillRequest -> FieldSet -> BackfillRequest)
-> Lens' BackfillRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
BackfillRequest -> FieldSet
_BackfillRequest'_unknownFields
(\ BackfillRequest
x__ FieldSet
y__ -> BackfillRequest
x__ {_BackfillRequest'_unknownFields = y__})
defMessage :: BackfillRequest
defMessage
= BackfillRequest'_constructor
{_BackfillRequest'startTime :: Maybe Timestamp
_BackfillRequest'startTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
_BackfillRequest'endTime :: Maybe Timestamp
_BackfillRequest'endTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
_BackfillRequest'overlapPolicy :: ScheduleOverlapPolicy
_BackfillRequest'overlapPolicy = ScheduleOverlapPolicy
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_BackfillRequest'_unknownFields :: FieldSet
_BackfillRequest'_unknownFields = []}
parseMessage :: Parser BackfillRequest
parseMessage
= let
loop ::
BackfillRequest
-> Data.ProtoLens.Encoding.Bytes.Parser BackfillRequest
loop :: BackfillRequest -> Parser BackfillRequest
loop BackfillRequest
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
"start_time"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"startTime") 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
"end_time"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"endTime") y x)
Word64
24
-> do y <- Parser ScheduleOverlapPolicy
-> String -> Parser ScheduleOverlapPolicy
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> ScheduleOverlapPolicy)
-> Parser Int -> Parser ScheduleOverlapPolicy
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> ScheduleOverlapPolicy
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
"overlap_policy"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"overlapPolicy") 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 BackfillRequest -> String -> Parser BackfillRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do BackfillRequest -> Parser BackfillRequest
loop BackfillRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"BackfillRequest"
buildMessage :: BackfillRequest -> Builder
buildMessage
= \ BackfillRequest
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Timestamp)
BackfillRequest
BackfillRequest
(Maybe Timestamp)
(Maybe Timestamp)
-> BackfillRequest -> 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'startTime") BackfillRequest
_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.<>)
(case
FoldLike
(Maybe Timestamp)
BackfillRequest
BackfillRequest
(Maybe Timestamp)
(Maybe Timestamp)
-> BackfillRequest -> 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'endTime") BackfillRequest
_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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ScheduleOverlapPolicy
_v
= FoldLike
ScheduleOverlapPolicy
BackfillRequest
BackfillRequest
ScheduleOverlapPolicy
ScheduleOverlapPolicy
-> BackfillRequest -> ScheduleOverlapPolicy
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 @"overlapPolicy") BackfillRequest
_x
in
if ScheduleOverlapPolicy -> ScheduleOverlapPolicy -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ScheduleOverlapPolicy
_v ScheduleOverlapPolicy
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)
((Int -> Builder)
-> (ScheduleOverlapPolicy -> Int)
-> ScheduleOverlapPolicy
-> 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)
ScheduleOverlapPolicy -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum ScheduleOverlapPolicy
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet BackfillRequest BackfillRequest FieldSet FieldSet
-> BackfillRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet BackfillRequest BackfillRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BackfillRequest FieldSet
Data.ProtoLens.unknownFields BackfillRequest
_x))))
instance Control.DeepSeq.NFData BackfillRequest where
rnf :: BackfillRequest -> ()
rnf
= \ BackfillRequest
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(BackfillRequest -> FieldSet
_BackfillRequest'_unknownFields BackfillRequest
x__)
(Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(BackfillRequest -> Maybe Timestamp
_BackfillRequest'startTime BackfillRequest
x__)
(Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(BackfillRequest -> Maybe Timestamp
_BackfillRequest'endTime BackfillRequest
x__)
(ScheduleOverlapPolicy -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (BackfillRequest -> ScheduleOverlapPolicy
_BackfillRequest'overlapPolicy BackfillRequest
x__) ())))
data CalendarSpec
= CalendarSpec'_constructor {CalendarSpec -> Text
_CalendarSpec'second :: !Data.Text.Text,
CalendarSpec -> Text
_CalendarSpec'minute :: !Data.Text.Text,
CalendarSpec -> Text
_CalendarSpec'hour :: !Data.Text.Text,
CalendarSpec -> Text
_CalendarSpec'dayOfMonth :: !Data.Text.Text,
CalendarSpec -> Text
_CalendarSpec'month :: !Data.Text.Text,
CalendarSpec -> Text
_CalendarSpec'year :: !Data.Text.Text,
CalendarSpec -> Text
_CalendarSpec'dayOfWeek :: !Data.Text.Text,
:: !Data.Text.Text,
CalendarSpec -> FieldSet
_CalendarSpec'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CalendarSpec -> CalendarSpec -> Bool
(CalendarSpec -> CalendarSpec -> Bool)
-> (CalendarSpec -> CalendarSpec -> Bool) -> Eq CalendarSpec
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CalendarSpec -> CalendarSpec -> Bool
== :: CalendarSpec -> CalendarSpec -> Bool
$c/= :: CalendarSpec -> CalendarSpec -> Bool
/= :: CalendarSpec -> CalendarSpec -> Bool
Prelude.Eq, Eq CalendarSpec
Eq CalendarSpec =>
(CalendarSpec -> CalendarSpec -> Ordering)
-> (CalendarSpec -> CalendarSpec -> Bool)
-> (CalendarSpec -> CalendarSpec -> Bool)
-> (CalendarSpec -> CalendarSpec -> Bool)
-> (CalendarSpec -> CalendarSpec -> Bool)
-> (CalendarSpec -> CalendarSpec -> CalendarSpec)
-> (CalendarSpec -> CalendarSpec -> CalendarSpec)
-> Ord CalendarSpec
CalendarSpec -> CalendarSpec -> Bool
CalendarSpec -> CalendarSpec -> Ordering
CalendarSpec -> CalendarSpec -> CalendarSpec
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 :: CalendarSpec -> CalendarSpec -> Ordering
compare :: CalendarSpec -> CalendarSpec -> Ordering
$c< :: CalendarSpec -> CalendarSpec -> Bool
< :: CalendarSpec -> CalendarSpec -> Bool
$c<= :: CalendarSpec -> CalendarSpec -> Bool
<= :: CalendarSpec -> CalendarSpec -> Bool
$c> :: CalendarSpec -> CalendarSpec -> Bool
> :: CalendarSpec -> CalendarSpec -> Bool
$c>= :: CalendarSpec -> CalendarSpec -> Bool
>= :: CalendarSpec -> CalendarSpec -> Bool
$cmax :: CalendarSpec -> CalendarSpec -> CalendarSpec
max :: CalendarSpec -> CalendarSpec -> CalendarSpec
$cmin :: CalendarSpec -> CalendarSpec -> CalendarSpec
min :: CalendarSpec -> CalendarSpec -> CalendarSpec
Prelude.Ord)
instance Prelude.Show CalendarSpec where
showsPrec :: Int -> CalendarSpec -> ShowS
showsPrec Int
_ CalendarSpec
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(CalendarSpec -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CalendarSpec
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CalendarSpec "second" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "second"
-> (Text -> f Text) -> CalendarSpec -> f CalendarSpec
fieldOf Proxy# "second"
_
= ((Text -> f Text) -> CalendarSpec -> f CalendarSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CalendarSpec
-> f CalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CalendarSpec -> Text)
-> (CalendarSpec -> Text -> CalendarSpec)
-> Lens CalendarSpec CalendarSpec Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CalendarSpec -> Text
_CalendarSpec'second
(\ CalendarSpec
x__ Text
y__ -> CalendarSpec
x__ {_CalendarSpec'second = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CalendarSpec "minute" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minute"
-> (Text -> f Text) -> CalendarSpec -> f CalendarSpec
fieldOf Proxy# "minute"
_
= ((Text -> f Text) -> CalendarSpec -> f CalendarSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CalendarSpec
-> f CalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CalendarSpec -> Text)
-> (CalendarSpec -> Text -> CalendarSpec)
-> Lens CalendarSpec CalendarSpec Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CalendarSpec -> Text
_CalendarSpec'minute
(\ CalendarSpec
x__ Text
y__ -> CalendarSpec
x__ {_CalendarSpec'minute = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CalendarSpec "hour" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hour" -> (Text -> f Text) -> CalendarSpec -> f CalendarSpec
fieldOf Proxy# "hour"
_
= ((Text -> f Text) -> CalendarSpec -> f CalendarSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CalendarSpec
-> f CalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CalendarSpec -> Text)
-> (CalendarSpec -> Text -> CalendarSpec)
-> Lens CalendarSpec CalendarSpec Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CalendarSpec -> Text
_CalendarSpec'hour (\ CalendarSpec
x__ Text
y__ -> CalendarSpec
x__ {_CalendarSpec'hour = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CalendarSpec "dayOfMonth" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "dayOfMonth"
-> (Text -> f Text) -> CalendarSpec -> f CalendarSpec
fieldOf Proxy# "dayOfMonth"
_
= ((Text -> f Text) -> CalendarSpec -> f CalendarSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CalendarSpec
-> f CalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CalendarSpec -> Text)
-> (CalendarSpec -> Text -> CalendarSpec)
-> Lens CalendarSpec CalendarSpec Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CalendarSpec -> Text
_CalendarSpec'dayOfMonth
(\ CalendarSpec
x__ Text
y__ -> CalendarSpec
x__ {_CalendarSpec'dayOfMonth = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CalendarSpec "month" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "month"
-> (Text -> f Text) -> CalendarSpec -> f CalendarSpec
fieldOf Proxy# "month"
_
= ((Text -> f Text) -> CalendarSpec -> f CalendarSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CalendarSpec
-> f CalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CalendarSpec -> Text)
-> (CalendarSpec -> Text -> CalendarSpec)
-> Lens CalendarSpec CalendarSpec Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CalendarSpec -> Text
_CalendarSpec'month (\ CalendarSpec
x__ Text
y__ -> CalendarSpec
x__ {_CalendarSpec'month = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CalendarSpec "year" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "year" -> (Text -> f Text) -> CalendarSpec -> f CalendarSpec
fieldOf Proxy# "year"
_
= ((Text -> f Text) -> CalendarSpec -> f CalendarSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CalendarSpec
-> f CalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CalendarSpec -> Text)
-> (CalendarSpec -> Text -> CalendarSpec)
-> Lens CalendarSpec CalendarSpec Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CalendarSpec -> Text
_CalendarSpec'year (\ CalendarSpec
x__ Text
y__ -> CalendarSpec
x__ {_CalendarSpec'year = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CalendarSpec "dayOfWeek" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "dayOfWeek"
-> (Text -> f Text) -> CalendarSpec -> f CalendarSpec
fieldOf Proxy# "dayOfWeek"
_
= ((Text -> f Text) -> CalendarSpec -> f CalendarSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CalendarSpec
-> f CalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CalendarSpec -> Text)
-> (CalendarSpec -> Text -> CalendarSpec)
-> Lens CalendarSpec CalendarSpec Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CalendarSpec -> Text
_CalendarSpec'dayOfWeek
(\ CalendarSpec
x__ Text
y__ -> CalendarSpec
x__ {_CalendarSpec'dayOfWeek = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CalendarSpec "comment" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "comment"
-> (Text -> f Text) -> CalendarSpec -> f CalendarSpec
fieldOf Proxy# "comment"
_
= ((Text -> f Text) -> CalendarSpec -> f CalendarSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CalendarSpec
-> f CalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CalendarSpec -> Text)
-> (CalendarSpec -> Text -> CalendarSpec)
-> Lens CalendarSpec CalendarSpec Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CalendarSpec -> Text
_CalendarSpec'comment
(\ CalendarSpec
x__ Text
y__ -> CalendarSpec
x__ {_CalendarSpec'comment = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CalendarSpec where
messageName :: Proxy CalendarSpec -> Text
messageName Proxy CalendarSpec
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.CalendarSpec"
packedMessageDescriptor :: Proxy CalendarSpec -> ByteString
packedMessageDescriptor Proxy CalendarSpec
_
= ByteString
"\n\
\\fCalendarSpec\DC2\SYN\n\
\\ACKsecond\CAN\SOH \SOH(\tR\ACKsecond\DC2\SYN\n\
\\ACKminute\CAN\STX \SOH(\tR\ACKminute\DC2\DC2\n\
\\EOThour\CAN\ETX \SOH(\tR\EOThour\DC2 \n\
\\fday_of_month\CAN\EOT \SOH(\tR\n\
\dayOfMonth\DC2\DC4\n\
\\ENQmonth\CAN\ENQ \SOH(\tR\ENQmonth\DC2\DC2\n\
\\EOTyear\CAN\ACK \SOH(\tR\EOTyear\DC2\RS\n\
\\vday_of_week\CAN\a \SOH(\tR\tdayOfWeek\DC2\CAN\n\
\\acomment\CAN\b \SOH(\tR\acomment"
packedFileDescriptor :: Proxy CalendarSpec -> ByteString
packedFileDescriptor Proxy CalendarSpec
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CalendarSpec)
fieldsByTag
= let
second__field_descriptor :: FieldDescriptor CalendarSpec
second__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CalendarSpec Text
-> FieldDescriptor CalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"second"
(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 CalendarSpec CalendarSpec Text Text
-> FieldAccessor CalendarSpec 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 @"second")) ::
Data.ProtoLens.FieldDescriptor CalendarSpec
minute__field_descriptor :: FieldDescriptor CalendarSpec
minute__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CalendarSpec Text
-> FieldDescriptor CalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"minute"
(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 CalendarSpec CalendarSpec Text Text
-> FieldAccessor CalendarSpec 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 @"minute")) ::
Data.ProtoLens.FieldDescriptor CalendarSpec
hour__field_descriptor :: FieldDescriptor CalendarSpec
hour__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CalendarSpec Text
-> FieldDescriptor CalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"hour"
(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 CalendarSpec CalendarSpec Text Text
-> FieldAccessor CalendarSpec 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 @"hour")) ::
Data.ProtoLens.FieldDescriptor CalendarSpec
dayOfMonth__field_descriptor :: FieldDescriptor CalendarSpec
dayOfMonth__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CalendarSpec Text
-> FieldDescriptor CalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"day_of_month"
(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 CalendarSpec CalendarSpec Text Text
-> FieldAccessor CalendarSpec 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 @"dayOfMonth")) ::
Data.ProtoLens.FieldDescriptor CalendarSpec
month__field_descriptor :: FieldDescriptor CalendarSpec
month__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CalendarSpec Text
-> FieldDescriptor CalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"month"
(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 CalendarSpec CalendarSpec Text Text
-> FieldAccessor CalendarSpec 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 @"month")) ::
Data.ProtoLens.FieldDescriptor CalendarSpec
year__field_descriptor :: FieldDescriptor CalendarSpec
year__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CalendarSpec Text
-> FieldDescriptor CalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"year"
(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 CalendarSpec CalendarSpec Text Text
-> FieldAccessor CalendarSpec 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 @"year")) ::
Data.ProtoLens.FieldDescriptor CalendarSpec
dayOfWeek__field_descriptor :: FieldDescriptor CalendarSpec
dayOfWeek__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CalendarSpec Text
-> FieldDescriptor CalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"day_of_week"
(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 CalendarSpec CalendarSpec Text Text
-> FieldAccessor CalendarSpec 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 @"dayOfWeek")) ::
Data.ProtoLens.FieldDescriptor CalendarSpec
comment__field_descriptor :: FieldDescriptor CalendarSpec
comment__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CalendarSpec Text
-> FieldDescriptor CalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"comment"
(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 CalendarSpec CalendarSpec Text Text
-> FieldAccessor CalendarSpec 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 @"comment")) ::
Data.ProtoLens.FieldDescriptor CalendarSpec
in
[(Tag, FieldDescriptor CalendarSpec)]
-> Map Tag (FieldDescriptor CalendarSpec)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CalendarSpec
second__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor CalendarSpec
minute__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor CalendarSpec
hour__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor CalendarSpec
dayOfMonth__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor CalendarSpec
month__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor CalendarSpec
year__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor CalendarSpec
dayOfWeek__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor CalendarSpec
comment__field_descriptor)]
unknownFields :: Lens' CalendarSpec FieldSet
unknownFields
= (CalendarSpec -> FieldSet)
-> (CalendarSpec -> FieldSet -> CalendarSpec)
-> Lens' CalendarSpec FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CalendarSpec -> FieldSet
_CalendarSpec'_unknownFields
(\ CalendarSpec
x__ FieldSet
y__ -> CalendarSpec
x__ {_CalendarSpec'_unknownFields = y__})
defMessage :: CalendarSpec
defMessage
= CalendarSpec'_constructor
{_CalendarSpec'second :: Text
_CalendarSpec'second = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CalendarSpec'minute :: Text
_CalendarSpec'minute = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CalendarSpec'hour :: Text
_CalendarSpec'hour = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CalendarSpec'dayOfMonth :: Text
_CalendarSpec'dayOfMonth = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CalendarSpec'month :: Text
_CalendarSpec'month = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CalendarSpec'year :: Text
_CalendarSpec'year = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CalendarSpec'dayOfWeek :: Text
_CalendarSpec'dayOfWeek = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CalendarSpec'comment :: Text
_CalendarSpec'comment = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CalendarSpec'_unknownFields :: FieldSet
_CalendarSpec'_unknownFields = []}
parseMessage :: Parser CalendarSpec
parseMessage
= let
loop ::
CalendarSpec -> Data.ProtoLens.Encoding.Bytes.Parser CalendarSpec
loop :: CalendarSpec -> Parser CalendarSpec
loop CalendarSpec
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
"second"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"second") 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
"minute"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minute") 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
"hour"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hour") y x)
Word64
34
-> 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
"day_of_month"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"dayOfMonth") y x)
Word64
42
-> 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
"month"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"month") y x)
Word64
50
-> 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
"year"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"year") y x)
Word64
58
-> 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
"day_of_week"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"dayOfWeek") y x)
Word64
66
-> 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
"comment"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"comment") 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 CalendarSpec -> String -> Parser CalendarSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do CalendarSpec -> Parser CalendarSpec
loop CalendarSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CalendarSpec"
buildMessage :: CalendarSpec -> Builder
buildMessage
= \ CalendarSpec
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text CalendarSpec CalendarSpec Text Text
-> CalendarSpec -> 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 @"second") CalendarSpec
_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 CalendarSpec CalendarSpec Text Text
-> CalendarSpec -> 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 @"minute") CalendarSpec
_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 :: Text
_v = FoldLike Text CalendarSpec CalendarSpec Text Text
-> CalendarSpec -> 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 @"hour") CalendarSpec
_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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text CalendarSpec CalendarSpec Text Text
-> CalendarSpec -> 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 @"dayOfMonth") CalendarSpec
_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
34)
((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 CalendarSpec CalendarSpec Text Text
-> CalendarSpec -> 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 @"month") CalendarSpec
_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
42)
((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 CalendarSpec CalendarSpec Text Text
-> CalendarSpec -> 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 @"year") CalendarSpec
_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
50)
((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 CalendarSpec CalendarSpec Text Text
-> CalendarSpec -> 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 @"dayOfWeek") CalendarSpec
_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
58)
((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 CalendarSpec CalendarSpec Text Text
-> CalendarSpec -> 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 @"comment") CalendarSpec
_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
66)
((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 CalendarSpec CalendarSpec FieldSet FieldSet
-> CalendarSpec -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CalendarSpec CalendarSpec FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CalendarSpec FieldSet
Data.ProtoLens.unknownFields CalendarSpec
_x)))))))))
instance Control.DeepSeq.NFData CalendarSpec where
rnf :: CalendarSpec -> ()
rnf
= \ CalendarSpec
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CalendarSpec -> FieldSet
_CalendarSpec'_unknownFields CalendarSpec
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CalendarSpec -> Text
_CalendarSpec'second CalendarSpec
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CalendarSpec -> Text
_CalendarSpec'minute CalendarSpec
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CalendarSpec -> Text
_CalendarSpec'hour CalendarSpec
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CalendarSpec -> Text
_CalendarSpec'dayOfMonth CalendarSpec
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CalendarSpec -> Text
_CalendarSpec'month CalendarSpec
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CalendarSpec -> Text
_CalendarSpec'year CalendarSpec
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CalendarSpec -> Text
_CalendarSpec'dayOfWeek CalendarSpec
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CalendarSpec -> Text
_CalendarSpec'comment CalendarSpec
x__) ()))))))))
data IntervalSpec
= IntervalSpec'_constructor {IntervalSpec -> Maybe Duration
_IntervalSpec'interval :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
IntervalSpec -> Maybe Duration
_IntervalSpec'phase :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
IntervalSpec -> FieldSet
_IntervalSpec'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (IntervalSpec -> IntervalSpec -> Bool
(IntervalSpec -> IntervalSpec -> Bool)
-> (IntervalSpec -> IntervalSpec -> Bool) -> Eq IntervalSpec
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: IntervalSpec -> IntervalSpec -> Bool
== :: IntervalSpec -> IntervalSpec -> Bool
$c/= :: IntervalSpec -> IntervalSpec -> Bool
/= :: IntervalSpec -> IntervalSpec -> Bool
Prelude.Eq, Eq IntervalSpec
Eq IntervalSpec =>
(IntervalSpec -> IntervalSpec -> Ordering)
-> (IntervalSpec -> IntervalSpec -> Bool)
-> (IntervalSpec -> IntervalSpec -> Bool)
-> (IntervalSpec -> IntervalSpec -> Bool)
-> (IntervalSpec -> IntervalSpec -> Bool)
-> (IntervalSpec -> IntervalSpec -> IntervalSpec)
-> (IntervalSpec -> IntervalSpec -> IntervalSpec)
-> Ord IntervalSpec
IntervalSpec -> IntervalSpec -> Bool
IntervalSpec -> IntervalSpec -> Ordering
IntervalSpec -> IntervalSpec -> IntervalSpec
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 :: IntervalSpec -> IntervalSpec -> Ordering
compare :: IntervalSpec -> IntervalSpec -> Ordering
$c< :: IntervalSpec -> IntervalSpec -> Bool
< :: IntervalSpec -> IntervalSpec -> Bool
$c<= :: IntervalSpec -> IntervalSpec -> Bool
<= :: IntervalSpec -> IntervalSpec -> Bool
$c> :: IntervalSpec -> IntervalSpec -> Bool
> :: IntervalSpec -> IntervalSpec -> Bool
$c>= :: IntervalSpec -> IntervalSpec -> Bool
>= :: IntervalSpec -> IntervalSpec -> Bool
$cmax :: IntervalSpec -> IntervalSpec -> IntervalSpec
max :: IntervalSpec -> IntervalSpec -> IntervalSpec
$cmin :: IntervalSpec -> IntervalSpec -> IntervalSpec
min :: IntervalSpec -> IntervalSpec -> IntervalSpec
Prelude.Ord)
instance Prelude.Show IntervalSpec where
showsPrec :: Int -> IntervalSpec -> ShowS
showsPrec Int
_ IntervalSpec
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(IntervalSpec -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort IntervalSpec
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField IntervalSpec "interval" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "interval"
-> (Duration -> f Duration) -> IntervalSpec -> f IntervalSpec
fieldOf Proxy# "interval"
_
= ((Maybe Duration -> f (Maybe Duration))
-> IntervalSpec -> f IntervalSpec)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> IntervalSpec
-> f IntervalSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntervalSpec -> Maybe Duration)
-> (IntervalSpec -> Maybe Duration -> IntervalSpec)
-> Lens IntervalSpec IntervalSpec (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntervalSpec -> Maybe Duration
_IntervalSpec'interval
(\ IntervalSpec
x__ Maybe Duration
y__ -> IntervalSpec
x__ {_IntervalSpec'interval = 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 IntervalSpec "maybe'interval" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'interval"
-> (Maybe Duration -> f (Maybe Duration))
-> IntervalSpec
-> f IntervalSpec
fieldOf Proxy# "maybe'interval"
_
= ((Maybe Duration -> f (Maybe Duration))
-> IntervalSpec -> f IntervalSpec)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> IntervalSpec
-> f IntervalSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntervalSpec -> Maybe Duration)
-> (IntervalSpec -> Maybe Duration -> IntervalSpec)
-> Lens IntervalSpec IntervalSpec (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntervalSpec -> Maybe Duration
_IntervalSpec'interval
(\ IntervalSpec
x__ Maybe Duration
y__ -> IntervalSpec
x__ {_IntervalSpec'interval = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntervalSpec "phase" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "phase"
-> (Duration -> f Duration) -> IntervalSpec -> f IntervalSpec
fieldOf Proxy# "phase"
_
= ((Maybe Duration -> f (Maybe Duration))
-> IntervalSpec -> f IntervalSpec)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> IntervalSpec
-> f IntervalSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntervalSpec -> Maybe Duration)
-> (IntervalSpec -> Maybe Duration -> IntervalSpec)
-> Lens IntervalSpec IntervalSpec (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntervalSpec -> Maybe Duration
_IntervalSpec'phase (\ IntervalSpec
x__ Maybe Duration
y__ -> IntervalSpec
x__ {_IntervalSpec'phase = 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 IntervalSpec "maybe'phase" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'phase"
-> (Maybe Duration -> f (Maybe Duration))
-> IntervalSpec
-> f IntervalSpec
fieldOf Proxy# "maybe'phase"
_
= ((Maybe Duration -> f (Maybe Duration))
-> IntervalSpec -> f IntervalSpec)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> IntervalSpec
-> f IntervalSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntervalSpec -> Maybe Duration)
-> (IntervalSpec -> Maybe Duration -> IntervalSpec)
-> Lens IntervalSpec IntervalSpec (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntervalSpec -> Maybe Duration
_IntervalSpec'phase (\ IntervalSpec
x__ Maybe Duration
y__ -> IntervalSpec
x__ {_IntervalSpec'phase = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message IntervalSpec where
messageName :: Proxy IntervalSpec -> Text
messageName Proxy IntervalSpec
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.IntervalSpec"
packedMessageDescriptor :: Proxy IntervalSpec -> ByteString
packedMessageDescriptor Proxy IntervalSpec
_
= ByteString
"\n\
\\fIntervalSpec\DC25\n\
\\binterval\CAN\SOH \SOH(\v2\EM.google.protobuf.DurationR\binterval\DC2/\n\
\\ENQphase\CAN\STX \SOH(\v2\EM.google.protobuf.DurationR\ENQphase"
packedFileDescriptor :: Proxy IntervalSpec -> ByteString
packedFileDescriptor Proxy IntervalSpec
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor IntervalSpec)
fieldsByTag
= let
interval__field_descriptor :: FieldDescriptor IntervalSpec
interval__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor IntervalSpec Duration
-> FieldDescriptor IntervalSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"interval"
(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 IntervalSpec IntervalSpec (Maybe Duration) (Maybe Duration)
-> FieldAccessor IntervalSpec 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'interval")) ::
Data.ProtoLens.FieldDescriptor IntervalSpec
phase__field_descriptor :: FieldDescriptor IntervalSpec
phase__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor IntervalSpec Duration
-> FieldDescriptor IntervalSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"phase"
(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 IntervalSpec IntervalSpec (Maybe Duration) (Maybe Duration)
-> FieldAccessor IntervalSpec 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'phase")) ::
Data.ProtoLens.FieldDescriptor IntervalSpec
in
[(Tag, FieldDescriptor IntervalSpec)]
-> Map Tag (FieldDescriptor IntervalSpec)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor IntervalSpec
interval__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor IntervalSpec
phase__field_descriptor)]
unknownFields :: Lens' IntervalSpec FieldSet
unknownFields
= (IntervalSpec -> FieldSet)
-> (IntervalSpec -> FieldSet -> IntervalSpec)
-> Lens' IntervalSpec FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntervalSpec -> FieldSet
_IntervalSpec'_unknownFields
(\ IntervalSpec
x__ FieldSet
y__ -> IntervalSpec
x__ {_IntervalSpec'_unknownFields = y__})
defMessage :: IntervalSpec
defMessage
= IntervalSpec'_constructor
{_IntervalSpec'interval :: Maybe Duration
_IntervalSpec'interval = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_IntervalSpec'phase :: Maybe Duration
_IntervalSpec'phase = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_IntervalSpec'_unknownFields :: FieldSet
_IntervalSpec'_unknownFields = []}
parseMessage :: Parser IntervalSpec
parseMessage
= let
loop ::
IntervalSpec -> Data.ProtoLens.Encoding.Bytes.Parser IntervalSpec
loop :: IntervalSpec -> Parser IntervalSpec
loop IntervalSpec
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 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
"interval"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"interval") 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
"phase"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"phase") 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 IntervalSpec -> String -> Parser IntervalSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do IntervalSpec -> Parser IntervalSpec
loop IntervalSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"IntervalSpec"
buildMessage :: IntervalSpec -> Builder
buildMessage
= \ IntervalSpec
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Duration)
IntervalSpec
IntervalSpec
(Maybe Duration)
(Maybe Duration)
-> IntervalSpec -> 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'interval") IntervalSpec
_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
10)
((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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Duration)
IntervalSpec
IntervalSpec
(Maybe Duration)
(Maybe Duration)
-> IntervalSpec -> 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'phase") IntervalSpec
_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 IntervalSpec IntervalSpec FieldSet FieldSet
-> IntervalSpec -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet IntervalSpec IntervalSpec FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' IntervalSpec FieldSet
Data.ProtoLens.unknownFields IntervalSpec
_x)))
instance Control.DeepSeq.NFData IntervalSpec where
rnf :: IntervalSpec -> ()
rnf
= \ IntervalSpec
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntervalSpec -> FieldSet
_IntervalSpec'_unknownFields IntervalSpec
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntervalSpec -> Maybe Duration
_IntervalSpec'interval IntervalSpec
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (IntervalSpec -> Maybe Duration
_IntervalSpec'phase IntervalSpec
x__) ()))
data Range
= Range'_constructor {Range -> Int32
_Range'start :: !Data.Int.Int32,
Range -> Int32
_Range'end :: !Data.Int.Int32,
Range -> Int32
_Range'step :: !Data.Int.Int32,
Range -> FieldSet
_Range'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Range -> Range -> Bool
(Range -> Range -> Bool) -> (Range -> Range -> Bool) -> Eq Range
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Range -> Range -> Bool
== :: Range -> Range -> Bool
$c/= :: Range -> Range -> Bool
/= :: Range -> Range -> Bool
Prelude.Eq, Eq Range
Eq Range =>
(Range -> Range -> Ordering)
-> (Range -> Range -> Bool)
-> (Range -> Range -> Bool)
-> (Range -> Range -> Bool)
-> (Range -> Range -> Bool)
-> (Range -> Range -> Range)
-> (Range -> Range -> Range)
-> Ord Range
Range -> Range -> Bool
Range -> Range -> Ordering
Range -> Range -> Range
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 :: Range -> Range -> Ordering
compare :: Range -> Range -> Ordering
$c< :: Range -> Range -> Bool
< :: Range -> Range -> Bool
$c<= :: Range -> Range -> Bool
<= :: Range -> Range -> Bool
$c> :: Range -> Range -> Bool
> :: Range -> Range -> Bool
$c>= :: Range -> Range -> Bool
>= :: Range -> Range -> Bool
$cmax :: Range -> Range -> Range
max :: Range -> Range -> Range
$cmin :: Range -> Range -> Range
min :: Range -> Range -> Range
Prelude.Ord)
instance Prelude.Show Range where
showsPrec :: Int -> Range -> ShowS
showsPrec Int
_ Range
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Range -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Range
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Range "start" Data.Int.Int32 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "start" -> (Int32 -> f Int32) -> Range -> f Range
fieldOf Proxy# "start"
_
= ((Int32 -> f Int32) -> Range -> f Range)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> Range
-> f Range
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Range -> Int32)
-> (Range -> Int32 -> Range) -> Lens Range Range Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Range -> Int32
_Range'start (\ Range
x__ Int32
y__ -> Range
x__ {_Range'start = y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Range "end" Data.Int.Int32 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "end" -> (Int32 -> f Int32) -> Range -> f Range
fieldOf Proxy# "end"
_
= ((Int32 -> f Int32) -> Range -> f Range)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> Range
-> f Range
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Range -> Int32)
-> (Range -> Int32 -> Range) -> Lens Range Range Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Range -> Int32
_Range'end (\ Range
x__ Int32
y__ -> Range
x__ {_Range'end = y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Range "step" Data.Int.Int32 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "step" -> (Int32 -> f Int32) -> Range -> f Range
fieldOf Proxy# "step"
_
= ((Int32 -> f Int32) -> Range -> f Range)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> Range
-> f Range
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Range -> Int32)
-> (Range -> Int32 -> Range) -> Lens Range Range Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Range -> Int32
_Range'step (\ Range
x__ Int32
y__ -> Range
x__ {_Range'step = y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Range where
messageName :: Proxy Range -> Text
messageName Proxy Range
_ = String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.Range"
packedMessageDescriptor :: Proxy Range -> ByteString
packedMessageDescriptor Proxy Range
_
= ByteString
"\n\
\\ENQRange\DC2\DC4\n\
\\ENQstart\CAN\SOH \SOH(\ENQR\ENQstart\DC2\DLE\n\
\\ETXend\CAN\STX \SOH(\ENQR\ETXend\DC2\DC2\n\
\\EOTstep\CAN\ETX \SOH(\ENQR\EOTstep"
packedFileDescriptor :: Proxy Range -> ByteString
packedFileDescriptor Proxy Range
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Range)
fieldsByTag
= let
start__field_descriptor :: FieldDescriptor Range
start__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor Range Int32
-> FieldDescriptor Range
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start"
(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 Range Range Int32 Int32 -> FieldAccessor Range 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 @"start")) ::
Data.ProtoLens.FieldDescriptor Range
end__field_descriptor :: FieldDescriptor Range
end__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor Range Int32
-> FieldDescriptor Range
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"end"
(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 Range Range Int32 Int32 -> FieldAccessor Range 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 @"end")) ::
Data.ProtoLens.FieldDescriptor Range
step__field_descriptor :: FieldDescriptor Range
step__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor Range Int32
-> FieldDescriptor Range
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"step"
(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 Range Range Int32 Int32 -> FieldAccessor Range 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 @"step")) ::
Data.ProtoLens.FieldDescriptor Range
in
[(Tag, FieldDescriptor Range)] -> Map Tag (FieldDescriptor Range)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Range
start__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Range
end__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Range
step__field_descriptor)]
unknownFields :: Lens' Range FieldSet
unknownFields
= (Range -> FieldSet)
-> (Range -> FieldSet -> Range) -> Lens' Range FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Range -> FieldSet
_Range'_unknownFields
(\ Range
x__ FieldSet
y__ -> Range
x__ {_Range'_unknownFields = y__})
defMessage :: Range
defMessage
= Range'_constructor
{_Range'start :: Int32
_Range'start = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Range'end :: Int32
_Range'end = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Range'step :: Int32
_Range'step = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Range'_unknownFields :: FieldSet
_Range'_unknownFields = []}
parseMessage :: Parser Range
parseMessage
= let
loop :: Range -> Data.ProtoLens.Encoding.Bytes.Parser Range
loop :: Range -> Parser Range
loop Range
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
"start"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y x)
Word64
16
-> 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
"end"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"end") y x)
Word64
24
-> 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
"step"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"step") 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 Range -> String -> Parser Range
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Range -> Parser Range
loop Range
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Range"
buildMessage :: Range -> Builder
buildMessage
= \ Range
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v = FoldLike Int32 Range Range Int32 Int32 -> Range -> 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 @"start") Range
_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.<>)
(let _v :: Int32
_v = FoldLike Int32 Range Range Int32 Int32 -> Range -> 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 @"end") Range
_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
16)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Int32
_v = FoldLike Int32 Range Range Int32 Int32 -> Range -> 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 @"step") Range
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Range Range FieldSet FieldSet
-> Range -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Range Range FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Range FieldSet
Data.ProtoLens.unknownFields Range
_x))))
instance Control.DeepSeq.NFData Range where
rnf :: Range -> ()
rnf
= \ Range
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Range -> FieldSet
_Range'_unknownFields Range
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Range -> Int32
_Range'start Range
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Range -> Int32
_Range'end Range
x__) (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Range -> Int32
_Range'step Range
x__) ())))
data Schedule
= Schedule'_constructor {Schedule -> Maybe ScheduleSpec
_Schedule'spec :: !(Prelude.Maybe ScheduleSpec),
Schedule -> Maybe ScheduleAction
_Schedule'action :: !(Prelude.Maybe ScheduleAction),
Schedule -> Maybe SchedulePolicies
_Schedule'policies :: !(Prelude.Maybe SchedulePolicies),
Schedule -> Maybe ScheduleState
_Schedule'state :: !(Prelude.Maybe ScheduleState),
Schedule -> FieldSet
_Schedule'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Schedule -> Schedule -> Bool
(Schedule -> Schedule -> Bool)
-> (Schedule -> Schedule -> Bool) -> Eq Schedule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Schedule -> Schedule -> Bool
== :: Schedule -> Schedule -> Bool
$c/= :: Schedule -> Schedule -> Bool
/= :: Schedule -> Schedule -> Bool
Prelude.Eq, Eq Schedule
Eq Schedule =>
(Schedule -> Schedule -> Ordering)
-> (Schedule -> Schedule -> Bool)
-> (Schedule -> Schedule -> Bool)
-> (Schedule -> Schedule -> Bool)
-> (Schedule -> Schedule -> Bool)
-> (Schedule -> Schedule -> Schedule)
-> (Schedule -> Schedule -> Schedule)
-> Ord Schedule
Schedule -> Schedule -> Bool
Schedule -> Schedule -> Ordering
Schedule -> Schedule -> Schedule
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Schedule -> Schedule -> Ordering
compare :: Schedule -> Schedule -> Ordering
$c< :: Schedule -> Schedule -> Bool
< :: Schedule -> Schedule -> Bool
$c<= :: Schedule -> Schedule -> Bool
<= :: Schedule -> Schedule -> Bool
$c> :: Schedule -> Schedule -> Bool
> :: Schedule -> Schedule -> Bool
$c>= :: Schedule -> Schedule -> Bool
>= :: Schedule -> Schedule -> Bool
$cmax :: Schedule -> Schedule -> Schedule
max :: Schedule -> Schedule -> Schedule
$cmin :: Schedule -> Schedule -> Schedule
min :: Schedule -> Schedule -> Schedule
Prelude.Ord)
instance Prelude.Show Schedule where
showsPrec :: Int -> Schedule -> ShowS
showsPrec Int
_ Schedule
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Schedule -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Schedule
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Schedule "spec" ScheduleSpec where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "spec"
-> (ScheduleSpec -> f ScheduleSpec) -> Schedule -> f Schedule
fieldOf Proxy# "spec"
_
= ((Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> Schedule -> f Schedule)
-> ((ScheduleSpec -> f ScheduleSpec)
-> Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> (ScheduleSpec -> f ScheduleSpec)
-> Schedule
-> f Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Schedule -> Maybe ScheduleSpec)
-> (Schedule -> Maybe ScheduleSpec -> Schedule)
-> Lens Schedule Schedule (Maybe ScheduleSpec) (Maybe ScheduleSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Schedule -> Maybe ScheduleSpec
_Schedule'spec (\ Schedule
x__ Maybe ScheduleSpec
y__ -> Schedule
x__ {_Schedule'spec = y__}))
(ScheduleSpec -> Lens' (Maybe ScheduleSpec) ScheduleSpec
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ScheduleSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Schedule "maybe'spec" (Prelude.Maybe ScheduleSpec) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'spec"
-> (Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> Schedule
-> f Schedule
fieldOf Proxy# "maybe'spec"
_
= ((Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> Schedule -> f Schedule)
-> ((Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> (Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> Schedule
-> f Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Schedule -> Maybe ScheduleSpec)
-> (Schedule -> Maybe ScheduleSpec -> Schedule)
-> Lens Schedule Schedule (Maybe ScheduleSpec) (Maybe ScheduleSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Schedule -> Maybe ScheduleSpec
_Schedule'spec (\ Schedule
x__ Maybe ScheduleSpec
y__ -> Schedule
x__ {_Schedule'spec = y__}))
(Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> Maybe ScheduleSpec -> f (Maybe ScheduleSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Schedule "action" ScheduleAction where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "action"
-> (ScheduleAction -> f ScheduleAction) -> Schedule -> f Schedule
fieldOf Proxy# "action"
_
= ((Maybe ScheduleAction -> f (Maybe ScheduleAction))
-> Schedule -> f Schedule)
-> ((ScheduleAction -> f ScheduleAction)
-> Maybe ScheduleAction -> f (Maybe ScheduleAction))
-> (ScheduleAction -> f ScheduleAction)
-> Schedule
-> f Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Schedule -> Maybe ScheduleAction)
-> (Schedule -> Maybe ScheduleAction -> Schedule)
-> Lens
Schedule Schedule (Maybe ScheduleAction) (Maybe ScheduleAction)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Schedule -> Maybe ScheduleAction
_Schedule'action (\ Schedule
x__ Maybe ScheduleAction
y__ -> Schedule
x__ {_Schedule'action = y__}))
(ScheduleAction -> Lens' (Maybe ScheduleAction) ScheduleAction
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ScheduleAction
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Schedule "maybe'action" (Prelude.Maybe ScheduleAction) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'action"
-> (Maybe ScheduleAction -> f (Maybe ScheduleAction))
-> Schedule
-> f Schedule
fieldOf Proxy# "maybe'action"
_
= ((Maybe ScheduleAction -> f (Maybe ScheduleAction))
-> Schedule -> f Schedule)
-> ((Maybe ScheduleAction -> f (Maybe ScheduleAction))
-> Maybe ScheduleAction -> f (Maybe ScheduleAction))
-> (Maybe ScheduleAction -> f (Maybe ScheduleAction))
-> Schedule
-> f Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Schedule -> Maybe ScheduleAction)
-> (Schedule -> Maybe ScheduleAction -> Schedule)
-> Lens
Schedule Schedule (Maybe ScheduleAction) (Maybe ScheduleAction)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Schedule -> Maybe ScheduleAction
_Schedule'action (\ Schedule
x__ Maybe ScheduleAction
y__ -> Schedule
x__ {_Schedule'action = y__}))
(Maybe ScheduleAction -> f (Maybe ScheduleAction))
-> Maybe ScheduleAction -> f (Maybe ScheduleAction)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Schedule "policies" SchedulePolicies where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "policies"
-> (SchedulePolicies -> f SchedulePolicies)
-> Schedule
-> f Schedule
fieldOf Proxy# "policies"
_
= ((Maybe SchedulePolicies -> f (Maybe SchedulePolicies))
-> Schedule -> f Schedule)
-> ((SchedulePolicies -> f SchedulePolicies)
-> Maybe SchedulePolicies -> f (Maybe SchedulePolicies))
-> (SchedulePolicies -> f SchedulePolicies)
-> Schedule
-> f Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Schedule -> Maybe SchedulePolicies)
-> (Schedule -> Maybe SchedulePolicies -> Schedule)
-> Lens
Schedule Schedule (Maybe SchedulePolicies) (Maybe SchedulePolicies)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Schedule -> Maybe SchedulePolicies
_Schedule'policies (\ Schedule
x__ Maybe SchedulePolicies
y__ -> Schedule
x__ {_Schedule'policies = y__}))
(SchedulePolicies -> Lens' (Maybe SchedulePolicies) SchedulePolicies
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SchedulePolicies
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Schedule "maybe'policies" (Prelude.Maybe SchedulePolicies) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'policies"
-> (Maybe SchedulePolicies -> f (Maybe SchedulePolicies))
-> Schedule
-> f Schedule
fieldOf Proxy# "maybe'policies"
_
= ((Maybe SchedulePolicies -> f (Maybe SchedulePolicies))
-> Schedule -> f Schedule)
-> ((Maybe SchedulePolicies -> f (Maybe SchedulePolicies))
-> Maybe SchedulePolicies -> f (Maybe SchedulePolicies))
-> (Maybe SchedulePolicies -> f (Maybe SchedulePolicies))
-> Schedule
-> f Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Schedule -> Maybe SchedulePolicies)
-> (Schedule -> Maybe SchedulePolicies -> Schedule)
-> Lens
Schedule Schedule (Maybe SchedulePolicies) (Maybe SchedulePolicies)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Schedule -> Maybe SchedulePolicies
_Schedule'policies (\ Schedule
x__ Maybe SchedulePolicies
y__ -> Schedule
x__ {_Schedule'policies = y__}))
(Maybe SchedulePolicies -> f (Maybe SchedulePolicies))
-> Maybe SchedulePolicies -> f (Maybe SchedulePolicies)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Schedule "state" ScheduleState where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "state"
-> (ScheduleState -> f ScheduleState) -> Schedule -> f Schedule
fieldOf Proxy# "state"
_
= ((Maybe ScheduleState -> f (Maybe ScheduleState))
-> Schedule -> f Schedule)
-> ((ScheduleState -> f ScheduleState)
-> Maybe ScheduleState -> f (Maybe ScheduleState))
-> (ScheduleState -> f ScheduleState)
-> Schedule
-> f Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Schedule -> Maybe ScheduleState)
-> (Schedule -> Maybe ScheduleState -> Schedule)
-> Lens
Schedule Schedule (Maybe ScheduleState) (Maybe ScheduleState)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Schedule -> Maybe ScheduleState
_Schedule'state (\ Schedule
x__ Maybe ScheduleState
y__ -> Schedule
x__ {_Schedule'state = y__}))
(ScheduleState -> Lens' (Maybe ScheduleState) ScheduleState
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ScheduleState
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Schedule "maybe'state" (Prelude.Maybe ScheduleState) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'state"
-> (Maybe ScheduleState -> f (Maybe ScheduleState))
-> Schedule
-> f Schedule
fieldOf Proxy# "maybe'state"
_
= ((Maybe ScheduleState -> f (Maybe ScheduleState))
-> Schedule -> f Schedule)
-> ((Maybe ScheduleState -> f (Maybe ScheduleState))
-> Maybe ScheduleState -> f (Maybe ScheduleState))
-> (Maybe ScheduleState -> f (Maybe ScheduleState))
-> Schedule
-> f Schedule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Schedule -> Maybe ScheduleState)
-> (Schedule -> Maybe ScheduleState -> Schedule)
-> Lens
Schedule Schedule (Maybe ScheduleState) (Maybe ScheduleState)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Schedule -> Maybe ScheduleState
_Schedule'state (\ Schedule
x__ Maybe ScheduleState
y__ -> Schedule
x__ {_Schedule'state = y__}))
(Maybe ScheduleState -> f (Maybe ScheduleState))
-> Maybe ScheduleState -> f (Maybe ScheduleState)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Schedule where
messageName :: Proxy Schedule -> Text
messageName Proxy Schedule
_ = String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.Schedule"
packedMessageDescriptor :: Proxy Schedule -> ByteString
packedMessageDescriptor Proxy Schedule
_
= ByteString
"\n\
\\bSchedule\DC2:\n\
\\EOTspec\CAN\SOH \SOH(\v2&.temporal.api.schedule.v1.ScheduleSpecR\EOTspec\DC2@\n\
\\ACKaction\CAN\STX \SOH(\v2(.temporal.api.schedule.v1.ScheduleActionR\ACKaction\DC2F\n\
\\bpolicies\CAN\ETX \SOH(\v2*.temporal.api.schedule.v1.SchedulePoliciesR\bpolicies\DC2=\n\
\\ENQstate\CAN\EOT \SOH(\v2'.temporal.api.schedule.v1.ScheduleStateR\ENQstate"
packedFileDescriptor :: Proxy Schedule -> ByteString
packedFileDescriptor Proxy Schedule
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Schedule)
fieldsByTag
= let
spec__field_descriptor :: FieldDescriptor Schedule
spec__field_descriptor
= String
-> FieldTypeDescriptor ScheduleSpec
-> FieldAccessor Schedule ScheduleSpec
-> FieldDescriptor Schedule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"spec"
(MessageOrGroup -> FieldTypeDescriptor ScheduleSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ScheduleSpec)
(Lens Schedule Schedule (Maybe ScheduleSpec) (Maybe ScheduleSpec)
-> FieldAccessor Schedule ScheduleSpec
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'spec")) ::
Data.ProtoLens.FieldDescriptor Schedule
action__field_descriptor :: FieldDescriptor Schedule
action__field_descriptor
= String
-> FieldTypeDescriptor ScheduleAction
-> FieldAccessor Schedule ScheduleAction
-> FieldDescriptor Schedule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"action"
(MessageOrGroup -> FieldTypeDescriptor ScheduleAction
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ScheduleAction)
(Lens
Schedule Schedule (Maybe ScheduleAction) (Maybe ScheduleAction)
-> FieldAccessor Schedule ScheduleAction
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'action")) ::
Data.ProtoLens.FieldDescriptor Schedule
policies__field_descriptor :: FieldDescriptor Schedule
policies__field_descriptor
= String
-> FieldTypeDescriptor SchedulePolicies
-> FieldAccessor Schedule SchedulePolicies
-> FieldDescriptor Schedule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"policies"
(MessageOrGroup -> FieldTypeDescriptor SchedulePolicies
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SchedulePolicies)
(Lens
Schedule Schedule (Maybe SchedulePolicies) (Maybe SchedulePolicies)
-> FieldAccessor Schedule SchedulePolicies
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'policies")) ::
Data.ProtoLens.FieldDescriptor Schedule
state__field_descriptor :: FieldDescriptor Schedule
state__field_descriptor
= String
-> FieldTypeDescriptor ScheduleState
-> FieldAccessor Schedule ScheduleState
-> FieldDescriptor Schedule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"state"
(MessageOrGroup -> FieldTypeDescriptor ScheduleState
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ScheduleState)
(Lens Schedule Schedule (Maybe ScheduleState) (Maybe ScheduleState)
-> FieldAccessor Schedule ScheduleState
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'state")) ::
Data.ProtoLens.FieldDescriptor Schedule
in
[(Tag, FieldDescriptor Schedule)]
-> Map Tag (FieldDescriptor Schedule)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Schedule
spec__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Schedule
action__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Schedule
policies__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Schedule
state__field_descriptor)]
unknownFields :: Lens' Schedule FieldSet
unknownFields
= (Schedule -> FieldSet)
-> (Schedule -> FieldSet -> Schedule) -> Lens' Schedule FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Schedule -> FieldSet
_Schedule'_unknownFields
(\ Schedule
x__ FieldSet
y__ -> Schedule
x__ {_Schedule'_unknownFields = y__})
defMessage :: Schedule
defMessage
= Schedule'_constructor
{_Schedule'spec :: Maybe ScheduleSpec
_Schedule'spec = Maybe ScheduleSpec
forall a. Maybe a
Prelude.Nothing,
_Schedule'action :: Maybe ScheduleAction
_Schedule'action = Maybe ScheduleAction
forall a. Maybe a
Prelude.Nothing,
_Schedule'policies :: Maybe SchedulePolicies
_Schedule'policies = Maybe SchedulePolicies
forall a. Maybe a
Prelude.Nothing,
_Schedule'state :: Maybe ScheduleState
_Schedule'state = Maybe ScheduleState
forall a. Maybe a
Prelude.Nothing, _Schedule'_unknownFields :: FieldSet
_Schedule'_unknownFields = []}
parseMessage :: Parser Schedule
parseMessage
= let
loop :: Schedule -> Data.ProtoLens.Encoding.Bytes.Parser Schedule
loop :: Schedule -> Parser Schedule
loop Schedule
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 ScheduleSpec -> String -> Parser ScheduleSpec
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
"spec"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"spec") y x)
Word64
18
-> do y <- Parser ScheduleAction -> String -> Parser ScheduleAction
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
"action"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"action") y x)
Word64
26
-> do y <- Parser SchedulePolicies -> String -> Parser SchedulePolicies
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
"policies"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"policies") y x)
Word64
34
-> do y <- Parser ScheduleState -> String -> Parser ScheduleState
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
"state"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"state") 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 Schedule -> String -> Parser Schedule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Schedule -> Parser Schedule
loop Schedule
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Schedule"
buildMessage :: Schedule -> Builder
buildMessage
= \ Schedule
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ScheduleSpec)
Schedule
Schedule
(Maybe ScheduleSpec)
(Maybe ScheduleSpec)
-> Schedule -> Maybe ScheduleSpec
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'spec") Schedule
_x
of
Maybe ScheduleSpec
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just ScheduleSpec
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (ScheduleSpec -> ByteString) -> ScheduleSpec -> 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))
ScheduleSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ScheduleSpec
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ScheduleAction)
Schedule
Schedule
(Maybe ScheduleAction)
(Maybe ScheduleAction)
-> Schedule -> Maybe ScheduleAction
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'action") Schedule
_x
of
Maybe ScheduleAction
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just ScheduleAction
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (ScheduleAction -> ByteString) -> ScheduleAction -> 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))
ScheduleAction -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ScheduleAction
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe SchedulePolicies)
Schedule
Schedule
(Maybe SchedulePolicies)
(Maybe SchedulePolicies)
-> Schedule -> Maybe SchedulePolicies
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'policies") Schedule
_x
of
Maybe SchedulePolicies
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just SchedulePolicies
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (SchedulePolicies -> ByteString) -> SchedulePolicies -> 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))
SchedulePolicies -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage SchedulePolicies
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ScheduleState)
Schedule
Schedule
(Maybe ScheduleState)
(Maybe ScheduleState)
-> Schedule -> Maybe ScheduleState
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'state") Schedule
_x
of
Maybe ScheduleState
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just ScheduleState
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (ScheduleState -> ByteString) -> ScheduleState -> 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))
ScheduleState -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ScheduleState
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Schedule Schedule FieldSet FieldSet
-> Schedule -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Schedule Schedule FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Schedule FieldSet
Data.ProtoLens.unknownFields Schedule
_x)))))
instance Control.DeepSeq.NFData Schedule where
rnf :: Schedule -> ()
rnf
= \ Schedule
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Schedule -> FieldSet
_Schedule'_unknownFields Schedule
x__)
(Maybe ScheduleSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Schedule -> Maybe ScheduleSpec
_Schedule'spec Schedule
x__)
(Maybe ScheduleAction -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Schedule -> Maybe ScheduleAction
_Schedule'action Schedule
x__)
(Maybe SchedulePolicies -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Schedule -> Maybe SchedulePolicies
_Schedule'policies Schedule
x__)
(Maybe ScheduleState -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Schedule -> Maybe ScheduleState
_Schedule'state Schedule
x__) ()))))
data ScheduleAction
= ScheduleAction'_constructor {ScheduleAction -> Maybe ScheduleAction'Action
_ScheduleAction'action :: !(Prelude.Maybe ScheduleAction'Action),
ScheduleAction -> FieldSet
_ScheduleAction'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ScheduleAction -> ScheduleAction -> Bool
(ScheduleAction -> ScheduleAction -> Bool)
-> (ScheduleAction -> ScheduleAction -> Bool) -> Eq ScheduleAction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScheduleAction -> ScheduleAction -> Bool
== :: ScheduleAction -> ScheduleAction -> Bool
$c/= :: ScheduleAction -> ScheduleAction -> Bool
/= :: ScheduleAction -> ScheduleAction -> Bool
Prelude.Eq, Eq ScheduleAction
Eq ScheduleAction =>
(ScheduleAction -> ScheduleAction -> Ordering)
-> (ScheduleAction -> ScheduleAction -> Bool)
-> (ScheduleAction -> ScheduleAction -> Bool)
-> (ScheduleAction -> ScheduleAction -> Bool)
-> (ScheduleAction -> ScheduleAction -> Bool)
-> (ScheduleAction -> ScheduleAction -> ScheduleAction)
-> (ScheduleAction -> ScheduleAction -> ScheduleAction)
-> Ord ScheduleAction
ScheduleAction -> ScheduleAction -> Bool
ScheduleAction -> ScheduleAction -> Ordering
ScheduleAction -> ScheduleAction -> ScheduleAction
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 :: ScheduleAction -> ScheduleAction -> Ordering
compare :: ScheduleAction -> ScheduleAction -> Ordering
$c< :: ScheduleAction -> ScheduleAction -> Bool
< :: ScheduleAction -> ScheduleAction -> Bool
$c<= :: ScheduleAction -> ScheduleAction -> Bool
<= :: ScheduleAction -> ScheduleAction -> Bool
$c> :: ScheduleAction -> ScheduleAction -> Bool
> :: ScheduleAction -> ScheduleAction -> Bool
$c>= :: ScheduleAction -> ScheduleAction -> Bool
>= :: ScheduleAction -> ScheduleAction -> Bool
$cmax :: ScheduleAction -> ScheduleAction -> ScheduleAction
max :: ScheduleAction -> ScheduleAction -> ScheduleAction
$cmin :: ScheduleAction -> ScheduleAction -> ScheduleAction
min :: ScheduleAction -> ScheduleAction -> ScheduleAction
Prelude.Ord)
instance Prelude.Show ScheduleAction where
showsPrec :: Int -> ScheduleAction -> ShowS
showsPrec Int
_ ScheduleAction
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ScheduleAction -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ScheduleAction
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data ScheduleAction'Action
= ScheduleAction'StartWorkflow !Proto.Temporal.Api.Workflow.V1.Message.NewWorkflowExecutionInfo
deriving stock (Int -> ScheduleAction'Action -> ShowS
[ScheduleAction'Action] -> ShowS
ScheduleAction'Action -> String
(Int -> ScheduleAction'Action -> ShowS)
-> (ScheduleAction'Action -> String)
-> ([ScheduleAction'Action] -> ShowS)
-> Show ScheduleAction'Action
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ScheduleAction'Action -> ShowS
showsPrec :: Int -> ScheduleAction'Action -> ShowS
$cshow :: ScheduleAction'Action -> String
show :: ScheduleAction'Action -> String
$cshowList :: [ScheduleAction'Action] -> ShowS
showList :: [ScheduleAction'Action] -> ShowS
Prelude.Show, ScheduleAction'Action -> ScheduleAction'Action -> Bool
(ScheduleAction'Action -> ScheduleAction'Action -> Bool)
-> (ScheduleAction'Action -> ScheduleAction'Action -> Bool)
-> Eq ScheduleAction'Action
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScheduleAction'Action -> ScheduleAction'Action -> Bool
== :: ScheduleAction'Action -> ScheduleAction'Action -> Bool
$c/= :: ScheduleAction'Action -> ScheduleAction'Action -> Bool
/= :: ScheduleAction'Action -> ScheduleAction'Action -> Bool
Prelude.Eq, Eq ScheduleAction'Action
Eq ScheduleAction'Action =>
(ScheduleAction'Action -> ScheduleAction'Action -> Ordering)
-> (ScheduleAction'Action -> ScheduleAction'Action -> Bool)
-> (ScheduleAction'Action -> ScheduleAction'Action -> Bool)
-> (ScheduleAction'Action -> ScheduleAction'Action -> Bool)
-> (ScheduleAction'Action -> ScheduleAction'Action -> Bool)
-> (ScheduleAction'Action
-> ScheduleAction'Action -> ScheduleAction'Action)
-> (ScheduleAction'Action
-> ScheduleAction'Action -> ScheduleAction'Action)
-> Ord ScheduleAction'Action
ScheduleAction'Action -> ScheduleAction'Action -> Bool
ScheduleAction'Action -> ScheduleAction'Action -> Ordering
ScheduleAction'Action
-> ScheduleAction'Action -> ScheduleAction'Action
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 :: ScheduleAction'Action -> ScheduleAction'Action -> Ordering
compare :: ScheduleAction'Action -> ScheduleAction'Action -> Ordering
$c< :: ScheduleAction'Action -> ScheduleAction'Action -> Bool
< :: ScheduleAction'Action -> ScheduleAction'Action -> Bool
$c<= :: ScheduleAction'Action -> ScheduleAction'Action -> Bool
<= :: ScheduleAction'Action -> ScheduleAction'Action -> Bool
$c> :: ScheduleAction'Action -> ScheduleAction'Action -> Bool
> :: ScheduleAction'Action -> ScheduleAction'Action -> Bool
$c>= :: ScheduleAction'Action -> ScheduleAction'Action -> Bool
>= :: ScheduleAction'Action -> ScheduleAction'Action -> Bool
$cmax :: ScheduleAction'Action
-> ScheduleAction'Action -> ScheduleAction'Action
max :: ScheduleAction'Action
-> ScheduleAction'Action -> ScheduleAction'Action
$cmin :: ScheduleAction'Action
-> ScheduleAction'Action -> ScheduleAction'Action
min :: ScheduleAction'Action
-> ScheduleAction'Action -> ScheduleAction'Action
Prelude.Ord)
instance Data.ProtoLens.Field.HasField ScheduleAction "maybe'action" (Prelude.Maybe ScheduleAction'Action) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'action"
-> (Maybe ScheduleAction'Action -> f (Maybe ScheduleAction'Action))
-> ScheduleAction
-> f ScheduleAction
fieldOf Proxy# "maybe'action"
_
= ((Maybe ScheduleAction'Action -> f (Maybe ScheduleAction'Action))
-> ScheduleAction -> f ScheduleAction)
-> ((Maybe ScheduleAction'Action
-> f (Maybe ScheduleAction'Action))
-> Maybe ScheduleAction'Action -> f (Maybe ScheduleAction'Action))
-> (Maybe ScheduleAction'Action -> f (Maybe ScheduleAction'Action))
-> ScheduleAction
-> f ScheduleAction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleAction -> Maybe ScheduleAction'Action)
-> (ScheduleAction
-> Maybe ScheduleAction'Action -> ScheduleAction)
-> Lens
ScheduleAction
ScheduleAction
(Maybe ScheduleAction'Action)
(Maybe ScheduleAction'Action)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleAction -> Maybe ScheduleAction'Action
_ScheduleAction'action
(\ ScheduleAction
x__ Maybe ScheduleAction'Action
y__ -> ScheduleAction
x__ {_ScheduleAction'action = y__}))
(Maybe ScheduleAction'Action -> f (Maybe ScheduleAction'Action))
-> Maybe ScheduleAction'Action -> f (Maybe ScheduleAction'Action)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleAction "maybe'startWorkflow" (Prelude.Maybe Proto.Temporal.Api.Workflow.V1.Message.NewWorkflowExecutionInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'startWorkflow"
-> (Maybe NewWorkflowExecutionInfo
-> f (Maybe NewWorkflowExecutionInfo))
-> ScheduleAction
-> f ScheduleAction
fieldOf Proxy# "maybe'startWorkflow"
_
= ((Maybe ScheduleAction'Action -> f (Maybe ScheduleAction'Action))
-> ScheduleAction -> f ScheduleAction)
-> ((Maybe NewWorkflowExecutionInfo
-> f (Maybe NewWorkflowExecutionInfo))
-> Maybe ScheduleAction'Action -> f (Maybe ScheduleAction'Action))
-> (Maybe NewWorkflowExecutionInfo
-> f (Maybe NewWorkflowExecutionInfo))
-> ScheduleAction
-> f ScheduleAction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleAction -> Maybe ScheduleAction'Action)
-> (ScheduleAction
-> Maybe ScheduleAction'Action -> ScheduleAction)
-> Lens
ScheduleAction
ScheduleAction
(Maybe ScheduleAction'Action)
(Maybe ScheduleAction'Action)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleAction -> Maybe ScheduleAction'Action
_ScheduleAction'action
(\ ScheduleAction
x__ Maybe ScheduleAction'Action
y__ -> ScheduleAction
x__ {_ScheduleAction'action = y__}))
((Maybe ScheduleAction'Action -> Maybe NewWorkflowExecutionInfo)
-> (Maybe ScheduleAction'Action
-> Maybe NewWorkflowExecutionInfo -> Maybe ScheduleAction'Action)
-> Lens
(Maybe ScheduleAction'Action)
(Maybe ScheduleAction'Action)
(Maybe NewWorkflowExecutionInfo)
(Maybe NewWorkflowExecutionInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe ScheduleAction'Action
x__
-> case Maybe ScheduleAction'Action
x__ of
(Prelude.Just (ScheduleAction'StartWorkflow NewWorkflowExecutionInfo
x__val))
-> NewWorkflowExecutionInfo -> Maybe NewWorkflowExecutionInfo
forall a. a -> Maybe a
Prelude.Just NewWorkflowExecutionInfo
x__val
Maybe ScheduleAction'Action
_otherwise -> Maybe NewWorkflowExecutionInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe ScheduleAction'Action
_ Maybe NewWorkflowExecutionInfo
y__ -> (NewWorkflowExecutionInfo -> ScheduleAction'Action)
-> Maybe NewWorkflowExecutionInfo -> Maybe ScheduleAction'Action
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NewWorkflowExecutionInfo -> ScheduleAction'Action
ScheduleAction'StartWorkflow Maybe NewWorkflowExecutionInfo
y__))
instance Data.ProtoLens.Field.HasField ScheduleAction "startWorkflow" Proto.Temporal.Api.Workflow.V1.Message.NewWorkflowExecutionInfo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startWorkflow"
-> (NewWorkflowExecutionInfo -> f NewWorkflowExecutionInfo)
-> ScheduleAction
-> f ScheduleAction
fieldOf Proxy# "startWorkflow"
_
= ((Maybe ScheduleAction'Action -> f (Maybe ScheduleAction'Action))
-> ScheduleAction -> f ScheduleAction)
-> ((NewWorkflowExecutionInfo -> f NewWorkflowExecutionInfo)
-> Maybe ScheduleAction'Action -> f (Maybe ScheduleAction'Action))
-> (NewWorkflowExecutionInfo -> f NewWorkflowExecutionInfo)
-> ScheduleAction
-> f ScheduleAction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleAction -> Maybe ScheduleAction'Action)
-> (ScheduleAction
-> Maybe ScheduleAction'Action -> ScheduleAction)
-> Lens
ScheduleAction
ScheduleAction
(Maybe ScheduleAction'Action)
(Maybe ScheduleAction'Action)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleAction -> Maybe ScheduleAction'Action
_ScheduleAction'action
(\ ScheduleAction
x__ Maybe ScheduleAction'Action
y__ -> ScheduleAction
x__ {_ScheduleAction'action = y__}))
(((Maybe NewWorkflowExecutionInfo
-> f (Maybe NewWorkflowExecutionInfo))
-> Maybe ScheduleAction'Action -> f (Maybe ScheduleAction'Action))
-> ((NewWorkflowExecutionInfo -> f NewWorkflowExecutionInfo)
-> Maybe NewWorkflowExecutionInfo
-> f (Maybe NewWorkflowExecutionInfo))
-> (NewWorkflowExecutionInfo -> f NewWorkflowExecutionInfo)
-> Maybe ScheduleAction'Action
-> f (Maybe ScheduleAction'Action)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe ScheduleAction'Action -> Maybe NewWorkflowExecutionInfo)
-> (Maybe ScheduleAction'Action
-> Maybe NewWorkflowExecutionInfo -> Maybe ScheduleAction'Action)
-> Lens
(Maybe ScheduleAction'Action)
(Maybe ScheduleAction'Action)
(Maybe NewWorkflowExecutionInfo)
(Maybe NewWorkflowExecutionInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe ScheduleAction'Action
x__
-> case Maybe ScheduleAction'Action
x__ of
(Prelude.Just (ScheduleAction'StartWorkflow NewWorkflowExecutionInfo
x__val))
-> NewWorkflowExecutionInfo -> Maybe NewWorkflowExecutionInfo
forall a. a -> Maybe a
Prelude.Just NewWorkflowExecutionInfo
x__val
Maybe ScheduleAction'Action
_otherwise -> Maybe NewWorkflowExecutionInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe ScheduleAction'Action
_ Maybe NewWorkflowExecutionInfo
y__ -> (NewWorkflowExecutionInfo -> ScheduleAction'Action)
-> Maybe NewWorkflowExecutionInfo -> Maybe ScheduleAction'Action
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NewWorkflowExecutionInfo -> ScheduleAction'Action
ScheduleAction'StartWorkflow Maybe NewWorkflowExecutionInfo
y__))
(NewWorkflowExecutionInfo
-> Lens' (Maybe NewWorkflowExecutionInfo) NewWorkflowExecutionInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens NewWorkflowExecutionInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message ScheduleAction where
messageName :: Proxy ScheduleAction -> Text
messageName Proxy ScheduleAction
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.ScheduleAction"
packedMessageDescriptor :: Proxy ScheduleAction -> ByteString
packedMessageDescriptor Proxy ScheduleAction
_
= ByteString
"\n\
\\SOScheduleAction\DC2[\n\
\\SOstart_workflow\CAN\SOH \SOH(\v22.temporal.api.workflow.v1.NewWorkflowExecutionInfoH\NULR\rstartWorkflowB\b\n\
\\ACKaction"
packedFileDescriptor :: Proxy ScheduleAction -> ByteString
packedFileDescriptor Proxy ScheduleAction
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ScheduleAction)
fieldsByTag
= let
startWorkflow__field_descriptor :: FieldDescriptor ScheduleAction
startWorkflow__field_descriptor
= String
-> FieldTypeDescriptor NewWorkflowExecutionInfo
-> FieldAccessor ScheduleAction NewWorkflowExecutionInfo
-> FieldDescriptor ScheduleAction
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_workflow"
(MessageOrGroup -> FieldTypeDescriptor NewWorkflowExecutionInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Workflow.V1.Message.NewWorkflowExecutionInfo)
(Lens' ScheduleAction (Maybe NewWorkflowExecutionInfo)
-> FieldAccessor ScheduleAction NewWorkflowExecutionInfo
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'startWorkflow")) ::
Data.ProtoLens.FieldDescriptor ScheduleAction
in
[(Tag, FieldDescriptor ScheduleAction)]
-> Map Tag (FieldDescriptor ScheduleAction)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ScheduleAction
startWorkflow__field_descriptor)]
unknownFields :: Lens' ScheduleAction FieldSet
unknownFields
= (ScheduleAction -> FieldSet)
-> (ScheduleAction -> FieldSet -> ScheduleAction)
-> Lens' ScheduleAction FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleAction -> FieldSet
_ScheduleAction'_unknownFields
(\ ScheduleAction
x__ FieldSet
y__ -> ScheduleAction
x__ {_ScheduleAction'_unknownFields = y__})
defMessage :: ScheduleAction
defMessage
= ScheduleAction'_constructor
{_ScheduleAction'action :: Maybe ScheduleAction'Action
_ScheduleAction'action = Maybe ScheduleAction'Action
forall a. Maybe a
Prelude.Nothing,
_ScheduleAction'_unknownFields :: FieldSet
_ScheduleAction'_unknownFields = []}
parseMessage :: Parser ScheduleAction
parseMessage
= let
loop ::
ScheduleAction
-> Data.ProtoLens.Encoding.Bytes.Parser ScheduleAction
loop :: ScheduleAction -> Parser ScheduleAction
loop ScheduleAction
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 NewWorkflowExecutionInfo
-> String -> Parser NewWorkflowExecutionInfo
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
"start_workflow"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"startWorkflow") 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 ScheduleAction -> String -> Parser ScheduleAction
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ScheduleAction -> Parser ScheduleAction
loop ScheduleAction
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ScheduleAction"
buildMessage :: ScheduleAction -> Builder
buildMessage
= \ ScheduleAction
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ScheduleAction'Action)
ScheduleAction
ScheduleAction
(Maybe ScheduleAction'Action)
(Maybe ScheduleAction'Action)
-> ScheduleAction -> Maybe ScheduleAction'Action
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'action") ScheduleAction
_x
of
Maybe ScheduleAction'Action
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (ScheduleAction'StartWorkflow NewWorkflowExecutionInfo
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (NewWorkflowExecutionInfo -> ByteString)
-> NewWorkflowExecutionInfo
-> 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))
NewWorkflowExecutionInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage NewWorkflowExecutionInfo
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet ScheduleAction ScheduleAction FieldSet FieldSet
-> ScheduleAction -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ScheduleAction ScheduleAction FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ScheduleAction FieldSet
Data.ProtoLens.unknownFields ScheduleAction
_x))
instance Control.DeepSeq.NFData ScheduleAction where
rnf :: ScheduleAction -> ()
rnf
= \ ScheduleAction
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleAction -> FieldSet
_ScheduleAction'_unknownFields ScheduleAction
x__)
(Maybe ScheduleAction'Action -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ScheduleAction -> Maybe ScheduleAction'Action
_ScheduleAction'action ScheduleAction
x__) ())
instance Control.DeepSeq.NFData ScheduleAction'Action where
rnf :: ScheduleAction'Action -> ()
rnf (ScheduleAction'StartWorkflow NewWorkflowExecutionInfo
x__) = NewWorkflowExecutionInfo -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf NewWorkflowExecutionInfo
x__
_ScheduleAction'StartWorkflow ::
Data.ProtoLens.Prism.Prism' ScheduleAction'Action Proto.Temporal.Api.Workflow.V1.Message.NewWorkflowExecutionInfo
_ScheduleAction'StartWorkflow :: Prism' ScheduleAction'Action NewWorkflowExecutionInfo
_ScheduleAction'StartWorkflow
= (NewWorkflowExecutionInfo -> ScheduleAction'Action)
-> (ScheduleAction'Action -> Maybe NewWorkflowExecutionInfo)
-> Prism' ScheduleAction'Action NewWorkflowExecutionInfo
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
NewWorkflowExecutionInfo -> ScheduleAction'Action
ScheduleAction'StartWorkflow
(\ ScheduleAction'Action
p__
-> case ScheduleAction'Action
p__ of
(ScheduleAction'StartWorkflow NewWorkflowExecutionInfo
p__val) -> NewWorkflowExecutionInfo -> Maybe NewWorkflowExecutionInfo
forall a. a -> Maybe a
Prelude.Just NewWorkflowExecutionInfo
p__val)
data ScheduleActionResult
= ScheduleActionResult'_constructor {ScheduleActionResult -> Maybe Timestamp
_ScheduleActionResult'scheduleTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
ScheduleActionResult -> Maybe Timestamp
_ScheduleActionResult'actualTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
ScheduleActionResult -> Maybe WorkflowExecution
_ScheduleActionResult'startWorkflowResult :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution),
ScheduleActionResult -> FieldSet
_ScheduleActionResult'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ScheduleActionResult -> ScheduleActionResult -> Bool
(ScheduleActionResult -> ScheduleActionResult -> Bool)
-> (ScheduleActionResult -> ScheduleActionResult -> Bool)
-> Eq ScheduleActionResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScheduleActionResult -> ScheduleActionResult -> Bool
== :: ScheduleActionResult -> ScheduleActionResult -> Bool
$c/= :: ScheduleActionResult -> ScheduleActionResult -> Bool
/= :: ScheduleActionResult -> ScheduleActionResult -> Bool
Prelude.Eq, Eq ScheduleActionResult
Eq ScheduleActionResult =>
(ScheduleActionResult -> ScheduleActionResult -> Ordering)
-> (ScheduleActionResult -> ScheduleActionResult -> Bool)
-> (ScheduleActionResult -> ScheduleActionResult -> Bool)
-> (ScheduleActionResult -> ScheduleActionResult -> Bool)
-> (ScheduleActionResult -> ScheduleActionResult -> Bool)
-> (ScheduleActionResult
-> ScheduleActionResult -> ScheduleActionResult)
-> (ScheduleActionResult
-> ScheduleActionResult -> ScheduleActionResult)
-> Ord ScheduleActionResult
ScheduleActionResult -> ScheduleActionResult -> Bool
ScheduleActionResult -> ScheduleActionResult -> Ordering
ScheduleActionResult
-> ScheduleActionResult -> ScheduleActionResult
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 :: ScheduleActionResult -> ScheduleActionResult -> Ordering
compare :: ScheduleActionResult -> ScheduleActionResult -> Ordering
$c< :: ScheduleActionResult -> ScheduleActionResult -> Bool
< :: ScheduleActionResult -> ScheduleActionResult -> Bool
$c<= :: ScheduleActionResult -> ScheduleActionResult -> Bool
<= :: ScheduleActionResult -> ScheduleActionResult -> Bool
$c> :: ScheduleActionResult -> ScheduleActionResult -> Bool
> :: ScheduleActionResult -> ScheduleActionResult -> Bool
$c>= :: ScheduleActionResult -> ScheduleActionResult -> Bool
>= :: ScheduleActionResult -> ScheduleActionResult -> Bool
$cmax :: ScheduleActionResult
-> ScheduleActionResult -> ScheduleActionResult
max :: ScheduleActionResult
-> ScheduleActionResult -> ScheduleActionResult
$cmin :: ScheduleActionResult
-> ScheduleActionResult -> ScheduleActionResult
min :: ScheduleActionResult
-> ScheduleActionResult -> ScheduleActionResult
Prelude.Ord)
instance Prelude.Show ScheduleActionResult where
showsPrec :: Int -> ScheduleActionResult -> ShowS
showsPrec Int
_ ScheduleActionResult
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ScheduleActionResult -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ScheduleActionResult
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ScheduleActionResult "scheduleTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduleTime"
-> (Timestamp -> f Timestamp)
-> ScheduleActionResult
-> f ScheduleActionResult
fieldOf Proxy# "scheduleTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleActionResult -> f ScheduleActionResult)
-> ((Timestamp -> f Timestamp)
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> ScheduleActionResult
-> f ScheduleActionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActionResult -> Maybe Timestamp)
-> (ScheduleActionResult
-> Maybe Timestamp -> ScheduleActionResult)
-> Lens
ScheduleActionResult
ScheduleActionResult
(Maybe Timestamp)
(Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActionResult -> Maybe Timestamp
_ScheduleActionResult'scheduleTime
(\ ScheduleActionResult
x__ Maybe Timestamp
y__ -> ScheduleActionResult
x__ {_ScheduleActionResult'scheduleTime = 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 ScheduleActionResult "maybe'scheduleTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scheduleTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleActionResult
-> f ScheduleActionResult
fieldOf Proxy# "maybe'scheduleTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleActionResult -> f ScheduleActionResult)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleActionResult
-> f ScheduleActionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActionResult -> Maybe Timestamp)
-> (ScheduleActionResult
-> Maybe Timestamp -> ScheduleActionResult)
-> Lens
ScheduleActionResult
ScheduleActionResult
(Maybe Timestamp)
(Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActionResult -> Maybe Timestamp
_ScheduleActionResult'scheduleTime
(\ ScheduleActionResult
x__ Maybe Timestamp
y__ -> ScheduleActionResult
x__ {_ScheduleActionResult'scheduleTime = y__}))
(Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActionResult "actualTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "actualTime"
-> (Timestamp -> f Timestamp)
-> ScheduleActionResult
-> f ScheduleActionResult
fieldOf Proxy# "actualTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleActionResult -> f ScheduleActionResult)
-> ((Timestamp -> f Timestamp)
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> ScheduleActionResult
-> f ScheduleActionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActionResult -> Maybe Timestamp)
-> (ScheduleActionResult
-> Maybe Timestamp -> ScheduleActionResult)
-> Lens
ScheduleActionResult
ScheduleActionResult
(Maybe Timestamp)
(Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActionResult -> Maybe Timestamp
_ScheduleActionResult'actualTime
(\ ScheduleActionResult
x__ Maybe Timestamp
y__ -> ScheduleActionResult
x__ {_ScheduleActionResult'actualTime = 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 ScheduleActionResult "maybe'actualTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'actualTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleActionResult
-> f ScheduleActionResult
fieldOf Proxy# "maybe'actualTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleActionResult -> f ScheduleActionResult)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleActionResult
-> f ScheduleActionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActionResult -> Maybe Timestamp)
-> (ScheduleActionResult
-> Maybe Timestamp -> ScheduleActionResult)
-> Lens
ScheduleActionResult
ScheduleActionResult
(Maybe Timestamp)
(Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActionResult -> Maybe Timestamp
_ScheduleActionResult'actualTime
(\ ScheduleActionResult
x__ Maybe Timestamp
y__ -> ScheduleActionResult
x__ {_ScheduleActionResult'actualTime = y__}))
(Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActionResult "startWorkflowResult" Proto.Temporal.Api.Common.V1.Message.WorkflowExecution where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startWorkflowResult"
-> (WorkflowExecution -> f WorkflowExecution)
-> ScheduleActionResult
-> f ScheduleActionResult
fieldOf Proxy# "startWorkflowResult"
_
= ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> ScheduleActionResult -> f ScheduleActionResult)
-> ((WorkflowExecution -> f WorkflowExecution)
-> Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> (WorkflowExecution -> f WorkflowExecution)
-> ScheduleActionResult
-> f ScheduleActionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActionResult -> Maybe WorkflowExecution)
-> (ScheduleActionResult
-> Maybe WorkflowExecution -> ScheduleActionResult)
-> Lens
ScheduleActionResult
ScheduleActionResult
(Maybe WorkflowExecution)
(Maybe WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActionResult -> Maybe WorkflowExecution
_ScheduleActionResult'startWorkflowResult
(\ ScheduleActionResult
x__ Maybe WorkflowExecution
y__
-> ScheduleActionResult
x__ {_ScheduleActionResult'startWorkflowResult = y__}))
(WorkflowExecution
-> Lens' (Maybe WorkflowExecution) WorkflowExecution
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WorkflowExecution
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ScheduleActionResult "maybe'startWorkflowResult" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'startWorkflowResult"
-> (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> ScheduleActionResult
-> f ScheduleActionResult
fieldOf Proxy# "maybe'startWorkflowResult"
_
= ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> ScheduleActionResult -> f ScheduleActionResult)
-> ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> ScheduleActionResult
-> f ScheduleActionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActionResult -> Maybe WorkflowExecution)
-> (ScheduleActionResult
-> Maybe WorkflowExecution -> ScheduleActionResult)
-> Lens
ScheduleActionResult
ScheduleActionResult
(Maybe WorkflowExecution)
(Maybe WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActionResult -> Maybe WorkflowExecution
_ScheduleActionResult'startWorkflowResult
(\ ScheduleActionResult
x__ Maybe WorkflowExecution
y__
-> ScheduleActionResult
x__ {_ScheduleActionResult'startWorkflowResult = y__}))
(Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> Maybe WorkflowExecution -> f (Maybe WorkflowExecution)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ScheduleActionResult where
messageName :: Proxy ScheduleActionResult -> Text
messageName Proxy ScheduleActionResult
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.ScheduleActionResult"
packedMessageDescriptor :: Proxy ScheduleActionResult -> ByteString
packedMessageDescriptor Proxy ScheduleActionResult
_
= ByteString
"\n\
\\DC4ScheduleActionResult\DC2?\n\
\\rschedule_time\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\fscheduleTime\DC2;\n\
\\vactual_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\n\
\actualTime\DC2]\n\
\\NAKstart_workflow_result\CAN\v \SOH(\v2).temporal.api.common.v1.WorkflowExecutionR\DC3startWorkflowResult"
packedFileDescriptor :: Proxy ScheduleActionResult -> ByteString
packedFileDescriptor Proxy ScheduleActionResult
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ScheduleActionResult)
fieldsByTag
= let
scheduleTime__field_descriptor :: FieldDescriptor ScheduleActionResult
scheduleTime__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor ScheduleActionResult Timestamp
-> FieldDescriptor ScheduleActionResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"schedule_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
ScheduleActionResult
ScheduleActionResult
(Maybe Timestamp)
(Maybe Timestamp)
-> FieldAccessor ScheduleActionResult 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'scheduleTime")) ::
Data.ProtoLens.FieldDescriptor ScheduleActionResult
actualTime__field_descriptor :: FieldDescriptor ScheduleActionResult
actualTime__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor ScheduleActionResult Timestamp
-> FieldDescriptor ScheduleActionResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"actual_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
ScheduleActionResult
ScheduleActionResult
(Maybe Timestamp)
(Maybe Timestamp)
-> FieldAccessor ScheduleActionResult 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'actualTime")) ::
Data.ProtoLens.FieldDescriptor ScheduleActionResult
startWorkflowResult__field_descriptor :: FieldDescriptor ScheduleActionResult
startWorkflowResult__field_descriptor
= String
-> FieldTypeDescriptor WorkflowExecution
-> FieldAccessor ScheduleActionResult WorkflowExecution
-> FieldDescriptor ScheduleActionResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_workflow_result"
(MessageOrGroup -> FieldTypeDescriptor WorkflowExecution
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.WorkflowExecution)
(Lens
ScheduleActionResult
ScheduleActionResult
(Maybe WorkflowExecution)
(Maybe WorkflowExecution)
-> FieldAccessor ScheduleActionResult WorkflowExecution
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'startWorkflowResult")) ::
Data.ProtoLens.FieldDescriptor ScheduleActionResult
in
[(Tag, FieldDescriptor ScheduleActionResult)]
-> Map Tag (FieldDescriptor ScheduleActionResult)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ScheduleActionResult
scheduleTime__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ScheduleActionResult
actualTime__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor ScheduleActionResult
startWorkflowResult__field_descriptor)]
unknownFields :: Lens' ScheduleActionResult FieldSet
unknownFields
= (ScheduleActionResult -> FieldSet)
-> (ScheduleActionResult -> FieldSet -> ScheduleActionResult)
-> Lens' ScheduleActionResult FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActionResult -> FieldSet
_ScheduleActionResult'_unknownFields
(\ ScheduleActionResult
x__ FieldSet
y__ -> ScheduleActionResult
x__ {_ScheduleActionResult'_unknownFields = y__})
defMessage :: ScheduleActionResult
defMessage
= ScheduleActionResult'_constructor
{_ScheduleActionResult'scheduleTime :: Maybe Timestamp
_ScheduleActionResult'scheduleTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
_ScheduleActionResult'actualTime :: Maybe Timestamp
_ScheduleActionResult'actualTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
_ScheduleActionResult'startWorkflowResult :: Maybe WorkflowExecution
_ScheduleActionResult'startWorkflowResult = Maybe WorkflowExecution
forall a. Maybe a
Prelude.Nothing,
_ScheduleActionResult'_unknownFields :: FieldSet
_ScheduleActionResult'_unknownFields = []}
parseMessage :: Parser ScheduleActionResult
parseMessage
= let
loop ::
ScheduleActionResult
-> Data.ProtoLens.Encoding.Bytes.Parser ScheduleActionResult
loop :: ScheduleActionResult -> Parser ScheduleActionResult
loop ScheduleActionResult
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
"schedule_time"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"scheduleTime") 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
"actual_time"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"actualTime") y x)
Word64
90
-> do y <- Parser WorkflowExecution -> String -> Parser WorkflowExecution
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
"start_workflow_result"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"startWorkflowResult") 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 ScheduleActionResult
-> String -> Parser ScheduleActionResult
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ScheduleActionResult -> Parser ScheduleActionResult
loop ScheduleActionResult
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ScheduleActionResult"
buildMessage :: ScheduleActionResult -> Builder
buildMessage
= \ ScheduleActionResult
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Timestamp)
ScheduleActionResult
ScheduleActionResult
(Maybe Timestamp)
(Maybe Timestamp)
-> ScheduleActionResult -> 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'scheduleTime") ScheduleActionResult
_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.<>)
(case
FoldLike
(Maybe Timestamp)
ScheduleActionResult
ScheduleActionResult
(Maybe Timestamp)
(Maybe Timestamp)
-> ScheduleActionResult -> 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'actualTime") ScheduleActionResult
_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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe WorkflowExecution)
ScheduleActionResult
ScheduleActionResult
(Maybe WorkflowExecution)
(Maybe WorkflowExecution)
-> ScheduleActionResult -> Maybe WorkflowExecution
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'startWorkflowResult") ScheduleActionResult
_x
of
Maybe WorkflowExecution
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just WorkflowExecution
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
90)
((ByteString -> Builder)
-> (WorkflowExecution -> ByteString)
-> WorkflowExecution
-> 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))
WorkflowExecution -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WorkflowExecution
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ScheduleActionResult
ScheduleActionResult
FieldSet
FieldSet
-> ScheduleActionResult -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ScheduleActionResult
ScheduleActionResult
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ScheduleActionResult FieldSet
Data.ProtoLens.unknownFields ScheduleActionResult
_x))))
instance Control.DeepSeq.NFData ScheduleActionResult where
rnf :: ScheduleActionResult -> ()
rnf
= \ ScheduleActionResult
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActionResult -> FieldSet
_ScheduleActionResult'_unknownFields ScheduleActionResult
x__)
(Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActionResult -> Maybe Timestamp
_ScheduleActionResult'scheduleTime ScheduleActionResult
x__)
(Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActionResult -> Maybe Timestamp
_ScheduleActionResult'actualTime ScheduleActionResult
x__)
(Maybe WorkflowExecution -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActionResult -> Maybe WorkflowExecution
_ScheduleActionResult'startWorkflowResult ScheduleActionResult
x__) ())))
data ScheduleInfo
= ScheduleInfo'_constructor {ScheduleInfo -> Int64
_ScheduleInfo'actionCount :: !Data.Int.Int64,
ScheduleInfo -> Int64
_ScheduleInfo'missedCatchupWindow :: !Data.Int.Int64,
ScheduleInfo -> Int64
_ScheduleInfo'overlapSkipped :: !Data.Int.Int64,
ScheduleInfo -> Int64
_ScheduleInfo'bufferDropped :: !Data.Int.Int64,
ScheduleInfo -> Int64
_ScheduleInfo'bufferSize :: !Data.Int.Int64,
ScheduleInfo -> Vector WorkflowExecution
_ScheduleInfo'runningWorkflows :: !(Data.Vector.Vector Proto.Temporal.Api.Common.V1.Message.WorkflowExecution),
ScheduleInfo -> Vector ScheduleActionResult
_ScheduleInfo'recentActions :: !(Data.Vector.Vector ScheduleActionResult),
ScheduleInfo -> Vector Timestamp
_ScheduleInfo'futureActionTimes :: !(Data.Vector.Vector Proto.Google.Protobuf.Timestamp.Timestamp),
ScheduleInfo -> Maybe Timestamp
_ScheduleInfo'createTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
ScheduleInfo -> Maybe Timestamp
_ScheduleInfo'updateTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
ScheduleInfo -> Text
_ScheduleInfo'invalidScheduleError :: !Data.Text.Text,
ScheduleInfo -> FieldSet
_ScheduleInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ScheduleInfo -> ScheduleInfo -> Bool
(ScheduleInfo -> ScheduleInfo -> Bool)
-> (ScheduleInfo -> ScheduleInfo -> Bool) -> Eq ScheduleInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScheduleInfo -> ScheduleInfo -> Bool
== :: ScheduleInfo -> ScheduleInfo -> Bool
$c/= :: ScheduleInfo -> ScheduleInfo -> Bool
/= :: ScheduleInfo -> ScheduleInfo -> Bool
Prelude.Eq, Eq ScheduleInfo
Eq ScheduleInfo =>
(ScheduleInfo -> ScheduleInfo -> Ordering)
-> (ScheduleInfo -> ScheduleInfo -> Bool)
-> (ScheduleInfo -> ScheduleInfo -> Bool)
-> (ScheduleInfo -> ScheduleInfo -> Bool)
-> (ScheduleInfo -> ScheduleInfo -> Bool)
-> (ScheduleInfo -> ScheduleInfo -> ScheduleInfo)
-> (ScheduleInfo -> ScheduleInfo -> ScheduleInfo)
-> Ord ScheduleInfo
ScheduleInfo -> ScheduleInfo -> Bool
ScheduleInfo -> ScheduleInfo -> Ordering
ScheduleInfo -> ScheduleInfo -> ScheduleInfo
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 :: ScheduleInfo -> ScheduleInfo -> Ordering
compare :: ScheduleInfo -> ScheduleInfo -> Ordering
$c< :: ScheduleInfo -> ScheduleInfo -> Bool
< :: ScheduleInfo -> ScheduleInfo -> Bool
$c<= :: ScheduleInfo -> ScheduleInfo -> Bool
<= :: ScheduleInfo -> ScheduleInfo -> Bool
$c> :: ScheduleInfo -> ScheduleInfo -> Bool
> :: ScheduleInfo -> ScheduleInfo -> Bool
$c>= :: ScheduleInfo -> ScheduleInfo -> Bool
>= :: ScheduleInfo -> ScheduleInfo -> Bool
$cmax :: ScheduleInfo -> ScheduleInfo -> ScheduleInfo
max :: ScheduleInfo -> ScheduleInfo -> ScheduleInfo
$cmin :: ScheduleInfo -> ScheduleInfo -> ScheduleInfo
min :: ScheduleInfo -> ScheduleInfo -> ScheduleInfo
Prelude.Ord)
instance Prelude.Show ScheduleInfo where
showsPrec :: Int -> ScheduleInfo -> ShowS
showsPrec Int
_ ScheduleInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ScheduleInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ScheduleInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ScheduleInfo "actionCount" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "actionCount"
-> (Int64 -> f Int64) -> ScheduleInfo -> f ScheduleInfo
fieldOf Proxy# "actionCount"
_
= ((Int64 -> f Int64) -> ScheduleInfo -> f ScheduleInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Int64)
-> (ScheduleInfo -> Int64 -> ScheduleInfo)
-> Lens ScheduleInfo ScheduleInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Int64
_ScheduleInfo'actionCount
(\ ScheduleInfo
x__ Int64
y__ -> ScheduleInfo
x__ {_ScheduleInfo'actionCount = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleInfo "missedCatchupWindow" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "missedCatchupWindow"
-> (Int64 -> f Int64) -> ScheduleInfo -> f ScheduleInfo
fieldOf Proxy# "missedCatchupWindow"
_
= ((Int64 -> f Int64) -> ScheduleInfo -> f ScheduleInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Int64)
-> (ScheduleInfo -> Int64 -> ScheduleInfo)
-> Lens ScheduleInfo ScheduleInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Int64
_ScheduleInfo'missedCatchupWindow
(\ ScheduleInfo
x__ Int64
y__ -> ScheduleInfo
x__ {_ScheduleInfo'missedCatchupWindow = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleInfo "overlapSkipped" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "overlapSkipped"
-> (Int64 -> f Int64) -> ScheduleInfo -> f ScheduleInfo
fieldOf Proxy# "overlapSkipped"
_
= ((Int64 -> f Int64) -> ScheduleInfo -> f ScheduleInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Int64)
-> (ScheduleInfo -> Int64 -> ScheduleInfo)
-> Lens ScheduleInfo ScheduleInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Int64
_ScheduleInfo'overlapSkipped
(\ ScheduleInfo
x__ Int64
y__ -> ScheduleInfo
x__ {_ScheduleInfo'overlapSkipped = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleInfo "bufferDropped" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "bufferDropped"
-> (Int64 -> f Int64) -> ScheduleInfo -> f ScheduleInfo
fieldOf Proxy# "bufferDropped"
_
= ((Int64 -> f Int64) -> ScheduleInfo -> f ScheduleInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Int64)
-> (ScheduleInfo -> Int64 -> ScheduleInfo)
-> Lens ScheduleInfo ScheduleInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Int64
_ScheduleInfo'bufferDropped
(\ ScheduleInfo
x__ Int64
y__ -> ScheduleInfo
x__ {_ScheduleInfo'bufferDropped = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleInfo "bufferSize" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "bufferSize"
-> (Int64 -> f Int64) -> ScheduleInfo -> f ScheduleInfo
fieldOf Proxy# "bufferSize"
_
= ((Int64 -> f Int64) -> ScheduleInfo -> f ScheduleInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Int64)
-> (ScheduleInfo -> Int64 -> ScheduleInfo)
-> Lens ScheduleInfo ScheduleInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Int64
_ScheduleInfo'bufferSize
(\ ScheduleInfo
x__ Int64
y__ -> ScheduleInfo
x__ {_ScheduleInfo'bufferSize = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleInfo "runningWorkflows" [Proto.Temporal.Api.Common.V1.Message.WorkflowExecution] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "runningWorkflows"
-> ([WorkflowExecution] -> f [WorkflowExecution])
-> ScheduleInfo
-> f ScheduleInfo
fieldOf Proxy# "runningWorkflows"
_
= ((Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> ScheduleInfo -> f ScheduleInfo)
-> (([WorkflowExecution] -> f [WorkflowExecution])
-> Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> ([WorkflowExecution] -> f [WorkflowExecution])
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Vector WorkflowExecution)
-> (ScheduleInfo -> Vector WorkflowExecution -> ScheduleInfo)
-> Lens
ScheduleInfo
ScheduleInfo
(Vector WorkflowExecution)
(Vector WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Vector WorkflowExecution
_ScheduleInfo'runningWorkflows
(\ ScheduleInfo
x__ Vector WorkflowExecution
y__ -> ScheduleInfo
x__ {_ScheduleInfo'runningWorkflows = y__}))
((Vector WorkflowExecution -> [WorkflowExecution])
-> (Vector WorkflowExecution
-> [WorkflowExecution] -> Vector WorkflowExecution)
-> Lens
(Vector WorkflowExecution)
(Vector WorkflowExecution)
[WorkflowExecution]
[WorkflowExecution]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector WorkflowExecution -> [WorkflowExecution]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector WorkflowExecution
_ [WorkflowExecution]
y__ -> [WorkflowExecution] -> Vector WorkflowExecution
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [WorkflowExecution]
y__))
instance Data.ProtoLens.Field.HasField ScheduleInfo "vec'runningWorkflows" (Data.Vector.Vector Proto.Temporal.Api.Common.V1.Message.WorkflowExecution) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'runningWorkflows"
-> (Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> ScheduleInfo
-> f ScheduleInfo
fieldOf Proxy# "vec'runningWorkflows"
_
= ((Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> ScheduleInfo -> f ScheduleInfo)
-> ((Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> (Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Vector WorkflowExecution)
-> (ScheduleInfo -> Vector WorkflowExecution -> ScheduleInfo)
-> Lens
ScheduleInfo
ScheduleInfo
(Vector WorkflowExecution)
(Vector WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Vector WorkflowExecution
_ScheduleInfo'runningWorkflows
(\ ScheduleInfo
x__ Vector WorkflowExecution
y__ -> ScheduleInfo
x__ {_ScheduleInfo'runningWorkflows = y__}))
(Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> Vector WorkflowExecution -> f (Vector WorkflowExecution)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleInfo "recentActions" [ScheduleActionResult] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "recentActions"
-> ([ScheduleActionResult] -> f [ScheduleActionResult])
-> ScheduleInfo
-> f ScheduleInfo
fieldOf Proxy# "recentActions"
_
= ((Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> ScheduleInfo -> f ScheduleInfo)
-> (([ScheduleActionResult] -> f [ScheduleActionResult])
-> Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> ([ScheduleActionResult] -> f [ScheduleActionResult])
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Vector ScheduleActionResult)
-> (ScheduleInfo -> Vector ScheduleActionResult -> ScheduleInfo)
-> Lens
ScheduleInfo
ScheduleInfo
(Vector ScheduleActionResult)
(Vector ScheduleActionResult)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Vector ScheduleActionResult
_ScheduleInfo'recentActions
(\ ScheduleInfo
x__ Vector ScheduleActionResult
y__ -> ScheduleInfo
x__ {_ScheduleInfo'recentActions = y__}))
((Vector ScheduleActionResult -> [ScheduleActionResult])
-> (Vector ScheduleActionResult
-> [ScheduleActionResult] -> Vector ScheduleActionResult)
-> Lens
(Vector ScheduleActionResult)
(Vector ScheduleActionResult)
[ScheduleActionResult]
[ScheduleActionResult]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector ScheduleActionResult -> [ScheduleActionResult]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector ScheduleActionResult
_ [ScheduleActionResult]
y__ -> [ScheduleActionResult] -> Vector ScheduleActionResult
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ScheduleActionResult]
y__))
instance Data.ProtoLens.Field.HasField ScheduleInfo "vec'recentActions" (Data.Vector.Vector ScheduleActionResult) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'recentActions"
-> (Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> ScheduleInfo
-> f ScheduleInfo
fieldOf Proxy# "vec'recentActions"
_
= ((Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> ScheduleInfo -> f ScheduleInfo)
-> ((Vector ScheduleActionResult
-> f (Vector ScheduleActionResult))
-> Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> (Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Vector ScheduleActionResult)
-> (ScheduleInfo -> Vector ScheduleActionResult -> ScheduleInfo)
-> Lens
ScheduleInfo
ScheduleInfo
(Vector ScheduleActionResult)
(Vector ScheduleActionResult)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Vector ScheduleActionResult
_ScheduleInfo'recentActions
(\ ScheduleInfo
x__ Vector ScheduleActionResult
y__ -> ScheduleInfo
x__ {_ScheduleInfo'recentActions = y__}))
(Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> Vector ScheduleActionResult -> f (Vector ScheduleActionResult)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleInfo "futureActionTimes" [Proto.Google.Protobuf.Timestamp.Timestamp] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "futureActionTimes"
-> ([Timestamp] -> f [Timestamp]) -> ScheduleInfo -> f ScheduleInfo
fieldOf Proxy# "futureActionTimes"
_
= ((Vector Timestamp -> f (Vector Timestamp))
-> ScheduleInfo -> f ScheduleInfo)
-> (([Timestamp] -> f [Timestamp])
-> Vector Timestamp -> f (Vector Timestamp))
-> ([Timestamp] -> f [Timestamp])
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Vector Timestamp)
-> (ScheduleInfo -> Vector Timestamp -> ScheduleInfo)
-> Lens
ScheduleInfo ScheduleInfo (Vector Timestamp) (Vector Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Vector Timestamp
_ScheduleInfo'futureActionTimes
(\ ScheduleInfo
x__ Vector Timestamp
y__ -> ScheduleInfo
x__ {_ScheduleInfo'futureActionTimes = y__}))
((Vector Timestamp -> [Timestamp])
-> (Vector Timestamp -> [Timestamp] -> Vector Timestamp)
-> Lens
(Vector Timestamp) (Vector Timestamp) [Timestamp] [Timestamp]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Timestamp -> [Timestamp]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Timestamp
_ [Timestamp]
y__ -> [Timestamp] -> Vector Timestamp
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Timestamp]
y__))
instance Data.ProtoLens.Field.HasField ScheduleInfo "vec'futureActionTimes" (Data.Vector.Vector Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'futureActionTimes"
-> (Vector Timestamp -> f (Vector Timestamp))
-> ScheduleInfo
-> f ScheduleInfo
fieldOf Proxy# "vec'futureActionTimes"
_
= ((Vector Timestamp -> f (Vector Timestamp))
-> ScheduleInfo -> f ScheduleInfo)
-> ((Vector Timestamp -> f (Vector Timestamp))
-> Vector Timestamp -> f (Vector Timestamp))
-> (Vector Timestamp -> f (Vector Timestamp))
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Vector Timestamp)
-> (ScheduleInfo -> Vector Timestamp -> ScheduleInfo)
-> Lens
ScheduleInfo ScheduleInfo (Vector Timestamp) (Vector Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Vector Timestamp
_ScheduleInfo'futureActionTimes
(\ ScheduleInfo
x__ Vector Timestamp
y__ -> ScheduleInfo
x__ {_ScheduleInfo'futureActionTimes = y__}))
(Vector Timestamp -> f (Vector Timestamp))
-> Vector Timestamp -> f (Vector Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleInfo "createTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "createTime"
-> (Timestamp -> f Timestamp) -> ScheduleInfo -> f ScheduleInfo
fieldOf Proxy# "createTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleInfo -> f ScheduleInfo)
-> ((Timestamp -> f Timestamp)
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Maybe Timestamp)
-> (ScheduleInfo -> Maybe Timestamp -> ScheduleInfo)
-> Lens
ScheduleInfo ScheduleInfo (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Maybe Timestamp
_ScheduleInfo'createTime
(\ ScheduleInfo
x__ Maybe Timestamp
y__ -> ScheduleInfo
x__ {_ScheduleInfo'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 ScheduleInfo "maybe'createTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'createTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleInfo
-> f ScheduleInfo
fieldOf Proxy# "maybe'createTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleInfo -> f ScheduleInfo)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Maybe Timestamp)
-> (ScheduleInfo -> Maybe Timestamp -> ScheduleInfo)
-> Lens
ScheduleInfo ScheduleInfo (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Maybe Timestamp
_ScheduleInfo'createTime
(\ ScheduleInfo
x__ Maybe Timestamp
y__ -> ScheduleInfo
x__ {_ScheduleInfo'createTime = y__}))
(Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleInfo "updateTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "updateTime"
-> (Timestamp -> f Timestamp) -> ScheduleInfo -> f ScheduleInfo
fieldOf Proxy# "updateTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleInfo -> f ScheduleInfo)
-> ((Timestamp -> f Timestamp)
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Maybe Timestamp)
-> (ScheduleInfo -> Maybe Timestamp -> ScheduleInfo)
-> Lens
ScheduleInfo ScheduleInfo (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Maybe Timestamp
_ScheduleInfo'updateTime
(\ ScheduleInfo
x__ Maybe Timestamp
y__ -> ScheduleInfo
x__ {_ScheduleInfo'updateTime = 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 ScheduleInfo "maybe'updateTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'updateTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleInfo
-> f ScheduleInfo
fieldOf Proxy# "maybe'updateTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleInfo -> f ScheduleInfo)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Maybe Timestamp)
-> (ScheduleInfo -> Maybe Timestamp -> ScheduleInfo)
-> Lens
ScheduleInfo ScheduleInfo (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Maybe Timestamp
_ScheduleInfo'updateTime
(\ ScheduleInfo
x__ Maybe Timestamp
y__ -> ScheduleInfo
x__ {_ScheduleInfo'updateTime = y__}))
(Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleInfo "invalidScheduleError" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "invalidScheduleError"
-> (Text -> f Text) -> ScheduleInfo -> f ScheduleInfo
fieldOf Proxy# "invalidScheduleError"
_
= ((Text -> f Text) -> ScheduleInfo -> f ScheduleInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ScheduleInfo
-> f ScheduleInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleInfo -> Text)
-> (ScheduleInfo -> Text -> ScheduleInfo)
-> Lens ScheduleInfo ScheduleInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> Text
_ScheduleInfo'invalidScheduleError
(\ ScheduleInfo
x__ Text
y__ -> ScheduleInfo
x__ {_ScheduleInfo'invalidScheduleError = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ScheduleInfo where
messageName :: Proxy ScheduleInfo -> Text
messageName Proxy ScheduleInfo
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.ScheduleInfo"
packedMessageDescriptor :: Proxy ScheduleInfo -> ByteString
packedMessageDescriptor Proxy ScheduleInfo
_
= ByteString
"\n\
\\fScheduleInfo\DC2!\n\
\\faction_count\CAN\SOH \SOH(\ETXR\vactionCount\DC22\n\
\\NAKmissed_catchup_window\CAN\STX \SOH(\ETXR\DC3missedCatchupWindow\DC2'\n\
\\SIoverlap_skipped\CAN\ETX \SOH(\ETXR\SOoverlapSkipped\DC2%\n\
\\SObuffer_dropped\CAN\n\
\ \SOH(\ETXR\rbufferDropped\DC2\US\n\
\\vbuffer_size\CAN\v \SOH(\ETXR\n\
\bufferSize\DC2V\n\
\\DC1running_workflows\CAN\t \ETX(\v2).temporal.api.common.v1.WorkflowExecutionR\DLErunningWorkflows\DC2U\n\
\\SOrecent_actions\CAN\EOT \ETX(\v2..temporal.api.schedule.v1.ScheduleActionResultR\rrecentActions\DC2J\n\
\\DC3future_action_times\CAN\ENQ \ETX(\v2\SUB.google.protobuf.TimestampR\DC1futureActionTimes\DC2;\n\
\\vcreate_time\CAN\ACK \SOH(\v2\SUB.google.protobuf.TimestampR\n\
\createTime\DC2;\n\
\\vupdate_time\CAN\a \SOH(\v2\SUB.google.protobuf.TimestampR\n\
\updateTime\DC28\n\
\\SYNinvalid_schedule_error\CAN\b \SOH(\tR\DC4invalidScheduleErrorB\STX\CAN\SOH"
packedFileDescriptor :: Proxy ScheduleInfo -> ByteString
packedFileDescriptor Proxy ScheduleInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ScheduleInfo)
fieldsByTag
= let
actionCount__field_descriptor :: FieldDescriptor ScheduleInfo
actionCount__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ScheduleInfo Int64
-> FieldDescriptor ScheduleInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"action_count"
(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 ScheduleInfo ScheduleInfo Int64 Int64
-> FieldAccessor ScheduleInfo 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 @"actionCount")) ::
Data.ProtoLens.FieldDescriptor ScheduleInfo
missedCatchupWindow__field_descriptor :: FieldDescriptor ScheduleInfo
missedCatchupWindow__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ScheduleInfo Int64
-> FieldDescriptor ScheduleInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"missed_catchup_window"
(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 ScheduleInfo ScheduleInfo Int64 Int64
-> FieldAccessor ScheduleInfo 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 @"missedCatchupWindow")) ::
Data.ProtoLens.FieldDescriptor ScheduleInfo
overlapSkipped__field_descriptor :: FieldDescriptor ScheduleInfo
overlapSkipped__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ScheduleInfo Int64
-> FieldDescriptor ScheduleInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"overlap_skipped"
(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 ScheduleInfo ScheduleInfo Int64 Int64
-> FieldAccessor ScheduleInfo 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 @"overlapSkipped")) ::
Data.ProtoLens.FieldDescriptor ScheduleInfo
bufferDropped__field_descriptor :: FieldDescriptor ScheduleInfo
bufferDropped__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ScheduleInfo Int64
-> FieldDescriptor ScheduleInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"buffer_dropped"
(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 ScheduleInfo ScheduleInfo Int64 Int64
-> FieldAccessor ScheduleInfo 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 @"bufferDropped")) ::
Data.ProtoLens.FieldDescriptor ScheduleInfo
bufferSize__field_descriptor :: FieldDescriptor ScheduleInfo
bufferSize__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ScheduleInfo Int64
-> FieldDescriptor ScheduleInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"buffer_size"
(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 ScheduleInfo ScheduleInfo Int64 Int64
-> FieldAccessor ScheduleInfo 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 @"bufferSize")) ::
Data.ProtoLens.FieldDescriptor ScheduleInfo
runningWorkflows__field_descriptor :: FieldDescriptor ScheduleInfo
runningWorkflows__field_descriptor
= String
-> FieldTypeDescriptor WorkflowExecution
-> FieldAccessor ScheduleInfo WorkflowExecution
-> FieldDescriptor ScheduleInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"running_workflows"
(MessageOrGroup -> FieldTypeDescriptor WorkflowExecution
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.WorkflowExecution)
(Packing
-> Lens' ScheduleInfo [WorkflowExecution]
-> FieldAccessor ScheduleInfo WorkflowExecution
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 @"runningWorkflows")) ::
Data.ProtoLens.FieldDescriptor ScheduleInfo
recentActions__field_descriptor :: FieldDescriptor ScheduleInfo
recentActions__field_descriptor
= String
-> FieldTypeDescriptor ScheduleActionResult
-> FieldAccessor ScheduleInfo ScheduleActionResult
-> FieldDescriptor ScheduleInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"recent_actions"
(MessageOrGroup -> FieldTypeDescriptor ScheduleActionResult
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ScheduleActionResult)
(Packing
-> Lens' ScheduleInfo [ScheduleActionResult]
-> FieldAccessor ScheduleInfo ScheduleActionResult
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 @"recentActions")) ::
Data.ProtoLens.FieldDescriptor ScheduleInfo
futureActionTimes__field_descriptor :: FieldDescriptor ScheduleInfo
futureActionTimes__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor ScheduleInfo Timestamp
-> FieldDescriptor ScheduleInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"future_action_times"
(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)
(Packing
-> Lens' ScheduleInfo [Timestamp]
-> FieldAccessor ScheduleInfo Timestamp
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 @"futureActionTimes")) ::
Data.ProtoLens.FieldDescriptor ScheduleInfo
createTime__field_descriptor :: FieldDescriptor ScheduleInfo
createTime__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor ScheduleInfo Timestamp
-> FieldDescriptor ScheduleInfo
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 ScheduleInfo ScheduleInfo (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor ScheduleInfo 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 ScheduleInfo
updateTime__field_descriptor :: FieldDescriptor ScheduleInfo
updateTime__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor ScheduleInfo Timestamp
-> FieldDescriptor ScheduleInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"update_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 ScheduleInfo ScheduleInfo (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor ScheduleInfo 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'updateTime")) ::
Data.ProtoLens.FieldDescriptor ScheduleInfo
invalidScheduleError__field_descriptor :: FieldDescriptor ScheduleInfo
invalidScheduleError__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ScheduleInfo Text
-> FieldDescriptor ScheduleInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"invalid_schedule_error"
(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 ScheduleInfo ScheduleInfo Text Text
-> FieldAccessor ScheduleInfo 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 @"invalidScheduleError")) ::
Data.ProtoLens.FieldDescriptor ScheduleInfo
in
[(Tag, FieldDescriptor ScheduleInfo)]
-> Map Tag (FieldDescriptor ScheduleInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ScheduleInfo
actionCount__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ScheduleInfo
missedCatchupWindow__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ScheduleInfo
overlapSkipped__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor ScheduleInfo
bufferDropped__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor ScheduleInfo
bufferSize__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor ScheduleInfo
runningWorkflows__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ScheduleInfo
recentActions__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor ScheduleInfo
futureActionTimes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor ScheduleInfo
createTime__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor ScheduleInfo
updateTime__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor ScheduleInfo
invalidScheduleError__field_descriptor)]
unknownFields :: Lens' ScheduleInfo FieldSet
unknownFields
= (ScheduleInfo -> FieldSet)
-> (ScheduleInfo -> FieldSet -> ScheduleInfo)
-> Lens' ScheduleInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleInfo -> FieldSet
_ScheduleInfo'_unknownFields
(\ ScheduleInfo
x__ FieldSet
y__ -> ScheduleInfo
x__ {_ScheduleInfo'_unknownFields = y__})
defMessage :: ScheduleInfo
defMessage
= ScheduleInfo'_constructor
{_ScheduleInfo'actionCount :: Int64
_ScheduleInfo'actionCount = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleInfo'missedCatchupWindow :: Int64
_ScheduleInfo'missedCatchupWindow = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleInfo'overlapSkipped :: Int64
_ScheduleInfo'overlapSkipped = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleInfo'bufferDropped :: Int64
_ScheduleInfo'bufferDropped = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleInfo'bufferSize :: Int64
_ScheduleInfo'bufferSize = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleInfo'runningWorkflows :: Vector WorkflowExecution
_ScheduleInfo'runningWorkflows = Vector WorkflowExecution
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ScheduleInfo'recentActions :: Vector ScheduleActionResult
_ScheduleInfo'recentActions = Vector ScheduleActionResult
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ScheduleInfo'futureActionTimes :: Vector Timestamp
_ScheduleInfo'futureActionTimes = Vector Timestamp
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ScheduleInfo'createTime :: Maybe Timestamp
_ScheduleInfo'createTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
_ScheduleInfo'updateTime :: Maybe Timestamp
_ScheduleInfo'updateTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
_ScheduleInfo'invalidScheduleError :: Text
_ScheduleInfo'invalidScheduleError = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleInfo'_unknownFields :: FieldSet
_ScheduleInfo'_unknownFields = []}
parseMessage :: Parser ScheduleInfo
parseMessage
= let
loop ::
ScheduleInfo
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Google.Protobuf.Timestamp.Timestamp
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ScheduleActionResult
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Temporal.Api.Common.V1.Message.WorkflowExecution
-> Data.ProtoLens.Encoding.Bytes.Parser ScheduleInfo
loop :: ScheduleInfo
-> Growing Vector RealWorld Timestamp
-> Growing Vector RealWorld ScheduleActionResult
-> Growing Vector RealWorld WorkflowExecution
-> Parser ScheduleInfo
loop
ScheduleInfo
x
Growing Vector RealWorld Timestamp
mutable'futureActionTimes
Growing Vector RealWorld ScheduleActionResult
mutable'recentActions
Growing Vector RealWorld WorkflowExecution
mutable'runningWorkflows
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'futureActionTimes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'futureActionTimes)
frozen'recentActions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'recentActions)
frozen'runningWorkflows <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'runningWorkflows)
(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'futureActionTimes")
frozen'futureActionTimes
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'recentActions")
frozen'recentActions
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'runningWorkflows")
frozen'runningWorkflows 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
"action_count"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"actionCount") y x)
mutable'futureActionTimes mutable'recentActions
mutable'runningWorkflows
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
"missed_catchup_window"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"missedCatchupWindow") y x)
mutable'futureActionTimes mutable'recentActions
mutable'runningWorkflows
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
"overlap_skipped"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"overlapSkipped") y x)
mutable'futureActionTimes mutable'recentActions
mutable'runningWorkflows
Word64
80
-> 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
"buffer_dropped"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"bufferDropped") y x)
mutable'futureActionTimes mutable'recentActions
mutable'runningWorkflows
Word64
88
-> 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
"buffer_size"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"bufferSize") y x)
mutable'futureActionTimes mutable'recentActions
mutable'runningWorkflows
Word64
74
-> do !y <- Parser WorkflowExecution -> String -> Parser WorkflowExecution
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
"running_workflows"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'runningWorkflows y)
loop x mutable'futureActionTimes mutable'recentActions v
Word64
34
-> do !y <- Parser ScheduleActionResult
-> String -> Parser ScheduleActionResult
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
"recent_actions"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'recentActions y)
loop x mutable'futureActionTimes v mutable'runningWorkflows
Word64
42
-> 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
"future_action_times"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'futureActionTimes y)
loop x v mutable'recentActions mutable'runningWorkflows
Word64
50
-> 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)
mutable'futureActionTimes mutable'recentActions
mutable'runningWorkflows
Word64
58
-> 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
"update_time"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"updateTime") y x)
mutable'futureActionTimes mutable'recentActions
mutable'runningWorkflows
Word64
66
-> 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
"invalid_schedule_error"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"invalidScheduleError") y x)
mutable'futureActionTimes mutable'recentActions
mutable'runningWorkflows
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'futureActionTimes mutable'recentActions
mutable'runningWorkflows
in
Parser ScheduleInfo -> String -> Parser ScheduleInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'futureActionTimes <- IO (Growing Vector RealWorld Timestamp)
-> Parser (Growing Vector RealWorld Timestamp)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Timestamp)
IO (Growing Vector (PrimState IO) Timestamp)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
mutable'recentActions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'runningWorkflows <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop
Data.ProtoLens.defMessage mutable'futureActionTimes
mutable'recentActions mutable'runningWorkflows)
String
"ScheduleInfo"
buildMessage :: ScheduleInfo -> Builder
buildMessage
= \ ScheduleInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 ScheduleInfo ScheduleInfo Int64 Int64
-> ScheduleInfo -> 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 @"actionCount") ScheduleInfo
_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 ScheduleInfo ScheduleInfo Int64 Int64
-> ScheduleInfo -> 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 @"missedCatchupWindow") ScheduleInfo
_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 ScheduleInfo ScheduleInfo Int64 Int64
-> ScheduleInfo -> 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 @"overlapSkipped") ScheduleInfo
_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 :: Int64
_v
= FoldLike Int64 ScheduleInfo ScheduleInfo Int64 Int64
-> ScheduleInfo -> 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 @"bufferDropped") ScheduleInfo
_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
80)
((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 ScheduleInfo ScheduleInfo Int64 Int64
-> ScheduleInfo -> 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 @"bufferSize") ScheduleInfo
_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
88)
((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.<>)
((WorkflowExecution -> Builder)
-> Vector WorkflowExecution -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ WorkflowExecution
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
((ByteString -> Builder)
-> (WorkflowExecution -> ByteString)
-> WorkflowExecution
-> 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))
WorkflowExecution -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WorkflowExecution
_v))
(FoldLike
(Vector WorkflowExecution)
ScheduleInfo
ScheduleInfo
(Vector WorkflowExecution)
(Vector WorkflowExecution)
-> ScheduleInfo -> Vector WorkflowExecution
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'runningWorkflows") ScheduleInfo
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((ScheduleActionResult -> Builder)
-> Vector ScheduleActionResult -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ ScheduleActionResult
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (ScheduleActionResult -> ByteString)
-> ScheduleActionResult
-> 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))
ScheduleActionResult -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ScheduleActionResult
_v))
(FoldLike
(Vector ScheduleActionResult)
ScheduleInfo
ScheduleInfo
(Vector ScheduleActionResult)
(Vector ScheduleActionResult)
-> ScheduleInfo -> Vector ScheduleActionResult
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'recentActions") ScheduleInfo
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Timestamp -> Builder) -> Vector Timestamp -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Timestamp
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((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))
(FoldLike
(Vector Timestamp)
ScheduleInfo
ScheduleInfo
(Vector Timestamp)
(Vector Timestamp)
-> ScheduleInfo -> Vector 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 @"vec'futureActionTimes") ScheduleInfo
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Timestamp)
ScheduleInfo
ScheduleInfo
(Maybe Timestamp)
(Maybe Timestamp)
-> ScheduleInfo -> 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") ScheduleInfo
_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
50)
((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.<>)
(case
FoldLike
(Maybe Timestamp)
ScheduleInfo
ScheduleInfo
(Maybe Timestamp)
(Maybe Timestamp)
-> ScheduleInfo -> 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'updateTime") ScheduleInfo
_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
58)
((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 ScheduleInfo ScheduleInfo Text Text
-> ScheduleInfo -> 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
@"invalidScheduleError")
ScheduleInfo
_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
66)
((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 ScheduleInfo ScheduleInfo FieldSet FieldSet
-> ScheduleInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
FoldLike FieldSet ScheduleInfo ScheduleInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ScheduleInfo FieldSet
Data.ProtoLens.unknownFields ScheduleInfo
_x))))))))))))
instance Control.DeepSeq.NFData ScheduleInfo where
rnf :: ScheduleInfo -> ()
rnf
= \ ScheduleInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleInfo -> FieldSet
_ScheduleInfo'_unknownFields ScheduleInfo
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleInfo -> Int64
_ScheduleInfo'actionCount ScheduleInfo
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleInfo -> Int64
_ScheduleInfo'missedCatchupWindow ScheduleInfo
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleInfo -> Int64
_ScheduleInfo'overlapSkipped ScheduleInfo
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleInfo -> Int64
_ScheduleInfo'bufferDropped ScheduleInfo
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleInfo -> Int64
_ScheduleInfo'bufferSize ScheduleInfo
x__)
(Vector WorkflowExecution -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleInfo -> Vector WorkflowExecution
_ScheduleInfo'runningWorkflows ScheduleInfo
x__)
(Vector ScheduleActionResult -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleInfo -> Vector ScheduleActionResult
_ScheduleInfo'recentActions ScheduleInfo
x__)
(Vector Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleInfo -> Vector Timestamp
_ScheduleInfo'futureActionTimes ScheduleInfo
x__)
(Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleInfo -> Maybe Timestamp
_ScheduleInfo'createTime ScheduleInfo
x__)
(Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleInfo -> Maybe Timestamp
_ScheduleInfo'updateTime ScheduleInfo
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleInfo -> Text
_ScheduleInfo'invalidScheduleError ScheduleInfo
x__) ())))))))))))
data ScheduleListEntry
= ScheduleListEntry'_constructor {ScheduleListEntry -> Text
_ScheduleListEntry'scheduleId :: !Data.Text.Text,
ScheduleListEntry -> Maybe Memo
_ScheduleListEntry'memo :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Memo),
ScheduleListEntry -> Maybe SearchAttributes
_ScheduleListEntry'searchAttributes :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.SearchAttributes),
ScheduleListEntry -> Maybe ScheduleListInfo
_ScheduleListEntry'info :: !(Prelude.Maybe ScheduleListInfo),
ScheduleListEntry -> FieldSet
_ScheduleListEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ScheduleListEntry -> ScheduleListEntry -> Bool
(ScheduleListEntry -> ScheduleListEntry -> Bool)
-> (ScheduleListEntry -> ScheduleListEntry -> Bool)
-> Eq ScheduleListEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScheduleListEntry -> ScheduleListEntry -> Bool
== :: ScheduleListEntry -> ScheduleListEntry -> Bool
$c/= :: ScheduleListEntry -> ScheduleListEntry -> Bool
/= :: ScheduleListEntry -> ScheduleListEntry -> Bool
Prelude.Eq, Eq ScheduleListEntry
Eq ScheduleListEntry =>
(ScheduleListEntry -> ScheduleListEntry -> Ordering)
-> (ScheduleListEntry -> ScheduleListEntry -> Bool)
-> (ScheduleListEntry -> ScheduleListEntry -> Bool)
-> (ScheduleListEntry -> ScheduleListEntry -> Bool)
-> (ScheduleListEntry -> ScheduleListEntry -> Bool)
-> (ScheduleListEntry -> ScheduleListEntry -> ScheduleListEntry)
-> (ScheduleListEntry -> ScheduleListEntry -> ScheduleListEntry)
-> Ord ScheduleListEntry
ScheduleListEntry -> ScheduleListEntry -> Bool
ScheduleListEntry -> ScheduleListEntry -> Ordering
ScheduleListEntry -> ScheduleListEntry -> ScheduleListEntry
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 :: ScheduleListEntry -> ScheduleListEntry -> Ordering
compare :: ScheduleListEntry -> ScheduleListEntry -> Ordering
$c< :: ScheduleListEntry -> ScheduleListEntry -> Bool
< :: ScheduleListEntry -> ScheduleListEntry -> Bool
$c<= :: ScheduleListEntry -> ScheduleListEntry -> Bool
<= :: ScheduleListEntry -> ScheduleListEntry -> Bool
$c> :: ScheduleListEntry -> ScheduleListEntry -> Bool
> :: ScheduleListEntry -> ScheduleListEntry -> Bool
$c>= :: ScheduleListEntry -> ScheduleListEntry -> Bool
>= :: ScheduleListEntry -> ScheduleListEntry -> Bool
$cmax :: ScheduleListEntry -> ScheduleListEntry -> ScheduleListEntry
max :: ScheduleListEntry -> ScheduleListEntry -> ScheduleListEntry
$cmin :: ScheduleListEntry -> ScheduleListEntry -> ScheduleListEntry
min :: ScheduleListEntry -> ScheduleListEntry -> ScheduleListEntry
Prelude.Ord)
instance Prelude.Show ScheduleListEntry where
showsPrec :: Int -> ScheduleListEntry -> ShowS
showsPrec Int
_ ScheduleListEntry
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ScheduleListEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ScheduleListEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ScheduleListEntry "scheduleId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduleId"
-> (Text -> f Text) -> ScheduleListEntry -> f ScheduleListEntry
fieldOf Proxy# "scheduleId"
_
= ((Text -> f Text) -> ScheduleListEntry -> f ScheduleListEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ScheduleListEntry
-> f ScheduleListEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListEntry -> Text)
-> (ScheduleListEntry -> Text -> ScheduleListEntry)
-> Lens ScheduleListEntry ScheduleListEntry Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListEntry -> Text
_ScheduleListEntry'scheduleId
(\ ScheduleListEntry
x__ Text
y__ -> ScheduleListEntry
x__ {_ScheduleListEntry'scheduleId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleListEntry "memo" Proto.Temporal.Api.Common.V1.Message.Memo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "memo"
-> (Memo -> f Memo) -> ScheduleListEntry -> f ScheduleListEntry
fieldOf Proxy# "memo"
_
= ((Maybe Memo -> f (Maybe Memo))
-> ScheduleListEntry -> f ScheduleListEntry)
-> ((Memo -> f Memo) -> Maybe Memo -> f (Maybe Memo))
-> (Memo -> f Memo)
-> ScheduleListEntry
-> f ScheduleListEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListEntry -> Maybe Memo)
-> (ScheduleListEntry -> Maybe Memo -> ScheduleListEntry)
-> Lens
ScheduleListEntry ScheduleListEntry (Maybe Memo) (Maybe Memo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListEntry -> Maybe Memo
_ScheduleListEntry'memo
(\ ScheduleListEntry
x__ Maybe Memo
y__ -> ScheduleListEntry
x__ {_ScheduleListEntry'memo = y__}))
(Memo -> Lens' (Maybe Memo) Memo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Memo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ScheduleListEntry "maybe'memo" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Memo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'memo"
-> (Maybe Memo -> f (Maybe Memo))
-> ScheduleListEntry
-> f ScheduleListEntry
fieldOf Proxy# "maybe'memo"
_
= ((Maybe Memo -> f (Maybe Memo))
-> ScheduleListEntry -> f ScheduleListEntry)
-> ((Maybe Memo -> f (Maybe Memo)) -> Maybe Memo -> f (Maybe Memo))
-> (Maybe Memo -> f (Maybe Memo))
-> ScheduleListEntry
-> f ScheduleListEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListEntry -> Maybe Memo)
-> (ScheduleListEntry -> Maybe Memo -> ScheduleListEntry)
-> Lens
ScheduleListEntry ScheduleListEntry (Maybe Memo) (Maybe Memo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListEntry -> Maybe Memo
_ScheduleListEntry'memo
(\ ScheduleListEntry
x__ Maybe Memo
y__ -> ScheduleListEntry
x__ {_ScheduleListEntry'memo = y__}))
(Maybe Memo -> f (Maybe Memo)) -> Maybe Memo -> f (Maybe Memo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleListEntry "searchAttributes" Proto.Temporal.Api.Common.V1.Message.SearchAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "searchAttributes"
-> (SearchAttributes -> f SearchAttributes)
-> ScheduleListEntry
-> f ScheduleListEntry
fieldOf Proxy# "searchAttributes"
_
= ((Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> ScheduleListEntry -> f ScheduleListEntry)
-> ((SearchAttributes -> f SearchAttributes)
-> Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> (SearchAttributes -> f SearchAttributes)
-> ScheduleListEntry
-> f ScheduleListEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListEntry -> Maybe SearchAttributes)
-> (ScheduleListEntry
-> Maybe SearchAttributes -> ScheduleListEntry)
-> Lens
ScheduleListEntry
ScheduleListEntry
(Maybe SearchAttributes)
(Maybe SearchAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListEntry -> Maybe SearchAttributes
_ScheduleListEntry'searchAttributes
(\ ScheduleListEntry
x__ Maybe SearchAttributes
y__ -> ScheduleListEntry
x__ {_ScheduleListEntry'searchAttributes = y__}))
(SearchAttributes -> Lens' (Maybe SearchAttributes) SearchAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SearchAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ScheduleListEntry "maybe'searchAttributes" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.SearchAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'searchAttributes"
-> (Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> ScheduleListEntry
-> f ScheduleListEntry
fieldOf Proxy# "maybe'searchAttributes"
_
= ((Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> ScheduleListEntry -> f ScheduleListEntry)
-> ((Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> (Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> ScheduleListEntry
-> f ScheduleListEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListEntry -> Maybe SearchAttributes)
-> (ScheduleListEntry
-> Maybe SearchAttributes -> ScheduleListEntry)
-> Lens
ScheduleListEntry
ScheduleListEntry
(Maybe SearchAttributes)
(Maybe SearchAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListEntry -> Maybe SearchAttributes
_ScheduleListEntry'searchAttributes
(\ ScheduleListEntry
x__ Maybe SearchAttributes
y__ -> ScheduleListEntry
x__ {_ScheduleListEntry'searchAttributes = y__}))
(Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> Maybe SearchAttributes -> f (Maybe SearchAttributes)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleListEntry "info" ScheduleListInfo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "info"
-> (ScheduleListInfo -> f ScheduleListInfo)
-> ScheduleListEntry
-> f ScheduleListEntry
fieldOf Proxy# "info"
_
= ((Maybe ScheduleListInfo -> f (Maybe ScheduleListInfo))
-> ScheduleListEntry -> f ScheduleListEntry)
-> ((ScheduleListInfo -> f ScheduleListInfo)
-> Maybe ScheduleListInfo -> f (Maybe ScheduleListInfo))
-> (ScheduleListInfo -> f ScheduleListInfo)
-> ScheduleListEntry
-> f ScheduleListEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListEntry -> Maybe ScheduleListInfo)
-> (ScheduleListEntry
-> Maybe ScheduleListInfo -> ScheduleListEntry)
-> Lens
ScheduleListEntry
ScheduleListEntry
(Maybe ScheduleListInfo)
(Maybe ScheduleListInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListEntry -> Maybe ScheduleListInfo
_ScheduleListEntry'info
(\ ScheduleListEntry
x__ Maybe ScheduleListInfo
y__ -> ScheduleListEntry
x__ {_ScheduleListEntry'info = y__}))
(ScheduleListInfo -> Lens' (Maybe ScheduleListInfo) ScheduleListInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ScheduleListInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ScheduleListEntry "maybe'info" (Prelude.Maybe ScheduleListInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'info"
-> (Maybe ScheduleListInfo -> f (Maybe ScheduleListInfo))
-> ScheduleListEntry
-> f ScheduleListEntry
fieldOf Proxy# "maybe'info"
_
= ((Maybe ScheduleListInfo -> f (Maybe ScheduleListInfo))
-> ScheduleListEntry -> f ScheduleListEntry)
-> ((Maybe ScheduleListInfo -> f (Maybe ScheduleListInfo))
-> Maybe ScheduleListInfo -> f (Maybe ScheduleListInfo))
-> (Maybe ScheduleListInfo -> f (Maybe ScheduleListInfo))
-> ScheduleListEntry
-> f ScheduleListEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListEntry -> Maybe ScheduleListInfo)
-> (ScheduleListEntry
-> Maybe ScheduleListInfo -> ScheduleListEntry)
-> Lens
ScheduleListEntry
ScheduleListEntry
(Maybe ScheduleListInfo)
(Maybe ScheduleListInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListEntry -> Maybe ScheduleListInfo
_ScheduleListEntry'info
(\ ScheduleListEntry
x__ Maybe ScheduleListInfo
y__ -> ScheduleListEntry
x__ {_ScheduleListEntry'info = y__}))
(Maybe ScheduleListInfo -> f (Maybe ScheduleListInfo))
-> Maybe ScheduleListInfo -> f (Maybe ScheduleListInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ScheduleListEntry where
messageName :: Proxy ScheduleListEntry -> Text
messageName Proxy ScheduleListEntry
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.ScheduleListEntry"
packedMessageDescriptor :: Proxy ScheduleListEntry -> ByteString
packedMessageDescriptor Proxy ScheduleListEntry
_
= ByteString
"\n\
\\DC1ScheduleListEntry\DC2\US\n\
\\vschedule_id\CAN\SOH \SOH(\tR\n\
\scheduleId\DC20\n\
\\EOTmemo\CAN\STX \SOH(\v2\FS.temporal.api.common.v1.MemoR\EOTmemo\DC2U\n\
\\DC1search_attributes\CAN\ETX \SOH(\v2(.temporal.api.common.v1.SearchAttributesR\DLEsearchAttributes\DC2>\n\
\\EOTinfo\CAN\EOT \SOH(\v2*.temporal.api.schedule.v1.ScheduleListInfoR\EOTinfo"
packedFileDescriptor :: Proxy ScheduleListEntry -> ByteString
packedFileDescriptor Proxy ScheduleListEntry
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ScheduleListEntry)
fieldsByTag
= let
scheduleId__field_descriptor :: FieldDescriptor ScheduleListEntry
scheduleId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ScheduleListEntry Text
-> FieldDescriptor ScheduleListEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"schedule_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 ScheduleListEntry ScheduleListEntry Text Text
-> FieldAccessor ScheduleListEntry 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 @"scheduleId")) ::
Data.ProtoLens.FieldDescriptor ScheduleListEntry
memo__field_descriptor :: FieldDescriptor ScheduleListEntry
memo__field_descriptor
= String
-> FieldTypeDescriptor Memo
-> FieldAccessor ScheduleListEntry Memo
-> FieldDescriptor ScheduleListEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"memo"
(MessageOrGroup -> FieldTypeDescriptor Memo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Memo)
(Lens ScheduleListEntry ScheduleListEntry (Maybe Memo) (Maybe Memo)
-> FieldAccessor ScheduleListEntry Memo
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'memo")) ::
Data.ProtoLens.FieldDescriptor ScheduleListEntry
searchAttributes__field_descriptor :: FieldDescriptor ScheduleListEntry
searchAttributes__field_descriptor
= String
-> FieldTypeDescriptor SearchAttributes
-> FieldAccessor ScheduleListEntry SearchAttributes
-> FieldDescriptor ScheduleListEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"search_attributes"
(MessageOrGroup -> FieldTypeDescriptor SearchAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.SearchAttributes)
(Lens
ScheduleListEntry
ScheduleListEntry
(Maybe SearchAttributes)
(Maybe SearchAttributes)
-> FieldAccessor ScheduleListEntry SearchAttributes
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'searchAttributes")) ::
Data.ProtoLens.FieldDescriptor ScheduleListEntry
info__field_descriptor :: FieldDescriptor ScheduleListEntry
info__field_descriptor
= String
-> FieldTypeDescriptor ScheduleListInfo
-> FieldAccessor ScheduleListEntry ScheduleListInfo
-> FieldDescriptor ScheduleListEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"info"
(MessageOrGroup -> FieldTypeDescriptor ScheduleListInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ScheduleListInfo)
(Lens
ScheduleListEntry
ScheduleListEntry
(Maybe ScheduleListInfo)
(Maybe ScheduleListInfo)
-> FieldAccessor ScheduleListEntry ScheduleListInfo
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'info")) ::
Data.ProtoLens.FieldDescriptor ScheduleListEntry
in
[(Tag, FieldDescriptor ScheduleListEntry)]
-> Map Tag (FieldDescriptor ScheduleListEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ScheduleListEntry
scheduleId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ScheduleListEntry
memo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ScheduleListEntry
searchAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ScheduleListEntry
info__field_descriptor)]
unknownFields :: Lens' ScheduleListEntry FieldSet
unknownFields
= (ScheduleListEntry -> FieldSet)
-> (ScheduleListEntry -> FieldSet -> ScheduleListEntry)
-> Lens' ScheduleListEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListEntry -> FieldSet
_ScheduleListEntry'_unknownFields
(\ ScheduleListEntry
x__ FieldSet
y__ -> ScheduleListEntry
x__ {_ScheduleListEntry'_unknownFields = y__})
defMessage :: ScheduleListEntry
defMessage
= ScheduleListEntry'_constructor
{_ScheduleListEntry'scheduleId :: Text
_ScheduleListEntry'scheduleId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleListEntry'memo :: Maybe Memo
_ScheduleListEntry'memo = Maybe Memo
forall a. Maybe a
Prelude.Nothing,
_ScheduleListEntry'searchAttributes :: Maybe SearchAttributes
_ScheduleListEntry'searchAttributes = Maybe SearchAttributes
forall a. Maybe a
Prelude.Nothing,
_ScheduleListEntry'info :: Maybe ScheduleListInfo
_ScheduleListEntry'info = Maybe ScheduleListInfo
forall a. Maybe a
Prelude.Nothing,
_ScheduleListEntry'_unknownFields :: FieldSet
_ScheduleListEntry'_unknownFields = []}
parseMessage :: Parser ScheduleListEntry
parseMessage
= let
loop ::
ScheduleListEntry
-> Data.ProtoLens.Encoding.Bytes.Parser ScheduleListEntry
loop :: ScheduleListEntry -> Parser ScheduleListEntry
loop ScheduleListEntry
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
"schedule_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"scheduleId") y x)
Word64
18
-> do y <- Parser Memo -> String -> Parser Memo
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
"memo"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"memo") y x)
Word64
26
-> do y <- Parser SearchAttributes -> String -> Parser SearchAttributes
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
"search_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"searchAttributes") y x)
Word64
34
-> do y <- Parser ScheduleListInfo -> String -> Parser ScheduleListInfo
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
"info"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"info") 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 ScheduleListEntry -> String -> Parser ScheduleListEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ScheduleListEntry -> Parser ScheduleListEntry
loop ScheduleListEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ScheduleListEntry"
buildMessage :: ScheduleListEntry -> Builder
buildMessage
= \ ScheduleListEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text ScheduleListEntry ScheduleListEntry Text Text
-> ScheduleListEntry -> 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 @"scheduleId") ScheduleListEntry
_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 Memo)
ScheduleListEntry
ScheduleListEntry
(Maybe Memo)
(Maybe Memo)
-> ScheduleListEntry -> Maybe Memo
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'memo") ScheduleListEntry
_x
of
Maybe Memo
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Memo
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder) -> (Memo -> ByteString) -> Memo -> 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))
Memo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Memo
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe SearchAttributes)
ScheduleListEntry
ScheduleListEntry
(Maybe SearchAttributes)
(Maybe SearchAttributes)
-> ScheduleListEntry -> Maybe SearchAttributes
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'searchAttributes") ScheduleListEntry
_x
of
Maybe SearchAttributes
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just SearchAttributes
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (SearchAttributes -> ByteString) -> SearchAttributes -> 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))
SearchAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage SearchAttributes
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ScheduleListInfo)
ScheduleListEntry
ScheduleListEntry
(Maybe ScheduleListInfo)
(Maybe ScheduleListInfo)
-> ScheduleListEntry -> Maybe ScheduleListInfo
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'info") ScheduleListEntry
_x
of
Maybe ScheduleListInfo
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just ScheduleListInfo
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (ScheduleListInfo -> ByteString) -> ScheduleListInfo -> 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))
ScheduleListInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ScheduleListInfo
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet ScheduleListEntry ScheduleListEntry FieldSet FieldSet
-> ScheduleListEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet ScheduleListEntry ScheduleListEntry FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ScheduleListEntry FieldSet
Data.ProtoLens.unknownFields ScheduleListEntry
_x)))))
instance Control.DeepSeq.NFData ScheduleListEntry where
rnf :: ScheduleListEntry -> ()
rnf
= \ ScheduleListEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleListEntry -> FieldSet
_ScheduleListEntry'_unknownFields ScheduleListEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleListEntry -> Text
_ScheduleListEntry'scheduleId ScheduleListEntry
x__)
(Maybe Memo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleListEntry -> Maybe Memo
_ScheduleListEntry'memo ScheduleListEntry
x__)
(Maybe SearchAttributes -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleListEntry -> Maybe SearchAttributes
_ScheduleListEntry'searchAttributes ScheduleListEntry
x__)
(Maybe ScheduleListInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ScheduleListEntry -> Maybe ScheduleListInfo
_ScheduleListEntry'info ScheduleListEntry
x__) ()))))
data ScheduleListInfo
= ScheduleListInfo'_constructor {ScheduleListInfo -> Maybe ScheduleSpec
_ScheduleListInfo'spec :: !(Prelude.Maybe ScheduleSpec),
ScheduleListInfo -> Maybe WorkflowType
_ScheduleListInfo'workflowType :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowType),
ScheduleListInfo -> Text
_ScheduleListInfo'notes :: !Data.Text.Text,
ScheduleListInfo -> Bool
_ScheduleListInfo'paused :: !Prelude.Bool,
ScheduleListInfo -> Vector ScheduleActionResult
_ScheduleListInfo'recentActions :: !(Data.Vector.Vector ScheduleActionResult),
ScheduleListInfo -> Vector Timestamp
_ScheduleListInfo'futureActionTimes :: !(Data.Vector.Vector Proto.Google.Protobuf.Timestamp.Timestamp),
ScheduleListInfo -> FieldSet
_ScheduleListInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ScheduleListInfo -> ScheduleListInfo -> Bool
(ScheduleListInfo -> ScheduleListInfo -> Bool)
-> (ScheduleListInfo -> ScheduleListInfo -> Bool)
-> Eq ScheduleListInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScheduleListInfo -> ScheduleListInfo -> Bool
== :: ScheduleListInfo -> ScheduleListInfo -> Bool
$c/= :: ScheduleListInfo -> ScheduleListInfo -> Bool
/= :: ScheduleListInfo -> ScheduleListInfo -> Bool
Prelude.Eq, Eq ScheduleListInfo
Eq ScheduleListInfo =>
(ScheduleListInfo -> ScheduleListInfo -> Ordering)
-> (ScheduleListInfo -> ScheduleListInfo -> Bool)
-> (ScheduleListInfo -> ScheduleListInfo -> Bool)
-> (ScheduleListInfo -> ScheduleListInfo -> Bool)
-> (ScheduleListInfo -> ScheduleListInfo -> Bool)
-> (ScheduleListInfo -> ScheduleListInfo -> ScheduleListInfo)
-> (ScheduleListInfo -> ScheduleListInfo -> ScheduleListInfo)
-> Ord ScheduleListInfo
ScheduleListInfo -> ScheduleListInfo -> Bool
ScheduleListInfo -> ScheduleListInfo -> Ordering
ScheduleListInfo -> ScheduleListInfo -> ScheduleListInfo
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 :: ScheduleListInfo -> ScheduleListInfo -> Ordering
compare :: ScheduleListInfo -> ScheduleListInfo -> Ordering
$c< :: ScheduleListInfo -> ScheduleListInfo -> Bool
< :: ScheduleListInfo -> ScheduleListInfo -> Bool
$c<= :: ScheduleListInfo -> ScheduleListInfo -> Bool
<= :: ScheduleListInfo -> ScheduleListInfo -> Bool
$c> :: ScheduleListInfo -> ScheduleListInfo -> Bool
> :: ScheduleListInfo -> ScheduleListInfo -> Bool
$c>= :: ScheduleListInfo -> ScheduleListInfo -> Bool
>= :: ScheduleListInfo -> ScheduleListInfo -> Bool
$cmax :: ScheduleListInfo -> ScheduleListInfo -> ScheduleListInfo
max :: ScheduleListInfo -> ScheduleListInfo -> ScheduleListInfo
$cmin :: ScheduleListInfo -> ScheduleListInfo -> ScheduleListInfo
min :: ScheduleListInfo -> ScheduleListInfo -> ScheduleListInfo
Prelude.Ord)
instance Prelude.Show ScheduleListInfo where
showsPrec :: Int -> ScheduleListInfo -> ShowS
showsPrec Int
_ ScheduleListInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ScheduleListInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ScheduleListInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ScheduleListInfo "spec" ScheduleSpec where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "spec"
-> (ScheduleSpec -> f ScheduleSpec)
-> ScheduleListInfo
-> f ScheduleListInfo
fieldOf Proxy# "spec"
_
= ((Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> ScheduleListInfo -> f ScheduleListInfo)
-> ((ScheduleSpec -> f ScheduleSpec)
-> Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> (ScheduleSpec -> f ScheduleSpec)
-> ScheduleListInfo
-> f ScheduleListInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListInfo -> Maybe ScheduleSpec)
-> (ScheduleListInfo -> Maybe ScheduleSpec -> ScheduleListInfo)
-> Lens
ScheduleListInfo
ScheduleListInfo
(Maybe ScheduleSpec)
(Maybe ScheduleSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListInfo -> Maybe ScheduleSpec
_ScheduleListInfo'spec
(\ ScheduleListInfo
x__ Maybe ScheduleSpec
y__ -> ScheduleListInfo
x__ {_ScheduleListInfo'spec = y__}))
(ScheduleSpec -> Lens' (Maybe ScheduleSpec) ScheduleSpec
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ScheduleSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ScheduleListInfo "maybe'spec" (Prelude.Maybe ScheduleSpec) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'spec"
-> (Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> ScheduleListInfo
-> f ScheduleListInfo
fieldOf Proxy# "maybe'spec"
_
= ((Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> ScheduleListInfo -> f ScheduleListInfo)
-> ((Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> (Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> ScheduleListInfo
-> f ScheduleListInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListInfo -> Maybe ScheduleSpec)
-> (ScheduleListInfo -> Maybe ScheduleSpec -> ScheduleListInfo)
-> Lens
ScheduleListInfo
ScheduleListInfo
(Maybe ScheduleSpec)
(Maybe ScheduleSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListInfo -> Maybe ScheduleSpec
_ScheduleListInfo'spec
(\ ScheduleListInfo
x__ Maybe ScheduleSpec
y__ -> ScheduleListInfo
x__ {_ScheduleListInfo'spec = y__}))
(Maybe ScheduleSpec -> f (Maybe ScheduleSpec))
-> Maybe ScheduleSpec -> f (Maybe ScheduleSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleListInfo "workflowType" Proto.Temporal.Api.Common.V1.Message.WorkflowType where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowType"
-> (WorkflowType -> f WorkflowType)
-> ScheduleListInfo
-> f ScheduleListInfo
fieldOf Proxy# "workflowType"
_
= ((Maybe WorkflowType -> f (Maybe WorkflowType))
-> ScheduleListInfo -> f ScheduleListInfo)
-> ((WorkflowType -> f WorkflowType)
-> Maybe WorkflowType -> f (Maybe WorkflowType))
-> (WorkflowType -> f WorkflowType)
-> ScheduleListInfo
-> f ScheduleListInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListInfo -> Maybe WorkflowType)
-> (ScheduleListInfo -> Maybe WorkflowType -> ScheduleListInfo)
-> Lens
ScheduleListInfo
ScheduleListInfo
(Maybe WorkflowType)
(Maybe WorkflowType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListInfo -> Maybe WorkflowType
_ScheduleListInfo'workflowType
(\ ScheduleListInfo
x__ Maybe WorkflowType
y__ -> ScheduleListInfo
x__ {_ScheduleListInfo'workflowType = y__}))
(WorkflowType -> Lens' (Maybe WorkflowType) WorkflowType
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WorkflowType
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ScheduleListInfo "maybe'workflowType" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowType) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowType"
-> (Maybe WorkflowType -> f (Maybe WorkflowType))
-> ScheduleListInfo
-> f ScheduleListInfo
fieldOf Proxy# "maybe'workflowType"
_
= ((Maybe WorkflowType -> f (Maybe WorkflowType))
-> ScheduleListInfo -> f ScheduleListInfo)
-> ((Maybe WorkflowType -> f (Maybe WorkflowType))
-> Maybe WorkflowType -> f (Maybe WorkflowType))
-> (Maybe WorkflowType -> f (Maybe WorkflowType))
-> ScheduleListInfo
-> f ScheduleListInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListInfo -> Maybe WorkflowType)
-> (ScheduleListInfo -> Maybe WorkflowType -> ScheduleListInfo)
-> Lens
ScheduleListInfo
ScheduleListInfo
(Maybe WorkflowType)
(Maybe WorkflowType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListInfo -> Maybe WorkflowType
_ScheduleListInfo'workflowType
(\ ScheduleListInfo
x__ Maybe WorkflowType
y__ -> ScheduleListInfo
x__ {_ScheduleListInfo'workflowType = y__}))
(Maybe WorkflowType -> f (Maybe WorkflowType))
-> Maybe WorkflowType -> f (Maybe WorkflowType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleListInfo "notes" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "notes"
-> (Text -> f Text) -> ScheduleListInfo -> f ScheduleListInfo
fieldOf Proxy# "notes"
_
= ((Text -> f Text) -> ScheduleListInfo -> f ScheduleListInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ScheduleListInfo
-> f ScheduleListInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListInfo -> Text)
-> (ScheduleListInfo -> Text -> ScheduleListInfo)
-> Lens ScheduleListInfo ScheduleListInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListInfo -> Text
_ScheduleListInfo'notes
(\ ScheduleListInfo
x__ Text
y__ -> ScheduleListInfo
x__ {_ScheduleListInfo'notes = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleListInfo "paused" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "paused"
-> (Bool -> f Bool) -> ScheduleListInfo -> f ScheduleListInfo
fieldOf Proxy# "paused"
_
= ((Bool -> f Bool) -> ScheduleListInfo -> f ScheduleListInfo)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ScheduleListInfo
-> f ScheduleListInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListInfo -> Bool)
-> (ScheduleListInfo -> Bool -> ScheduleListInfo)
-> Lens ScheduleListInfo ScheduleListInfo Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListInfo -> Bool
_ScheduleListInfo'paused
(\ ScheduleListInfo
x__ Bool
y__ -> ScheduleListInfo
x__ {_ScheduleListInfo'paused = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleListInfo "recentActions" [ScheduleActionResult] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "recentActions"
-> ([ScheduleActionResult] -> f [ScheduleActionResult])
-> ScheduleListInfo
-> f ScheduleListInfo
fieldOf Proxy# "recentActions"
_
= ((Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> ScheduleListInfo -> f ScheduleListInfo)
-> (([ScheduleActionResult] -> f [ScheduleActionResult])
-> Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> ([ScheduleActionResult] -> f [ScheduleActionResult])
-> ScheduleListInfo
-> f ScheduleListInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListInfo -> Vector ScheduleActionResult)
-> (ScheduleListInfo
-> Vector ScheduleActionResult -> ScheduleListInfo)
-> Lens
ScheduleListInfo
ScheduleListInfo
(Vector ScheduleActionResult)
(Vector ScheduleActionResult)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListInfo -> Vector ScheduleActionResult
_ScheduleListInfo'recentActions
(\ ScheduleListInfo
x__ Vector ScheduleActionResult
y__ -> ScheduleListInfo
x__ {_ScheduleListInfo'recentActions = y__}))
((Vector ScheduleActionResult -> [ScheduleActionResult])
-> (Vector ScheduleActionResult
-> [ScheduleActionResult] -> Vector ScheduleActionResult)
-> Lens
(Vector ScheduleActionResult)
(Vector ScheduleActionResult)
[ScheduleActionResult]
[ScheduleActionResult]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector ScheduleActionResult -> [ScheduleActionResult]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector ScheduleActionResult
_ [ScheduleActionResult]
y__ -> [ScheduleActionResult] -> Vector ScheduleActionResult
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ScheduleActionResult]
y__))
instance Data.ProtoLens.Field.HasField ScheduleListInfo "vec'recentActions" (Data.Vector.Vector ScheduleActionResult) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'recentActions"
-> (Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> ScheduleListInfo
-> f ScheduleListInfo
fieldOf Proxy# "vec'recentActions"
_
= ((Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> ScheduleListInfo -> f ScheduleListInfo)
-> ((Vector ScheduleActionResult
-> f (Vector ScheduleActionResult))
-> Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> (Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> ScheduleListInfo
-> f ScheduleListInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListInfo -> Vector ScheduleActionResult)
-> (ScheduleListInfo
-> Vector ScheduleActionResult -> ScheduleListInfo)
-> Lens
ScheduleListInfo
ScheduleListInfo
(Vector ScheduleActionResult)
(Vector ScheduleActionResult)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListInfo -> Vector ScheduleActionResult
_ScheduleListInfo'recentActions
(\ ScheduleListInfo
x__ Vector ScheduleActionResult
y__ -> ScheduleListInfo
x__ {_ScheduleListInfo'recentActions = y__}))
(Vector ScheduleActionResult -> f (Vector ScheduleActionResult))
-> Vector ScheduleActionResult -> f (Vector ScheduleActionResult)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleListInfo "futureActionTimes" [Proto.Google.Protobuf.Timestamp.Timestamp] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "futureActionTimes"
-> ([Timestamp] -> f [Timestamp])
-> ScheduleListInfo
-> f ScheduleListInfo
fieldOf Proxy# "futureActionTimes"
_
= ((Vector Timestamp -> f (Vector Timestamp))
-> ScheduleListInfo -> f ScheduleListInfo)
-> (([Timestamp] -> f [Timestamp])
-> Vector Timestamp -> f (Vector Timestamp))
-> ([Timestamp] -> f [Timestamp])
-> ScheduleListInfo
-> f ScheduleListInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListInfo -> Vector Timestamp)
-> (ScheduleListInfo -> Vector Timestamp -> ScheduleListInfo)
-> Lens
ScheduleListInfo
ScheduleListInfo
(Vector Timestamp)
(Vector Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListInfo -> Vector Timestamp
_ScheduleListInfo'futureActionTimes
(\ ScheduleListInfo
x__ Vector Timestamp
y__ -> ScheduleListInfo
x__ {_ScheduleListInfo'futureActionTimes = y__}))
((Vector Timestamp -> [Timestamp])
-> (Vector Timestamp -> [Timestamp] -> Vector Timestamp)
-> Lens
(Vector Timestamp) (Vector Timestamp) [Timestamp] [Timestamp]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Timestamp -> [Timestamp]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Timestamp
_ [Timestamp]
y__ -> [Timestamp] -> Vector Timestamp
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Timestamp]
y__))
instance Data.ProtoLens.Field.HasField ScheduleListInfo "vec'futureActionTimes" (Data.Vector.Vector Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'futureActionTimes"
-> (Vector Timestamp -> f (Vector Timestamp))
-> ScheduleListInfo
-> f ScheduleListInfo
fieldOf Proxy# "vec'futureActionTimes"
_
= ((Vector Timestamp -> f (Vector Timestamp))
-> ScheduleListInfo -> f ScheduleListInfo)
-> ((Vector Timestamp -> f (Vector Timestamp))
-> Vector Timestamp -> f (Vector Timestamp))
-> (Vector Timestamp -> f (Vector Timestamp))
-> ScheduleListInfo
-> f ScheduleListInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleListInfo -> Vector Timestamp)
-> (ScheduleListInfo -> Vector Timestamp -> ScheduleListInfo)
-> Lens
ScheduleListInfo
ScheduleListInfo
(Vector Timestamp)
(Vector Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListInfo -> Vector Timestamp
_ScheduleListInfo'futureActionTimes
(\ ScheduleListInfo
x__ Vector Timestamp
y__ -> ScheduleListInfo
x__ {_ScheduleListInfo'futureActionTimes = y__}))
(Vector Timestamp -> f (Vector Timestamp))
-> Vector Timestamp -> f (Vector Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ScheduleListInfo where
messageName :: Proxy ScheduleListInfo -> Text
messageName Proxy ScheduleListInfo
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.ScheduleListInfo"
packedMessageDescriptor :: Proxy ScheduleListInfo -> ByteString
packedMessageDescriptor Proxy ScheduleListInfo
_
= ByteString
"\n\
\\DLEScheduleListInfo\DC2:\n\
\\EOTspec\CAN\SOH \SOH(\v2&.temporal.api.schedule.v1.ScheduleSpecR\EOTspec\DC2I\n\
\\rworkflow_type\CAN\STX \SOH(\v2$.temporal.api.common.v1.WorkflowTypeR\fworkflowType\DC2\DC4\n\
\\ENQnotes\CAN\ETX \SOH(\tR\ENQnotes\DC2\SYN\n\
\\ACKpaused\CAN\EOT \SOH(\bR\ACKpaused\DC2U\n\
\\SOrecent_actions\CAN\ENQ \ETX(\v2..temporal.api.schedule.v1.ScheduleActionResultR\rrecentActions\DC2J\n\
\\DC3future_action_times\CAN\ACK \ETX(\v2\SUB.google.protobuf.TimestampR\DC1futureActionTimes"
packedFileDescriptor :: Proxy ScheduleListInfo -> ByteString
packedFileDescriptor Proxy ScheduleListInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ScheduleListInfo)
fieldsByTag
= let
spec__field_descriptor :: FieldDescriptor ScheduleListInfo
spec__field_descriptor
= String
-> FieldTypeDescriptor ScheduleSpec
-> FieldAccessor ScheduleListInfo ScheduleSpec
-> FieldDescriptor ScheduleListInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"spec"
(MessageOrGroup -> FieldTypeDescriptor ScheduleSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ScheduleSpec)
(Lens
ScheduleListInfo
ScheduleListInfo
(Maybe ScheduleSpec)
(Maybe ScheduleSpec)
-> FieldAccessor ScheduleListInfo ScheduleSpec
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'spec")) ::
Data.ProtoLens.FieldDescriptor ScheduleListInfo
workflowType__field_descriptor :: FieldDescriptor ScheduleListInfo
workflowType__field_descriptor
= String
-> FieldTypeDescriptor WorkflowType
-> FieldAccessor ScheduleListInfo WorkflowType
-> FieldDescriptor ScheduleListInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_type"
(MessageOrGroup -> FieldTypeDescriptor WorkflowType
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.WorkflowType)
(Lens
ScheduleListInfo
ScheduleListInfo
(Maybe WorkflowType)
(Maybe WorkflowType)
-> FieldAccessor ScheduleListInfo WorkflowType
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'workflowType")) ::
Data.ProtoLens.FieldDescriptor ScheduleListInfo
notes__field_descriptor :: FieldDescriptor ScheduleListInfo
notes__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ScheduleListInfo Text
-> FieldDescriptor ScheduleListInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"notes"
(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 ScheduleListInfo ScheduleListInfo Text Text
-> FieldAccessor ScheduleListInfo 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 @"notes")) ::
Data.ProtoLens.FieldDescriptor ScheduleListInfo
paused__field_descriptor :: FieldDescriptor ScheduleListInfo
paused__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ScheduleListInfo Bool
-> FieldDescriptor ScheduleListInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"paused"
(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 ScheduleListInfo ScheduleListInfo Bool Bool
-> FieldAccessor ScheduleListInfo 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 @"paused")) ::
Data.ProtoLens.FieldDescriptor ScheduleListInfo
recentActions__field_descriptor :: FieldDescriptor ScheduleListInfo
recentActions__field_descriptor
= String
-> FieldTypeDescriptor ScheduleActionResult
-> FieldAccessor ScheduleListInfo ScheduleActionResult
-> FieldDescriptor ScheduleListInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"recent_actions"
(MessageOrGroup -> FieldTypeDescriptor ScheduleActionResult
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ScheduleActionResult)
(Packing
-> Lens' ScheduleListInfo [ScheduleActionResult]
-> FieldAccessor ScheduleListInfo ScheduleActionResult
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 @"recentActions")) ::
Data.ProtoLens.FieldDescriptor ScheduleListInfo
futureActionTimes__field_descriptor :: FieldDescriptor ScheduleListInfo
futureActionTimes__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor ScheduleListInfo Timestamp
-> FieldDescriptor ScheduleListInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"future_action_times"
(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)
(Packing
-> Lens' ScheduleListInfo [Timestamp]
-> FieldAccessor ScheduleListInfo Timestamp
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 @"futureActionTimes")) ::
Data.ProtoLens.FieldDescriptor ScheduleListInfo
in
[(Tag, FieldDescriptor ScheduleListInfo)]
-> Map Tag (FieldDescriptor ScheduleListInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ScheduleListInfo
spec__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ScheduleListInfo
workflowType__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ScheduleListInfo
notes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ScheduleListInfo
paused__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor ScheduleListInfo
recentActions__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor ScheduleListInfo
futureActionTimes__field_descriptor)]
unknownFields :: Lens' ScheduleListInfo FieldSet
unknownFields
= (ScheduleListInfo -> FieldSet)
-> (ScheduleListInfo -> FieldSet -> ScheduleListInfo)
-> Lens' ScheduleListInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleListInfo -> FieldSet
_ScheduleListInfo'_unknownFields
(\ ScheduleListInfo
x__ FieldSet
y__ -> ScheduleListInfo
x__ {_ScheduleListInfo'_unknownFields = y__})
defMessage :: ScheduleListInfo
defMessage
= ScheduleListInfo'_constructor
{_ScheduleListInfo'spec :: Maybe ScheduleSpec
_ScheduleListInfo'spec = Maybe ScheduleSpec
forall a. Maybe a
Prelude.Nothing,
_ScheduleListInfo'workflowType :: Maybe WorkflowType
_ScheduleListInfo'workflowType = Maybe WorkflowType
forall a. Maybe a
Prelude.Nothing,
_ScheduleListInfo'notes :: Text
_ScheduleListInfo'notes = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleListInfo'paused :: Bool
_ScheduleListInfo'paused = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleListInfo'recentActions :: Vector ScheduleActionResult
_ScheduleListInfo'recentActions = Vector ScheduleActionResult
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ScheduleListInfo'futureActionTimes :: Vector Timestamp
_ScheduleListInfo'futureActionTimes = Vector Timestamp
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ScheduleListInfo'_unknownFields :: FieldSet
_ScheduleListInfo'_unknownFields = []}
parseMessage :: Parser ScheduleListInfo
parseMessage
= let
loop ::
ScheduleListInfo
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Google.Protobuf.Timestamp.Timestamp
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ScheduleActionResult
-> Data.ProtoLens.Encoding.Bytes.Parser ScheduleListInfo
loop :: ScheduleListInfo
-> Growing Vector RealWorld Timestamp
-> Growing Vector RealWorld ScheduleActionResult
-> Parser ScheduleListInfo
loop ScheduleListInfo
x Growing Vector RealWorld Timestamp
mutable'futureActionTimes Growing Vector RealWorld ScheduleActionResult
mutable'recentActions
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'futureActionTimes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'futureActionTimes)
frozen'recentActions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'recentActions)
(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'futureActionTimes")
frozen'futureActionTimes
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'recentActions")
frozen'recentActions x)))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser ScheduleSpec -> String -> Parser ScheduleSpec
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
"spec"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"spec") y x)
mutable'futureActionTimes mutable'recentActions
Word64
18
-> do y <- Parser WorkflowType -> String -> Parser WorkflowType
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
"workflow_type"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workflowType") y x)
mutable'futureActionTimes mutable'recentActions
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
"notes"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"notes") y x)
mutable'futureActionTimes mutable'recentActions
Word64
32
-> 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
"paused"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"paused") y x)
mutable'futureActionTimes mutable'recentActions
Word64
42
-> do !y <- Parser ScheduleActionResult
-> String -> Parser ScheduleActionResult
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
"recent_actions"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'recentActions y)
loop x mutable'futureActionTimes v
Word64
50
-> 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
"future_action_times"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'futureActionTimes y)
loop x v mutable'recentActions
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'futureActionTimes mutable'recentActions
in
Parser ScheduleListInfo -> String -> Parser ScheduleListInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'futureActionTimes <- IO (Growing Vector RealWorld Timestamp)
-> Parser (Growing Vector RealWorld Timestamp)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Timestamp)
IO (Growing Vector (PrimState IO) Timestamp)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
mutable'recentActions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop
Data.ProtoLens.defMessage mutable'futureActionTimes
mutable'recentActions)
String
"ScheduleListInfo"
buildMessage :: ScheduleListInfo -> Builder
buildMessage
= \ ScheduleListInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ScheduleSpec)
ScheduleListInfo
ScheduleListInfo
(Maybe ScheduleSpec)
(Maybe ScheduleSpec)
-> ScheduleListInfo -> Maybe ScheduleSpec
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'spec") ScheduleListInfo
_x
of
Maybe ScheduleSpec
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just ScheduleSpec
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (ScheduleSpec -> ByteString) -> ScheduleSpec -> 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))
ScheduleSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ScheduleSpec
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe WorkflowType)
ScheduleListInfo
ScheduleListInfo
(Maybe WorkflowType)
(Maybe WorkflowType)
-> ScheduleListInfo -> Maybe WorkflowType
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'workflowType") ScheduleListInfo
_x
of
Maybe WorkflowType
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just WorkflowType
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (WorkflowType -> ByteString) -> WorkflowType -> 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))
WorkflowType -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WorkflowType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text ScheduleListInfo ScheduleListInfo Text Text
-> ScheduleListInfo -> 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 @"notes") ScheduleListInfo
_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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v = FoldLike Bool ScheduleListInfo ScheduleListInfo Bool Bool
-> ScheduleListInfo -> 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 @"paused") ScheduleListInfo
_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
32)
((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.<>)
((ScheduleActionResult -> Builder)
-> Vector ScheduleActionResult -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ ScheduleActionResult
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder)
-> (ScheduleActionResult -> ByteString)
-> ScheduleActionResult
-> 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))
ScheduleActionResult -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ScheduleActionResult
_v))
(FoldLike
(Vector ScheduleActionResult)
ScheduleListInfo
ScheduleListInfo
(Vector ScheduleActionResult)
(Vector ScheduleActionResult)
-> ScheduleListInfo -> Vector ScheduleActionResult
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'recentActions") ScheduleListInfo
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Timestamp -> Builder) -> Vector Timestamp -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Timestamp
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
((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))
(FoldLike
(Vector Timestamp)
ScheduleListInfo
ScheduleListInfo
(Vector Timestamp)
(Vector Timestamp)
-> ScheduleListInfo -> Vector 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 @"vec'futureActionTimes") ScheduleListInfo
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet ScheduleListInfo ScheduleListInfo FieldSet FieldSet
-> ScheduleListInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet ScheduleListInfo ScheduleListInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ScheduleListInfo FieldSet
Data.ProtoLens.unknownFields ScheduleListInfo
_x)))))))
instance Control.DeepSeq.NFData ScheduleListInfo where
rnf :: ScheduleListInfo -> ()
rnf
= \ ScheduleListInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleListInfo -> FieldSet
_ScheduleListInfo'_unknownFields ScheduleListInfo
x__)
(Maybe ScheduleSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleListInfo -> Maybe ScheduleSpec
_ScheduleListInfo'spec ScheduleListInfo
x__)
(Maybe WorkflowType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleListInfo -> Maybe WorkflowType
_ScheduleListInfo'workflowType ScheduleListInfo
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleListInfo -> Text
_ScheduleListInfo'notes ScheduleListInfo
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleListInfo -> Bool
_ScheduleListInfo'paused ScheduleListInfo
x__)
(Vector ScheduleActionResult -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleListInfo -> Vector ScheduleActionResult
_ScheduleListInfo'recentActions ScheduleListInfo
x__)
(Vector Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleListInfo -> Vector Timestamp
_ScheduleListInfo'futureActionTimes ScheduleListInfo
x__) ()))))))
data SchedulePatch
= SchedulePatch'_constructor {SchedulePatch -> Maybe TriggerImmediatelyRequest
_SchedulePatch'triggerImmediately :: !(Prelude.Maybe TriggerImmediatelyRequest),
SchedulePatch -> Vector BackfillRequest
_SchedulePatch'backfillRequest :: !(Data.Vector.Vector BackfillRequest),
SchedulePatch -> Text
_SchedulePatch'pause :: !Data.Text.Text,
SchedulePatch -> Text
_SchedulePatch'unpause :: !Data.Text.Text,
SchedulePatch -> FieldSet
_SchedulePatch'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SchedulePatch -> SchedulePatch -> Bool
(SchedulePatch -> SchedulePatch -> Bool)
-> (SchedulePatch -> SchedulePatch -> Bool) -> Eq SchedulePatch
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SchedulePatch -> SchedulePatch -> Bool
== :: SchedulePatch -> SchedulePatch -> Bool
$c/= :: SchedulePatch -> SchedulePatch -> Bool
/= :: SchedulePatch -> SchedulePatch -> Bool
Prelude.Eq, Eq SchedulePatch
Eq SchedulePatch =>
(SchedulePatch -> SchedulePatch -> Ordering)
-> (SchedulePatch -> SchedulePatch -> Bool)
-> (SchedulePatch -> SchedulePatch -> Bool)
-> (SchedulePatch -> SchedulePatch -> Bool)
-> (SchedulePatch -> SchedulePatch -> Bool)
-> (SchedulePatch -> SchedulePatch -> SchedulePatch)
-> (SchedulePatch -> SchedulePatch -> SchedulePatch)
-> Ord SchedulePatch
SchedulePatch -> SchedulePatch -> Bool
SchedulePatch -> SchedulePatch -> Ordering
SchedulePatch -> SchedulePatch -> SchedulePatch
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 :: SchedulePatch -> SchedulePatch -> Ordering
compare :: SchedulePatch -> SchedulePatch -> Ordering
$c< :: SchedulePatch -> SchedulePatch -> Bool
< :: SchedulePatch -> SchedulePatch -> Bool
$c<= :: SchedulePatch -> SchedulePatch -> Bool
<= :: SchedulePatch -> SchedulePatch -> Bool
$c> :: SchedulePatch -> SchedulePatch -> Bool
> :: SchedulePatch -> SchedulePatch -> Bool
$c>= :: SchedulePatch -> SchedulePatch -> Bool
>= :: SchedulePatch -> SchedulePatch -> Bool
$cmax :: SchedulePatch -> SchedulePatch -> SchedulePatch
max :: SchedulePatch -> SchedulePatch -> SchedulePatch
$cmin :: SchedulePatch -> SchedulePatch -> SchedulePatch
min :: SchedulePatch -> SchedulePatch -> SchedulePatch
Prelude.Ord)
instance Prelude.Show SchedulePatch where
showsPrec :: Int -> SchedulePatch -> ShowS
showsPrec Int
_ SchedulePatch
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(SchedulePatch -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SchedulePatch
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SchedulePatch "triggerImmediately" TriggerImmediatelyRequest where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "triggerImmediately"
-> (TriggerImmediatelyRequest -> f TriggerImmediatelyRequest)
-> SchedulePatch
-> f SchedulePatch
fieldOf Proxy# "triggerImmediately"
_
= ((Maybe TriggerImmediatelyRequest
-> f (Maybe TriggerImmediatelyRequest))
-> SchedulePatch -> f SchedulePatch)
-> ((TriggerImmediatelyRequest -> f TriggerImmediatelyRequest)
-> Maybe TriggerImmediatelyRequest
-> f (Maybe TriggerImmediatelyRequest))
-> (TriggerImmediatelyRequest -> f TriggerImmediatelyRequest)
-> SchedulePatch
-> f SchedulePatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SchedulePatch -> Maybe TriggerImmediatelyRequest)
-> (SchedulePatch
-> Maybe TriggerImmediatelyRequest -> SchedulePatch)
-> Lens
SchedulePatch
SchedulePatch
(Maybe TriggerImmediatelyRequest)
(Maybe TriggerImmediatelyRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePatch -> Maybe TriggerImmediatelyRequest
_SchedulePatch'triggerImmediately
(\ SchedulePatch
x__ Maybe TriggerImmediatelyRequest
y__ -> SchedulePatch
x__ {_SchedulePatch'triggerImmediately = y__}))
(TriggerImmediatelyRequest
-> Lens'
(Maybe TriggerImmediatelyRequest) TriggerImmediatelyRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TriggerImmediatelyRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SchedulePatch "maybe'triggerImmediately" (Prelude.Maybe TriggerImmediatelyRequest) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'triggerImmediately"
-> (Maybe TriggerImmediatelyRequest
-> f (Maybe TriggerImmediatelyRequest))
-> SchedulePatch
-> f SchedulePatch
fieldOf Proxy# "maybe'triggerImmediately"
_
= ((Maybe TriggerImmediatelyRequest
-> f (Maybe TriggerImmediatelyRequest))
-> SchedulePatch -> f SchedulePatch)
-> ((Maybe TriggerImmediatelyRequest
-> f (Maybe TriggerImmediatelyRequest))
-> Maybe TriggerImmediatelyRequest
-> f (Maybe TriggerImmediatelyRequest))
-> (Maybe TriggerImmediatelyRequest
-> f (Maybe TriggerImmediatelyRequest))
-> SchedulePatch
-> f SchedulePatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SchedulePatch -> Maybe TriggerImmediatelyRequest)
-> (SchedulePatch
-> Maybe TriggerImmediatelyRequest -> SchedulePatch)
-> Lens
SchedulePatch
SchedulePatch
(Maybe TriggerImmediatelyRequest)
(Maybe TriggerImmediatelyRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePatch -> Maybe TriggerImmediatelyRequest
_SchedulePatch'triggerImmediately
(\ SchedulePatch
x__ Maybe TriggerImmediatelyRequest
y__ -> SchedulePatch
x__ {_SchedulePatch'triggerImmediately = y__}))
(Maybe TriggerImmediatelyRequest
-> f (Maybe TriggerImmediatelyRequest))
-> Maybe TriggerImmediatelyRequest
-> f (Maybe TriggerImmediatelyRequest)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SchedulePatch "backfillRequest" [BackfillRequest] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "backfillRequest"
-> ([BackfillRequest] -> f [BackfillRequest])
-> SchedulePatch
-> f SchedulePatch
fieldOf Proxy# "backfillRequest"
_
= ((Vector BackfillRequest -> f (Vector BackfillRequest))
-> SchedulePatch -> f SchedulePatch)
-> (([BackfillRequest] -> f [BackfillRequest])
-> Vector BackfillRequest -> f (Vector BackfillRequest))
-> ([BackfillRequest] -> f [BackfillRequest])
-> SchedulePatch
-> f SchedulePatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SchedulePatch -> Vector BackfillRequest)
-> (SchedulePatch -> Vector BackfillRequest -> SchedulePatch)
-> Lens
SchedulePatch
SchedulePatch
(Vector BackfillRequest)
(Vector BackfillRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePatch -> Vector BackfillRequest
_SchedulePatch'backfillRequest
(\ SchedulePatch
x__ Vector BackfillRequest
y__ -> SchedulePatch
x__ {_SchedulePatch'backfillRequest = y__}))
((Vector BackfillRequest -> [BackfillRequest])
-> (Vector BackfillRequest
-> [BackfillRequest] -> Vector BackfillRequest)
-> Lens
(Vector BackfillRequest)
(Vector BackfillRequest)
[BackfillRequest]
[BackfillRequest]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector BackfillRequest -> [BackfillRequest]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector BackfillRequest
_ [BackfillRequest]
y__ -> [BackfillRequest] -> Vector BackfillRequest
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [BackfillRequest]
y__))
instance Data.ProtoLens.Field.HasField SchedulePatch "vec'backfillRequest" (Data.Vector.Vector BackfillRequest) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'backfillRequest"
-> (Vector BackfillRequest -> f (Vector BackfillRequest))
-> SchedulePatch
-> f SchedulePatch
fieldOf Proxy# "vec'backfillRequest"
_
= ((Vector BackfillRequest -> f (Vector BackfillRequest))
-> SchedulePatch -> f SchedulePatch)
-> ((Vector BackfillRequest -> f (Vector BackfillRequest))
-> Vector BackfillRequest -> f (Vector BackfillRequest))
-> (Vector BackfillRequest -> f (Vector BackfillRequest))
-> SchedulePatch
-> f SchedulePatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SchedulePatch -> Vector BackfillRequest)
-> (SchedulePatch -> Vector BackfillRequest -> SchedulePatch)
-> Lens
SchedulePatch
SchedulePatch
(Vector BackfillRequest)
(Vector BackfillRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePatch -> Vector BackfillRequest
_SchedulePatch'backfillRequest
(\ SchedulePatch
x__ Vector BackfillRequest
y__ -> SchedulePatch
x__ {_SchedulePatch'backfillRequest = y__}))
(Vector BackfillRequest -> f (Vector BackfillRequest))
-> Vector BackfillRequest -> f (Vector BackfillRequest)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SchedulePatch "pause" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "pause"
-> (Text -> f Text) -> SchedulePatch -> f SchedulePatch
fieldOf Proxy# "pause"
_
= ((Text -> f Text) -> SchedulePatch -> f SchedulePatch)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SchedulePatch
-> f SchedulePatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SchedulePatch -> Text)
-> (SchedulePatch -> Text -> SchedulePatch)
-> Lens SchedulePatch SchedulePatch Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePatch -> Text
_SchedulePatch'pause
(\ SchedulePatch
x__ Text
y__ -> SchedulePatch
x__ {_SchedulePatch'pause = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SchedulePatch "unpause" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "unpause"
-> (Text -> f Text) -> SchedulePatch -> f SchedulePatch
fieldOf Proxy# "unpause"
_
= ((Text -> f Text) -> SchedulePatch -> f SchedulePatch)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SchedulePatch
-> f SchedulePatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SchedulePatch -> Text)
-> (SchedulePatch -> Text -> SchedulePatch)
-> Lens SchedulePatch SchedulePatch Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePatch -> Text
_SchedulePatch'unpause
(\ SchedulePatch
x__ Text
y__ -> SchedulePatch
x__ {_SchedulePatch'unpause = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SchedulePatch where
messageName :: Proxy SchedulePatch -> Text
messageName Proxy SchedulePatch
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.SchedulePatch"
packedMessageDescriptor :: Proxy SchedulePatch -> ByteString
packedMessageDescriptor Proxy SchedulePatch
_
= ByteString
"\n\
\\rSchedulePatch\DC2d\n\
\\DC3trigger_immediately\CAN\SOH \SOH(\v23.temporal.api.schedule.v1.TriggerImmediatelyRequestR\DC2triggerImmediately\DC2T\n\
\\DLEbackfill_request\CAN\STX \ETX(\v2).temporal.api.schedule.v1.BackfillRequestR\SIbackfillRequest\DC2\DC4\n\
\\ENQpause\CAN\ETX \SOH(\tR\ENQpause\DC2\CAN\n\
\\aunpause\CAN\EOT \SOH(\tR\aunpause"
packedFileDescriptor :: Proxy SchedulePatch -> ByteString
packedFileDescriptor Proxy SchedulePatch
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SchedulePatch)
fieldsByTag
= let
triggerImmediately__field_descriptor :: FieldDescriptor SchedulePatch
triggerImmediately__field_descriptor
= String
-> FieldTypeDescriptor TriggerImmediatelyRequest
-> FieldAccessor SchedulePatch TriggerImmediatelyRequest
-> FieldDescriptor SchedulePatch
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"trigger_immediately"
(MessageOrGroup -> FieldTypeDescriptor TriggerImmediatelyRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TriggerImmediatelyRequest)
(Lens
SchedulePatch
SchedulePatch
(Maybe TriggerImmediatelyRequest)
(Maybe TriggerImmediatelyRequest)
-> FieldAccessor SchedulePatch TriggerImmediatelyRequest
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'triggerImmediately")) ::
Data.ProtoLens.FieldDescriptor SchedulePatch
backfillRequest__field_descriptor :: FieldDescriptor SchedulePatch
backfillRequest__field_descriptor
= String
-> FieldTypeDescriptor BackfillRequest
-> FieldAccessor SchedulePatch BackfillRequest
-> FieldDescriptor SchedulePatch
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"backfill_request"
(MessageOrGroup -> FieldTypeDescriptor BackfillRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor BackfillRequest)
(Packing
-> Lens' SchedulePatch [BackfillRequest]
-> FieldAccessor SchedulePatch BackfillRequest
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 @"backfillRequest")) ::
Data.ProtoLens.FieldDescriptor SchedulePatch
pause__field_descriptor :: FieldDescriptor SchedulePatch
pause__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SchedulePatch Text
-> FieldDescriptor SchedulePatch
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"pause"
(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 SchedulePatch SchedulePatch Text Text
-> FieldAccessor SchedulePatch 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 @"pause")) ::
Data.ProtoLens.FieldDescriptor SchedulePatch
unpause__field_descriptor :: FieldDescriptor SchedulePatch
unpause__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SchedulePatch Text
-> FieldDescriptor SchedulePatch
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"unpause"
(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 SchedulePatch SchedulePatch Text Text
-> FieldAccessor SchedulePatch 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 @"unpause")) ::
Data.ProtoLens.FieldDescriptor SchedulePatch
in
[(Tag, FieldDescriptor SchedulePatch)]
-> Map Tag (FieldDescriptor SchedulePatch)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SchedulePatch
triggerImmediately__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor SchedulePatch
backfillRequest__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor SchedulePatch
pause__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor SchedulePatch
unpause__field_descriptor)]
unknownFields :: Lens' SchedulePatch FieldSet
unknownFields
= (SchedulePatch -> FieldSet)
-> (SchedulePatch -> FieldSet -> SchedulePatch)
-> Lens' SchedulePatch FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePatch -> FieldSet
_SchedulePatch'_unknownFields
(\ SchedulePatch
x__ FieldSet
y__ -> SchedulePatch
x__ {_SchedulePatch'_unknownFields = y__})
defMessage :: SchedulePatch
defMessage
= SchedulePatch'_constructor
{_SchedulePatch'triggerImmediately :: Maybe TriggerImmediatelyRequest
_SchedulePatch'triggerImmediately = Maybe TriggerImmediatelyRequest
forall a. Maybe a
Prelude.Nothing,
_SchedulePatch'backfillRequest :: Vector BackfillRequest
_SchedulePatch'backfillRequest = Vector BackfillRequest
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_SchedulePatch'pause :: Text
_SchedulePatch'pause = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SchedulePatch'unpause :: Text
_SchedulePatch'unpause = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SchedulePatch'_unknownFields :: FieldSet
_SchedulePatch'_unknownFields = []}
parseMessage :: Parser SchedulePatch
parseMessage
= let
loop ::
SchedulePatch
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld BackfillRequest
-> Data.ProtoLens.Encoding.Bytes.Parser SchedulePatch
loop :: SchedulePatch
-> Growing Vector RealWorld BackfillRequest -> Parser SchedulePatch
loop SchedulePatch
x Growing Vector RealWorld BackfillRequest
mutable'backfillRequest
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'backfillRequest <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'backfillRequest)
(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'backfillRequest")
frozen'backfillRequest x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser TriggerImmediatelyRequest
-> String -> Parser TriggerImmediatelyRequest
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
"trigger_immediately"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"triggerImmediately") y x)
mutable'backfillRequest
Word64
18
-> do !y <- Parser BackfillRequest -> String -> Parser BackfillRequest
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
"backfill_request"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'backfillRequest y)
loop x v
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
"pause"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"pause") y x)
mutable'backfillRequest
Word64
34
-> 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
"unpause"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"unpause") y x)
mutable'backfillRequest
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'backfillRequest
in
Parser SchedulePatch -> String -> Parser SchedulePatch
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'backfillRequest <- IO (Growing Vector RealWorld BackfillRequest)
-> Parser (Growing Vector RealWorld BackfillRequest)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld BackfillRequest)
IO (Growing Vector (PrimState IO) BackfillRequest)
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'backfillRequest)
String
"SchedulePatch"
buildMessage :: SchedulePatch -> Builder
buildMessage
= \ SchedulePatch
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TriggerImmediatelyRequest)
SchedulePatch
SchedulePatch
(Maybe TriggerImmediatelyRequest)
(Maybe TriggerImmediatelyRequest)
-> SchedulePatch -> Maybe TriggerImmediatelyRequest
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'triggerImmediately") SchedulePatch
_x
of
Maybe TriggerImmediatelyRequest
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just TriggerImmediatelyRequest
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (TriggerImmediatelyRequest -> ByteString)
-> TriggerImmediatelyRequest
-> 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))
TriggerImmediatelyRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TriggerImmediatelyRequest
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((BackfillRequest -> Builder) -> Vector BackfillRequest -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ BackfillRequest
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (BackfillRequest -> ByteString) -> BackfillRequest -> 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))
BackfillRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage BackfillRequest
_v))
(FoldLike
(Vector BackfillRequest)
SchedulePatch
SchedulePatch
(Vector BackfillRequest)
(Vector BackfillRequest)
-> SchedulePatch -> Vector BackfillRequest
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'backfillRequest") SchedulePatch
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text SchedulePatch SchedulePatch Text Text
-> SchedulePatch -> 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 @"pause") SchedulePatch
_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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text SchedulePatch SchedulePatch Text Text
-> SchedulePatch -> 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 @"unpause") SchedulePatch
_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
34)
((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 SchedulePatch SchedulePatch FieldSet FieldSet
-> SchedulePatch -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SchedulePatch SchedulePatch FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SchedulePatch FieldSet
Data.ProtoLens.unknownFields SchedulePatch
_x)))))
instance Control.DeepSeq.NFData SchedulePatch where
rnf :: SchedulePatch -> ()
rnf
= \ SchedulePatch
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SchedulePatch -> FieldSet
_SchedulePatch'_unknownFields SchedulePatch
x__)
(Maybe TriggerImmediatelyRequest -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SchedulePatch -> Maybe TriggerImmediatelyRequest
_SchedulePatch'triggerImmediately SchedulePatch
x__)
(Vector BackfillRequest -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SchedulePatch -> Vector BackfillRequest
_SchedulePatch'backfillRequest SchedulePatch
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SchedulePatch -> Text
_SchedulePatch'pause SchedulePatch
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SchedulePatch -> Text
_SchedulePatch'unpause SchedulePatch
x__) ()))))
data SchedulePolicies
= SchedulePolicies'_constructor {SchedulePolicies -> ScheduleOverlapPolicy
_SchedulePolicies'overlapPolicy :: !Proto.Temporal.Api.Enums.V1.Schedule.ScheduleOverlapPolicy,
SchedulePolicies -> Maybe Duration
_SchedulePolicies'catchupWindow :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
SchedulePolicies -> Bool
_SchedulePolicies'pauseOnFailure :: !Prelude.Bool,
SchedulePolicies -> Bool
_SchedulePolicies'keepOriginalWorkflowId :: !Prelude.Bool,
SchedulePolicies -> FieldSet
_SchedulePolicies'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SchedulePolicies -> SchedulePolicies -> Bool
(SchedulePolicies -> SchedulePolicies -> Bool)
-> (SchedulePolicies -> SchedulePolicies -> Bool)
-> Eq SchedulePolicies
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SchedulePolicies -> SchedulePolicies -> Bool
== :: SchedulePolicies -> SchedulePolicies -> Bool
$c/= :: SchedulePolicies -> SchedulePolicies -> Bool
/= :: SchedulePolicies -> SchedulePolicies -> Bool
Prelude.Eq, Eq SchedulePolicies
Eq SchedulePolicies =>
(SchedulePolicies -> SchedulePolicies -> Ordering)
-> (SchedulePolicies -> SchedulePolicies -> Bool)
-> (SchedulePolicies -> SchedulePolicies -> Bool)
-> (SchedulePolicies -> SchedulePolicies -> Bool)
-> (SchedulePolicies -> SchedulePolicies -> Bool)
-> (SchedulePolicies -> SchedulePolicies -> SchedulePolicies)
-> (SchedulePolicies -> SchedulePolicies -> SchedulePolicies)
-> Ord SchedulePolicies
SchedulePolicies -> SchedulePolicies -> Bool
SchedulePolicies -> SchedulePolicies -> Ordering
SchedulePolicies -> SchedulePolicies -> SchedulePolicies
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 :: SchedulePolicies -> SchedulePolicies -> Ordering
compare :: SchedulePolicies -> SchedulePolicies -> Ordering
$c< :: SchedulePolicies -> SchedulePolicies -> Bool
< :: SchedulePolicies -> SchedulePolicies -> Bool
$c<= :: SchedulePolicies -> SchedulePolicies -> Bool
<= :: SchedulePolicies -> SchedulePolicies -> Bool
$c> :: SchedulePolicies -> SchedulePolicies -> Bool
> :: SchedulePolicies -> SchedulePolicies -> Bool
$c>= :: SchedulePolicies -> SchedulePolicies -> Bool
>= :: SchedulePolicies -> SchedulePolicies -> Bool
$cmax :: SchedulePolicies -> SchedulePolicies -> SchedulePolicies
max :: SchedulePolicies -> SchedulePolicies -> SchedulePolicies
$cmin :: SchedulePolicies -> SchedulePolicies -> SchedulePolicies
min :: SchedulePolicies -> SchedulePolicies -> SchedulePolicies
Prelude.Ord)
instance Prelude.Show SchedulePolicies where
showsPrec :: Int -> SchedulePolicies -> ShowS
showsPrec Int
_ SchedulePolicies
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(SchedulePolicies -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SchedulePolicies
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SchedulePolicies "overlapPolicy" Proto.Temporal.Api.Enums.V1.Schedule.ScheduleOverlapPolicy where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "overlapPolicy"
-> (ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> SchedulePolicies
-> f SchedulePolicies
fieldOf Proxy# "overlapPolicy"
_
= ((ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> SchedulePolicies -> f SchedulePolicies)
-> ((ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> (ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> SchedulePolicies
-> f SchedulePolicies
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SchedulePolicies -> ScheduleOverlapPolicy)
-> (SchedulePolicies -> ScheduleOverlapPolicy -> SchedulePolicies)
-> Lens
SchedulePolicies
SchedulePolicies
ScheduleOverlapPolicy
ScheduleOverlapPolicy
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePolicies -> ScheduleOverlapPolicy
_SchedulePolicies'overlapPolicy
(\ SchedulePolicies
x__ ScheduleOverlapPolicy
y__ -> SchedulePolicies
x__ {_SchedulePolicies'overlapPolicy = y__}))
(ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> ScheduleOverlapPolicy -> f ScheduleOverlapPolicy
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SchedulePolicies "catchupWindow" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "catchupWindow"
-> (Duration -> f Duration)
-> SchedulePolicies
-> f SchedulePolicies
fieldOf Proxy# "catchupWindow"
_
= ((Maybe Duration -> f (Maybe Duration))
-> SchedulePolicies -> f SchedulePolicies)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> SchedulePolicies
-> f SchedulePolicies
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SchedulePolicies -> Maybe Duration)
-> (SchedulePolicies -> Maybe Duration -> SchedulePolicies)
-> Lens
SchedulePolicies SchedulePolicies (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePolicies -> Maybe Duration
_SchedulePolicies'catchupWindow
(\ SchedulePolicies
x__ Maybe Duration
y__ -> SchedulePolicies
x__ {_SchedulePolicies'catchupWindow = 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 SchedulePolicies "maybe'catchupWindow" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'catchupWindow"
-> (Maybe Duration -> f (Maybe Duration))
-> SchedulePolicies
-> f SchedulePolicies
fieldOf Proxy# "maybe'catchupWindow"
_
= ((Maybe Duration -> f (Maybe Duration))
-> SchedulePolicies -> f SchedulePolicies)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> SchedulePolicies
-> f SchedulePolicies
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SchedulePolicies -> Maybe Duration)
-> (SchedulePolicies -> Maybe Duration -> SchedulePolicies)
-> Lens
SchedulePolicies SchedulePolicies (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePolicies -> Maybe Duration
_SchedulePolicies'catchupWindow
(\ SchedulePolicies
x__ Maybe Duration
y__ -> SchedulePolicies
x__ {_SchedulePolicies'catchupWindow = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SchedulePolicies "pauseOnFailure" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "pauseOnFailure"
-> (Bool -> f Bool) -> SchedulePolicies -> f SchedulePolicies
fieldOf Proxy# "pauseOnFailure"
_
= ((Bool -> f Bool) -> SchedulePolicies -> f SchedulePolicies)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> SchedulePolicies
-> f SchedulePolicies
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SchedulePolicies -> Bool)
-> (SchedulePolicies -> Bool -> SchedulePolicies)
-> Lens SchedulePolicies SchedulePolicies Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePolicies -> Bool
_SchedulePolicies'pauseOnFailure
(\ SchedulePolicies
x__ Bool
y__ -> SchedulePolicies
x__ {_SchedulePolicies'pauseOnFailure = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SchedulePolicies "keepOriginalWorkflowId" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "keepOriginalWorkflowId"
-> (Bool -> f Bool) -> SchedulePolicies -> f SchedulePolicies
fieldOf Proxy# "keepOriginalWorkflowId"
_
= ((Bool -> f Bool) -> SchedulePolicies -> f SchedulePolicies)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> SchedulePolicies
-> f SchedulePolicies
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SchedulePolicies -> Bool)
-> (SchedulePolicies -> Bool -> SchedulePolicies)
-> Lens SchedulePolicies SchedulePolicies Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePolicies -> Bool
_SchedulePolicies'keepOriginalWorkflowId
(\ SchedulePolicies
x__ Bool
y__
-> SchedulePolicies
x__ {_SchedulePolicies'keepOriginalWorkflowId = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SchedulePolicies where
messageName :: Proxy SchedulePolicies -> Text
messageName Proxy SchedulePolicies
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.SchedulePolicies"
packedMessageDescriptor :: Proxy SchedulePolicies -> ByteString
packedMessageDescriptor Proxy SchedulePolicies
_
= ByteString
"\n\
\\DLESchedulePolicies\DC2S\n\
\\SOoverlap_policy\CAN\SOH \SOH(\SO2,.temporal.api.enums.v1.ScheduleOverlapPolicyR\roverlapPolicy\DC2@\n\
\\SOcatchup_window\CAN\STX \SOH(\v2\EM.google.protobuf.DurationR\rcatchupWindow\DC2(\n\
\\DLEpause_on_failure\CAN\ETX \SOH(\bR\SOpauseOnFailure\DC29\n\
\\EMkeep_original_workflow_id\CAN\EOT \SOH(\bR\SYNkeepOriginalWorkflowId"
packedFileDescriptor :: Proxy SchedulePolicies -> ByteString
packedFileDescriptor Proxy SchedulePolicies
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SchedulePolicies)
fieldsByTag
= let
overlapPolicy__field_descriptor :: FieldDescriptor SchedulePolicies
overlapPolicy__field_descriptor
= String
-> FieldTypeDescriptor ScheduleOverlapPolicy
-> FieldAccessor SchedulePolicies ScheduleOverlapPolicy
-> FieldDescriptor SchedulePolicies
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"overlap_policy"
(ScalarField ScheduleOverlapPolicy
-> FieldTypeDescriptor ScheduleOverlapPolicy
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ScheduleOverlapPolicy
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Schedule.ScheduleOverlapPolicy)
(WireDefault ScheduleOverlapPolicy
-> Lens
SchedulePolicies
SchedulePolicies
ScheduleOverlapPolicy
ScheduleOverlapPolicy
-> FieldAccessor SchedulePolicies ScheduleOverlapPolicy
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ScheduleOverlapPolicy
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 @"overlapPolicy")) ::
Data.ProtoLens.FieldDescriptor SchedulePolicies
catchupWindow__field_descriptor :: FieldDescriptor SchedulePolicies
catchupWindow__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor SchedulePolicies Duration
-> FieldDescriptor SchedulePolicies
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"catchup_window"
(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
SchedulePolicies SchedulePolicies (Maybe Duration) (Maybe Duration)
-> FieldAccessor SchedulePolicies 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'catchupWindow")) ::
Data.ProtoLens.FieldDescriptor SchedulePolicies
pauseOnFailure__field_descriptor :: FieldDescriptor SchedulePolicies
pauseOnFailure__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor SchedulePolicies Bool
-> FieldDescriptor SchedulePolicies
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"pause_on_failure"
(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 SchedulePolicies SchedulePolicies Bool Bool
-> FieldAccessor SchedulePolicies 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 @"pauseOnFailure")) ::
Data.ProtoLens.FieldDescriptor SchedulePolicies
keepOriginalWorkflowId__field_descriptor :: FieldDescriptor SchedulePolicies
keepOriginalWorkflowId__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor SchedulePolicies Bool
-> FieldDescriptor SchedulePolicies
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"keep_original_workflow_id"
(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 SchedulePolicies SchedulePolicies Bool Bool
-> FieldAccessor SchedulePolicies 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 @"keepOriginalWorkflowId")) ::
Data.ProtoLens.FieldDescriptor SchedulePolicies
in
[(Tag, FieldDescriptor SchedulePolicies)]
-> Map Tag (FieldDescriptor SchedulePolicies)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SchedulePolicies
overlapPolicy__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor SchedulePolicies
catchupWindow__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor SchedulePolicies
pauseOnFailure__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor SchedulePolicies
keepOriginalWorkflowId__field_descriptor)]
unknownFields :: Lens' SchedulePolicies FieldSet
unknownFields
= (SchedulePolicies -> FieldSet)
-> (SchedulePolicies -> FieldSet -> SchedulePolicies)
-> Lens' SchedulePolicies FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SchedulePolicies -> FieldSet
_SchedulePolicies'_unknownFields
(\ SchedulePolicies
x__ FieldSet
y__ -> SchedulePolicies
x__ {_SchedulePolicies'_unknownFields = y__})
defMessage :: SchedulePolicies
defMessage
= SchedulePolicies'_constructor
{_SchedulePolicies'overlapPolicy :: ScheduleOverlapPolicy
_SchedulePolicies'overlapPolicy = ScheduleOverlapPolicy
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SchedulePolicies'catchupWindow :: Maybe Duration
_SchedulePolicies'catchupWindow = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_SchedulePolicies'pauseOnFailure :: Bool
_SchedulePolicies'pauseOnFailure = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SchedulePolicies'keepOriginalWorkflowId :: Bool
_SchedulePolicies'keepOriginalWorkflowId = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SchedulePolicies'_unknownFields :: FieldSet
_SchedulePolicies'_unknownFields = []}
parseMessage :: Parser SchedulePolicies
parseMessage
= let
loop ::
SchedulePolicies
-> Data.ProtoLens.Encoding.Bytes.Parser SchedulePolicies
loop :: SchedulePolicies -> Parser SchedulePolicies
loop SchedulePolicies
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 ScheduleOverlapPolicy
-> String -> Parser ScheduleOverlapPolicy
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> ScheduleOverlapPolicy)
-> Parser Int -> Parser ScheduleOverlapPolicy
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> ScheduleOverlapPolicy
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
"overlap_policy"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"overlapPolicy") 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
"catchup_window"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"catchupWindow") y x)
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
"pause_on_failure"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"pauseOnFailure") y x)
Word64
32
-> 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
"keep_original_workflow_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"keepOriginalWorkflowId") 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 SchedulePolicies -> String -> Parser SchedulePolicies
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SchedulePolicies -> Parser SchedulePolicies
loop SchedulePolicies
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"SchedulePolicies"
buildMessage :: SchedulePolicies -> Builder
buildMessage
= \ SchedulePolicies
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ScheduleOverlapPolicy
_v
= FoldLike
ScheduleOverlapPolicy
SchedulePolicies
SchedulePolicies
ScheduleOverlapPolicy
ScheduleOverlapPolicy
-> SchedulePolicies -> ScheduleOverlapPolicy
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 @"overlapPolicy") SchedulePolicies
_x
in
if ScheduleOverlapPolicy -> ScheduleOverlapPolicy -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ScheduleOverlapPolicy
_v ScheduleOverlapPolicy
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)
((Int -> Builder)
-> (ScheduleOverlapPolicy -> Int)
-> ScheduleOverlapPolicy
-> 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)
ScheduleOverlapPolicy -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum ScheduleOverlapPolicy
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Duration)
SchedulePolicies
SchedulePolicies
(Maybe Duration)
(Maybe Duration)
-> SchedulePolicies -> 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'catchupWindow") SchedulePolicies
_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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool SchedulePolicies SchedulePolicies Bool Bool
-> SchedulePolicies -> 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 @"pauseOnFailure") SchedulePolicies
_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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool SchedulePolicies SchedulePolicies Bool Bool
-> SchedulePolicies -> 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 @"keepOriginalWorkflowId") SchedulePolicies
_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
32)
((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 SchedulePolicies SchedulePolicies FieldSet FieldSet
-> SchedulePolicies -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet SchedulePolicies SchedulePolicies FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SchedulePolicies FieldSet
Data.ProtoLens.unknownFields SchedulePolicies
_x)))))
instance Control.DeepSeq.NFData SchedulePolicies where
rnf :: SchedulePolicies -> ()
rnf
= \ SchedulePolicies
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SchedulePolicies -> FieldSet
_SchedulePolicies'_unknownFields SchedulePolicies
x__)
(ScheduleOverlapPolicy -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SchedulePolicies -> ScheduleOverlapPolicy
_SchedulePolicies'overlapPolicy SchedulePolicies
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SchedulePolicies -> Maybe Duration
_SchedulePolicies'catchupWindow SchedulePolicies
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SchedulePolicies -> Bool
_SchedulePolicies'pauseOnFailure SchedulePolicies
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SchedulePolicies -> Bool
_SchedulePolicies'keepOriginalWorkflowId SchedulePolicies
x__) ()))))
data ScheduleSpec
= ScheduleSpec'_constructor {ScheduleSpec -> Vector StructuredCalendarSpec
_ScheduleSpec'structuredCalendar :: !(Data.Vector.Vector StructuredCalendarSpec),
ScheduleSpec -> Vector Text
_ScheduleSpec'cronString :: !(Data.Vector.Vector Data.Text.Text),
ScheduleSpec -> Vector CalendarSpec
_ScheduleSpec'calendar :: !(Data.Vector.Vector CalendarSpec),
ScheduleSpec -> Vector IntervalSpec
_ScheduleSpec'interval :: !(Data.Vector.Vector IntervalSpec),
ScheduleSpec -> Vector CalendarSpec
_ScheduleSpec'excludeCalendar :: !(Data.Vector.Vector CalendarSpec),
ScheduleSpec -> Vector StructuredCalendarSpec
_ScheduleSpec'excludeStructuredCalendar :: !(Data.Vector.Vector StructuredCalendarSpec),
ScheduleSpec -> Maybe Timestamp
_ScheduleSpec'startTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
ScheduleSpec -> Maybe Timestamp
_ScheduleSpec'endTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
ScheduleSpec -> Maybe Duration
_ScheduleSpec'jitter :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
ScheduleSpec -> Text
_ScheduleSpec'timezoneName :: !Data.Text.Text,
ScheduleSpec -> ByteString
_ScheduleSpec'timezoneData :: !Data.ByteString.ByteString,
ScheduleSpec -> FieldSet
_ScheduleSpec'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ScheduleSpec -> ScheduleSpec -> Bool
(ScheduleSpec -> ScheduleSpec -> Bool)
-> (ScheduleSpec -> ScheduleSpec -> Bool) -> Eq ScheduleSpec
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScheduleSpec -> ScheduleSpec -> Bool
== :: ScheduleSpec -> ScheduleSpec -> Bool
$c/= :: ScheduleSpec -> ScheduleSpec -> Bool
/= :: ScheduleSpec -> ScheduleSpec -> Bool
Prelude.Eq, Eq ScheduleSpec
Eq ScheduleSpec =>
(ScheduleSpec -> ScheduleSpec -> Ordering)
-> (ScheduleSpec -> ScheduleSpec -> Bool)
-> (ScheduleSpec -> ScheduleSpec -> Bool)
-> (ScheduleSpec -> ScheduleSpec -> Bool)
-> (ScheduleSpec -> ScheduleSpec -> Bool)
-> (ScheduleSpec -> ScheduleSpec -> ScheduleSpec)
-> (ScheduleSpec -> ScheduleSpec -> ScheduleSpec)
-> Ord ScheduleSpec
ScheduleSpec -> ScheduleSpec -> Bool
ScheduleSpec -> ScheduleSpec -> Ordering
ScheduleSpec -> ScheduleSpec -> ScheduleSpec
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 :: ScheduleSpec -> ScheduleSpec -> Ordering
compare :: ScheduleSpec -> ScheduleSpec -> Ordering
$c< :: ScheduleSpec -> ScheduleSpec -> Bool
< :: ScheduleSpec -> ScheduleSpec -> Bool
$c<= :: ScheduleSpec -> ScheduleSpec -> Bool
<= :: ScheduleSpec -> ScheduleSpec -> Bool
$c> :: ScheduleSpec -> ScheduleSpec -> Bool
> :: ScheduleSpec -> ScheduleSpec -> Bool
$c>= :: ScheduleSpec -> ScheduleSpec -> Bool
>= :: ScheduleSpec -> ScheduleSpec -> Bool
$cmax :: ScheduleSpec -> ScheduleSpec -> ScheduleSpec
max :: ScheduleSpec -> ScheduleSpec -> ScheduleSpec
$cmin :: ScheduleSpec -> ScheduleSpec -> ScheduleSpec
min :: ScheduleSpec -> ScheduleSpec -> ScheduleSpec
Prelude.Ord)
instance Prelude.Show ScheduleSpec where
showsPrec :: Int -> ScheduleSpec -> ShowS
showsPrec Int
_ ScheduleSpec
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ScheduleSpec -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ScheduleSpec
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ScheduleSpec "structuredCalendar" [StructuredCalendarSpec] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "structuredCalendar"
-> ([StructuredCalendarSpec] -> f [StructuredCalendarSpec])
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "structuredCalendar"
_
= ((Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> ScheduleSpec -> f ScheduleSpec)
-> (([StructuredCalendarSpec] -> f [StructuredCalendarSpec])
-> Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> ([StructuredCalendarSpec] -> f [StructuredCalendarSpec])
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Vector StructuredCalendarSpec)
-> (ScheduleSpec -> Vector StructuredCalendarSpec -> ScheduleSpec)
-> Lens
ScheduleSpec
ScheduleSpec
(Vector StructuredCalendarSpec)
(Vector StructuredCalendarSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Vector StructuredCalendarSpec
_ScheduleSpec'structuredCalendar
(\ ScheduleSpec
x__ Vector StructuredCalendarSpec
y__ -> ScheduleSpec
x__ {_ScheduleSpec'structuredCalendar = y__}))
((Vector StructuredCalendarSpec -> [StructuredCalendarSpec])
-> (Vector StructuredCalendarSpec
-> [StructuredCalendarSpec] -> Vector StructuredCalendarSpec)
-> Lens
(Vector StructuredCalendarSpec)
(Vector StructuredCalendarSpec)
[StructuredCalendarSpec]
[StructuredCalendarSpec]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector StructuredCalendarSpec -> [StructuredCalendarSpec]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector StructuredCalendarSpec
_ [StructuredCalendarSpec]
y__ -> [StructuredCalendarSpec] -> Vector StructuredCalendarSpec
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [StructuredCalendarSpec]
y__))
instance Data.ProtoLens.Field.HasField ScheduleSpec "vec'structuredCalendar" (Data.Vector.Vector StructuredCalendarSpec) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'structuredCalendar"
-> (Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "vec'structuredCalendar"
_
= ((Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> ScheduleSpec -> f ScheduleSpec)
-> ((Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> (Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Vector StructuredCalendarSpec)
-> (ScheduleSpec -> Vector StructuredCalendarSpec -> ScheduleSpec)
-> Lens
ScheduleSpec
ScheduleSpec
(Vector StructuredCalendarSpec)
(Vector StructuredCalendarSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Vector StructuredCalendarSpec
_ScheduleSpec'structuredCalendar
(\ ScheduleSpec
x__ Vector StructuredCalendarSpec
y__ -> ScheduleSpec
x__ {_ScheduleSpec'structuredCalendar = y__}))
(Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleSpec "cronString" [Data.Text.Text] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cronString"
-> ([Text] -> f [Text]) -> ScheduleSpec -> f ScheduleSpec
fieldOf Proxy# "cronString"
_
= ((Vector Text -> f (Vector Text))
-> ScheduleSpec -> f ScheduleSpec)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Vector Text)
-> (ScheduleSpec -> Vector Text -> ScheduleSpec)
-> Lens ScheduleSpec ScheduleSpec (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Vector Text
_ScheduleSpec'cronString
(\ ScheduleSpec
x__ Vector Text
y__ -> ScheduleSpec
x__ {_ScheduleSpec'cronString = 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 ScheduleSpec "vec'cronString" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'cronString"
-> (Vector Text -> f (Vector Text))
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "vec'cronString"
_
= ((Vector Text -> f (Vector Text))
-> ScheduleSpec -> f ScheduleSpec)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Vector Text)
-> (ScheduleSpec -> Vector Text -> ScheduleSpec)
-> Lens ScheduleSpec ScheduleSpec (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Vector Text
_ScheduleSpec'cronString
(\ ScheduleSpec
x__ Vector Text
y__ -> ScheduleSpec
x__ {_ScheduleSpec'cronString = y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleSpec "calendar" [CalendarSpec] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "calendar"
-> ([CalendarSpec] -> f [CalendarSpec])
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "calendar"
_
= ((Vector CalendarSpec -> f (Vector CalendarSpec))
-> ScheduleSpec -> f ScheduleSpec)
-> (([CalendarSpec] -> f [CalendarSpec])
-> Vector CalendarSpec -> f (Vector CalendarSpec))
-> ([CalendarSpec] -> f [CalendarSpec])
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Vector CalendarSpec)
-> (ScheduleSpec -> Vector CalendarSpec -> ScheduleSpec)
-> Lens
ScheduleSpec
ScheduleSpec
(Vector CalendarSpec)
(Vector CalendarSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Vector CalendarSpec
_ScheduleSpec'calendar
(\ ScheduleSpec
x__ Vector CalendarSpec
y__ -> ScheduleSpec
x__ {_ScheduleSpec'calendar = y__}))
((Vector CalendarSpec -> [CalendarSpec])
-> (Vector CalendarSpec -> [CalendarSpec] -> Vector CalendarSpec)
-> Lens
(Vector CalendarSpec)
(Vector CalendarSpec)
[CalendarSpec]
[CalendarSpec]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector CalendarSpec -> [CalendarSpec]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector CalendarSpec
_ [CalendarSpec]
y__ -> [CalendarSpec] -> Vector CalendarSpec
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [CalendarSpec]
y__))
instance Data.ProtoLens.Field.HasField ScheduleSpec "vec'calendar" (Data.Vector.Vector CalendarSpec) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'calendar"
-> (Vector CalendarSpec -> f (Vector CalendarSpec))
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "vec'calendar"
_
= ((Vector CalendarSpec -> f (Vector CalendarSpec))
-> ScheduleSpec -> f ScheduleSpec)
-> ((Vector CalendarSpec -> f (Vector CalendarSpec))
-> Vector CalendarSpec -> f (Vector CalendarSpec))
-> (Vector CalendarSpec -> f (Vector CalendarSpec))
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Vector CalendarSpec)
-> (ScheduleSpec -> Vector CalendarSpec -> ScheduleSpec)
-> Lens
ScheduleSpec
ScheduleSpec
(Vector CalendarSpec)
(Vector CalendarSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Vector CalendarSpec
_ScheduleSpec'calendar
(\ ScheduleSpec
x__ Vector CalendarSpec
y__ -> ScheduleSpec
x__ {_ScheduleSpec'calendar = y__}))
(Vector CalendarSpec -> f (Vector CalendarSpec))
-> Vector CalendarSpec -> f (Vector CalendarSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleSpec "interval" [IntervalSpec] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "interval"
-> ([IntervalSpec] -> f [IntervalSpec])
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "interval"
_
= ((Vector IntervalSpec -> f (Vector IntervalSpec))
-> ScheduleSpec -> f ScheduleSpec)
-> (([IntervalSpec] -> f [IntervalSpec])
-> Vector IntervalSpec -> f (Vector IntervalSpec))
-> ([IntervalSpec] -> f [IntervalSpec])
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Vector IntervalSpec)
-> (ScheduleSpec -> Vector IntervalSpec -> ScheduleSpec)
-> Lens
ScheduleSpec
ScheduleSpec
(Vector IntervalSpec)
(Vector IntervalSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Vector IntervalSpec
_ScheduleSpec'interval
(\ ScheduleSpec
x__ Vector IntervalSpec
y__ -> ScheduleSpec
x__ {_ScheduleSpec'interval = y__}))
((Vector IntervalSpec -> [IntervalSpec])
-> (Vector IntervalSpec -> [IntervalSpec] -> Vector IntervalSpec)
-> Lens
(Vector IntervalSpec)
(Vector IntervalSpec)
[IntervalSpec]
[IntervalSpec]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector IntervalSpec -> [IntervalSpec]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector IntervalSpec
_ [IntervalSpec]
y__ -> [IntervalSpec] -> Vector IntervalSpec
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [IntervalSpec]
y__))
instance Data.ProtoLens.Field.HasField ScheduleSpec "vec'interval" (Data.Vector.Vector IntervalSpec) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'interval"
-> (Vector IntervalSpec -> f (Vector IntervalSpec))
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "vec'interval"
_
= ((Vector IntervalSpec -> f (Vector IntervalSpec))
-> ScheduleSpec -> f ScheduleSpec)
-> ((Vector IntervalSpec -> f (Vector IntervalSpec))
-> Vector IntervalSpec -> f (Vector IntervalSpec))
-> (Vector IntervalSpec -> f (Vector IntervalSpec))
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Vector IntervalSpec)
-> (ScheduleSpec -> Vector IntervalSpec -> ScheduleSpec)
-> Lens
ScheduleSpec
ScheduleSpec
(Vector IntervalSpec)
(Vector IntervalSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Vector IntervalSpec
_ScheduleSpec'interval
(\ ScheduleSpec
x__ Vector IntervalSpec
y__ -> ScheduleSpec
x__ {_ScheduleSpec'interval = y__}))
(Vector IntervalSpec -> f (Vector IntervalSpec))
-> Vector IntervalSpec -> f (Vector IntervalSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleSpec "excludeCalendar" [CalendarSpec] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "excludeCalendar"
-> ([CalendarSpec] -> f [CalendarSpec])
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "excludeCalendar"
_
= ((Vector CalendarSpec -> f (Vector CalendarSpec))
-> ScheduleSpec -> f ScheduleSpec)
-> (([CalendarSpec] -> f [CalendarSpec])
-> Vector CalendarSpec -> f (Vector CalendarSpec))
-> ([CalendarSpec] -> f [CalendarSpec])
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Vector CalendarSpec)
-> (ScheduleSpec -> Vector CalendarSpec -> ScheduleSpec)
-> Lens
ScheduleSpec
ScheduleSpec
(Vector CalendarSpec)
(Vector CalendarSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Vector CalendarSpec
_ScheduleSpec'excludeCalendar
(\ ScheduleSpec
x__ Vector CalendarSpec
y__ -> ScheduleSpec
x__ {_ScheduleSpec'excludeCalendar = y__}))
((Vector CalendarSpec -> [CalendarSpec])
-> (Vector CalendarSpec -> [CalendarSpec] -> Vector CalendarSpec)
-> Lens
(Vector CalendarSpec)
(Vector CalendarSpec)
[CalendarSpec]
[CalendarSpec]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector CalendarSpec -> [CalendarSpec]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector CalendarSpec
_ [CalendarSpec]
y__ -> [CalendarSpec] -> Vector CalendarSpec
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [CalendarSpec]
y__))
instance Data.ProtoLens.Field.HasField ScheduleSpec "vec'excludeCalendar" (Data.Vector.Vector CalendarSpec) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'excludeCalendar"
-> (Vector CalendarSpec -> f (Vector CalendarSpec))
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "vec'excludeCalendar"
_
= ((Vector CalendarSpec -> f (Vector CalendarSpec))
-> ScheduleSpec -> f ScheduleSpec)
-> ((Vector CalendarSpec -> f (Vector CalendarSpec))
-> Vector CalendarSpec -> f (Vector CalendarSpec))
-> (Vector CalendarSpec -> f (Vector CalendarSpec))
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Vector CalendarSpec)
-> (ScheduleSpec -> Vector CalendarSpec -> ScheduleSpec)
-> Lens
ScheduleSpec
ScheduleSpec
(Vector CalendarSpec)
(Vector CalendarSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Vector CalendarSpec
_ScheduleSpec'excludeCalendar
(\ ScheduleSpec
x__ Vector CalendarSpec
y__ -> ScheduleSpec
x__ {_ScheduleSpec'excludeCalendar = y__}))
(Vector CalendarSpec -> f (Vector CalendarSpec))
-> Vector CalendarSpec -> f (Vector CalendarSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleSpec "excludeStructuredCalendar" [StructuredCalendarSpec] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "excludeStructuredCalendar"
-> ([StructuredCalendarSpec] -> f [StructuredCalendarSpec])
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "excludeStructuredCalendar"
_
= ((Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> ScheduleSpec -> f ScheduleSpec)
-> (([StructuredCalendarSpec] -> f [StructuredCalendarSpec])
-> Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> ([StructuredCalendarSpec] -> f [StructuredCalendarSpec])
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Vector StructuredCalendarSpec)
-> (ScheduleSpec -> Vector StructuredCalendarSpec -> ScheduleSpec)
-> Lens
ScheduleSpec
ScheduleSpec
(Vector StructuredCalendarSpec)
(Vector StructuredCalendarSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Vector StructuredCalendarSpec
_ScheduleSpec'excludeStructuredCalendar
(\ ScheduleSpec
x__ Vector StructuredCalendarSpec
y__ -> ScheduleSpec
x__ {_ScheduleSpec'excludeStructuredCalendar = y__}))
((Vector StructuredCalendarSpec -> [StructuredCalendarSpec])
-> (Vector StructuredCalendarSpec
-> [StructuredCalendarSpec] -> Vector StructuredCalendarSpec)
-> Lens
(Vector StructuredCalendarSpec)
(Vector StructuredCalendarSpec)
[StructuredCalendarSpec]
[StructuredCalendarSpec]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector StructuredCalendarSpec -> [StructuredCalendarSpec]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector StructuredCalendarSpec
_ [StructuredCalendarSpec]
y__ -> [StructuredCalendarSpec] -> Vector StructuredCalendarSpec
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [StructuredCalendarSpec]
y__))
instance Data.ProtoLens.Field.HasField ScheduleSpec "vec'excludeStructuredCalendar" (Data.Vector.Vector StructuredCalendarSpec) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'excludeStructuredCalendar"
-> (Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "vec'excludeStructuredCalendar"
_
= ((Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> ScheduleSpec -> f ScheduleSpec)
-> ((Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> (Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Vector StructuredCalendarSpec)
-> (ScheduleSpec -> Vector StructuredCalendarSpec -> ScheduleSpec)
-> Lens
ScheduleSpec
ScheduleSpec
(Vector StructuredCalendarSpec)
(Vector StructuredCalendarSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Vector StructuredCalendarSpec
_ScheduleSpec'excludeStructuredCalendar
(\ ScheduleSpec
x__ Vector StructuredCalendarSpec
y__ -> ScheduleSpec
x__ {_ScheduleSpec'excludeStructuredCalendar = y__}))
(Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec))
-> Vector StructuredCalendarSpec
-> f (Vector StructuredCalendarSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleSpec "startTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startTime"
-> (Timestamp -> f Timestamp) -> ScheduleSpec -> f ScheduleSpec
fieldOf Proxy# "startTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleSpec -> f ScheduleSpec)
-> ((Timestamp -> f Timestamp)
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Maybe Timestamp)
-> (ScheduleSpec -> Maybe Timestamp -> ScheduleSpec)
-> Lens
ScheduleSpec ScheduleSpec (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Maybe Timestamp
_ScheduleSpec'startTime
(\ ScheduleSpec
x__ Maybe Timestamp
y__ -> ScheduleSpec
x__ {_ScheduleSpec'startTime = 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 ScheduleSpec "maybe'startTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'startTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "maybe'startTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleSpec -> f ScheduleSpec)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Maybe Timestamp)
-> (ScheduleSpec -> Maybe Timestamp -> ScheduleSpec)
-> Lens
ScheduleSpec ScheduleSpec (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Maybe Timestamp
_ScheduleSpec'startTime
(\ ScheduleSpec
x__ Maybe Timestamp
y__ -> ScheduleSpec
x__ {_ScheduleSpec'startTime = y__}))
(Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleSpec "endTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "endTime"
-> (Timestamp -> f Timestamp) -> ScheduleSpec -> f ScheduleSpec
fieldOf Proxy# "endTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleSpec -> f ScheduleSpec)
-> ((Timestamp -> f Timestamp)
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Maybe Timestamp)
-> (ScheduleSpec -> Maybe Timestamp -> ScheduleSpec)
-> Lens
ScheduleSpec ScheduleSpec (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Maybe Timestamp
_ScheduleSpec'endTime
(\ ScheduleSpec
x__ Maybe Timestamp
y__ -> ScheduleSpec
x__ {_ScheduleSpec'endTime = 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 ScheduleSpec "maybe'endTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'endTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "maybe'endTime"
_
= ((Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleSpec -> f ScheduleSpec)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Maybe Timestamp)
-> (ScheduleSpec -> Maybe Timestamp -> ScheduleSpec)
-> Lens
ScheduleSpec ScheduleSpec (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Maybe Timestamp
_ScheduleSpec'endTime
(\ ScheduleSpec
x__ Maybe Timestamp
y__ -> ScheduleSpec
x__ {_ScheduleSpec'endTime = y__}))
(Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleSpec "jitter" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "jitter"
-> (Duration -> f Duration) -> ScheduleSpec -> f ScheduleSpec
fieldOf Proxy# "jitter"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ScheduleSpec -> f ScheduleSpec)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Maybe Duration)
-> (ScheduleSpec -> Maybe Duration -> ScheduleSpec)
-> Lens ScheduleSpec ScheduleSpec (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Maybe Duration
_ScheduleSpec'jitter
(\ ScheduleSpec
x__ Maybe Duration
y__ -> ScheduleSpec
x__ {_ScheduleSpec'jitter = 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 ScheduleSpec "maybe'jitter" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'jitter"
-> (Maybe Duration -> f (Maybe Duration))
-> ScheduleSpec
-> f ScheduleSpec
fieldOf Proxy# "maybe'jitter"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ScheduleSpec -> f ScheduleSpec)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Maybe Duration)
-> (ScheduleSpec -> Maybe Duration -> ScheduleSpec)
-> Lens ScheduleSpec ScheduleSpec (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Maybe Duration
_ScheduleSpec'jitter
(\ ScheduleSpec
x__ Maybe Duration
y__ -> ScheduleSpec
x__ {_ScheduleSpec'jitter = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleSpec "timezoneName" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "timezoneName"
-> (Text -> f Text) -> ScheduleSpec -> f ScheduleSpec
fieldOf Proxy# "timezoneName"
_
= ((Text -> f Text) -> ScheduleSpec -> f ScheduleSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> Text)
-> (ScheduleSpec -> Text -> ScheduleSpec)
-> Lens ScheduleSpec ScheduleSpec Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> Text
_ScheduleSpec'timezoneName
(\ ScheduleSpec
x__ Text
y__ -> ScheduleSpec
x__ {_ScheduleSpec'timezoneName = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleSpec "timezoneData" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "timezoneData"
-> (ByteString -> f ByteString) -> ScheduleSpec -> f ScheduleSpec
fieldOf Proxy# "timezoneData"
_
= ((ByteString -> f ByteString) -> ScheduleSpec -> f ScheduleSpec)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> ScheduleSpec
-> f ScheduleSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleSpec -> ByteString)
-> (ScheduleSpec -> ByteString -> ScheduleSpec)
-> Lens ScheduleSpec ScheduleSpec ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> ByteString
_ScheduleSpec'timezoneData
(\ ScheduleSpec
x__ ByteString
y__ -> ScheduleSpec
x__ {_ScheduleSpec'timezoneData = y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ScheduleSpec where
messageName :: Proxy ScheduleSpec -> Text
messageName Proxy ScheduleSpec
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.ScheduleSpec"
packedMessageDescriptor :: Proxy ScheduleSpec -> ByteString
packedMessageDescriptor Proxy ScheduleSpec
_
= ByteString
"\n\
\\fScheduleSpec\DC2a\n\
\\DC3structured_calendar\CAN\a \ETX(\v20.temporal.api.schedule.v1.StructuredCalendarSpecR\DC2structuredCalendar\DC2\US\n\
\\vcron_string\CAN\b \ETX(\tR\n\
\cronString\DC2B\n\
\\bcalendar\CAN\SOH \ETX(\v2&.temporal.api.schedule.v1.CalendarSpecR\bcalendar\DC2B\n\
\\binterval\CAN\STX \ETX(\v2&.temporal.api.schedule.v1.IntervalSpecR\binterval\DC2U\n\
\\DLEexclude_calendar\CAN\ETX \ETX(\v2&.temporal.api.schedule.v1.CalendarSpecR\SIexcludeCalendarB\STX\CAN\SOH\DC2p\n\
\\ESCexclude_structured_calendar\CAN\t \ETX(\v20.temporal.api.schedule.v1.StructuredCalendarSpecR\EMexcludeStructuredCalendar\DC29\n\
\\n\
\start_time\CAN\EOT \SOH(\v2\SUB.google.protobuf.TimestampR\tstartTime\DC25\n\
\\bend_time\CAN\ENQ \SOH(\v2\SUB.google.protobuf.TimestampR\aendTime\DC21\n\
\\ACKjitter\CAN\ACK \SOH(\v2\EM.google.protobuf.DurationR\ACKjitter\DC2#\n\
\\rtimezone_name\CAN\n\
\ \SOH(\tR\ftimezoneName\DC2#\n\
\\rtimezone_data\CAN\v \SOH(\fR\ftimezoneData"
packedFileDescriptor :: Proxy ScheduleSpec -> ByteString
packedFileDescriptor Proxy ScheduleSpec
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ScheduleSpec)
fieldsByTag
= let
structuredCalendar__field_descriptor :: FieldDescriptor ScheduleSpec
structuredCalendar__field_descriptor
= String
-> FieldTypeDescriptor StructuredCalendarSpec
-> FieldAccessor ScheduleSpec StructuredCalendarSpec
-> FieldDescriptor ScheduleSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"structured_calendar"
(MessageOrGroup -> FieldTypeDescriptor StructuredCalendarSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor StructuredCalendarSpec)
(Packing
-> Lens' ScheduleSpec [StructuredCalendarSpec]
-> FieldAccessor ScheduleSpec StructuredCalendarSpec
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 @"structuredCalendar")) ::
Data.ProtoLens.FieldDescriptor ScheduleSpec
cronString__field_descriptor :: FieldDescriptor ScheduleSpec
cronString__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ScheduleSpec Text
-> FieldDescriptor ScheduleSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"cron_string"
(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' ScheduleSpec [Text] -> FieldAccessor ScheduleSpec 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 @"cronString")) ::
Data.ProtoLens.FieldDescriptor ScheduleSpec
calendar__field_descriptor :: FieldDescriptor ScheduleSpec
calendar__field_descriptor
= String
-> FieldTypeDescriptor CalendarSpec
-> FieldAccessor ScheduleSpec CalendarSpec
-> FieldDescriptor ScheduleSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"calendar"
(MessageOrGroup -> FieldTypeDescriptor CalendarSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CalendarSpec)
(Packing
-> Lens' ScheduleSpec [CalendarSpec]
-> FieldAccessor ScheduleSpec CalendarSpec
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 @"calendar")) ::
Data.ProtoLens.FieldDescriptor ScheduleSpec
interval__field_descriptor :: FieldDescriptor ScheduleSpec
interval__field_descriptor
= String
-> FieldTypeDescriptor IntervalSpec
-> FieldAccessor ScheduleSpec IntervalSpec
-> FieldDescriptor ScheduleSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"interval"
(MessageOrGroup -> FieldTypeDescriptor IntervalSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor IntervalSpec)
(Packing
-> Lens' ScheduleSpec [IntervalSpec]
-> FieldAccessor ScheduleSpec IntervalSpec
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 @"interval")) ::
Data.ProtoLens.FieldDescriptor ScheduleSpec
excludeCalendar__field_descriptor :: FieldDescriptor ScheduleSpec
excludeCalendar__field_descriptor
= String
-> FieldTypeDescriptor CalendarSpec
-> FieldAccessor ScheduleSpec CalendarSpec
-> FieldDescriptor ScheduleSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"exclude_calendar"
(MessageOrGroup -> FieldTypeDescriptor CalendarSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CalendarSpec)
(Packing
-> Lens' ScheduleSpec [CalendarSpec]
-> FieldAccessor ScheduleSpec CalendarSpec
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 @"excludeCalendar")) ::
Data.ProtoLens.FieldDescriptor ScheduleSpec
excludeStructuredCalendar__field_descriptor :: FieldDescriptor ScheduleSpec
excludeStructuredCalendar__field_descriptor
= String
-> FieldTypeDescriptor StructuredCalendarSpec
-> FieldAccessor ScheduleSpec StructuredCalendarSpec
-> FieldDescriptor ScheduleSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"exclude_structured_calendar"
(MessageOrGroup -> FieldTypeDescriptor StructuredCalendarSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor StructuredCalendarSpec)
(Packing
-> Lens' ScheduleSpec [StructuredCalendarSpec]
-> FieldAccessor ScheduleSpec StructuredCalendarSpec
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 @"excludeStructuredCalendar")) ::
Data.ProtoLens.FieldDescriptor ScheduleSpec
startTime__field_descriptor :: FieldDescriptor ScheduleSpec
startTime__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor ScheduleSpec Timestamp
-> FieldDescriptor ScheduleSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_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 ScheduleSpec ScheduleSpec (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor ScheduleSpec 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'startTime")) ::
Data.ProtoLens.FieldDescriptor ScheduleSpec
endTime__field_descriptor :: FieldDescriptor ScheduleSpec
endTime__field_descriptor
= String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor ScheduleSpec Timestamp
-> FieldDescriptor ScheduleSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"end_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 ScheduleSpec ScheduleSpec (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor ScheduleSpec 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'endTime")) ::
Data.ProtoLens.FieldDescriptor ScheduleSpec
jitter__field_descriptor :: FieldDescriptor ScheduleSpec
jitter__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor ScheduleSpec Duration
-> FieldDescriptor ScheduleSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"jitter"
(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 ScheduleSpec ScheduleSpec (Maybe Duration) (Maybe Duration)
-> FieldAccessor ScheduleSpec 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'jitter")) ::
Data.ProtoLens.FieldDescriptor ScheduleSpec
timezoneName__field_descriptor :: FieldDescriptor ScheduleSpec
timezoneName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ScheduleSpec Text
-> FieldDescriptor ScheduleSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"timezone_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 ScheduleSpec ScheduleSpec Text Text
-> FieldAccessor ScheduleSpec 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 @"timezoneName")) ::
Data.ProtoLens.FieldDescriptor ScheduleSpec
timezoneData__field_descriptor :: FieldDescriptor ScheduleSpec
timezoneData__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor ScheduleSpec ByteString
-> FieldDescriptor ScheduleSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"timezone_data"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(WireDefault ByteString
-> Lens ScheduleSpec ScheduleSpec ByteString ByteString
-> FieldAccessor ScheduleSpec ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timezoneData")) ::
Data.ProtoLens.FieldDescriptor ScheduleSpec
in
[(Tag, FieldDescriptor ScheduleSpec)]
-> Map Tag (FieldDescriptor ScheduleSpec)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor ScheduleSpec
structuredCalendar__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor ScheduleSpec
cronString__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ScheduleSpec
calendar__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ScheduleSpec
interval__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ScheduleSpec
excludeCalendar__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
9,
FieldDescriptor ScheduleSpec
excludeStructuredCalendar__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ScheduleSpec
startTime__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor ScheduleSpec
endTime__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor ScheduleSpec
jitter__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor ScheduleSpec
timezoneName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor ScheduleSpec
timezoneData__field_descriptor)]
unknownFields :: Lens' ScheduleSpec FieldSet
unknownFields
= (ScheduleSpec -> FieldSet)
-> (ScheduleSpec -> FieldSet -> ScheduleSpec)
-> Lens' ScheduleSpec FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleSpec -> FieldSet
_ScheduleSpec'_unknownFields
(\ ScheduleSpec
x__ FieldSet
y__ -> ScheduleSpec
x__ {_ScheduleSpec'_unknownFields = y__})
defMessage :: ScheduleSpec
defMessage
= ScheduleSpec'_constructor
{_ScheduleSpec'structuredCalendar :: Vector StructuredCalendarSpec
_ScheduleSpec'structuredCalendar = Vector StructuredCalendarSpec
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ScheduleSpec'cronString :: Vector Text
_ScheduleSpec'cronString = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ScheduleSpec'calendar :: Vector CalendarSpec
_ScheduleSpec'calendar = Vector CalendarSpec
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ScheduleSpec'interval :: Vector IntervalSpec
_ScheduleSpec'interval = Vector IntervalSpec
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ScheduleSpec'excludeCalendar :: Vector CalendarSpec
_ScheduleSpec'excludeCalendar = Vector CalendarSpec
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ScheduleSpec'excludeStructuredCalendar :: Vector StructuredCalendarSpec
_ScheduleSpec'excludeStructuredCalendar = Vector StructuredCalendarSpec
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ScheduleSpec'startTime :: Maybe Timestamp
_ScheduleSpec'startTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
_ScheduleSpec'endTime :: Maybe Timestamp
_ScheduleSpec'endTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
_ScheduleSpec'jitter :: Maybe Duration
_ScheduleSpec'jitter = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_ScheduleSpec'timezoneName :: Text
_ScheduleSpec'timezoneName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleSpec'timezoneData :: ByteString
_ScheduleSpec'timezoneData = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleSpec'_unknownFields :: FieldSet
_ScheduleSpec'_unknownFields = []}
parseMessage :: Parser ScheduleSpec
parseMessage
= let
loop ::
ScheduleSpec
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld CalendarSpec
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld CalendarSpec
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld StructuredCalendarSpec
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld IntervalSpec
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld StructuredCalendarSpec
-> Data.ProtoLens.Encoding.Bytes.Parser ScheduleSpec
loop :: ScheduleSpec
-> Growing Vector RealWorld CalendarSpec
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld CalendarSpec
-> Growing Vector RealWorld StructuredCalendarSpec
-> Growing Vector RealWorld IntervalSpec
-> Growing Vector RealWorld StructuredCalendarSpec
-> Parser ScheduleSpec
loop
ScheduleSpec
x
Growing Vector RealWorld CalendarSpec
mutable'calendar
Growing Vector RealWorld Text
mutable'cronString
Growing Vector RealWorld CalendarSpec
mutable'excludeCalendar
Growing Vector RealWorld StructuredCalendarSpec
mutable'excludeStructuredCalendar
Growing Vector RealWorld IntervalSpec
mutable'interval
Growing Vector RealWorld StructuredCalendarSpec
mutable'structuredCalendar
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'calendar <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'calendar)
frozen'cronString <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'cronString)
frozen'excludeCalendar <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'excludeCalendar)
frozen'excludeStructuredCalendar <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'excludeStructuredCalendar)
frozen'interval <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'interval)
frozen'structuredCalendar <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'structuredCalendar)
(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'calendar") frozen'calendar
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'cronString") frozen'cronString
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'excludeCalendar")
frozen'excludeCalendar
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'excludeStructuredCalendar")
frozen'excludeStructuredCalendar
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'interval")
frozen'interval
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'structuredCalendar")
frozen'structuredCalendar x)))))))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
58
-> do !y <- Parser StructuredCalendarSpec
-> String -> Parser StructuredCalendarSpec
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
"structured_calendar"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'structuredCalendar y)
loop
x mutable'calendar mutable'cronString mutable'excludeCalendar
mutable'excludeStructuredCalendar mutable'interval v
Word64
66
-> 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
"cron_string"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'cronString y)
loop
x mutable'calendar v mutable'excludeCalendar
mutable'excludeStructuredCalendar mutable'interval
mutable'structuredCalendar
Word64
10
-> do !y <- Parser CalendarSpec -> String -> Parser CalendarSpec
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
"calendar"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'calendar y)
loop
x v mutable'cronString mutable'excludeCalendar
mutable'excludeStructuredCalendar mutable'interval
mutable'structuredCalendar
Word64
18
-> do !y <- Parser IntervalSpec -> String -> Parser IntervalSpec
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
"interval"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'interval y)
loop
x mutable'calendar mutable'cronString mutable'excludeCalendar
mutable'excludeStructuredCalendar v mutable'structuredCalendar
Word64
26
-> do !y <- Parser CalendarSpec -> String -> Parser CalendarSpec
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
"exclude_calendar"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'excludeCalendar y)
loop
x mutable'calendar mutable'cronString v
mutable'excludeStructuredCalendar mutable'interval
mutable'structuredCalendar
Word64
74
-> do !y <- Parser StructuredCalendarSpec
-> String -> Parser StructuredCalendarSpec
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
"exclude_structured_calendar"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'excludeStructuredCalendar y)
loop
x mutable'calendar mutable'cronString mutable'excludeCalendar v
mutable'interval mutable'structuredCalendar
Word64
34
-> 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
"start_time"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"startTime") y x)
mutable'calendar mutable'cronString mutable'excludeCalendar
mutable'excludeStructuredCalendar mutable'interval
mutable'structuredCalendar
Word64
42
-> 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
"end_time"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"endTime") y x)
mutable'calendar mutable'cronString mutable'excludeCalendar
mutable'excludeStructuredCalendar mutable'interval
mutable'structuredCalendar
Word64
50
-> 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
"jitter"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"jitter") y x)
mutable'calendar mutable'cronString mutable'excludeCalendar
mutable'excludeStructuredCalendar mutable'interval
mutable'structuredCalendar
Word64
82
-> 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
"timezone_name"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"timezoneName") y x)
mutable'calendar mutable'cronString mutable'excludeCalendar
mutable'excludeStructuredCalendar mutable'interval
mutable'structuredCalendar
Word64
90
-> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
String
"timezone_data"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"timezoneData") y x)
mutable'calendar mutable'cronString mutable'excludeCalendar
mutable'excludeStructuredCalendar mutable'interval
mutable'structuredCalendar
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'calendar mutable'cronString mutable'excludeCalendar
mutable'excludeStructuredCalendar mutable'interval
mutable'structuredCalendar
in
Parser ScheduleSpec -> String -> Parser ScheduleSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'calendar <- IO (Growing Vector RealWorld CalendarSpec)
-> Parser (Growing Vector RealWorld CalendarSpec)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld CalendarSpec)
IO (Growing Vector (PrimState IO) CalendarSpec)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
mutable'cronString <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'excludeCalendar <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'excludeStructuredCalendar <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'interval <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'structuredCalendar <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop
Data.ProtoLens.defMessage mutable'calendar mutable'cronString
mutable'excludeCalendar mutable'excludeStructuredCalendar
mutable'interval mutable'structuredCalendar)
String
"ScheduleSpec"
buildMessage :: ScheduleSpec -> Builder
buildMessage
= \ ScheduleSpec
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((StructuredCalendarSpec -> Builder)
-> Vector StructuredCalendarSpec -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ StructuredCalendarSpec
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((ByteString -> Builder)
-> (StructuredCalendarSpec -> ByteString)
-> StructuredCalendarSpec
-> 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))
StructuredCalendarSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StructuredCalendarSpec
_v))
(FoldLike
(Vector StructuredCalendarSpec)
ScheduleSpec
ScheduleSpec
(Vector StructuredCalendarSpec)
(Vector StructuredCalendarSpec)
-> ScheduleSpec -> Vector StructuredCalendarSpec
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'structuredCalendar") ScheduleSpec
_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
66)
((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) ScheduleSpec ScheduleSpec (Vector Text) (Vector Text)
-> ScheduleSpec -> 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'cronString") ScheduleSpec
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((CalendarSpec -> Builder) -> Vector CalendarSpec -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ CalendarSpec
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (CalendarSpec -> ByteString) -> CalendarSpec -> 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))
CalendarSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CalendarSpec
_v))
(FoldLike
(Vector CalendarSpec)
ScheduleSpec
ScheduleSpec
(Vector CalendarSpec)
(Vector CalendarSpec)
-> ScheduleSpec -> Vector CalendarSpec
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'calendar") ScheduleSpec
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((IntervalSpec -> Builder) -> Vector IntervalSpec -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ IntervalSpec
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (IntervalSpec -> ByteString) -> IntervalSpec -> 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))
IntervalSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage IntervalSpec
_v))
(FoldLike
(Vector IntervalSpec)
ScheduleSpec
ScheduleSpec
(Vector IntervalSpec)
(Vector IntervalSpec)
-> ScheduleSpec -> Vector IntervalSpec
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'interval") ScheduleSpec
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((CalendarSpec -> Builder) -> Vector CalendarSpec -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ CalendarSpec
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (CalendarSpec -> ByteString) -> CalendarSpec -> 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))
CalendarSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CalendarSpec
_v))
(FoldLike
(Vector CalendarSpec)
ScheduleSpec
ScheduleSpec
(Vector CalendarSpec)
(Vector CalendarSpec)
-> ScheduleSpec -> Vector CalendarSpec
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'excludeCalendar") ScheduleSpec
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((StructuredCalendarSpec -> Builder)
-> Vector StructuredCalendarSpec -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ StructuredCalendarSpec
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
((ByteString -> Builder)
-> (StructuredCalendarSpec -> ByteString)
-> StructuredCalendarSpec
-> 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))
StructuredCalendarSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StructuredCalendarSpec
_v))
(FoldLike
(Vector StructuredCalendarSpec)
ScheduleSpec
ScheduleSpec
(Vector StructuredCalendarSpec)
(Vector StructuredCalendarSpec)
-> ScheduleSpec -> Vector StructuredCalendarSpec
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'excludeStructuredCalendar") ScheduleSpec
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Timestamp)
ScheduleSpec
ScheduleSpec
(Maybe Timestamp)
(Maybe Timestamp)
-> ScheduleSpec -> 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'startTime") ScheduleSpec
_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
34)
((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.<>)
(case
FoldLike
(Maybe Timestamp)
ScheduleSpec
ScheduleSpec
(Maybe Timestamp)
(Maybe Timestamp)
-> ScheduleSpec -> 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'endTime") ScheduleSpec
_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
42)
((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.<>)
(case
FoldLike
(Maybe Duration)
ScheduleSpec
ScheduleSpec
(Maybe Duration)
(Maybe Duration)
-> ScheduleSpec -> 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'jitter") ScheduleSpec
_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
50)
((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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text ScheduleSpec ScheduleSpec Text Text
-> ScheduleSpec -> 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 @"timezoneName") ScheduleSpec
_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
82)
((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 :: ByteString
_v
= FoldLike ByteString ScheduleSpec ScheduleSpec ByteString ByteString
-> ScheduleSpec -> ByteString
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 @"timezoneData") ScheduleSpec
_x
in
if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
90)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
ByteString
bs))
ByteString
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet ScheduleSpec ScheduleSpec FieldSet FieldSet
-> ScheduleSpec -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
FoldLike FieldSet ScheduleSpec ScheduleSpec FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ScheduleSpec FieldSet
Data.ProtoLens.unknownFields ScheduleSpec
_x))))))))))))
instance Control.DeepSeq.NFData ScheduleSpec where
rnf :: ScheduleSpec -> ()
rnf
= \ ScheduleSpec
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleSpec -> FieldSet
_ScheduleSpec'_unknownFields ScheduleSpec
x__)
(Vector StructuredCalendarSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleSpec -> Vector StructuredCalendarSpec
_ScheduleSpec'structuredCalendar ScheduleSpec
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleSpec -> Vector Text
_ScheduleSpec'cronString ScheduleSpec
x__)
(Vector CalendarSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleSpec -> Vector CalendarSpec
_ScheduleSpec'calendar ScheduleSpec
x__)
(Vector IntervalSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleSpec -> Vector IntervalSpec
_ScheduleSpec'interval ScheduleSpec
x__)
(Vector CalendarSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleSpec -> Vector CalendarSpec
_ScheduleSpec'excludeCalendar ScheduleSpec
x__)
(Vector StructuredCalendarSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleSpec -> Vector StructuredCalendarSpec
_ScheduleSpec'excludeStructuredCalendar ScheduleSpec
x__)
(Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleSpec -> Maybe Timestamp
_ScheduleSpec'startTime ScheduleSpec
x__)
(Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleSpec -> Maybe Timestamp
_ScheduleSpec'endTime ScheduleSpec
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleSpec -> Maybe Duration
_ScheduleSpec'jitter ScheduleSpec
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleSpec -> Text
_ScheduleSpec'timezoneName ScheduleSpec
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleSpec -> ByteString
_ScheduleSpec'timezoneData ScheduleSpec
x__) ())))))))))))
data ScheduleState
= ScheduleState'_constructor {ScheduleState -> Text
_ScheduleState'notes :: !Data.Text.Text,
ScheduleState -> Bool
_ScheduleState'paused :: !Prelude.Bool,
ScheduleState -> Bool
_ScheduleState'limitedActions :: !Prelude.Bool,
ScheduleState -> Int64
_ScheduleState'remainingActions :: !Data.Int.Int64,
ScheduleState -> FieldSet
_ScheduleState'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ScheduleState -> ScheduleState -> Bool
(ScheduleState -> ScheduleState -> Bool)
-> (ScheduleState -> ScheduleState -> Bool) -> Eq ScheduleState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScheduleState -> ScheduleState -> Bool
== :: ScheduleState -> ScheduleState -> Bool
$c/= :: ScheduleState -> ScheduleState -> Bool
/= :: ScheduleState -> ScheduleState -> Bool
Prelude.Eq, Eq ScheduleState
Eq ScheduleState =>
(ScheduleState -> ScheduleState -> Ordering)
-> (ScheduleState -> ScheduleState -> Bool)
-> (ScheduleState -> ScheduleState -> Bool)
-> (ScheduleState -> ScheduleState -> Bool)
-> (ScheduleState -> ScheduleState -> Bool)
-> (ScheduleState -> ScheduleState -> ScheduleState)
-> (ScheduleState -> ScheduleState -> ScheduleState)
-> Ord ScheduleState
ScheduleState -> ScheduleState -> Bool
ScheduleState -> ScheduleState -> Ordering
ScheduleState -> ScheduleState -> ScheduleState
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 :: ScheduleState -> ScheduleState -> Ordering
compare :: ScheduleState -> ScheduleState -> Ordering
$c< :: ScheduleState -> ScheduleState -> Bool
< :: ScheduleState -> ScheduleState -> Bool
$c<= :: ScheduleState -> ScheduleState -> Bool
<= :: ScheduleState -> ScheduleState -> Bool
$c> :: ScheduleState -> ScheduleState -> Bool
> :: ScheduleState -> ScheduleState -> Bool
$c>= :: ScheduleState -> ScheduleState -> Bool
>= :: ScheduleState -> ScheduleState -> Bool
$cmax :: ScheduleState -> ScheduleState -> ScheduleState
max :: ScheduleState -> ScheduleState -> ScheduleState
$cmin :: ScheduleState -> ScheduleState -> ScheduleState
min :: ScheduleState -> ScheduleState -> ScheduleState
Prelude.Ord)
instance Prelude.Show ScheduleState where
showsPrec :: Int -> ScheduleState -> ShowS
showsPrec Int
_ ScheduleState
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ScheduleState -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ScheduleState
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ScheduleState "notes" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "notes"
-> (Text -> f Text) -> ScheduleState -> f ScheduleState
fieldOf Proxy# "notes"
_
= ((Text -> f Text) -> ScheduleState -> f ScheduleState)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ScheduleState
-> f ScheduleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleState -> Text)
-> (ScheduleState -> Text -> ScheduleState)
-> Lens ScheduleState ScheduleState Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleState -> Text
_ScheduleState'notes
(\ ScheduleState
x__ Text
y__ -> ScheduleState
x__ {_ScheduleState'notes = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleState "paused" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "paused"
-> (Bool -> f Bool) -> ScheduleState -> f ScheduleState
fieldOf Proxy# "paused"
_
= ((Bool -> f Bool) -> ScheduleState -> f ScheduleState)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ScheduleState
-> f ScheduleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleState -> Bool)
-> (ScheduleState -> Bool -> ScheduleState)
-> Lens ScheduleState ScheduleState Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleState -> Bool
_ScheduleState'paused
(\ ScheduleState
x__ Bool
y__ -> ScheduleState
x__ {_ScheduleState'paused = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleState "limitedActions" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "limitedActions"
-> (Bool -> f Bool) -> ScheduleState -> f ScheduleState
fieldOf Proxy# "limitedActions"
_
= ((Bool -> f Bool) -> ScheduleState -> f ScheduleState)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ScheduleState
-> f ScheduleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleState -> Bool)
-> (ScheduleState -> Bool -> ScheduleState)
-> Lens ScheduleState ScheduleState Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleState -> Bool
_ScheduleState'limitedActions
(\ ScheduleState
x__ Bool
y__ -> ScheduleState
x__ {_ScheduleState'limitedActions = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleState "remainingActions" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "remainingActions"
-> (Int64 -> f Int64) -> ScheduleState -> f ScheduleState
fieldOf Proxy# "remainingActions"
_
= ((Int64 -> f Int64) -> ScheduleState -> f ScheduleState)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ScheduleState
-> f ScheduleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleState -> Int64)
-> (ScheduleState -> Int64 -> ScheduleState)
-> Lens ScheduleState ScheduleState Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleState -> Int64
_ScheduleState'remainingActions
(\ ScheduleState
x__ Int64
y__ -> ScheduleState
x__ {_ScheduleState'remainingActions = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ScheduleState where
messageName :: Proxy ScheduleState -> Text
messageName Proxy ScheduleState
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.ScheduleState"
packedMessageDescriptor :: Proxy ScheduleState -> ByteString
packedMessageDescriptor Proxy ScheduleState
_
= ByteString
"\n\
\\rScheduleState\DC2\DC4\n\
\\ENQnotes\CAN\SOH \SOH(\tR\ENQnotes\DC2\SYN\n\
\\ACKpaused\CAN\STX \SOH(\bR\ACKpaused\DC2'\n\
\\SIlimited_actions\CAN\ETX \SOH(\bR\SOlimitedActions\DC2+\n\
\\DC1remaining_actions\CAN\EOT \SOH(\ETXR\DLEremainingActions"
packedFileDescriptor :: Proxy ScheduleState -> ByteString
packedFileDescriptor Proxy ScheduleState
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ScheduleState)
fieldsByTag
= let
notes__field_descriptor :: FieldDescriptor ScheduleState
notes__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ScheduleState Text
-> FieldDescriptor ScheduleState
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"notes"
(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 ScheduleState ScheduleState Text Text
-> FieldAccessor ScheduleState 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 @"notes")) ::
Data.ProtoLens.FieldDescriptor ScheduleState
paused__field_descriptor :: FieldDescriptor ScheduleState
paused__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ScheduleState Bool
-> FieldDescriptor ScheduleState
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"paused"
(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 ScheduleState ScheduleState Bool Bool
-> FieldAccessor ScheduleState 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 @"paused")) ::
Data.ProtoLens.FieldDescriptor ScheduleState
limitedActions__field_descriptor :: FieldDescriptor ScheduleState
limitedActions__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ScheduleState Bool
-> FieldDescriptor ScheduleState
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"limited_actions"
(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 ScheduleState ScheduleState Bool Bool
-> FieldAccessor ScheduleState 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 @"limitedActions")) ::
Data.ProtoLens.FieldDescriptor ScheduleState
remainingActions__field_descriptor :: FieldDescriptor ScheduleState
remainingActions__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ScheduleState Int64
-> FieldDescriptor ScheduleState
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"remaining_actions"
(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 ScheduleState ScheduleState Int64 Int64
-> FieldAccessor ScheduleState 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 @"remainingActions")) ::
Data.ProtoLens.FieldDescriptor ScheduleState
in
[(Tag, FieldDescriptor ScheduleState)]
-> Map Tag (FieldDescriptor ScheduleState)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ScheduleState
notes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ScheduleState
paused__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ScheduleState
limitedActions__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ScheduleState
remainingActions__field_descriptor)]
unknownFields :: Lens' ScheduleState FieldSet
unknownFields
= (ScheduleState -> FieldSet)
-> (ScheduleState -> FieldSet -> ScheduleState)
-> Lens' ScheduleState FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleState -> FieldSet
_ScheduleState'_unknownFields
(\ ScheduleState
x__ FieldSet
y__ -> ScheduleState
x__ {_ScheduleState'_unknownFields = y__})
defMessage :: ScheduleState
defMessage
= ScheduleState'_constructor
{_ScheduleState'notes :: Text
_ScheduleState'notes = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleState'paused :: Bool
_ScheduleState'paused = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleState'limitedActions :: Bool
_ScheduleState'limitedActions = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleState'remainingActions :: Int64
_ScheduleState'remainingActions = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleState'_unknownFields :: FieldSet
_ScheduleState'_unknownFields = []}
parseMessage :: Parser ScheduleState
parseMessage
= let
loop ::
ScheduleState -> Data.ProtoLens.Encoding.Bytes.Parser ScheduleState
loop :: ScheduleState -> Parser ScheduleState
loop ScheduleState
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
"notes"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"notes") y x)
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
"paused"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"paused") y x)
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
"limited_actions"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"limitedActions") y x)
Word64
32
-> 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
"remaining_actions"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"remainingActions") 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 ScheduleState -> String -> Parser ScheduleState
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ScheduleState -> Parser ScheduleState
loop ScheduleState
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ScheduleState"
buildMessage :: ScheduleState -> Builder
buildMessage
= \ ScheduleState
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text ScheduleState ScheduleState Text Text
-> ScheduleState -> 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 @"notes") ScheduleState
_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 :: Bool
_v = FoldLike Bool ScheduleState ScheduleState Bool Bool
-> ScheduleState -> 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 @"paused") ScheduleState
_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 ScheduleState ScheduleState Bool Bool
-> ScheduleState -> 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 @"limitedActions") ScheduleState
_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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 ScheduleState ScheduleState Int64 Int64
-> ScheduleState -> 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 @"remainingActions") ScheduleState
_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
32)
((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 ScheduleState ScheduleState FieldSet FieldSet
-> ScheduleState -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ScheduleState ScheduleState FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ScheduleState FieldSet
Data.ProtoLens.unknownFields ScheduleState
_x)))))
instance Control.DeepSeq.NFData ScheduleState where
rnf :: ScheduleState -> ()
rnf
= \ ScheduleState
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleState -> FieldSet
_ScheduleState'_unknownFields ScheduleState
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleState -> Text
_ScheduleState'notes ScheduleState
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleState -> Bool
_ScheduleState'paused ScheduleState
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleState -> Bool
_ScheduleState'limitedActions ScheduleState
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleState -> Int64
_ScheduleState'remainingActions ScheduleState
x__) ()))))
data StructuredCalendarSpec
= StructuredCalendarSpec'_constructor {StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'second :: !(Data.Vector.Vector Range),
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'minute :: !(Data.Vector.Vector Range),
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'hour :: !(Data.Vector.Vector Range),
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'dayOfMonth :: !(Data.Vector.Vector Range),
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'month :: !(Data.Vector.Vector Range),
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'year :: !(Data.Vector.Vector Range),
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'dayOfWeek :: !(Data.Vector.Vector Range),
:: !Data.Text.Text,
StructuredCalendarSpec -> FieldSet
_StructuredCalendarSpec'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
(StructuredCalendarSpec -> StructuredCalendarSpec -> Bool)
-> (StructuredCalendarSpec -> StructuredCalendarSpec -> Bool)
-> Eq StructuredCalendarSpec
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
== :: StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
$c/= :: StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
/= :: StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
Prelude.Eq, Eq StructuredCalendarSpec
Eq StructuredCalendarSpec =>
(StructuredCalendarSpec -> StructuredCalendarSpec -> Ordering)
-> (StructuredCalendarSpec -> StructuredCalendarSpec -> Bool)
-> (StructuredCalendarSpec -> StructuredCalendarSpec -> Bool)
-> (StructuredCalendarSpec -> StructuredCalendarSpec -> Bool)
-> (StructuredCalendarSpec -> StructuredCalendarSpec -> Bool)
-> (StructuredCalendarSpec
-> StructuredCalendarSpec -> StructuredCalendarSpec)
-> (StructuredCalendarSpec
-> StructuredCalendarSpec -> StructuredCalendarSpec)
-> Ord StructuredCalendarSpec
StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
StructuredCalendarSpec -> StructuredCalendarSpec -> Ordering
StructuredCalendarSpec
-> StructuredCalendarSpec -> StructuredCalendarSpec
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 :: StructuredCalendarSpec -> StructuredCalendarSpec -> Ordering
compare :: StructuredCalendarSpec -> StructuredCalendarSpec -> Ordering
$c< :: StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
< :: StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
$c<= :: StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
<= :: StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
$c> :: StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
> :: StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
$c>= :: StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
>= :: StructuredCalendarSpec -> StructuredCalendarSpec -> Bool
$cmax :: StructuredCalendarSpec
-> StructuredCalendarSpec -> StructuredCalendarSpec
max :: StructuredCalendarSpec
-> StructuredCalendarSpec -> StructuredCalendarSpec
$cmin :: StructuredCalendarSpec
-> StructuredCalendarSpec -> StructuredCalendarSpec
min :: StructuredCalendarSpec
-> StructuredCalendarSpec -> StructuredCalendarSpec
Prelude.Ord)
instance Prelude.Show StructuredCalendarSpec where
showsPrec :: Int -> StructuredCalendarSpec -> ShowS
showsPrec Int
_ StructuredCalendarSpec
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(StructuredCalendarSpec -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StructuredCalendarSpec
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "second" [Range] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "second"
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "second"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> (([Range] -> f [Range]) -> Vector Range -> f (Vector Range))
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'second
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'second = y__}))
((Vector Range -> [Range])
-> (Vector Range -> [Range] -> Vector Range)
-> Lens (Vector Range) (Vector Range) [Range] [Range]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Range -> [Range]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Range
_ [Range]
y__ -> [Range] -> Vector Range
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Range]
y__))
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "vec'second" (Data.Vector.Vector Range) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'second"
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "vec'second"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> ((Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range))
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'second
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'second = y__}))
(Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "minute" [Range] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minute"
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "minute"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> (([Range] -> f [Range]) -> Vector Range -> f (Vector Range))
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'minute
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'minute = y__}))
((Vector Range -> [Range])
-> (Vector Range -> [Range] -> Vector Range)
-> Lens (Vector Range) (Vector Range) [Range] [Range]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Range -> [Range]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Range
_ [Range]
y__ -> [Range] -> Vector Range
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Range]
y__))
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "vec'minute" (Data.Vector.Vector Range) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'minute"
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "vec'minute"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> ((Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range))
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'minute
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'minute = y__}))
(Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "hour" [Range] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hour"
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "hour"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> (([Range] -> f [Range]) -> Vector Range -> f (Vector Range))
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'hour
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'hour = y__}))
((Vector Range -> [Range])
-> (Vector Range -> [Range] -> Vector Range)
-> Lens (Vector Range) (Vector Range) [Range] [Range]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Range -> [Range]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Range
_ [Range]
y__ -> [Range] -> Vector Range
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Range]
y__))
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "vec'hour" (Data.Vector.Vector Range) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'hour"
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "vec'hour"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> ((Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range))
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'hour
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'hour = y__}))
(Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "dayOfMonth" [Range] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "dayOfMonth"
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "dayOfMonth"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> (([Range] -> f [Range]) -> Vector Range -> f (Vector Range))
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'dayOfMonth
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'dayOfMonth = y__}))
((Vector Range -> [Range])
-> (Vector Range -> [Range] -> Vector Range)
-> Lens (Vector Range) (Vector Range) [Range] [Range]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Range -> [Range]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Range
_ [Range]
y__ -> [Range] -> Vector Range
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Range]
y__))
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "vec'dayOfMonth" (Data.Vector.Vector Range) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'dayOfMonth"
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "vec'dayOfMonth"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> ((Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range))
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'dayOfMonth
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'dayOfMonth = y__}))
(Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "month" [Range] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "month"
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "month"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> (([Range] -> f [Range]) -> Vector Range -> f (Vector Range))
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'month
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'month = y__}))
((Vector Range -> [Range])
-> (Vector Range -> [Range] -> Vector Range)
-> Lens (Vector Range) (Vector Range) [Range] [Range]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Range -> [Range]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Range
_ [Range]
y__ -> [Range] -> Vector Range
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Range]
y__))
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "vec'month" (Data.Vector.Vector Range) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'month"
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "vec'month"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> ((Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range))
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'month
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'month = y__}))
(Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "year" [Range] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "year"
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "year"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> (([Range] -> f [Range]) -> Vector Range -> f (Vector Range))
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'year
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'year = y__}))
((Vector Range -> [Range])
-> (Vector Range -> [Range] -> Vector Range)
-> Lens (Vector Range) (Vector Range) [Range] [Range]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Range -> [Range]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Range
_ [Range]
y__ -> [Range] -> Vector Range
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Range]
y__))
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "vec'year" (Data.Vector.Vector Range) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'year"
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "vec'year"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> ((Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range))
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'year
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'year = y__}))
(Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "dayOfWeek" [Range] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "dayOfWeek"
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "dayOfWeek"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> (([Range] -> f [Range]) -> Vector Range -> f (Vector Range))
-> ([Range] -> f [Range])
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'dayOfWeek
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'dayOfWeek = y__}))
((Vector Range -> [Range])
-> (Vector Range -> [Range] -> Vector Range)
-> Lens (Vector Range) (Vector Range) [Range] [Range]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Range -> [Range]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Range
_ [Range]
y__ -> [Range] -> Vector Range
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Range]
y__))
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "vec'dayOfWeek" (Data.Vector.Vector Range) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'dayOfWeek"
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "vec'dayOfWeek"
_
= ((Vector Range -> f (Vector Range))
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> ((Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range))
-> (Vector Range -> f (Vector Range))
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Vector Range)
-> (StructuredCalendarSpec
-> Vector Range -> StructuredCalendarSpec)
-> Lens
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'dayOfWeek
(\ StructuredCalendarSpec
x__ Vector Range
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'dayOfWeek = y__}))
(Vector Range -> f (Vector Range))
-> Vector Range -> f (Vector Range)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StructuredCalendarSpec "comment" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "comment"
-> (Text -> f Text)
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
fieldOf Proxy# "comment"
_
= ((Text -> f Text)
-> StructuredCalendarSpec -> f StructuredCalendarSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StructuredCalendarSpec
-> f StructuredCalendarSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StructuredCalendarSpec -> Text)
-> (StructuredCalendarSpec -> Text -> StructuredCalendarSpec)
-> Lens StructuredCalendarSpec StructuredCalendarSpec Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> Text
_StructuredCalendarSpec'comment
(\ StructuredCalendarSpec
x__ Text
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'comment = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StructuredCalendarSpec where
messageName :: Proxy StructuredCalendarSpec -> Text
messageName Proxy StructuredCalendarSpec
_
= String -> Text
Data.Text.pack String
"temporal.api.schedule.v1.StructuredCalendarSpec"
packedMessageDescriptor :: Proxy StructuredCalendarSpec -> ByteString
packedMessageDescriptor Proxy StructuredCalendarSpec
_
= ByteString
"\n\
\\SYNStructuredCalendarSpec\DC27\n\
\\ACKsecond\CAN\SOH \ETX(\v2\US.temporal.api.schedule.v1.RangeR\ACKsecond\DC27\n\
\\ACKminute\CAN\STX \ETX(\v2\US.temporal.api.schedule.v1.RangeR\ACKminute\DC23\n\
\\EOThour\CAN\ETX \ETX(\v2\US.temporal.api.schedule.v1.RangeR\EOThour\DC2A\n\
\\fday_of_month\CAN\EOT \ETX(\v2\US.temporal.api.schedule.v1.RangeR\n\
\dayOfMonth\DC25\n\
\\ENQmonth\CAN\ENQ \ETX(\v2\US.temporal.api.schedule.v1.RangeR\ENQmonth\DC23\n\
\\EOTyear\CAN\ACK \ETX(\v2\US.temporal.api.schedule.v1.RangeR\EOTyear\DC2?\n\
\\vday_of_week\CAN\a \ETX(\v2\US.temporal.api.schedule.v1.RangeR\tdayOfWeek\DC2\CAN\n\
\\acomment\CAN\b \SOH(\tR\acomment"
packedFileDescriptor :: Proxy StructuredCalendarSpec -> ByteString
packedFileDescriptor Proxy StructuredCalendarSpec
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor StructuredCalendarSpec)
fieldsByTag
= let
second__field_descriptor :: FieldDescriptor StructuredCalendarSpec
second__field_descriptor
= String
-> FieldTypeDescriptor Range
-> FieldAccessor StructuredCalendarSpec Range
-> FieldDescriptor StructuredCalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"second"
(MessageOrGroup -> FieldTypeDescriptor Range
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Range)
(Packing
-> Lens' StructuredCalendarSpec [Range]
-> FieldAccessor StructuredCalendarSpec Range
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 @"second")) ::
Data.ProtoLens.FieldDescriptor StructuredCalendarSpec
minute__field_descriptor :: FieldDescriptor StructuredCalendarSpec
minute__field_descriptor
= String
-> FieldTypeDescriptor Range
-> FieldAccessor StructuredCalendarSpec Range
-> FieldDescriptor StructuredCalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"minute"
(MessageOrGroup -> FieldTypeDescriptor Range
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Range)
(Packing
-> Lens' StructuredCalendarSpec [Range]
-> FieldAccessor StructuredCalendarSpec Range
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 @"minute")) ::
Data.ProtoLens.FieldDescriptor StructuredCalendarSpec
hour__field_descriptor :: FieldDescriptor StructuredCalendarSpec
hour__field_descriptor
= String
-> FieldTypeDescriptor Range
-> FieldAccessor StructuredCalendarSpec Range
-> FieldDescriptor StructuredCalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"hour"
(MessageOrGroup -> FieldTypeDescriptor Range
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Range)
(Packing
-> Lens' StructuredCalendarSpec [Range]
-> FieldAccessor StructuredCalendarSpec Range
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 @"hour")) ::
Data.ProtoLens.FieldDescriptor StructuredCalendarSpec
dayOfMonth__field_descriptor :: FieldDescriptor StructuredCalendarSpec
dayOfMonth__field_descriptor
= String
-> FieldTypeDescriptor Range
-> FieldAccessor StructuredCalendarSpec Range
-> FieldDescriptor StructuredCalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"day_of_month"
(MessageOrGroup -> FieldTypeDescriptor Range
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Range)
(Packing
-> Lens' StructuredCalendarSpec [Range]
-> FieldAccessor StructuredCalendarSpec Range
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 @"dayOfMonth")) ::
Data.ProtoLens.FieldDescriptor StructuredCalendarSpec
month__field_descriptor :: FieldDescriptor StructuredCalendarSpec
month__field_descriptor
= String
-> FieldTypeDescriptor Range
-> FieldAccessor StructuredCalendarSpec Range
-> FieldDescriptor StructuredCalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"month"
(MessageOrGroup -> FieldTypeDescriptor Range
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Range)
(Packing
-> Lens' StructuredCalendarSpec [Range]
-> FieldAccessor StructuredCalendarSpec Range
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 @"month")) ::
Data.ProtoLens.FieldDescriptor StructuredCalendarSpec
year__field_descriptor :: FieldDescriptor StructuredCalendarSpec
year__field_descriptor
= String
-> FieldTypeDescriptor Range
-> FieldAccessor StructuredCalendarSpec Range
-> FieldDescriptor StructuredCalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"year"
(MessageOrGroup -> FieldTypeDescriptor Range
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Range)
(Packing
-> Lens' StructuredCalendarSpec [Range]
-> FieldAccessor StructuredCalendarSpec Range
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 @"year")) ::
Data.ProtoLens.FieldDescriptor StructuredCalendarSpec
dayOfWeek__field_descriptor :: FieldDescriptor StructuredCalendarSpec
dayOfWeek__field_descriptor
= String
-> FieldTypeDescriptor Range
-> FieldAccessor StructuredCalendarSpec Range
-> FieldDescriptor StructuredCalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"day_of_week"
(MessageOrGroup -> FieldTypeDescriptor Range
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Range)
(Packing
-> Lens' StructuredCalendarSpec [Range]
-> FieldAccessor StructuredCalendarSpec Range
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 @"dayOfWeek")) ::
Data.ProtoLens.FieldDescriptor StructuredCalendarSpec
comment__field_descriptor :: FieldDescriptor StructuredCalendarSpec
comment__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor StructuredCalendarSpec Text
-> FieldDescriptor StructuredCalendarSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"comment"
(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 StructuredCalendarSpec StructuredCalendarSpec Text Text
-> FieldAccessor StructuredCalendarSpec 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 @"comment")) ::
Data.ProtoLens.FieldDescriptor StructuredCalendarSpec
in
[(Tag, FieldDescriptor StructuredCalendarSpec)]
-> Map Tag (FieldDescriptor StructuredCalendarSpec)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StructuredCalendarSpec
second__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor StructuredCalendarSpec
minute__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor StructuredCalendarSpec
hour__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor StructuredCalendarSpec
dayOfMonth__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor StructuredCalendarSpec
month__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor StructuredCalendarSpec
year__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor StructuredCalendarSpec
dayOfWeek__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor StructuredCalendarSpec
comment__field_descriptor)]
unknownFields :: Lens' StructuredCalendarSpec FieldSet
unknownFields
= (StructuredCalendarSpec -> FieldSet)
-> (StructuredCalendarSpec -> FieldSet -> StructuredCalendarSpec)
-> Lens' StructuredCalendarSpec FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StructuredCalendarSpec -> FieldSet
_StructuredCalendarSpec'_unknownFields
(\ StructuredCalendarSpec
x__ FieldSet
y__ -> StructuredCalendarSpec
x__ {_StructuredCalendarSpec'_unknownFields = y__})
defMessage :: StructuredCalendarSpec
defMessage
= StructuredCalendarSpec'_constructor
{_StructuredCalendarSpec'second :: Vector Range
_StructuredCalendarSpec'second = Vector Range
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_StructuredCalendarSpec'minute :: Vector Range
_StructuredCalendarSpec'minute = Vector Range
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_StructuredCalendarSpec'hour :: Vector Range
_StructuredCalendarSpec'hour = Vector Range
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_StructuredCalendarSpec'dayOfMonth :: Vector Range
_StructuredCalendarSpec'dayOfMonth = Vector Range
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_StructuredCalendarSpec'month :: Vector Range
_StructuredCalendarSpec'month = Vector Range
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_StructuredCalendarSpec'year :: Vector Range
_StructuredCalendarSpec'year = Vector Range
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_StructuredCalendarSpec'dayOfWeek :: Vector Range
_StructuredCalendarSpec'dayOfWeek = Vector Range
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_StructuredCalendarSpec'comment :: Text
_StructuredCalendarSpec'comment = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_StructuredCalendarSpec'_unknownFields :: FieldSet
_StructuredCalendarSpec'_unknownFields = []}
parseMessage :: Parser StructuredCalendarSpec
parseMessage
= let
loop ::
StructuredCalendarSpec
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Range
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Range
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Range
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Range
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Range
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Range
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Range
-> Data.ProtoLens.Encoding.Bytes.Parser StructuredCalendarSpec
loop :: StructuredCalendarSpec
-> Growing Vector RealWorld Range
-> Growing Vector RealWorld Range
-> Growing Vector RealWorld Range
-> Growing Vector RealWorld Range
-> Growing Vector RealWorld Range
-> Growing Vector RealWorld Range
-> Growing Vector RealWorld Range
-> Parser StructuredCalendarSpec
loop
StructuredCalendarSpec
x
Growing Vector RealWorld Range
mutable'dayOfMonth
Growing Vector RealWorld Range
mutable'dayOfWeek
Growing Vector RealWorld Range
mutable'hour
Growing Vector RealWorld Range
mutable'minute
Growing Vector RealWorld Range
mutable'month
Growing Vector RealWorld Range
mutable'second
Growing Vector RealWorld Range
mutable'year
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'dayOfMonth <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'dayOfMonth)
frozen'dayOfWeek <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'dayOfWeek)
frozen'hour <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'hour)
frozen'minute <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'minute)
frozen'month <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'month)
frozen'second <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'second)
frozen'year <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'year)
(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'dayOfMonth") frozen'dayOfMonth
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'dayOfWeek") frozen'dayOfWeek
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'hour") frozen'hour
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'minute") frozen'minute
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'month") frozen'month
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'second")
frozen'second
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'year") frozen'year
x))))))))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do !y <- Parser Range -> String -> Parser Range
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
"second"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'second y)
loop
x mutable'dayOfMonth mutable'dayOfWeek mutable'hour mutable'minute
mutable'month v mutable'year
Word64
18
-> do !y <- Parser Range -> String -> Parser Range
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
"minute"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'minute y)
loop
x mutable'dayOfMonth mutable'dayOfWeek mutable'hour v
mutable'month mutable'second mutable'year
Word64
26
-> do !y <- Parser Range -> String -> Parser Range
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
"hour"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'hour y)
loop
x mutable'dayOfMonth mutable'dayOfWeek v mutable'minute
mutable'month mutable'second mutable'year
Word64
34
-> do !y <- Parser Range -> String -> Parser Range
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
"day_of_month"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'dayOfMonth y)
loop
x v mutable'dayOfWeek mutable'hour mutable'minute mutable'month
mutable'second mutable'year
Word64
42
-> do !y <- Parser Range -> String -> Parser Range
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
"month"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'month y)
loop
x mutable'dayOfMonth mutable'dayOfWeek mutable'hour mutable'minute
v mutable'second mutable'year
Word64
50
-> do !y <- Parser Range -> String -> Parser Range
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
"year"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'year y)
loop
x mutable'dayOfMonth mutable'dayOfWeek mutable'hour mutable'minute
mutable'month mutable'second v
Word64
58
-> do !y <- Parser Range -> String -> Parser Range
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
"day_of_week"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'dayOfWeek y)
loop
x mutable'dayOfMonth v mutable'hour mutable'minute mutable'month
mutable'second mutable'year
Word64
66
-> 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
"comment"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"comment") y x)
mutable'dayOfMonth mutable'dayOfWeek mutable'hour mutable'minute
mutable'month mutable'second mutable'year
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'dayOfMonth mutable'dayOfWeek mutable'hour mutable'minute
mutable'month mutable'second mutable'year
in
Parser StructuredCalendarSpec
-> String -> Parser StructuredCalendarSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'dayOfMonth <- IO (Growing Vector RealWorld Range)
-> Parser (Growing Vector RealWorld Range)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Range)
IO (Growing Vector (PrimState IO) Range)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
mutable'dayOfWeek <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'hour <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'minute <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'month <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'second <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'year <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop
Data.ProtoLens.defMessage mutable'dayOfMonth mutable'dayOfWeek
mutable'hour mutable'minute mutable'month mutable'second
mutable'year)
String
"StructuredCalendarSpec"
buildMessage :: StructuredCalendarSpec -> Builder
buildMessage
= \ StructuredCalendarSpec
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Range -> Builder) -> Vector Range -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Range
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Range -> ByteString) -> Range -> 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))
Range -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Range
_v))
(FoldLike
(Vector Range)
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
-> StructuredCalendarSpec -> Vector Range
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'second") StructuredCalendarSpec
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Range -> Builder) -> Vector Range -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Range
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (Range -> ByteString) -> Range -> 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))
Range -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Range
_v))
(FoldLike
(Vector Range)
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
-> StructuredCalendarSpec -> Vector Range
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'minute") StructuredCalendarSpec
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Range -> Builder) -> Vector Range -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Range
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (Range -> ByteString) -> Range -> 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))
Range -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Range
_v))
(FoldLike
(Vector Range)
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
-> StructuredCalendarSpec -> Vector Range
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'hour") StructuredCalendarSpec
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Range -> Builder) -> Vector Range -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Range
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (Range -> ByteString) -> Range -> 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))
Range -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Range
_v))
(FoldLike
(Vector Range)
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
-> StructuredCalendarSpec -> Vector Range
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'dayOfMonth") StructuredCalendarSpec
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Range -> Builder) -> Vector Range -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Range
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder)
-> (Range -> ByteString) -> Range -> 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))
Range -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Range
_v))
(FoldLike
(Vector Range)
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
-> StructuredCalendarSpec -> Vector Range
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'month") StructuredCalendarSpec
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Range -> Builder) -> Vector Range -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Range
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
((ByteString -> Builder)
-> (Range -> ByteString) -> Range -> 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))
Range -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Range
_v))
(FoldLike
(Vector Range)
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
-> StructuredCalendarSpec -> Vector Range
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'year") StructuredCalendarSpec
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Range -> Builder) -> Vector Range -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Range
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((ByteString -> Builder)
-> (Range -> ByteString) -> Range -> 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))
Range -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Range
_v))
(FoldLike
(Vector Range)
StructuredCalendarSpec
StructuredCalendarSpec
(Vector Range)
(Vector Range)
-> StructuredCalendarSpec -> Vector Range
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'dayOfWeek") StructuredCalendarSpec
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text StructuredCalendarSpec StructuredCalendarSpec Text Text
-> StructuredCalendarSpec -> 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 @"comment") StructuredCalendarSpec
_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
66)
((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
StructuredCalendarSpec
StructuredCalendarSpec
FieldSet
FieldSet
-> StructuredCalendarSpec -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
StructuredCalendarSpec
StructuredCalendarSpec
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StructuredCalendarSpec FieldSet
Data.ProtoLens.unknownFields StructuredCalendarSpec
_x)))))))))
instance Control.DeepSeq.NFData StructuredCalendarSpec where
rnf :: StructuredCalendarSpec -> ()
rnf
= \ StructuredCalendarSpec
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StructuredCalendarSpec -> FieldSet
_StructuredCalendarSpec'_unknownFields StructuredCalendarSpec
x__)
(Vector Range -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'second StructuredCalendarSpec
x__)
(Vector Range -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'minute StructuredCalendarSpec
x__)
(Vector Range -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'hour StructuredCalendarSpec
x__)
(Vector Range -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'dayOfMonth StructuredCalendarSpec
x__)
(Vector Range -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'month StructuredCalendarSpec
x__)
(Vector Range -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'year StructuredCalendarSpec
x__)
(Vector Range -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StructuredCalendarSpec -> Vector Range
_StructuredCalendarSpec'dayOfWeek StructuredCalendarSpec
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StructuredCalendarSpec -> Text
_StructuredCalendarSpec'comment StructuredCalendarSpec
x__) ()))))))))
data TriggerImmediatelyRequest
= TriggerImmediatelyRequest'_constructor {TriggerImmediatelyRequest -> ScheduleOverlapPolicy
_TriggerImmediatelyRequest'overlapPolicy :: !Proto.Temporal.Api.Enums.V1.Schedule.ScheduleOverlapPolicy,
TriggerImmediatelyRequest -> FieldSet
_TriggerImmediatelyRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
(TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool)
-> (TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool)
-> Eq TriggerImmediatelyRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
== :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
$c/= :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
/= :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
Prelude.Eq, Eq TriggerImmediatelyRequest
Eq TriggerImmediatelyRequest =>
(TriggerImmediatelyRequest
-> TriggerImmediatelyRequest -> Ordering)
-> (TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool)
-> (TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool)
-> (TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool)
-> (TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool)
-> (TriggerImmediatelyRequest
-> TriggerImmediatelyRequest -> TriggerImmediatelyRequest)
-> (TriggerImmediatelyRequest
-> TriggerImmediatelyRequest -> TriggerImmediatelyRequest)
-> Ord TriggerImmediatelyRequest
TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Ordering
TriggerImmediatelyRequest
-> TriggerImmediatelyRequest -> TriggerImmediatelyRequest
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 :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Ordering
compare :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Ordering
$c< :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
< :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
$c<= :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
<= :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
$c> :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
> :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
$c>= :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
>= :: TriggerImmediatelyRequest -> TriggerImmediatelyRequest -> Bool
$cmax :: TriggerImmediatelyRequest
-> TriggerImmediatelyRequest -> TriggerImmediatelyRequest
max :: TriggerImmediatelyRequest
-> TriggerImmediatelyRequest -> TriggerImmediatelyRequest
$cmin :: TriggerImmediatelyRequest
-> TriggerImmediatelyRequest -> TriggerImmediatelyRequest
min :: TriggerImmediatelyRequest
-> TriggerImmediatelyRequest -> TriggerImmediatelyRequest
Prelude.Ord)
instance Prelude.Show TriggerImmediatelyRequest where
showsPrec :: Int -> TriggerImmediatelyRequest -> ShowS
showsPrec Int
_ TriggerImmediatelyRequest
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TriggerImmediatelyRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TriggerImmediatelyRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TriggerImmediatelyRequest "overlapPolicy" Proto.Temporal.Api.Enums.V1.Schedule.ScheduleOverlapPolicy where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "overlapPolicy"
-> (ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> TriggerImmediatelyRequest
-> f TriggerImmediatelyRequest
fieldOf Proxy# "overlapPolicy"
_
= ((ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> TriggerImmediatelyRequest -> f TriggerImmediatelyRequest)
-> ((ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> (ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> TriggerImmediatelyRequest
-> f TriggerImmediatelyRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TriggerImmediatelyRequest -> ScheduleOverlapPolicy)
-> (TriggerImmediatelyRequest
-> ScheduleOverlapPolicy -> TriggerImmediatelyRequest)
-> Lens
TriggerImmediatelyRequest
TriggerImmediatelyRequest
ScheduleOverlapPolicy
ScheduleOverlapPolicy
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TriggerImmediatelyRequest -> ScheduleOverlapPolicy
_TriggerImmediatelyRequest'overlapPolicy
(\ TriggerImmediatelyRequest
x__ ScheduleOverlapPolicy
y__
-> TriggerImmediatelyRequest
x__ {_TriggerImmediatelyRequest'overlapPolicy = y__}))
(ScheduleOverlapPolicy -> f ScheduleOverlapPolicy)
-> ScheduleOverlapPolicy -> f ScheduleOverlapPolicy
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TriggerImmediatelyRequest where
messageName :: Proxy TriggerImmediatelyRequest -> Text
messageName Proxy TriggerImmediatelyRequest
_
= String -> Text
Data.Text.pack
String
"temporal.api.schedule.v1.TriggerImmediatelyRequest"
packedMessageDescriptor :: Proxy TriggerImmediatelyRequest -> ByteString
packedMessageDescriptor Proxy TriggerImmediatelyRequest
_
= ByteString
"\n\
\\EMTriggerImmediatelyRequest\DC2S\n\
\\SOoverlap_policy\CAN\SOH \SOH(\SO2,.temporal.api.enums.v1.ScheduleOverlapPolicyR\roverlapPolicy"
packedFileDescriptor :: Proxy TriggerImmediatelyRequest -> ByteString
packedFileDescriptor Proxy TriggerImmediatelyRequest
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TriggerImmediatelyRequest)
fieldsByTag
= let
overlapPolicy__field_descriptor :: FieldDescriptor TriggerImmediatelyRequest
overlapPolicy__field_descriptor
= String
-> FieldTypeDescriptor ScheduleOverlapPolicy
-> FieldAccessor TriggerImmediatelyRequest ScheduleOverlapPolicy
-> FieldDescriptor TriggerImmediatelyRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"overlap_policy"
(ScalarField ScheduleOverlapPolicy
-> FieldTypeDescriptor ScheduleOverlapPolicy
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ScheduleOverlapPolicy
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Schedule.ScheduleOverlapPolicy)
(WireDefault ScheduleOverlapPolicy
-> Lens
TriggerImmediatelyRequest
TriggerImmediatelyRequest
ScheduleOverlapPolicy
ScheduleOverlapPolicy
-> FieldAccessor TriggerImmediatelyRequest ScheduleOverlapPolicy
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ScheduleOverlapPolicy
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 @"overlapPolicy")) ::
Data.ProtoLens.FieldDescriptor TriggerImmediatelyRequest
in
[(Tag, FieldDescriptor TriggerImmediatelyRequest)]
-> Map Tag (FieldDescriptor TriggerImmediatelyRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TriggerImmediatelyRequest
overlapPolicy__field_descriptor)]
unknownFields :: Lens' TriggerImmediatelyRequest FieldSet
unknownFields
= (TriggerImmediatelyRequest -> FieldSet)
-> (TriggerImmediatelyRequest
-> FieldSet -> TriggerImmediatelyRequest)
-> Lens' TriggerImmediatelyRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TriggerImmediatelyRequest -> FieldSet
_TriggerImmediatelyRequest'_unknownFields
(\ TriggerImmediatelyRequest
x__ FieldSet
y__
-> TriggerImmediatelyRequest
x__ {_TriggerImmediatelyRequest'_unknownFields = y__})
defMessage :: TriggerImmediatelyRequest
defMessage
= TriggerImmediatelyRequest'_constructor
{_TriggerImmediatelyRequest'overlapPolicy :: ScheduleOverlapPolicy
_TriggerImmediatelyRequest'overlapPolicy = ScheduleOverlapPolicy
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TriggerImmediatelyRequest'_unknownFields :: FieldSet
_TriggerImmediatelyRequest'_unknownFields = []}
parseMessage :: Parser TriggerImmediatelyRequest
parseMessage
= let
loop ::
TriggerImmediatelyRequest
-> Data.ProtoLens.Encoding.Bytes.Parser TriggerImmediatelyRequest
loop :: TriggerImmediatelyRequest -> Parser TriggerImmediatelyRequest
loop TriggerImmediatelyRequest
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 ScheduleOverlapPolicy
-> String -> Parser ScheduleOverlapPolicy
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> ScheduleOverlapPolicy)
-> Parser Int -> Parser ScheduleOverlapPolicy
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> ScheduleOverlapPolicy
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
"overlap_policy"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"overlapPolicy") 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 TriggerImmediatelyRequest
-> String -> Parser TriggerImmediatelyRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TriggerImmediatelyRequest -> Parser TriggerImmediatelyRequest
loop TriggerImmediatelyRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TriggerImmediatelyRequest"
buildMessage :: TriggerImmediatelyRequest -> Builder
buildMessage
= \ TriggerImmediatelyRequest
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ScheduleOverlapPolicy
_v
= FoldLike
ScheduleOverlapPolicy
TriggerImmediatelyRequest
TriggerImmediatelyRequest
ScheduleOverlapPolicy
ScheduleOverlapPolicy
-> TriggerImmediatelyRequest -> ScheduleOverlapPolicy
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 @"overlapPolicy") TriggerImmediatelyRequest
_x
in
if ScheduleOverlapPolicy -> ScheduleOverlapPolicy -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ScheduleOverlapPolicy
_v ScheduleOverlapPolicy
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)
((Int -> Builder)
-> (ScheduleOverlapPolicy -> Int)
-> ScheduleOverlapPolicy
-> 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)
ScheduleOverlapPolicy -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum ScheduleOverlapPolicy
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
TriggerImmediatelyRequest
TriggerImmediatelyRequest
FieldSet
FieldSet
-> TriggerImmediatelyRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TriggerImmediatelyRequest
TriggerImmediatelyRequest
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TriggerImmediatelyRequest FieldSet
Data.ProtoLens.unknownFields TriggerImmediatelyRequest
_x))
instance Control.DeepSeq.NFData TriggerImmediatelyRequest where
rnf :: TriggerImmediatelyRequest -> ()
rnf
= \ TriggerImmediatelyRequest
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TriggerImmediatelyRequest -> FieldSet
_TriggerImmediatelyRequest'_unknownFields TriggerImmediatelyRequest
x__)
(ScheduleOverlapPolicy -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TriggerImmediatelyRequest -> ScheduleOverlapPolicy
_TriggerImmediatelyRequest'overlapPolicy TriggerImmediatelyRequest
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= ByteString
"\n\
\&temporal/api/schedule/v1/message.proto\DC2\CANtemporal.api.schedule.v1\SUB\RSgoogle/protobuf/duration.proto\SUB\USgoogle/protobuf/timestamp.proto\SUB$temporal/api/common/v1/message.proto\SUB$temporal/api/enums/v1/schedule.proto\SUB&temporal/api/workflow/v1/message.proto\"\216\SOH\n\
\\fCalendarSpec\DC2\SYN\n\
\\ACKsecond\CAN\SOH \SOH(\tR\ACKsecond\DC2\SYN\n\
\\ACKminute\CAN\STX \SOH(\tR\ACKminute\DC2\DC2\n\
\\EOThour\CAN\ETX \SOH(\tR\EOThour\DC2 \n\
\\fday_of_month\CAN\EOT \SOH(\tR\n\
\dayOfMonth\DC2\DC4\n\
\\ENQmonth\CAN\ENQ \SOH(\tR\ENQmonth\DC2\DC2\n\
\\EOTyear\CAN\ACK \SOH(\tR\EOTyear\DC2\RS\n\
\\vday_of_week\CAN\a \SOH(\tR\tdayOfWeek\DC2\CAN\n\
\\acomment\CAN\b \SOH(\tR\acomment\"C\n\
\\ENQRange\DC2\DC4\n\
\\ENQstart\CAN\SOH \SOH(\ENQR\ENQstart\DC2\DLE\n\
\\ETXend\CAN\STX \SOH(\ENQR\ETXend\DC2\DC2\n\
\\EOTstep\CAN\ETX \SOH(\ENQR\EOTstep\"\201\ETX\n\
\\SYNStructuredCalendarSpec\DC27\n\
\\ACKsecond\CAN\SOH \ETX(\v2\US.temporal.api.schedule.v1.RangeR\ACKsecond\DC27\n\
\\ACKminute\CAN\STX \ETX(\v2\US.temporal.api.schedule.v1.RangeR\ACKminute\DC23\n\
\\EOThour\CAN\ETX \ETX(\v2\US.temporal.api.schedule.v1.RangeR\EOThour\DC2A\n\
\\fday_of_month\CAN\EOT \ETX(\v2\US.temporal.api.schedule.v1.RangeR\n\
\dayOfMonth\DC25\n\
\\ENQmonth\CAN\ENQ \ETX(\v2\US.temporal.api.schedule.v1.RangeR\ENQmonth\DC23\n\
\\EOTyear\CAN\ACK \ETX(\v2\US.temporal.api.schedule.v1.RangeR\EOTyear\DC2?\n\
\\vday_of_week\CAN\a \ETX(\v2\US.temporal.api.schedule.v1.RangeR\tdayOfWeek\DC2\CAN\n\
\\acomment\CAN\b \SOH(\tR\acomment\"v\n\
\\fIntervalSpec\DC25\n\
\\binterval\CAN\SOH \SOH(\v2\EM.google.protobuf.DurationR\binterval\DC2/\n\
\\ENQphase\CAN\STX \SOH(\v2\EM.google.protobuf.DurationR\ENQphase\"\210\ENQ\n\
\\fScheduleSpec\DC2a\n\
\\DC3structured_calendar\CAN\a \ETX(\v20.temporal.api.schedule.v1.StructuredCalendarSpecR\DC2structuredCalendar\DC2\US\n\
\\vcron_string\CAN\b \ETX(\tR\n\
\cronString\DC2B\n\
\\bcalendar\CAN\SOH \ETX(\v2&.temporal.api.schedule.v1.CalendarSpecR\bcalendar\DC2B\n\
\\binterval\CAN\STX \ETX(\v2&.temporal.api.schedule.v1.IntervalSpecR\binterval\DC2U\n\
\\DLEexclude_calendar\CAN\ETX \ETX(\v2&.temporal.api.schedule.v1.CalendarSpecR\SIexcludeCalendarB\STX\CAN\SOH\DC2p\n\
\\ESCexclude_structured_calendar\CAN\t \ETX(\v20.temporal.api.schedule.v1.StructuredCalendarSpecR\EMexcludeStructuredCalendar\DC29\n\
\\n\
\start_time\CAN\EOT \SOH(\v2\SUB.google.protobuf.TimestampR\tstartTime\DC25\n\
\\bend_time\CAN\ENQ \SOH(\v2\SUB.google.protobuf.TimestampR\aendTime\DC21\n\
\\ACKjitter\CAN\ACK \SOH(\v2\EM.google.protobuf.DurationR\ACKjitter\DC2#\n\
\\rtimezone_name\CAN\n\
\ \SOH(\tR\ftimezoneName\DC2#\n\
\\rtimezone_data\CAN\v \SOH(\fR\ftimezoneData\"\142\STX\n\
\\DLESchedulePolicies\DC2S\n\
\\SOoverlap_policy\CAN\SOH \SOH(\SO2,.temporal.api.enums.v1.ScheduleOverlapPolicyR\roverlapPolicy\DC2@\n\
\\SOcatchup_window\CAN\STX \SOH(\v2\EM.google.protobuf.DurationR\rcatchupWindow\DC2(\n\
\\DLEpause_on_failure\CAN\ETX \SOH(\bR\SOpauseOnFailure\DC29\n\
\\EMkeep_original_workflow_id\CAN\EOT \SOH(\bR\SYNkeepOriginalWorkflowId\"w\n\
\\SOScheduleAction\DC2[\n\
\\SOstart_workflow\CAN\SOH \SOH(\v22.temporal.api.workflow.v1.NewWorkflowExecutionInfoH\NULR\rstartWorkflowB\b\n\
\\ACKaction\"\243\SOH\n\
\\DC4ScheduleActionResult\DC2?\n\
\\rschedule_time\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\fscheduleTime\DC2;\n\
\\vactual_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\n\
\actualTime\DC2]\n\
\\NAKstart_workflow_result\CAN\v \SOH(\v2).temporal.api.common.v1.WorkflowExecutionR\DC3startWorkflowResult\"\147\SOH\n\
\\rScheduleState\DC2\DC4\n\
\\ENQnotes\CAN\SOH \SOH(\tR\ENQnotes\DC2\SYN\n\
\\ACKpaused\CAN\STX \SOH(\bR\ACKpaused\DC2'\n\
\\SIlimited_actions\CAN\ETX \SOH(\bR\SOlimitedActions\DC2+\n\
\\DC1remaining_actions\CAN\EOT \SOH(\ETXR\DLEremainingActions\"p\n\
\\EMTriggerImmediatelyRequest\DC2S\n\
\\SOoverlap_policy\CAN\SOH \SOH(\SO2,.temporal.api.enums.v1.ScheduleOverlapPolicyR\roverlapPolicy\"\216\SOH\n\
\\SIBackfillRequest\DC29\n\
\\n\
\start_time\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\tstartTime\DC25\n\
\\bend_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\aendTime\DC2S\n\
\\SOoverlap_policy\CAN\ETX \SOH(\SO2,.temporal.api.enums.v1.ScheduleOverlapPolicyR\roverlapPolicy\"\251\SOH\n\
\\rSchedulePatch\DC2d\n\
\\DC3trigger_immediately\CAN\SOH \SOH(\v23.temporal.api.schedule.v1.TriggerImmediatelyRequestR\DC2triggerImmediately\DC2T\n\
\\DLEbackfill_request\CAN\STX \ETX(\v2).temporal.api.schedule.v1.BackfillRequestR\SIbackfillRequest\DC2\DC4\n\
\\ENQpause\CAN\ETX \SOH(\tR\ENQpause\DC2\CAN\n\
\\aunpause\CAN\EOT \SOH(\tR\aunpause\"\133\ENQ\n\
\\fScheduleInfo\DC2!\n\
\\faction_count\CAN\SOH \SOH(\ETXR\vactionCount\DC22\n\
\\NAKmissed_catchup_window\CAN\STX \SOH(\ETXR\DC3missedCatchupWindow\DC2'\n\
\\SIoverlap_skipped\CAN\ETX \SOH(\ETXR\SOoverlapSkipped\DC2%\n\
\\SObuffer_dropped\CAN\n\
\ \SOH(\ETXR\rbufferDropped\DC2\US\n\
\\vbuffer_size\CAN\v \SOH(\ETXR\n\
\bufferSize\DC2V\n\
\\DC1running_workflows\CAN\t \ETX(\v2).temporal.api.common.v1.WorkflowExecutionR\DLErunningWorkflows\DC2U\n\
\\SOrecent_actions\CAN\EOT \ETX(\v2..temporal.api.schedule.v1.ScheduleActionResultR\rrecentActions\DC2J\n\
\\DC3future_action_times\CAN\ENQ \ETX(\v2\SUB.google.protobuf.TimestampR\DC1futureActionTimes\DC2;\n\
\\vcreate_time\CAN\ACK \SOH(\v2\SUB.google.protobuf.TimestampR\n\
\createTime\DC2;\n\
\\vupdate_time\CAN\a \SOH(\v2\SUB.google.protobuf.TimestampR\n\
\updateTime\DC28\n\
\\SYNinvalid_schedule_error\CAN\b \SOH(\tR\DC4invalidScheduleErrorB\STX\CAN\SOH\"\143\STX\n\
\\bSchedule\DC2:\n\
\\EOTspec\CAN\SOH \SOH(\v2&.temporal.api.schedule.v1.ScheduleSpecR\EOTspec\DC2@\n\
\\ACKaction\CAN\STX \SOH(\v2(.temporal.api.schedule.v1.ScheduleActionR\ACKaction\DC2F\n\
\\bpolicies\CAN\ETX \SOH(\v2*.temporal.api.schedule.v1.SchedulePoliciesR\bpolicies\DC2=\n\
\\ENQstate\CAN\EOT \SOH(\v2'.temporal.api.schedule.v1.ScheduleStateR\ENQstate\"\234\STX\n\
\\DLEScheduleListInfo\DC2:\n\
\\EOTspec\CAN\SOH \SOH(\v2&.temporal.api.schedule.v1.ScheduleSpecR\EOTspec\DC2I\n\
\\rworkflow_type\CAN\STX \SOH(\v2$.temporal.api.common.v1.WorkflowTypeR\fworkflowType\DC2\DC4\n\
\\ENQnotes\CAN\ETX \SOH(\tR\ENQnotes\DC2\SYN\n\
\\ACKpaused\CAN\EOT \SOH(\bR\ACKpaused\DC2U\n\
\\SOrecent_actions\CAN\ENQ \ETX(\v2..temporal.api.schedule.v1.ScheduleActionResultR\rrecentActions\DC2J\n\
\\DC3future_action_times\CAN\ACK \ETX(\v2\SUB.google.protobuf.TimestampR\DC1futureActionTimes\"\253\SOH\n\
\\DC1ScheduleListEntry\DC2\US\n\
\\vschedule_id\CAN\SOH \SOH(\tR\n\
\scheduleId\DC20\n\
\\EOTmemo\CAN\STX \SOH(\v2\FS.temporal.api.common.v1.MemoR\EOTmemo\DC2U\n\
\\DC1search_attributes\CAN\ETX \SOH(\v2(.temporal.api.common.v1.SearchAttributesR\DLEsearchAttributes\DC2>\n\
\\EOTinfo\CAN\EOT \SOH(\v2*.temporal.api.schedule.v1.ScheduleListInfoR\EOTinfoB\147\SOH\n\
\\ESCio.temporal.api.schedule.v1B\fMessageProtoP\SOHZ'go.temporal.io/api/schedule/v1;schedule\170\STX\SUBTemporalio.Api.Schedule.V1\234\STX\GSTemporalio::Api::Schedule::V1J\200\143\SOH\n\
\\a\DC2\ENQ\ESC\NUL\142\ETX\SOH\n\
\\134\v\n\
\\SOH\f\DC2\ETX\ESC\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\
\2\146\STX (-- api-linter: core::0203::optional=disabled\n\
\ aip.dev/not-precedent: field_behavior annotation not available in our gogo fork --)\n\
\ (-- api-linter: core::0203::input-only=disabled\n\
\ aip.dev/not-precedent: field_behavior annotation not available in our gogo fork --)\n\
\\n\
\\b\n\
\\SOH\STX\DC2\ETX\GS\NUL!\n\
\\b\n\
\\SOH\b\DC2\ETX\US\NUL>\n\
\\t\n\
\\STX\b\v\DC2\ETX\US\NUL>\n\
\\b\n\
\\SOH\b\DC2\ETX \NUL4\n\
\\t\n\
\\STX\b\SOH\DC2\ETX \NUL4\n\
\\b\n\
\\SOH\b\DC2\ETX!\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX!\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\"\NUL-\n\
\\t\n\
\\STX\b\b\DC2\ETX\"\NUL-\n\
\\b\n\
\\SOH\b\DC2\ETX#\NUL6\n\
\\t\n\
\\STX\b-\DC2\ETX#\NUL6\n\
\\b\n\
\\SOH\b\DC2\ETX$\NUL7\n\
\\t\n\
\\STX\b%\DC2\ETX$\NUL7\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*\NUL.\n\
\\t\n\
\\STX\ETX\EOT\DC2\ETX+\NUL0\n\
\\231\a\n\
\\STX\EOT\NUL\DC2\EOT?\NULR\SOH\SUB\218\a CalendarSpec describes an event specification relative to the calendar,\n\
\ similar to a traditional cron specification, but with labeled fields. Each\n\
\ field can be one of:\n\
\ *: matches always\n\
\ x: matches when the field equals x\n\
\ x/y : matches when the field equals x+n*y where n is an integer\n\
\ x-z: matches when the field is between x and z inclusive\n\
\ w,x,y,...: matches when the field is one of the listed values\n\
\ Each x, y, z, ... is either a decimal integer, or a month or day of week name\n\
\ or abbreviation (in the appropriate fields).\n\
\ A timestamp matches if all fields match.\n\
\ Note that fields have different default values, for convenience.\n\
\ Note that the special case that some cron implementations have for treating\n\
\ day_of_month and day_of_week as \"or\" instead of \"and\" when both are set is\n\
\ not implemented.\n\
\ day_of_week can accept 0 or 7 as Sunday\n\
\ CalendarSpec gets compiled into StructuredCalendarSpec, which is what will be\n\
\ returned if you describe the schedule.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX?\b\DC4\n\
\6\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETXA\EOT\SYN\SUB) Expression to match seconds. Default: 0\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETXA\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETXA\v\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETXA\DC4\NAK\n\
\6\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETXC\EOT\SYN\SUB) Expression to match minutes. Default: 0\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETXC\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETXC\v\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETXC\DC4\NAK\n\
\4\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETXE\EOT\DC4\SUB' Expression to match hours. Default: 0\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETXE\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETXE\v\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETXE\DC2\DC3\n\
\\171\SOH\n\
\\EOT\EOT\NUL\STX\ETX\DC2\ETXI\EOT\FS\SUB\157\SOH Expression to match days of the month. Default: *\n\
\ (-- api-linter: core::0140::prepositions=disabled\n\
\ aip.dev/not-precedent: standard name of field --)\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETXI\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETXI\v\ETB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETXI\SUB\ESC\n\
\5\n\
\\EOT\EOT\NUL\STX\EOT\DC2\ETXK\EOT\NAK\SUB( Expression to match months. Default: *\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ENQ\DC2\ETXK\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETXK\v\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETXK\DC3\DC4\n\
\4\n\
\\EOT\EOT\NUL\STX\ENQ\DC2\ETXM\EOT\DC4\SUB' Expression to match years. Default: *\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ENQ\DC2\ETXM\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETXM\v\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETXM\DC2\DC3\n\
\?\n\
\\EOT\EOT\NUL\STX\ACK\DC2\ETXO\EOT\ESC\SUB2 Expression to match days of the week. Default: *\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ENQ\DC2\ETXO\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\SOH\DC2\ETXO\v\SYN\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ETX\DC2\ETXO\EM\SUB\n\
\G\n\
\\EOT\EOT\NUL\STX\a\DC2\ETXQ\EOT\ETB\SUB: Free-form comment describing the intention of this spec.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\ENQ\DC2\ETXQ\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\SOH\DC2\ETXQ\v\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\ETX\DC2\ETXQ\NAK\SYN\n\
\\185\STX\n\
\\STX\EOT\SOH\DC2\EOTX\NUL_\SOH\SUB\172\STX Range represents a set of integer values, used to match fields of a calendar\n\
\ time in StructuredCalendarSpec. If end < start, then end is interpreted as\n\
\ equal to start. This means you can use a Range with start set to a value, and\n\
\ end and step unset (defaulting to 0) to represent a single value.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETXX\b\r\n\
\*\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETXZ\EOT\DC4\SUB\GS Start of range (inclusive).\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETXZ\EOT\t\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETXZ\n\
\\SI\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETXZ\DC2\DC3\n\
\(\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX\\\EOT\DC2\SUB\ESC End of range (inclusive).\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\\\EOT\t\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\\\n\
\\r\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\\\DLE\DC1\n\
\*\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETX^\EOT\DC3\SUB\GS Step (optional, default 1).\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETX^\EOT\t\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX^\n\
\\SO\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX^\DC1\DC2\n\
\\136\EOT\n\
\\STX\EOT\STX\DC2\EOTj\NUL}\SOH\SUB\251\ETX StructuredCalendarSpec describes an event specification relative to the\n\
\ calendar, in a form that's easy to work with programmatically. Each field can\n\
\ be one or more ranges.\n\
\ A timestamp matches if at least one range of each field matches the\n\
\ corresponding fields of the timestamp, except for year: if year is missing,\n\
\ that means all years match. For all fields besides year, at least one Range\n\
\ must be present to match anything.\n\
\ TODO: add relative-to-end-of-month\n\
\ TODO: add nth day-of-week in month\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETXj\b\RS\n\
\#\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETXl\EOT\RS\SUB\SYN Match seconds (0-59)\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\EOT\DC2\ETXl\EOT\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETXl\r\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXl\DC3\EM\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXl\FS\GS\n\
\#\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETXn\EOT\RS\SUB\SYN Match minutes (0-59)\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\EOT\DC2\ETXn\EOT\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETXn\r\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETXn\DC3\EM\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETXn\FS\GS\n\
\!\n\
\\EOT\EOT\STX\STX\STX\DC2\ETXp\EOT\FS\SUB\DC4 Match hours (0-23)\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\EOT\DC2\ETXp\EOT\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ACK\DC2\ETXp\r\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\SOH\DC2\ETXp\DC3\ETB\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ETX\DC2\ETXp\SUB\ESC\n\
\\152\SOH\n\
\\EOT\EOT\STX\STX\ETX\DC2\ETXt\EOT$\SUB\138\SOH Match days of the month (1-31)\n\
\ (-- api-linter: core::0140::prepositions=disabled\n\
\ aip.dev/not-precedent: standard name of field --)\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\EOT\DC2\ETXt\EOT\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\ACK\DC2\ETXt\r\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\SOH\DC2\ETXt\DC3\US\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\ETX\DC2\ETXt\"#\n\
\\"\n\
\\EOT\EOT\STX\STX\EOT\DC2\ETXv\EOT\GS\SUB\NAK Match months (1-12)\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\EOT\DC2\ETXv\EOT\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\ACK\DC2\ETXv\r\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\SOH\DC2\ETXv\DC3\CAN\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\ETX\DC2\ETXv\ESC\FS\n\
\\ESC\n\
\\EOT\EOT\STX\STX\ENQ\DC2\ETXx\EOT\FS\SUB\SO Match years.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\ENQ\EOT\DC2\ETXx\EOT\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\ENQ\ACK\DC2\ETXx\r\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\ENQ\SOH\DC2\ETXx\DC3\ETB\n\
\\f\n\
\\ENQ\EOT\STX\STX\ENQ\ETX\DC2\ETXx\SUB\ESC\n\
\9\n\
\\EOT\EOT\STX\STX\ACK\DC2\ETXz\EOT#\SUB, Match days of the week (0-6; 0 is Sunday).\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\ACK\EOT\DC2\ETXz\EOT\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\ACK\ACK\DC2\ETXz\r\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\ACK\SOH\DC2\ETXz\DC3\RS\n\
\\f\n\
\\ENQ\EOT\STX\STX\ACK\ETX\DC2\ETXz!\"\n\
\G\n\
\\EOT\EOT\STX\STX\a\DC2\ETX|\EOT\ETB\SUB: Free-form comment describing the intention of this spec.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\a\ENQ\DC2\ETX|\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\a\SOH\DC2\ETX|\v\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\a\ETX\DC2\ETX|\NAK\SYN\n\
\\150\ENQ\n\
\\STX\EOT\ETX\DC2\ACK\138\SOH\NUL\141\SOH\SOH\SUB\135\ENQ IntervalSpec matches times that can be expressed as:\n\
\ epoch + n * interval + phase\n\
\ where n is an integer.\n\
\ phase defaults to zero if missing. interval is required.\n\
\ Both interval and phase must be non-negative and are truncated to the nearest\n\
\ second before any calculations.\n\
\ For example, an interval of 1 hour with phase of zero would match every hour,\n\
\ on the hour. The same interval but a phase of 19 minutes would match every\n\
\ xx:19:00. An interval of 28 days with phase zero would match\n\
\ 2022-02-17T00:00:00Z (among other times). The same interval with a phase of 3\n\
\ days, 5 hours, and 23 minutes would match 2022-02-20T05:23:00Z instead.\n\
\\n\
\\v\n\
\\ETX\EOT\ETX\SOH\DC2\EOT\138\SOH\b\DC4\n\
\\f\n\
\\EOT\EOT\ETX\STX\NUL\DC2\EOT\139\SOH\EOT*\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\EOT\139\SOH\EOT\FS\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\EOT\139\SOH\GS%\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\EOT\139\SOH()\n\
\\f\n\
\\EOT\EOT\ETX\STX\SOH\DC2\EOT\140\SOH\EOT'\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\ACK\DC2\EOT\140\SOH\EOT\FS\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\EOT\140\SOH\GS\"\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\EOT\140\SOH%&\n\
\\179\b\n\
\\STX\EOT\EOT\DC2\ACK\161\SOH\NUL\225\SOH\SOH\SUB\164\b ScheduleSpec is a complete description of a set of absolute timestamps\n\
\ (possibly infinite) that an action should occur at. The meaning of a\n\
\ ScheduleSpec depends only on its contents and never changes, except that the\n\
\ definition of a time zone can change over time (most commonly, when daylight\n\
\ saving time policy changes for an area). To create a totally self-contained\n\
\ ScheduleSpec, use UTC or include timezone_data.\n\
\\n\
\ For input, you can provide zero or more of: structured_calendar, calendar,\n\
\ cron_string, interval, and exclude_structured_calendar, and all of them will\n\
\ be used (the schedule will take action at the union of all of their times,\n\
\ minus the ones that match exclude_structured_calendar).\n\
\\n\
\ On input, calendar and cron_string fields will be compiled into\n\
\ structured_calendar (and maybe interval and timezone_name), so if you\n\
\ Describe a schedule, you'll see only structured_calendar, interval, etc.\n\
\\n\
\ If a spec has no matching times after the current time, then the schedule\n\
\ will be subject to automatic deletion (after several days).\n\
\\n\
\\v\n\
\\ETX\EOT\EOT\SOH\DC2\EOT\161\SOH\b\DC4\n\
\7\n\
\\EOT\EOT\EOT\STX\NUL\DC2\EOT\163\SOH\EOT<\SUB) Calendar-based specifications of times.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\EOT\DC2\EOT\163\SOH\EOT\f\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\ACK\DC2\EOT\163\SOH\r#\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\EOT\163\SOH$7\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\EOT\163\SOH:;\n\
\\168\t\n\
\\EOT\EOT\EOT\STX\SOH\DC2\EOT\184\SOH\EOT$\SUB\153\t cron_string holds a traditional cron specification as a string. It\n\
\ accepts 5, 6, or 7 fields, separated by spaces, and interprets them the\n\
\ same way as CalendarSpec.\n\
\ 5 fields: minute, hour, day_of_month, month, day_of_week\n\
\ 6 fields: minute, hour, day_of_month, month, day_of_week, year\n\
\ 7 fields: second, minute, hour, day_of_month, month, day_of_week, year\n\
\ If year is not given, it defaults to *. If second is not given, it\n\
\ defaults to 0.\n\
\ Shorthands @yearly, @monthly, @weekly, @daily, and @hourly are also\n\
\ accepted instead of the 5-7 time fields.\n\
\ Optionally, the string can be preceded by CRON_TZ=<timezone name> or\n\
\ TZ=<timezone name>, which will get copied to timezone_name. (There must\n\
\ not also be a timezone_name present.)\n\
\ Optionally \"#\" followed by a comment can appear at the end of the string.\n\
\ Note that the special case that some cron implementations have for\n\
\ treating day_of_month and day_of_week as \"or\" instead of \"and\" when both\n\
\ are set is not implemented.\n\
\ @every <interval>[/<phase>] is accepted and gets compiled into an\n\
\ IntervalSpec instead. <interval> and <phase> should be a decimal integer\n\
\ with a unit suffix s, m, h, or d.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\EOT\DC2\EOT\184\SOH\EOT\f\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\EOT\184\SOH\r\DC3\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\SOH\DC2\EOT\184\SOH\DC4\US\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\ETX\DC2\EOT\184\SOH\"#\n\
\7\n\
\\EOT\EOT\EOT\STX\STX\DC2\EOT\186\SOH\EOT'\SUB) Calendar-based specifications of times.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\STX\EOT\DC2\EOT\186\SOH\EOT\f\n\
\\r\n\
\\ENQ\EOT\EOT\STX\STX\ACK\DC2\EOT\186\SOH\r\EM\n\
\\r\n\
\\ENQ\EOT\EOT\STX\STX\SOH\DC2\EOT\186\SOH\SUB\"\n\
\\r\n\
\\ENQ\EOT\EOT\STX\STX\ETX\DC2\EOT\186\SOH%&\n\
\7\n\
\\EOT\EOT\EOT\STX\ETX\DC2\EOT\188\SOH\EOT'\SUB) Interval-based specifications of times.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ETX\EOT\DC2\EOT\188\SOH\EOT\f\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ETX\ACK\DC2\EOT\188\SOH\r\EM\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ETX\SOH\DC2\EOT\188\SOH\SUB\"\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ETX\ETX\DC2\EOT\188\SOH%&\n\
\l\n\
\\EOT\EOT\EOT\STX\EOT\DC2\EOT\190\SOH\EOTC\SUB; Any timestamps matching any of exclude_* will be skipped.\n\
\\"! use exclude_structured_calendar\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\EOT\EOT\DC2\EOT\190\SOH\EOT\f\n\
\\r\n\
\\ENQ\EOT\EOT\STX\EOT\ACK\DC2\EOT\190\SOH\r\EM\n\
\\r\n\
\\ENQ\EOT\EOT\STX\EOT\SOH\DC2\EOT\190\SOH\SUB*\n\
\\r\n\
\\ENQ\EOT\EOT\STX\EOT\ETX\DC2\EOT\190\SOH-.\n\
\\r\n\
\\ENQ\EOT\EOT\STX\EOT\b\DC2\EOT\190\SOH/B\n\
\\SO\n\
\\ACK\EOT\EOT\STX\EOT\b\ETX\DC2\EOT\190\SOH0A\n\
\\f\n\
\\EOT\EOT\EOT\STX\ENQ\DC2\EOT\191\SOH\EOTD\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ENQ\EOT\DC2\EOT\191\SOH\EOT\f\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ENQ\ACK\DC2\EOT\191\SOH\r#\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ENQ\SOH\DC2\EOT\191\SOH$?\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ENQ\ETX\DC2\EOT\191\SOHBC\n\
\\153\SOH\n\
\\EOT\EOT\EOT\STX\ACK\DC2\EOT\194\SOH\EOT-\SUB\138\SOH If start_time is set, any timestamps before start_time will be skipped.\n\
\ (Together, start_time and end_time make an inclusive interval.)\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ACK\ACK\DC2\EOT\194\SOH\EOT\GS\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ACK\SOH\DC2\EOT\194\SOH\RS(\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ACK\ETX\DC2\EOT\194\SOH+,\n\
\R\n\
\\EOT\EOT\EOT\STX\a\DC2\EOT\196\SOH\EOT+\SUBD If end_time is set, any timestamps after end_time will be skipped.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\a\ACK\DC2\EOT\196\SOH\EOT\GS\n\
\\r\n\
\\ENQ\EOT\EOT\STX\a\SOH\DC2\EOT\196\SOH\RS&\n\
\\r\n\
\\ENQ\EOT\EOT\STX\a\ETX\DC2\EOT\196\SOH)*\n\
\q\n\
\\EOT\EOT\EOT\STX\b\DC2\EOT\199\SOH\EOT(\SUBc All timestamps will be incremented by a random value from 0 to this\n\
\ amount of jitter. Default: 0\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\b\ACK\DC2\EOT\199\SOH\EOT\FS\n\
\\r\n\
\\ENQ\EOT\EOT\STX\b\SOH\DC2\EOT\199\SOH\GS#\n\
\\r\n\
\\ENQ\EOT\EOT\STX\b\ETX\DC2\EOT\199\SOH&'\n\
\\187\t\n\
\\EOT\EOT\EOT\STX\t\DC2\EOT\223\SOH\EOT\RS\SUB\172\t Time zone to interpret all calendar-based specs in.\n\
\\n\
\ If unset, defaults to UTC. We recommend using UTC for your application if\n\
\ at all possible, to avoid various surprising properties of time zones.\n\
\\n\
\ Time zones may be provided by name, corresponding to names in the IANA\n\
\ time zone database (see https://www.iana.org/time-zones). The definition\n\
\ will be loaded by the Temporal server from the environment it runs in.\n\
\\n\
\ If your application requires more control over the time zone definition\n\
\ used, it may pass in a complete definition in the form of a TZif file\n\
\ from the time zone database. If present, this will be used instead of\n\
\ loading anything from the environment. You are then responsible for\n\
\ updating timezone_data when the definition changes.\n\
\\n\
\ Calendar spec matching is based on literal matching of the clock time\n\
\ with no special handling of DST: if you write a calendar spec that fires\n\
\ at 2:30am and specify a time zone that follows DST, that action will not\n\
\ be triggered on the day that has no 2:30am. Similarly, an action that\n\
\ fires at 1:30am will be triggered twice on the day that has two 1:30s.\n\
\\n\
\ Also note that no actions are taken on leap-seconds (e.g. 23:59:60 UTC).\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\t\ENQ\DC2\EOT\223\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\t\SOH\DC2\EOT\223\SOH\v\CAN\n\
\\r\n\
\\ENQ\EOT\EOT\STX\t\ETX\DC2\EOT\223\SOH\ESC\GS\n\
\\f\n\
\\EOT\EOT\EOT\STX\n\
\\DC2\EOT\224\SOH\EOT\GS\n\
\\r\n\
\\ENQ\EOT\EOT\STX\n\
\\ENQ\DC2\EOT\224\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\EOT\STX\n\
\\SOH\DC2\EOT\224\SOH\n\
\\ETB\n\
\\r\n\
\\ENQ\EOT\EOT\STX\n\
\\ETX\DC2\EOT\224\SOH\SUB\FS\n\
\\f\n\
\\STX\EOT\ENQ\DC2\ACK\227\SOH\NUL\249\SOH\SOH\n\
\\v\n\
\\ETX\EOT\ENQ\SOH\DC2\EOT\227\SOH\b\CAN\n\
\\222\SOH\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\EOT\232\SOH\EOTC\SUB\207\SOH Policy for overlaps.\n\
\ Note that this can be changed after a schedule has taken some actions,\n\
\ and some changes might produce unintuitive results. In general, the later\n\
\ policy overrides the earlier policy.\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\EOT\232\SOH\EOT/\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\EOT\232\SOH0>\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\EOT\232\SOHAB\n\
\\172\STX\n\
\\EOT\EOT\ENQ\STX\SOH\DC2\EOT\239\SOH\EOT0\SUB\157\STX Policy for catchups:\n\
\ If the Temporal server misses an action due to one or more components\n\
\ being down, and comes back up, the action will be run if the scheduled\n\
\ time is within this window from the current time.\n\
\ This value defaults to one year, and can't be less than 10 seconds.\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\EOT\239\SOH\EOT\FS\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\EOT\239\SOH\GS+\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\EOT\239\SOH./\n\
\\180\SOH\n\
\\EOT\EOT\ENQ\STX\STX\DC2\EOT\244\SOH\EOT\RS\SUB\165\SOH If true, and a workflow run fails or times out, turn on \"paused\".\n\
\ This applies after retry policies: the full chain of retries must fail to\n\
\ trigger a pause here.\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\STX\ENQ\DC2\EOT\244\SOH\EOT\b\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\STX\SOH\DC2\EOT\244\SOH\t\EM\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\STX\ETX\DC2\EOT\244\SOH\FS\GS\n\
\\DEL\n\
\\EOT\EOT\ENQ\STX\ETX\DC2\EOT\248\SOH\EOT'\SUBq If true, and the action would start a workflow, a timestamp will not be\n\
\ appended to the scheduled workflow id.\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\ETX\ENQ\DC2\EOT\248\SOH\EOT\b\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\ETX\SOH\DC2\EOT\248\SOH\t\"\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\ETX\ETX\DC2\EOT\248\SOH%&\n\
\\f\n\
\\STX\EOT\ACK\DC2\ACK\251\SOH\NUL\132\STX\SOH\n\
\\v\n\
\\ETX\EOT\ACK\SOH\DC2\EOT\251\SOH\b\SYN\n\
\\SO\n\
\\EOT\EOT\ACK\b\NUL\DC2\ACK\252\SOH\EOT\131\STX\ENQ\n\
\\r\n\
\\ENQ\EOT\ACK\b\NUL\SOH\DC2\EOT\252\SOH\n\
\\DLE\n\
\\241\SOH\n\
\\EOT\EOT\ACK\STX\NUL\DC2\EOT\130\STX\bM\SUB\226\SOH All fields of NewWorkflowExecutionInfo are valid except for:\n\
\ - workflow_id_reuse_policy\n\
\ - cron_schedule\n\
\ The workflow id of the started workflow may not match this exactly,\n\
\ it may have a timestamp appended for uniqueness.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\ACK\DC2\EOT\130\STX\b9\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\EOT\130\STX:H\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\EOT\130\STXKL\n\
\\f\n\
\\STX\EOT\a\DC2\ACK\134\STX\NUL\143\STX\SOH\n\
\\v\n\
\\ETX\EOT\a\SOH\DC2\EOT\134\STX\b\FS\n\
\]\n\
\\EOT\EOT\a\STX\NUL\DC2\EOT\136\STX\EOT0\SUBO Time that the action was taken (according to the schedule, including jitter).\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\ACK\DC2\EOT\136\STX\EOT\GS\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\EOT\136\STX\RS+\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\EOT\136\STX./\n\
\;\n\
\\EOT\EOT\a\STX\SOH\DC2\EOT\139\STX\EOT.\SUB- Time that the action was taken (real time).\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\SOH\ACK\DC2\EOT\139\STX\EOT\GS\n\
\\r\n\
\\ENQ\EOT\a\STX\SOH\SOH\DC2\EOT\139\STX\RS)\n\
\\r\n\
\\ENQ\EOT\a\STX\SOH\ETX\DC2\EOT\139\STX,-\n\
\-\n\
\\EOT\EOT\a\STX\STX\DC2\EOT\142\STX\EOTH\SUB\US If action was start_workflow:\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\STX\ACK\DC2\EOT\142\STX\EOT,\n\
\\r\n\
\\ENQ\EOT\a\STX\STX\SOH\DC2\EOT\142\STX-B\n\
\\r\n\
\\ENQ\EOT\a\STX\STX\ETX\DC2\EOT\142\STXEG\n\
\\f\n\
\\STX\EOT\b\DC2\ACK\145\STX\NUL\163\STX\SOH\n\
\\v\n\
\\ETX\EOT\b\SOH\DC2\EOT\145\STX\b\NAK\n\
\\211\SOH\n\
\\EOT\EOT\b\STX\NUL\DC2\EOT\149\STX\EOT\NAK\SUB\196\SOH Informative human-readable message with contextual notes, e.g. the reason\n\
\ a schedule is paused. The system may overwrite this message on certain\n\
\ conditions, e.g. when pause-on-failure happens.\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\ENQ\DC2\EOT\149\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\EOT\149\STX\v\DLE\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\EOT\149\STX\DC3\DC4\n\
\L\n\
\\EOT\EOT\b\STX\SOH\DC2\EOT\152\STX\EOT\DC4\SUB> If true, do not take any actions based on the schedule spec.\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\ENQ\DC2\EOT\152\STX\EOT\b\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\SOH\DC2\EOT\152\STX\t\SI\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\ETX\DC2\EOT\152\STX\DC2\DC3\n\
\\204\ETX\n\
\\EOT\EOT\b\STX\STX\DC2\EOT\161\STX\EOT\GS\SUB\189\ETX If limited_actions is true, decrement remaining_actions after each\n\
\ action, and do not take any more scheduled actions if remaining_actions\n\
\ is zero. Actions may still be taken by explicit request (i.e. trigger\n\
\ immediately or backfill). Skipped actions (due to overlap policy) do not\n\
\ count against remaining actions.\n\
\ If a schedule has no more remaining actions, then the schedule will be\n\
\ subject to automatic deletion (after several days).\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\ENQ\DC2\EOT\161\STX\EOT\b\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\SOH\DC2\EOT\161\STX\t\CAN\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\ETX\DC2\EOT\161\STX\ESC\FS\n\
\\f\n\
\\EOT\EOT\b\STX\ETX\DC2\EOT\162\STX\EOT \n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\ENQ\DC2\EOT\162\STX\EOT\t\n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\SOH\DC2\EOT\162\STX\n\
\\ESC\n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\ETX\DC2\EOT\162\STX\RS\US\n\
\\f\n\
\\STX\EOT\t\DC2\ACK\165\STX\NUL\168\STX\SOH\n\
\\v\n\
\\ETX\EOT\t\SOH\DC2\EOT\165\STX\b!\n\
\E\n\
\\EOT\EOT\t\STX\NUL\DC2\EOT\167\STX\EOTC\SUB7 If set, override overlap policy for this one request.\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\ACK\DC2\EOT\167\STX\EOT/\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\EOT\167\STX0>\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\EOT\167\STXAB\n\
\\f\n\
\\STX\EOT\n\
\\DC2\ACK\170\STX\NUL\181\STX\SOH\n\
\\v\n\
\\ETX\EOT\n\
\\SOH\DC2\EOT\170\STX\b\ETB\n\
\\148\ETX\n\
\\EOT\EOT\n\
\\STX\NUL\DC2\EOT\177\STX\EOT-\SUB\133\ETX Time range to evaluate schedule in. Currently, this time range is\n\
\ exclusive on start_time and inclusive on end_time. (This is admittedly\n\
\ counterintuitive and it may change in the future, so to be safe, use a\n\
\ start time strictly before a scheduled time.) Also note that an action\n\
\ nominally scheduled in the interval but with jitter that pushes it after\n\
\ end_time will not be included.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ACK\DC2\EOT\177\STX\EOT\GS\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\EOT\177\STX\RS(\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\EOT\177\STX+,\n\
\\f\n\
\\EOT\EOT\n\
\\STX\SOH\DC2\EOT\178\STX\EOT+\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\ACK\DC2\EOT\178\STX\EOT\GS\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\SOH\DC2\EOT\178\STX\RS&\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\ETX\DC2\EOT\178\STX)*\n\
\A\n\
\\EOT\EOT\n\
\\STX\STX\DC2\EOT\180\STX\EOTC\SUB3 If set, override overlap policy for this request.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\ACK\DC2\EOT\180\STX\EOT/\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\SOH\DC2\EOT\180\STX0>\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\ETX\DC2\EOT\180\STXAB\n\
\\f\n\
\\STX\EOT\v\DC2\ACK\183\STX\NUL\196\STX\SOH\n\
\\v\n\
\\ETX\EOT\v\SOH\DC2\EOT\183\STX\b\NAK\n\
\7\n\
\\EOT\EOT\v\STX\NUL\DC2\EOT\185\STX\EOT6\SUB) If set, trigger one action immediately.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ACK\DC2\EOT\185\STX\EOT\GS\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\SOH\DC2\EOT\185\STX\RS1\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ETX\DC2\EOT\185\STX45\n\
\\203\SOH\n\
\\EOT\EOT\v\STX\SOH\DC2\EOT\190\STX\EOT2\SUB\188\SOH If set, runs though the specified time period(s) and takes actions as if that time\n\
\ passed by right now, all at once. The overlap policy can be overridden for the\n\
\ scope of the backfill.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\EOT\DC2\EOT\190\STX\EOT\f\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\ACK\DC2\EOT\190\STX\r\FS\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\SOH\DC2\EOT\190\STX\GS-\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\ETX\DC2\EOT\190\STX01\n\
\\130\SOH\n\
\\EOT\EOT\v\STX\STX\DC2\EOT\194\STX\EOT\NAK\SUBt If set, change the state to paused or unpaused (respectively) and set the\n\
\ notes field to the value of the string.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\STX\ENQ\DC2\EOT\194\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\STX\SOH\DC2\EOT\194\STX\v\DLE\n\
\\r\n\
\\ENQ\EOT\v\STX\STX\ETX\DC2\EOT\194\STX\DC3\DC4\n\
\\f\n\
\\EOT\EOT\v\STX\ETX\DC2\EOT\195\STX\EOT\ETB\n\
\\r\n\
\\ENQ\EOT\v\STX\ETX\ENQ\DC2\EOT\195\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\ETX\SOH\DC2\EOT\195\STX\v\DC2\n\
\\r\n\
\\ENQ\EOT\v\STX\ETX\ETX\DC2\EOT\195\STX\NAK\SYN\n\
\\f\n\
\\STX\EOT\f\DC2\ACK\198\STX\NUL\234\STX\SOH\n\
\\v\n\
\\ETX\EOT\f\SOH\DC2\EOT\198\STX\b\DC4\n\
\/\n\
\\EOT\EOT\f\STX\NUL\DC2\EOT\200\STX\EOT\ESC\SUB! Number of actions taken so far.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ENQ\DC2\EOT\200\STX\EOT\t\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\SOH\DC2\EOT\200\STX\n\
\\SYN\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ETX\DC2\EOT\200\STX\EM\SUB\n\
\a\n\
\\EOT\EOT\f\STX\SOH\DC2\EOT\203\STX\EOT$\SUBS Number of times a scheduled action was skipped due to missing the catchup window.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ENQ\DC2\EOT\203\STX\EOT\t\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\SOH\DC2\EOT\203\STX\n\
\\US\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ETX\DC2\EOT\203\STX\"#\n\
\9\n\
\\EOT\EOT\f\STX\STX\DC2\EOT\206\STX\EOT\RS\SUB+ Number of skipped actions due to overlap.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\ENQ\DC2\EOT\206\STX\EOT\t\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\SOH\DC2\EOT\206\STX\n\
\\EM\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\ETX\DC2\EOT\206\STX\FS\GS\n\
\>\n\
\\EOT\EOT\f\STX\ETX\DC2\EOT\209\STX\EOT\RS\SUB0 Number of dropped actions due to buffer limit.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\ETX\ENQ\DC2\EOT\209\STX\EOT\t\n\
\\r\n\
\\ENQ\EOT\f\STX\ETX\SOH\DC2\EOT\209\STX\n\
\\CAN\n\
\\r\n\
\\ENQ\EOT\f\STX\ETX\ETX\DC2\EOT\209\STX\ESC\GS\n\
\\214\SOH\n\
\\EOT\EOT\f\STX\EOT\DC2\EOT\214\STX\EOT\ESC\SUB\199\SOH Number of actions in the buffer. The buffer holds the actions that cannot\n\
\ be immediately triggered (due to the overlap policy). These actions can be a result of\n\
\ the normal schedule or a backfill.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\EOT\ENQ\DC2\EOT\214\STX\EOT\t\n\
\\r\n\
\\ENQ\EOT\f\STX\EOT\SOH\DC2\EOT\214\STX\n\
\\NAK\n\
\\r\n\
\\ENQ\EOT\f\STX\EOT\ETX\DC2\EOT\214\STX\CAN\SUB\n\
\\228\STX\n\
\\EOT\EOT\f\STX\ENQ\DC2\EOT\221\STX\EOTL\SUB\213\STX Currently-running workflows started by this schedule. (There might be\n\
\ more than one if the overlap policy allows overlaps.)\n\
\ Note that the run_ids in here are the original execution run ids as\n\
\ started by the schedule. If the workflows retried, did continue-as-new,\n\
\ or were reset, they might still be running but with a different run_id.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\ENQ\EOT\DC2\EOT\221\STX\EOT\f\n\
\\r\n\
\\ENQ\EOT\f\STX\ENQ\ACK\DC2\EOT\221\STX\r5\n\
\\r\n\
\\ENQ\EOT\f\STX\ENQ\SOH\DC2\EOT\221\STX6G\n\
\\r\n\
\\ENQ\EOT\f\STX\ENQ\ETX\DC2\EOT\221\STXJK\n\
\P\n\
\\EOT\EOT\f\STX\ACK\DC2\EOT\224\STX\EOT5\SUBB Most recent ten actual action times (including manual triggers).\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\ACK\EOT\DC2\EOT\224\STX\EOT\f\n\
\\r\n\
\\ENQ\EOT\f\STX\ACK\ACK\DC2\EOT\224\STX\r!\n\
\\r\n\
\\ENQ\EOT\f\STX\ACK\SOH\DC2\EOT\224\STX\"0\n\
\\r\n\
\\ENQ\EOT\f\STX\ACK\ETX\DC2\EOT\224\STX34\n\
\0\n\
\\EOT\EOT\f\STX\a\DC2\EOT\227\STX\EOT?\SUB\" Next ten scheduled action times.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\a\EOT\DC2\EOT\227\STX\EOT\f\n\
\\r\n\
\\ENQ\EOT\f\STX\a\ACK\DC2\EOT\227\STX\r&\n\
\\r\n\
\\ENQ\EOT\f\STX\a\SOH\DC2\EOT\227\STX':\n\
\\r\n\
\\ENQ\EOT\f\STX\a\ETX\DC2\EOT\227\STX=>\n\
\@\n\
\\EOT\EOT\f\STX\b\DC2\EOT\230\STX\EOT.\SUB2 Timestamps of schedule creation and last update.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\b\ACK\DC2\EOT\230\STX\EOT\GS\n\
\\r\n\
\\ENQ\EOT\f\STX\b\SOH\DC2\EOT\230\STX\RS)\n\
\\r\n\
\\ENQ\EOT\f\STX\b\ETX\DC2\EOT\230\STX,-\n\
\\f\n\
\\EOT\EOT\f\STX\t\DC2\EOT\231\STX\EOT.\n\
\\r\n\
\\ENQ\EOT\f\STX\t\ACK\DC2\EOT\231\STX\EOT\GS\n\
\\r\n\
\\ENQ\EOT\f\STX\t\SOH\DC2\EOT\231\STX\RS)\n\
\\r\n\
\\ENQ\EOT\f\STX\t\ETX\DC2\EOT\231\STX,-\n\
\\f\n\
\\EOT\EOT\f\STX\n\
\\DC2\EOT\233\STX\EOT:\n\
\\r\n\
\\ENQ\EOT\f\STX\n\
\\ENQ\DC2\EOT\233\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\n\
\\SOH\DC2\EOT\233\STX\v!\n\
\\r\n\
\\ENQ\EOT\f\STX\n\
\\ETX\DC2\EOT\233\STX$%\n\
\\r\n\
\\ENQ\EOT\f\STX\n\
\\b\DC2\EOT\233\STX&9\n\
\\SO\n\
\\ACK\EOT\f\STX\n\
\\b\ETX\DC2\EOT\233\STX'8\n\
\\f\n\
\\STX\EOT\r\DC2\ACK\236\STX\NUL\241\STX\SOH\n\
\\v\n\
\\ETX\EOT\r\SOH\DC2\EOT\236\STX\b\DLE\n\
\\f\n\
\\EOT\EOT\r\STX\NUL\DC2\EOT\237\STX\EOT\SUB\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\ACK\DC2\EOT\237\STX\EOT\DLE\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\SOH\DC2\EOT\237\STX\DC1\NAK\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\ETX\DC2\EOT\237\STX\CAN\EM\n\
\\f\n\
\\EOT\EOT\r\STX\SOH\DC2\EOT\238\STX\EOT\RS\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\ACK\DC2\EOT\238\STX\EOT\DC2\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\SOH\DC2\EOT\238\STX\DC3\EM\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\ETX\DC2\EOT\238\STX\FS\GS\n\
\\f\n\
\\EOT\EOT\r\STX\STX\DC2\EOT\239\STX\EOT\"\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\ACK\DC2\EOT\239\STX\EOT\DC4\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\SOH\DC2\EOT\239\STX\NAK\GS\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\ETX\DC2\EOT\239\STX !\n\
\\f\n\
\\EOT\EOT\r\STX\ETX\DC2\EOT\240\STX\EOT\FS\n\
\\r\n\
\\ENQ\EOT\r\STX\ETX\ACK\DC2\EOT\240\STX\EOT\DC1\n\
\\r\n\
\\ENQ\EOT\r\STX\ETX\SOH\DC2\EOT\240\STX\DC2\ETB\n\
\\r\n\
\\ENQ\EOT\r\STX\ETX\ETX\DC2\EOT\240\STX\SUB\ESC\n\
\\130\SOH\n\
\\STX\EOT\SO\DC2\ACK\245\STX\NUL\134\ETX\SOH\SUBt ScheduleListInfo is an abbreviated set of values from Schedule and ScheduleInfo\n\
\ that's returned in ListSchedules.\n\
\\n\
\\v\n\
\\ETX\EOT\SO\SOH\DC2\EOT\245\STX\b\CAN\n\
\Y\n\
\\EOT\EOT\SO\STX\NUL\DC2\EOT\248\STX\EOT\SUB\SUBK From spec:\n\
\ Some fields are dropped from this copy of spec: timezone_data\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\ACK\DC2\EOT\248\STX\EOT\DLE\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\SOH\DC2\EOT\248\STX\DC1\NAK\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\ETX\DC2\EOT\248\STX\CAN\EM\n\
\\177\SOH\n\
\\EOT\EOT\SO\STX\SOH\DC2\EOT\253\STX\EOT:\SUB\162\SOH From action:\n\
\ Action is a oneof field, but we need to encode this in JSON and oneof fields don't work\n\
\ well with JSON. If action is start_workflow, this is set:\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\SOH\ACK\DC2\EOT\253\STX\EOT'\n\
\\r\n\
\\ENQ\EOT\SO\STX\SOH\SOH\DC2\EOT\253\STX(5\n\
\\r\n\
\\ENQ\EOT\SO\STX\SOH\ETX\DC2\EOT\253\STX89\n\
\\ESC\n\
\\EOT\EOT\SO\STX\STX\DC2\EOT\128\ETX\EOT\NAK\SUB\r From state:\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\STX\ENQ\DC2\EOT\128\ETX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\STX\SOH\DC2\EOT\128\ETX\v\DLE\n\
\\r\n\
\\ENQ\EOT\SO\STX\STX\ETX\DC2\EOT\128\ETX\DC3\DC4\n\
\\f\n\
\\EOT\EOT\SO\STX\ETX\DC2\EOT\129\ETX\EOT\DC4\n\
\\r\n\
\\ENQ\EOT\SO\STX\ETX\ENQ\DC2\EOT\129\ETX\EOT\b\n\
\\r\n\
\\ENQ\EOT\SO\STX\ETX\SOH\DC2\EOT\129\ETX\t\SI\n\
\\r\n\
\\ENQ\EOT\SO\STX\ETX\ETX\DC2\EOT\129\ETX\DC2\DC3\n\
\0\n\
\\EOT\EOT\SO\STX\EOT\DC2\EOT\132\ETX\EOT5\SUB\" From info (maybe fewer entries):\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\EOT\EOT\DC2\EOT\132\ETX\EOT\f\n\
\\r\n\
\\ENQ\EOT\SO\STX\EOT\ACK\DC2\EOT\132\ETX\r!\n\
\\r\n\
\\ENQ\EOT\SO\STX\EOT\SOH\DC2\EOT\132\ETX\"0\n\
\\r\n\
\\ENQ\EOT\SO\STX\EOT\ETX\DC2\EOT\132\ETX34\n\
\\f\n\
\\EOT\EOT\SO\STX\ENQ\DC2\EOT\133\ETX\EOT?\n\
\\r\n\
\\ENQ\EOT\SO\STX\ENQ\EOT\DC2\EOT\133\ETX\EOT\f\n\
\\r\n\
\\ENQ\EOT\SO\STX\ENQ\ACK\DC2\EOT\133\ETX\r&\n\
\\r\n\
\\ENQ\EOT\SO\STX\ENQ\SOH\DC2\EOT\133\ETX':\n\
\\r\n\
\\ENQ\EOT\SO\STX\ENQ\ETX\DC2\EOT\133\ETX=>\n\
\?\n\
\\STX\EOT\SI\DC2\ACK\137\ETX\NUL\142\ETX\SOH\SUB1 ScheduleListEntry is returned by ListSchedules.\n\
\\n\
\\v\n\
\\ETX\EOT\SI\SOH\DC2\EOT\137\ETX\b\EM\n\
\\f\n\
\\EOT\EOT\SI\STX\NUL\DC2\EOT\138\ETX\EOT\ESC\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\ENQ\DC2\EOT\138\ETX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\SOH\DC2\EOT\138\ETX\v\SYN\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\ETX\DC2\EOT\138\ETX\EM\SUB\n\
\\f\n\
\\EOT\EOT\SI\STX\SOH\DC2\EOT\139\ETX\EOT)\n\
\\r\n\
\\ENQ\EOT\SI\STX\SOH\ACK\DC2\EOT\139\ETX\EOT\US\n\
\\r\n\
\\ENQ\EOT\SI\STX\SOH\SOH\DC2\EOT\139\ETX $\n\
\\r\n\
\\ENQ\EOT\SI\STX\SOH\ETX\DC2\EOT\139\ETX'(\n\
\\f\n\
\\EOT\EOT\SI\STX\STX\DC2\EOT\140\ETX\EOTB\n\
\\r\n\
\\ENQ\EOT\SI\STX\STX\ACK\DC2\EOT\140\ETX\EOT+\n\
\\r\n\
\\ENQ\EOT\SI\STX\STX\SOH\DC2\EOT\140\ETX,=\n\
\\r\n\
\\ENQ\EOT\SI\STX\STX\ETX\DC2\EOT\140\ETX@A\n\
\\f\n\
\\EOT\EOT\SI\STX\ETX\DC2\EOT\141\ETX\EOT\RS\n\
\\r\n\
\\ENQ\EOT\SI\STX\ETX\ACK\DC2\EOT\141\ETX\EOT\DC4\n\
\\r\n\
\\ENQ\EOT\SI\STX\ETX\SOH\DC2\EOT\141\ETX\NAK\EM\n\
\\r\n\
\\ENQ\EOT\SI\STX\ETX\ETX\DC2\EOT\141\ETX\FS\GSb\ACKproto3"