{- This file was auto-generated from temporal/api/update/v1/message.proto by the proto-lens-protoc program. -} {-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-} {-# OPTIONS_GHC -Wno-unused-imports#-} {-# OPTIONS_GHC -Wno-duplicate-exports#-} {-# OPTIONS_GHC -Wno-dodgy-exports#-} module Proto.Temporal.Api.Update.V1.Message ( Acceptance(), Input(), Meta(), Outcome(), Outcome'Value(..), _Outcome'Success, _Outcome'Failure, Rejection(), Request(), Response(), UpdateRef(), WaitPolicy() ) 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.Temporal.Api.Common.V1.Message import qualified Proto.Temporal.Api.Enums.V1.Update import qualified Proto.Temporal.Api.Failure.V1.Message {- | Fields : * 'Proto.Temporal.Api.Update.V1.Message_Fields.acceptedRequestMessageId' @:: Lens' Acceptance Data.Text.Text@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.acceptedRequestSequencingEventId' @:: Lens' Acceptance Data.Int.Int64@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.acceptedRequest' @:: Lens' Acceptance Request@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'acceptedRequest' @:: Lens' Acceptance (Prelude.Maybe Request)@ -} data Acceptance = Acceptance'_constructor {_Acceptance'acceptedRequestMessageId :: !Data.Text.Text, _Acceptance'acceptedRequestSequencingEventId :: !Data.Int.Int64, _Acceptance'acceptedRequest :: !(Prelude.Maybe Request), _Acceptance'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Acceptance where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Acceptance "acceptedRequestMessageId" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Acceptance'acceptedRequestMessageId (\ x__ y__ -> x__ {_Acceptance'acceptedRequestMessageId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Acceptance "acceptedRequestSequencingEventId" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Acceptance'acceptedRequestSequencingEventId (\ x__ y__ -> x__ {_Acceptance'acceptedRequestSequencingEventId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Acceptance "acceptedRequest" Request where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Acceptance'acceptedRequest (\ x__ y__ -> x__ {_Acceptance'acceptedRequest = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Acceptance "maybe'acceptedRequest" (Prelude.Maybe Request) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Acceptance'acceptedRequest (\ x__ y__ -> x__ {_Acceptance'acceptedRequest = y__})) Prelude.id instance Data.ProtoLens.Message Acceptance where messageName _ = Data.Text.pack "temporal.api.update.v1.Acceptance" packedMessageDescriptor _ = "\n\ \\n\ \Acceptance\DC2=\n\ \\ESCaccepted_request_message_id\CAN\SOH \SOH(\tR\CANacceptedRequestMessageId\DC2N\n\ \$accepted_request_sequencing_event_id\CAN\STX \SOH(\ETXR acceptedRequestSequencingEventId\DC2J\n\ \\DLEaccepted_request\CAN\ETX \SOH(\v2\US.temporal.api.update.v1.RequestR\SIacceptedRequest" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let acceptedRequestMessageId__field_descriptor = Data.ProtoLens.FieldDescriptor "accepted_request_message_id" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"acceptedRequestMessageId")) :: Data.ProtoLens.FieldDescriptor Acceptance acceptedRequestSequencingEventId__field_descriptor = Data.ProtoLens.FieldDescriptor "accepted_request_sequencing_event_id" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"acceptedRequestSequencingEventId")) :: Data.ProtoLens.FieldDescriptor Acceptance acceptedRequest__field_descriptor = Data.ProtoLens.FieldDescriptor "accepted_request" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Request) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'acceptedRequest")) :: Data.ProtoLens.FieldDescriptor Acceptance in Data.Map.fromList [(Data.ProtoLens.Tag 1, acceptedRequestMessageId__field_descriptor), (Data.ProtoLens.Tag 2, acceptedRequestSequencingEventId__field_descriptor), (Data.ProtoLens.Tag 3, acceptedRequest__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Acceptance'_unknownFields (\ x__ y__ -> x__ {_Acceptance'_unknownFields = y__}) defMessage = Acceptance'_constructor {_Acceptance'acceptedRequestMessageId = Data.ProtoLens.fieldDefault, _Acceptance'acceptedRequestSequencingEventId = Data.ProtoLens.fieldDefault, _Acceptance'acceptedRequest = Prelude.Nothing, _Acceptance'_unknownFields = []} parseMessage = let loop :: Acceptance -> Data.ProtoLens.Encoding.Bytes.Parser Acceptance loop x = do end <- 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 (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getText (Prelude.fromIntegral len)) "accepted_request_message_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"acceptedRequestMessageId") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "accepted_request_sequencing_event_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"acceptedRequestSequencingEventId") y x) 26 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "accepted_request" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"acceptedRequest") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "Acceptance" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"acceptedRequestMessageId") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"acceptedRequestSequencingEventId") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 16) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'acceptedRequest") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 26) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) instance Control.DeepSeq.NFData Acceptance where rnf = \ x__ -> Control.DeepSeq.deepseq (_Acceptance'_unknownFields x__) (Control.DeepSeq.deepseq (_Acceptance'acceptedRequestMessageId x__) (Control.DeepSeq.deepseq (_Acceptance'acceptedRequestSequencingEventId x__) (Control.DeepSeq.deepseq (_Acceptance'acceptedRequest x__) ()))) {- | Fields : * 'Proto.Temporal.Api.Update.V1.Message_Fields.header' @:: Lens' Input Proto.Temporal.Api.Common.V1.Message.Header@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'header' @:: Lens' Input (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header)@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.name' @:: Lens' Input Data.Text.Text@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.args' @:: Lens' Input Proto.Temporal.Api.Common.V1.Message.Payloads@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'args' @:: Lens' Input (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads)@ -} data Input = Input'_constructor {_Input'header :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header), _Input'name :: !Data.Text.Text, _Input'args :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads), _Input'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Input where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Input "header" Proto.Temporal.Api.Common.V1.Message.Header where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Input'header (\ x__ y__ -> x__ {_Input'header = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Input "maybe'header" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Input'header (\ x__ y__ -> x__ {_Input'header = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Input "name" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Input'name (\ x__ y__ -> x__ {_Input'name = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Input "args" Proto.Temporal.Api.Common.V1.Message.Payloads where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Input'args (\ x__ y__ -> x__ {_Input'args = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Input "maybe'args" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Input'args (\ x__ y__ -> x__ {_Input'args = y__})) Prelude.id instance Data.ProtoLens.Message Input where messageName _ = Data.Text.pack "temporal.api.update.v1.Input" packedMessageDescriptor _ = "\n\ \\ENQInput\DC26\n\ \\ACKheader\CAN\SOH \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader\DC2\DC2\n\ \\EOTname\CAN\STX \SOH(\tR\EOTname\DC24\n\ \\EOTargs\CAN\ETX \SOH(\v2 .temporal.api.common.v1.PayloadsR\EOTargs" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let header__field_descriptor = Data.ProtoLens.FieldDescriptor "header" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Header) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'header")) :: Data.ProtoLens.FieldDescriptor Input name__field_descriptor = Data.ProtoLens.FieldDescriptor "name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: Data.ProtoLens.FieldDescriptor Input args__field_descriptor = Data.ProtoLens.FieldDescriptor "args" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'args")) :: Data.ProtoLens.FieldDescriptor Input in Data.Map.fromList [(Data.ProtoLens.Tag 1, header__field_descriptor), (Data.ProtoLens.Tag 2, name__field_descriptor), (Data.ProtoLens.Tag 3, args__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Input'_unknownFields (\ x__ y__ -> x__ {_Input'_unknownFields = y__}) defMessage = Input'_constructor {_Input'header = Prelude.Nothing, _Input'name = Data.ProtoLens.fieldDefault, _Input'args = Prelude.Nothing, _Input'_unknownFields = []} parseMessage = let loop :: Input -> Data.ProtoLens.Encoding.Bytes.Parser Input loop x = do end <- 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 (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "header" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getText (Prelude.fromIntegral len)) "name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) 26 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "args" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"args") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "Input" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'header") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'args") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 26) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) instance Control.DeepSeq.NFData Input where rnf = \ x__ -> Control.DeepSeq.deepseq (_Input'_unknownFields x__) (Control.DeepSeq.deepseq (_Input'header x__) (Control.DeepSeq.deepseq (_Input'name x__) (Control.DeepSeq.deepseq (_Input'args x__) ()))) {- | Fields : * 'Proto.Temporal.Api.Update.V1.Message_Fields.updateId' @:: Lens' Meta Data.Text.Text@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.identity' @:: Lens' Meta Data.Text.Text@ -} data Meta = Meta'_constructor {_Meta'updateId :: !Data.Text.Text, _Meta'identity :: !Data.Text.Text, _Meta'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Meta where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Meta "updateId" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Meta'updateId (\ x__ y__ -> x__ {_Meta'updateId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Meta "identity" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Meta'identity (\ x__ y__ -> x__ {_Meta'identity = y__})) Prelude.id instance Data.ProtoLens.Message Meta where messageName _ = Data.Text.pack "temporal.api.update.v1.Meta" packedMessageDescriptor _ = "\n\ \\EOTMeta\DC2\ESC\n\ \\tupdate_id\CAN\SOH \SOH(\tR\bupdateId\DC2\SUB\n\ \\bidentity\CAN\STX \SOH(\tR\bidentity" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let updateId__field_descriptor = Data.ProtoLens.FieldDescriptor "update_id" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"updateId")) :: Data.ProtoLens.FieldDescriptor Meta identity__field_descriptor = Data.ProtoLens.FieldDescriptor "identity" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"identity")) :: Data.ProtoLens.FieldDescriptor Meta in Data.Map.fromList [(Data.ProtoLens.Tag 1, updateId__field_descriptor), (Data.ProtoLens.Tag 2, identity__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Meta'_unknownFields (\ x__ y__ -> x__ {_Meta'_unknownFields = y__}) defMessage = Meta'_constructor {_Meta'updateId = Data.ProtoLens.fieldDefault, _Meta'identity = Data.ProtoLens.fieldDefault, _Meta'_unknownFields = []} parseMessage = let loop :: Meta -> Data.ProtoLens.Encoding.Bytes.Parser Meta loop x = do end <- 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 (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getText (Prelude.fromIntegral len)) "update_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"updateId") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getText (Prelude.fromIntegral len)) "identity" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"identity") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "Meta" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"updateId") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"identity") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.Text.Encoding.encodeUtf8 _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData Meta where rnf = \ x__ -> Control.DeepSeq.deepseq (_Meta'_unknownFields x__) (Control.DeepSeq.deepseq (_Meta'updateId x__) (Control.DeepSeq.deepseq (_Meta'identity x__) ())) {- | Fields : * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'value' @:: Lens' Outcome (Prelude.Maybe Outcome'Value)@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'success' @:: Lens' Outcome (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads)@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.success' @:: Lens' Outcome Proto.Temporal.Api.Common.V1.Message.Payloads@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'failure' @:: Lens' Outcome (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure)@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.failure' @:: Lens' Outcome Proto.Temporal.Api.Failure.V1.Message.Failure@ -} data Outcome = Outcome'_constructor {_Outcome'value :: !(Prelude.Maybe Outcome'Value), _Outcome'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Outcome where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data Outcome'Value = Outcome'Success !Proto.Temporal.Api.Common.V1.Message.Payloads | Outcome'Failure !Proto.Temporal.Api.Failure.V1.Message.Failure deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.Field.HasField Outcome "maybe'value" (Prelude.Maybe Outcome'Value) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Outcome'value (\ x__ y__ -> x__ {_Outcome'value = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Outcome "maybe'success" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Outcome'value (\ x__ y__ -> x__ {_Outcome'value = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (Outcome'Success x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap Outcome'Success y__)) instance Data.ProtoLens.Field.HasField Outcome "success" Proto.Temporal.Api.Common.V1.Message.Payloads where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Outcome'value (\ x__ y__ -> x__ {_Outcome'value = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (Outcome'Success x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap Outcome'Success y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Field.HasField Outcome "maybe'failure" (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Outcome'value (\ x__ y__ -> x__ {_Outcome'value = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (Outcome'Failure x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap Outcome'Failure y__)) instance Data.ProtoLens.Field.HasField Outcome "failure" Proto.Temporal.Api.Failure.V1.Message.Failure where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Outcome'value (\ x__ y__ -> x__ {_Outcome'value = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (Outcome'Failure x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap Outcome'Failure y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Message Outcome where messageName _ = Data.Text.pack "temporal.api.update.v1.Outcome" packedMessageDescriptor _ = "\n\ \\aOutcome\DC2<\n\ \\asuccess\CAN\SOH \SOH(\v2 .temporal.api.common.v1.PayloadsH\NULR\asuccess\DC2<\n\ \\afailure\CAN\STX \SOH(\v2 .temporal.api.failure.v1.FailureH\NULR\afailureB\a\n\ \\ENQvalue" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let success__field_descriptor = Data.ProtoLens.FieldDescriptor "success" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'success")) :: Data.ProtoLens.FieldDescriptor Outcome failure__field_descriptor = Data.ProtoLens.FieldDescriptor "failure" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Failure.V1.Message.Failure) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'failure")) :: Data.ProtoLens.FieldDescriptor Outcome in Data.Map.fromList [(Data.ProtoLens.Tag 1, success__field_descriptor), (Data.ProtoLens.Tag 2, failure__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Outcome'_unknownFields (\ x__ y__ -> x__ {_Outcome'_unknownFields = y__}) defMessage = Outcome'_constructor {_Outcome'value = Prelude.Nothing, _Outcome'_unknownFields = []} parseMessage = let loop :: Outcome -> Data.ProtoLens.Encoding.Bytes.Parser Outcome loop x = do end <- 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 (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "success" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"success") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "failure" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failure") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "Outcome" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just (Outcome'Success v)) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage v) (Prelude.Just (Outcome'Failure v)) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData Outcome where rnf = \ x__ -> Control.DeepSeq.deepseq (_Outcome'_unknownFields x__) (Control.DeepSeq.deepseq (_Outcome'value x__) ()) instance Control.DeepSeq.NFData Outcome'Value where rnf (Outcome'Success x__) = Control.DeepSeq.rnf x__ rnf (Outcome'Failure x__) = Control.DeepSeq.rnf x__ _Outcome'Success :: Data.ProtoLens.Prism.Prism' Outcome'Value Proto.Temporal.Api.Common.V1.Message.Payloads _Outcome'Success = Data.ProtoLens.Prism.prism' Outcome'Success (\ p__ -> case p__ of (Outcome'Success p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _Outcome'Failure :: Data.ProtoLens.Prism.Prism' Outcome'Value Proto.Temporal.Api.Failure.V1.Message.Failure _Outcome'Failure = Data.ProtoLens.Prism.prism' Outcome'Failure (\ p__ -> case p__ of (Outcome'Failure p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) {- | Fields : * 'Proto.Temporal.Api.Update.V1.Message_Fields.rejectedRequestMessageId' @:: Lens' Rejection Data.Text.Text@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.rejectedRequestSequencingEventId' @:: Lens' Rejection Data.Int.Int64@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.rejectedRequest' @:: Lens' Rejection Request@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'rejectedRequest' @:: Lens' Rejection (Prelude.Maybe Request)@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.failure' @:: Lens' Rejection Proto.Temporal.Api.Failure.V1.Message.Failure@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'failure' @:: Lens' Rejection (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure)@ -} data Rejection = Rejection'_constructor {_Rejection'rejectedRequestMessageId :: !Data.Text.Text, _Rejection'rejectedRequestSequencingEventId :: !Data.Int.Int64, _Rejection'rejectedRequest :: !(Prelude.Maybe Request), _Rejection'failure :: !(Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure), _Rejection'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Rejection where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Rejection "rejectedRequestMessageId" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Rejection'rejectedRequestMessageId (\ x__ y__ -> x__ {_Rejection'rejectedRequestMessageId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Rejection "rejectedRequestSequencingEventId" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Rejection'rejectedRequestSequencingEventId (\ x__ y__ -> x__ {_Rejection'rejectedRequestSequencingEventId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Rejection "rejectedRequest" Request where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Rejection'rejectedRequest (\ x__ y__ -> x__ {_Rejection'rejectedRequest = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Rejection "maybe'rejectedRequest" (Prelude.Maybe Request) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Rejection'rejectedRequest (\ x__ y__ -> x__ {_Rejection'rejectedRequest = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Rejection "failure" Proto.Temporal.Api.Failure.V1.Message.Failure where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Rejection'failure (\ x__ y__ -> x__ {_Rejection'failure = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Rejection "maybe'failure" (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Rejection'failure (\ x__ y__ -> x__ {_Rejection'failure = y__})) Prelude.id instance Data.ProtoLens.Message Rejection where messageName _ = Data.Text.pack "temporal.api.update.v1.Rejection" packedMessageDescriptor _ = "\n\ \\tRejection\DC2=\n\ \\ESCrejected_request_message_id\CAN\SOH \SOH(\tR\CANrejectedRequestMessageId\DC2N\n\ \$rejected_request_sequencing_event_id\CAN\STX \SOH(\ETXR rejectedRequestSequencingEventId\DC2J\n\ \\DLErejected_request\CAN\ETX \SOH(\v2\US.temporal.api.update.v1.RequestR\SIrejectedRequest\DC2:\n\ \\afailure\CAN\EOT \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let rejectedRequestMessageId__field_descriptor = Data.ProtoLens.FieldDescriptor "rejected_request_message_id" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"rejectedRequestMessageId")) :: Data.ProtoLens.FieldDescriptor Rejection rejectedRequestSequencingEventId__field_descriptor = Data.ProtoLens.FieldDescriptor "rejected_request_sequencing_event_id" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"rejectedRequestSequencingEventId")) :: Data.ProtoLens.FieldDescriptor Rejection rejectedRequest__field_descriptor = Data.ProtoLens.FieldDescriptor "rejected_request" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Request) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'rejectedRequest")) :: Data.ProtoLens.FieldDescriptor Rejection failure__field_descriptor = Data.ProtoLens.FieldDescriptor "failure" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Failure.V1.Message.Failure) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'failure")) :: Data.ProtoLens.FieldDescriptor Rejection in Data.Map.fromList [(Data.ProtoLens.Tag 1, rejectedRequestMessageId__field_descriptor), (Data.ProtoLens.Tag 2, rejectedRequestSequencingEventId__field_descriptor), (Data.ProtoLens.Tag 3, rejectedRequest__field_descriptor), (Data.ProtoLens.Tag 4, failure__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Rejection'_unknownFields (\ x__ y__ -> x__ {_Rejection'_unknownFields = y__}) defMessage = Rejection'_constructor {_Rejection'rejectedRequestMessageId = Data.ProtoLens.fieldDefault, _Rejection'rejectedRequestSequencingEventId = Data.ProtoLens.fieldDefault, _Rejection'rejectedRequest = Prelude.Nothing, _Rejection'failure = Prelude.Nothing, _Rejection'_unknownFields = []} parseMessage = let loop :: Rejection -> Data.ProtoLens.Encoding.Bytes.Parser Rejection loop x = do end <- 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 (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getText (Prelude.fromIntegral len)) "rejected_request_message_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"rejectedRequestMessageId") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "rejected_request_sequencing_event_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"rejectedRequestSequencingEventId") y x) 26 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "rejected_request" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"rejectedRequest") y x) 34 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "failure" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failure") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "Rejection" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"rejectedRequestMessageId") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"rejectedRequestSequencingEventId") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 16) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'rejectedRequest") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 26) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'failure") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 34) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) instance Control.DeepSeq.NFData Rejection where rnf = \ x__ -> Control.DeepSeq.deepseq (_Rejection'_unknownFields x__) (Control.DeepSeq.deepseq (_Rejection'rejectedRequestMessageId x__) (Control.DeepSeq.deepseq (_Rejection'rejectedRequestSequencingEventId x__) (Control.DeepSeq.deepseq (_Rejection'rejectedRequest x__) (Control.DeepSeq.deepseq (_Rejection'failure x__) ())))) {- | Fields : * 'Proto.Temporal.Api.Update.V1.Message_Fields.meta' @:: Lens' Request Meta@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'meta' @:: Lens' Request (Prelude.Maybe Meta)@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.input' @:: Lens' Request Input@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'input' @:: Lens' Request (Prelude.Maybe Input)@ -} data Request = Request'_constructor {_Request'meta :: !(Prelude.Maybe Meta), _Request'input :: !(Prelude.Maybe Input), _Request'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Request where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Request "meta" Meta where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Request'meta (\ x__ y__ -> x__ {_Request'meta = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Request "maybe'meta" (Prelude.Maybe Meta) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Request'meta (\ x__ y__ -> x__ {_Request'meta = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Request "input" Input where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Request'input (\ x__ y__ -> x__ {_Request'input = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Request "maybe'input" (Prelude.Maybe Input) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Request'input (\ x__ y__ -> x__ {_Request'input = y__})) Prelude.id instance Data.ProtoLens.Message Request where messageName _ = Data.Text.pack "temporal.api.update.v1.Request" packedMessageDescriptor _ = "\n\ \\aRequest\DC20\n\ \\EOTmeta\CAN\SOH \SOH(\v2\FS.temporal.api.update.v1.MetaR\EOTmeta\DC23\n\ \\ENQinput\CAN\STX \SOH(\v2\GS.temporal.api.update.v1.InputR\ENQinput" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let meta__field_descriptor = Data.ProtoLens.FieldDescriptor "meta" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Meta) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'meta")) :: Data.ProtoLens.FieldDescriptor Request input__field_descriptor = Data.ProtoLens.FieldDescriptor "input" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Input) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'input")) :: Data.ProtoLens.FieldDescriptor Request in Data.Map.fromList [(Data.ProtoLens.Tag 1, meta__field_descriptor), (Data.ProtoLens.Tag 2, input__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Request'_unknownFields (\ x__ y__ -> x__ {_Request'_unknownFields = y__}) defMessage = Request'_constructor {_Request'meta = Prelude.Nothing, _Request'input = Prelude.Nothing, _Request'_unknownFields = []} parseMessage = let loop :: Request -> Data.ProtoLens.Encoding.Bytes.Parser Request loop x = do end <- 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 (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "meta" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"meta") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "input" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"input") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "Request" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'meta") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'input") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData Request where rnf = \ x__ -> Control.DeepSeq.deepseq (_Request'_unknownFields x__) (Control.DeepSeq.deepseq (_Request'meta x__) (Control.DeepSeq.deepseq (_Request'input x__) ())) {- | Fields : * 'Proto.Temporal.Api.Update.V1.Message_Fields.meta' @:: Lens' Response Meta@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'meta' @:: Lens' Response (Prelude.Maybe Meta)@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.outcome' @:: Lens' Response Outcome@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'outcome' @:: Lens' Response (Prelude.Maybe Outcome)@ -} data Response = Response'_constructor {_Response'meta :: !(Prelude.Maybe Meta), _Response'outcome :: !(Prelude.Maybe Outcome), _Response'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Response where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Response "meta" Meta where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Response'meta (\ x__ y__ -> x__ {_Response'meta = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Response "maybe'meta" (Prelude.Maybe Meta) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Response'meta (\ x__ y__ -> x__ {_Response'meta = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Response "outcome" Outcome where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Response'outcome (\ x__ y__ -> x__ {_Response'outcome = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Response "maybe'outcome" (Prelude.Maybe Outcome) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Response'outcome (\ x__ y__ -> x__ {_Response'outcome = y__})) Prelude.id instance Data.ProtoLens.Message Response where messageName _ = Data.Text.pack "temporal.api.update.v1.Response" packedMessageDescriptor _ = "\n\ \\bResponse\DC20\n\ \\EOTmeta\CAN\SOH \SOH(\v2\FS.temporal.api.update.v1.MetaR\EOTmeta\DC29\n\ \\aoutcome\CAN\STX \SOH(\v2\US.temporal.api.update.v1.OutcomeR\aoutcome" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let meta__field_descriptor = Data.ProtoLens.FieldDescriptor "meta" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Meta) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'meta")) :: Data.ProtoLens.FieldDescriptor Response outcome__field_descriptor = Data.ProtoLens.FieldDescriptor "outcome" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Outcome) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'outcome")) :: Data.ProtoLens.FieldDescriptor Response in Data.Map.fromList [(Data.ProtoLens.Tag 1, meta__field_descriptor), (Data.ProtoLens.Tag 2, outcome__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Response'_unknownFields (\ x__ y__ -> x__ {_Response'_unknownFields = y__}) defMessage = Response'_constructor {_Response'meta = Prelude.Nothing, _Response'outcome = Prelude.Nothing, _Response'_unknownFields = []} parseMessage = let loop :: Response -> Data.ProtoLens.Encoding.Bytes.Parser Response loop x = do end <- 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 (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "meta" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"meta") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "outcome" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"outcome") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "Response" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'meta") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'outcome") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData Response where rnf = \ x__ -> Control.DeepSeq.deepseq (_Response'_unknownFields x__) (Control.DeepSeq.deepseq (_Response'meta x__) (Control.DeepSeq.deepseq (_Response'outcome x__) ())) {- | Fields : * 'Proto.Temporal.Api.Update.V1.Message_Fields.workflowExecution' @:: Lens' UpdateRef Proto.Temporal.Api.Common.V1.Message.WorkflowExecution@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.maybe'workflowExecution' @:: Lens' UpdateRef (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution)@ * 'Proto.Temporal.Api.Update.V1.Message_Fields.updateId' @:: Lens' UpdateRef Data.Text.Text@ -} data UpdateRef = UpdateRef'_constructor {_UpdateRef'workflowExecution :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution), _UpdateRef'updateId :: !Data.Text.Text, _UpdateRef'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show UpdateRef where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField UpdateRef "workflowExecution" Proto.Temporal.Api.Common.V1.Message.WorkflowExecution where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _UpdateRef'workflowExecution (\ x__ y__ -> x__ {_UpdateRef'workflowExecution = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField UpdateRef "maybe'workflowExecution" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _UpdateRef'workflowExecution (\ x__ y__ -> x__ {_UpdateRef'workflowExecution = y__})) Prelude.id instance Data.ProtoLens.Field.HasField UpdateRef "updateId" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _UpdateRef'updateId (\ x__ y__ -> x__ {_UpdateRef'updateId = y__})) Prelude.id instance Data.ProtoLens.Message UpdateRef where messageName _ = Data.Text.pack "temporal.api.update.v1.UpdateRef" packedMessageDescriptor _ = "\n\ \\tUpdateRef\DC2X\n\ \\DC2workflow_execution\CAN\SOH \SOH(\v2).temporal.api.common.v1.WorkflowExecutionR\DC1workflowExecution\DC2\ESC\n\ \\tupdate_id\CAN\STX \SOH(\tR\bupdateId" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let workflowExecution__field_descriptor = Data.ProtoLens.FieldDescriptor "workflow_execution" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.WorkflowExecution) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'workflowExecution")) :: Data.ProtoLens.FieldDescriptor UpdateRef updateId__field_descriptor = Data.ProtoLens.FieldDescriptor "update_id" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"updateId")) :: Data.ProtoLens.FieldDescriptor UpdateRef in Data.Map.fromList [(Data.ProtoLens.Tag 1, workflowExecution__field_descriptor), (Data.ProtoLens.Tag 2, updateId__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _UpdateRef'_unknownFields (\ x__ y__ -> x__ {_UpdateRef'_unknownFields = y__}) defMessage = UpdateRef'_constructor {_UpdateRef'workflowExecution = Prelude.Nothing, _UpdateRef'updateId = Data.ProtoLens.fieldDefault, _UpdateRef'_unknownFields = []} parseMessage = let loop :: UpdateRef -> Data.ProtoLens.Encoding.Bytes.Parser UpdateRef loop x = do end <- 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 (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "workflow_execution" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"workflowExecution") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getText (Prelude.fromIntegral len)) "update_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"updateId") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "UpdateRef" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'workflowExecution") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"updateId") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.Text.Encoding.encodeUtf8 _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData UpdateRef where rnf = \ x__ -> Control.DeepSeq.deepseq (_UpdateRef'_unknownFields x__) (Control.DeepSeq.deepseq (_UpdateRef'workflowExecution x__) (Control.DeepSeq.deepseq (_UpdateRef'updateId x__) ())) {- | Fields : * 'Proto.Temporal.Api.Update.V1.Message_Fields.lifecycleStage' @:: Lens' WaitPolicy Proto.Temporal.Api.Enums.V1.Update.UpdateWorkflowExecutionLifecycleStage@ -} data WaitPolicy = WaitPolicy'_constructor {_WaitPolicy'lifecycleStage :: !Proto.Temporal.Api.Enums.V1.Update.UpdateWorkflowExecutionLifecycleStage, _WaitPolicy'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show WaitPolicy where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField WaitPolicy "lifecycleStage" Proto.Temporal.Api.Enums.V1.Update.UpdateWorkflowExecutionLifecycleStage where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _WaitPolicy'lifecycleStage (\ x__ y__ -> x__ {_WaitPolicy'lifecycleStage = y__})) Prelude.id instance Data.ProtoLens.Message WaitPolicy where messageName _ = Data.Text.pack "temporal.api.update.v1.WaitPolicy" packedMessageDescriptor _ = "\n\ \\n\ \WaitPolicy\DC2e\n\ \\SIlifecycle_stage\CAN\SOH \SOH(\SO2<.temporal.api.enums.v1.UpdateWorkflowExecutionLifecycleStageR\SOlifecycleStage" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let lifecycleStage__field_descriptor = Data.ProtoLens.FieldDescriptor "lifecycle_stage" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Update.UpdateWorkflowExecutionLifecycleStage) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"lifecycleStage")) :: Data.ProtoLens.FieldDescriptor WaitPolicy in Data.Map.fromList [(Data.ProtoLens.Tag 1, lifecycleStage__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _WaitPolicy'_unknownFields (\ x__ y__ -> x__ {_WaitPolicy'_unknownFields = y__}) defMessage = WaitPolicy'_constructor {_WaitPolicy'lifecycleStage = Data.ProtoLens.fieldDefault, _WaitPolicy'_unknownFields = []} parseMessage = let loop :: WaitPolicy -> Data.ProtoLens.Encoding.Bytes.Parser WaitPolicy loop x = do end <- 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 (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "lifecycle_stage" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"lifecycleStage") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "WaitPolicy" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"lifecycleStage") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 8) ((Prelude..) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) Prelude.fromEnum _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData WaitPolicy where rnf = \ x__ -> Control.DeepSeq.deepseq (_WaitPolicy'_unknownFields x__) (Control.DeepSeq.deepseq (_WaitPolicy'lifecycleStage x__) ()) packedFileDescriptor :: Data.ByteString.ByteString packedFileDescriptor = "\n\ \$temporal/api/update/v1/message.proto\DC2\SYNtemporal.api.update.v1\SUB$temporal/api/common/v1/message.proto\SUB\"temporal/api/enums/v1/update.proto\SUB%temporal/api/failure/v1/message.proto\"s\n\ \\n\ \WaitPolicy\DC2e\n\ \\SIlifecycle_stage\CAN\SOH \SOH(\SO2<.temporal.api.enums.v1.UpdateWorkflowExecutionLifecycleStageR\SOlifecycleStage\"\130\SOH\n\ \\tUpdateRef\DC2X\n\ \\DC2workflow_execution\CAN\SOH \SOH(\v2).temporal.api.common.v1.WorkflowExecutionR\DC1workflowExecution\DC2\ESC\n\ \\tupdate_id\CAN\STX \SOH(\tR\bupdateId\"\142\SOH\n\ \\aOutcome\DC2<\n\ \\asuccess\CAN\SOH \SOH(\v2 .temporal.api.common.v1.PayloadsH\NULR\asuccess\DC2<\n\ \\afailure\CAN\STX \SOH(\v2 .temporal.api.failure.v1.FailureH\NULR\afailureB\a\n\ \\ENQvalue\"?\n\ \\EOTMeta\DC2\ESC\n\ \\tupdate_id\CAN\SOH \SOH(\tR\bupdateId\DC2\SUB\n\ \\bidentity\CAN\STX \SOH(\tR\bidentity\"\137\SOH\n\ \\ENQInput\DC26\n\ \\ACKheader\CAN\SOH \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader\DC2\DC2\n\ \\EOTname\CAN\STX \SOH(\tR\EOTname\DC24\n\ \\EOTargs\CAN\ETX \SOH(\v2 .temporal.api.common.v1.PayloadsR\EOTargs\"p\n\ \\aRequest\DC20\n\ \\EOTmeta\CAN\SOH \SOH(\v2\FS.temporal.api.update.v1.MetaR\EOTmeta\DC23\n\ \\ENQinput\CAN\STX \SOH(\v2\GS.temporal.api.update.v1.InputR\ENQinput\"\162\STX\n\ \\tRejection\DC2=\n\ \\ESCrejected_request_message_id\CAN\SOH \SOH(\tR\CANrejectedRequestMessageId\DC2N\n\ \$rejected_request_sequencing_event_id\CAN\STX \SOH(\ETXR rejectedRequestSequencingEventId\DC2J\n\ \\DLErejected_request\CAN\ETX \SOH(\v2\US.temporal.api.update.v1.RequestR\SIrejectedRequest\DC2:\n\ \\afailure\CAN\EOT \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure\"\231\SOH\n\ \\n\ \Acceptance\DC2=\n\ \\ESCaccepted_request_message_id\CAN\SOH \SOH(\tR\CANacceptedRequestMessageId\DC2N\n\ \$accepted_request_sequencing_event_id\CAN\STX \SOH(\ETXR acceptedRequestSequencingEventId\DC2J\n\ \\DLEaccepted_request\CAN\ETX \SOH(\v2\US.temporal.api.update.v1.RequestR\SIacceptedRequest\"w\n\ \\bResponse\DC20\n\ \\EOTmeta\CAN\SOH \SOH(\v2\FS.temporal.api.update.v1.MetaR\EOTmeta\DC29\n\ \\aoutcome\CAN\STX \SOH(\v2\US.temporal.api.update.v1.OutcomeR\aoutcomeB\137\SOH\n\ \\EMio.temporal.api.update.v1B\fMessageProtoP\SOHZ#go.temporal.io/api/update/v1;update\170\STX\CANTemporalio.Api.Update.V1\234\STX\ESCTemporalio::Api::Update::V1J\184\US\n\ \\ACK\DC2\EOT\SYN\NULm\SOH\n\ \\241\b\n\ \\SOH\f\DC2\ETX\SYN\NUL\DC22\230\b The MIT License\n\ \\n\ \ Copyright (c) 2020 Temporal Technologies Inc. All rights reserved.\n\ \\n\ \ Permission is hereby granted, free of charge, to any person obtaining a copy\n\ \ of this software and associated documentation files (the \"Software\"), to deal\n\ \ in the Software without restriction, including without limitation the rights\n\ \ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell\n\ \ copies of the Software, and to permit persons to whom the Software is\n\ \ furnished to do so, subject to the following conditions:\n\ \\n\ \ The above copyright notice and this permission notice shall be included in\n\ \ all copies or substantial portions of the Software.\n\ \\n\ \ THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\n\ \ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\n\ \ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\n\ \ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\n\ \ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,\n\ \ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN\n\ \ THE SOFTWARE.\n\ \\n\ \\b\n\ \\SOH\STX\DC2\ETX\CAN\NUL\US\n\ \\b\n\ \\SOH\b\DC2\ETX\SUB\NUL:\n\ \\t\n\ \\STX\b\v\DC2\ETX\SUB\NUL:\n\ \\b\n\ \\SOH\b\DC2\ETX\ESC\NUL2\n\ \\t\n\ \\STX\b\SOH\DC2\ETX\ESC\NUL2\n\ \\b\n\ \\SOH\b\DC2\ETX\FS\NUL\"\n\ \\t\n\ \\STX\b\n\ \\DC2\ETX\FS\NUL\"\n\ \\b\n\ \\SOH\b\DC2\ETX\GS\NUL-\n\ \\t\n\ \\STX\b\b\DC2\ETX\GS\NUL-\n\ \\b\n\ \\SOH\b\DC2\ETX\RS\NUL4\n\ \\t\n\ \\STX\b-\DC2\ETX\RS\NUL4\n\ \\b\n\ \\SOH\b\DC2\ETX\US\NUL5\n\ \\t\n\ \\STX\b%\DC2\ETX\US\NUL5\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\ \C\n\ \\STX\EOT\NUL\DC2\EOT&\NUL-\SOH\SUB7 Specifies client's intent to wait for Update results.\n\ \\n\ \\n\ \\n\ \\ETX\EOT\NUL\SOH\DC2\ETX&\b\DC2\n\ \\211\STX\n\ \\EOT\EOT\NUL\STX\NUL\DC2\ETX,\EOTT\SUB\197\STX Indicates the Update lifecycle stage that the Update must reach before\n\ \ API call is returned.\n\ \ NOTE: This field works together with API call timeout which is limited by\n\ \ server timeout (maximum wait time). If server timeout is expired before\n\ \ user specified timeout, API call returns even if specified stage is not reached.\n\ \\n\ \\f\n\ \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX,\EOT?\n\ \\f\n\ \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX,@O\n\ \\f\n\ \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX,RS\n\ \[\n\ \\STX\EOT\SOH\DC2\EOT0\NUL3\SOH\SUBO The data needed by a client to refer to a previously invoked Workflow Update.\n\ \\n\ \\n\ \\n\ \\ETX\EOT\SOH\SOH\DC2\ETX0\b\DC1\n\ \\v\n\ \\EOT\EOT\SOH\STX\NUL\DC2\ETX1\EOTD\n\ \\f\n\ \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX1\EOT,\n\ \\f\n\ \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX1-?\n\ \\f\n\ \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX1BC\n\ \\v\n\ \\EOT\EOT\SOH\STX\SOH\DC2\ETX2\EOT\EM\n\ \\f\n\ \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX2\EOT\n\ \\n\ \\f\n\ \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX2\v\DC4\n\ \\f\n\ \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX2\ETB\CAN\n\ \C\n\ \\STX\EOT\STX\DC2\EOT6\NUL;\SOH\SUB7 The outcome of a Workflow Update: success or failure.\n\ \\n\ \\n\ \\n\ \\ETX\EOT\STX\SOH\DC2\ETX6\b\SI\n\ \\f\n\ \\EOT\EOT\STX\b\NUL\DC2\EOT7\EOT:\ENQ\n\ \\f\n\ \\ENQ\EOT\STX\b\NUL\SOH\DC2\ETX7\n\ \\SI\n\ \\v\n\ \\EOT\EOT\STX\STX\NUL\DC2\ETX8\b4\n\ \\f\n\ \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX8\b'\n\ \\f\n\ \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX8(/\n\ \\f\n\ \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX823\n\ \\v\n\ \\EOT\EOT\STX\STX\SOH\DC2\ETX9\b4\n\ \\f\n\ \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX9\b'\n\ \\f\n\ \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX9(/\n\ \\f\n\ \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX923\n\ \/\n\ \\STX\EOT\ETX\DC2\EOT>\NULD\SOH\SUB# Metadata about a Workflow Update.\n\ \\n\ \\n\ \\n\ \\ETX\EOT\ETX\SOH\DC2\ETX>\b\f\n\ \E\n\ \\EOT\EOT\ETX\STX\NUL\DC2\ETX@\EOT\EM\SUB8 An ID with workflow-scoped uniqueness for this Update.\n\ \\n\ \\f\n\ \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX@\EOT\n\ \\n\ \\f\n\ \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX@\v\DC4\n\ \\f\n\ \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX@\ETB\CAN\n\ \I\n\ \\EOT\EOT\ETX\STX\SOH\DC2\ETXC\EOT\CAN\SUB< A string identifying the agent that requested this Update.\n\ \\n\ \\f\n\ \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETXC\EOT\n\ \\n\ \\f\n\ \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETXC\v\DC3\n\ \\f\n\ \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETXC\SYN\ETB\n\ \\n\ \\n\ \\STX\EOT\EOT\DC2\EOTF\NULP\SOH\n\ \\n\ \\n\ \\ETX\EOT\EOT\SOH\DC2\ETXF\b\r\n\ \\137\SOH\n\ \\EOT\EOT\EOT\STX\NUL\DC2\ETXI\EOT-\SUB| Headers that are passed with the Update from the requesting entity.\n\ \ These can include things like auth or tracing tokens.\n\ \\n\ \\f\n\ \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETXI\EOT!\n\ \\f\n\ \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXI\"(\n\ \\f\n\ \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXI+,\n\ \O\n\ \\EOT\EOT\EOT\STX\SOH\DC2\ETXL\EOT\DC4\SUBB The name of the Update handler to invoke on the target Workflow.\n\ \\n\ \\f\n\ \\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\ETXL\EOT\n\ \\n\ \\f\n\ \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETXL\v\SI\n\ \\f\n\ \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETXL\DC2\DC3\n\ \A\n\ \\EOT\EOT\EOT\STX\STX\DC2\ETXO\EOT-\SUB4 The arguments to pass to the named Update handler.\n\ \\n\ \\f\n\ \\ENQ\EOT\EOT\STX\STX\ACK\DC2\ETXO\EOT#\n\ \\f\n\ \\ENQ\EOT\EOT\STX\STX\SOH\DC2\ETXO$(\n\ \\f\n\ \\ENQ\EOT\EOT\STX\STX\ETX\DC2\ETXO+,\n\ \A\n\ \\STX\EOT\ENQ\DC2\EOTS\NULV\SOH\SUB5 The client request that triggers a Workflow Update.\n\ \\n\ \\n\ \\n\ \\ETX\EOT\ENQ\SOH\DC2\ETXS\b\SI\n\ \\v\n\ \\EOT\EOT\ENQ\STX\NUL\DC2\ETXT\EOT\DC2\n\ \\f\n\ \\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETXT\EOT\b\n\ \\f\n\ \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXT\t\r\n\ \\f\n\ \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXT\DLE\DC1\n\ \\v\n\ \\EOT\EOT\ENQ\STX\SOH\DC2\ETXU\EOT\DC4\n\ \\f\n\ \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETXU\EOT\t\n\ \\f\n\ \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETXU\n\ \\SI\n\ \\f\n\ \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETXU\DC2\DC3\n\ \]\n\ \\STX\EOT\ACK\DC2\EOTY\NUL^\SOH\SUBQ An Update protocol message indicating that a Workflow Update has been rejected.\n\ \\n\ \\n\ \\n\ \\ETX\EOT\ACK\SOH\DC2\ETXY\b\DC1\n\ \\v\n\ \\EOT\EOT\ACK\STX\NUL\DC2\ETXZ\EOT+\n\ \\f\n\ \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETXZ\EOT\n\ \\n\ \\f\n\ \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXZ\v&\n\ \\f\n\ \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXZ)*\n\ \\v\n\ \\EOT\EOT\ACK\STX\SOH\DC2\ETX[\EOT3\n\ \\f\n\ \\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETX[\EOT\t\n\ \\f\n\ \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX[\n\ \.\n\ \\f\n\ \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX[12\n\ \\v\n\ \\EOT\EOT\ACK\STX\STX\DC2\ETX\\\EOT!\n\ \\f\n\ \\ENQ\EOT\ACK\STX\STX\ACK\DC2\ETX\\\EOT\v\n\ \\f\n\ \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETX\\\f\FS\n\ \\f\n\ \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETX\\\US \n\ \\v\n\ \\EOT\EOT\ACK\STX\ETX\DC2\ETX]\EOT0\n\ \\f\n\ \\ENQ\EOT\ACK\STX\ETX\ACK\DC2\ETX]\EOT#\n\ \\f\n\ \\ENQ\EOT\ACK\STX\ETX\SOH\DC2\ETX]$+\n\ \\f\n\ \\ENQ\EOT\ACK\STX\ETX\ETX\DC2\ETX]./\n\ \\142\SOH\n\ \\STX\EOT\a\DC2\EOTb\NULf\SOH\SUB\129\SOH An Update protocol message indicating that a Workflow Update has\n\ \ been accepted (i.e. passed the worker-side validation phase).\n\ \\n\ \\n\ \\n\ \\ETX\EOT\a\SOH\DC2\ETXb\b\DC2\n\ \\v\n\ \\EOT\EOT\a\STX\NUL\DC2\ETXc\EOT+\n\ \\f\n\ \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETXc\EOT\n\ \\n\ \\f\n\ \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXc\v&\n\ \\f\n\ \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXc)*\n\ \\v\n\ \\EOT\EOT\a\STX\SOH\DC2\ETXd\EOT3\n\ \\f\n\ \\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETXd\EOT\t\n\ \\f\n\ \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXd\n\ \.\n\ \\f\n\ \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXd12\n\ \\v\n\ \\EOT\EOT\a\STX\STX\DC2\ETXe\EOT!\n\ \\f\n\ \\ENQ\EOT\a\STX\STX\ACK\DC2\ETXe\EOT\v\n\ \\f\n\ \\ENQ\EOT\a\STX\STX\SOH\DC2\ETXe\f\FS\n\ \\f\n\ \\ENQ\EOT\a\STX\STX\ETX\DC2\ETXe\US \n\ \u\n\ \\STX\EOT\b\DC2\EOTj\NULm\SOH\SUBi An Update protocol message indicating that a Workflow Update has\n\ \ completed with the contained outcome.\n\ \\n\ \\n\ \\n\ \\ETX\EOT\b\SOH\DC2\ETXj\b\DLE\n\ \\v\n\ \\EOT\EOT\b\STX\NUL\DC2\ETXk\EOT\DC2\n\ \\f\n\ \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETXk\EOT\b\n\ \\f\n\ \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXk\t\r\n\ \\f\n\ \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXk\DLE\DC1\n\ \\v\n\ \\EOT\EOT\b\STX\SOH\DC2\ETXl\EOT\CAN\n\ \\f\n\ \\ENQ\EOT\b\STX\SOH\ACK\DC2\ETXl\EOT\v\n\ \\f\n\ \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXl\f\DC3\n\ \\f\n\ \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXl\SYN\ETBb\ACKproto3"