{- 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 -> Text
_Acceptance'acceptedRequestMessageId :: !Data.Text.Text,
                             Acceptance -> Int64
_Acceptance'acceptedRequestSequencingEventId :: !Data.Int.Int64,
                             Acceptance -> Maybe Request
_Acceptance'acceptedRequest :: !(Prelude.Maybe Request),
                             Acceptance -> FieldSet
_Acceptance'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Acceptance -> Acceptance -> Bool
(Acceptance -> Acceptance -> Bool)
-> (Acceptance -> Acceptance -> Bool) -> Eq Acceptance
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Acceptance -> Acceptance -> Bool
== :: Acceptance -> Acceptance -> Bool
$c/= :: Acceptance -> Acceptance -> Bool
/= :: Acceptance -> Acceptance -> Bool
Prelude.Eq, Eq Acceptance
Eq Acceptance =>
(Acceptance -> Acceptance -> Ordering)
-> (Acceptance -> Acceptance -> Bool)
-> (Acceptance -> Acceptance -> Bool)
-> (Acceptance -> Acceptance -> Bool)
-> (Acceptance -> Acceptance -> Bool)
-> (Acceptance -> Acceptance -> Acceptance)
-> (Acceptance -> Acceptance -> Acceptance)
-> Ord Acceptance
Acceptance -> Acceptance -> Bool
Acceptance -> Acceptance -> Ordering
Acceptance -> Acceptance -> Acceptance
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 :: Acceptance -> Acceptance -> Ordering
compare :: Acceptance -> Acceptance -> Ordering
$c< :: Acceptance -> Acceptance -> Bool
< :: Acceptance -> Acceptance -> Bool
$c<= :: Acceptance -> Acceptance -> Bool
<= :: Acceptance -> Acceptance -> Bool
$c> :: Acceptance -> Acceptance -> Bool
> :: Acceptance -> Acceptance -> Bool
$c>= :: Acceptance -> Acceptance -> Bool
>= :: Acceptance -> Acceptance -> Bool
$cmax :: Acceptance -> Acceptance -> Acceptance
max :: Acceptance -> Acceptance -> Acceptance
$cmin :: Acceptance -> Acceptance -> Acceptance
min :: Acceptance -> Acceptance -> Acceptance
Prelude.Ord)
instance Prelude.Show Acceptance where
  showsPrec :: Int -> Acceptance -> ShowS
showsPrec Int
_ Acceptance
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Acceptance -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Acceptance
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Acceptance "acceptedRequestMessageId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "acceptedRequestMessageId"
-> (Text -> f Text) -> Acceptance -> f Acceptance
fieldOf Proxy# "acceptedRequestMessageId"
_
    = ((Text -> f Text) -> Acceptance -> f Acceptance)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Acceptance
-> f Acceptance
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Acceptance -> Text)
-> (Acceptance -> Text -> Acceptance)
-> Lens Acceptance Acceptance Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Acceptance -> Text
_Acceptance'acceptedRequestMessageId
           (\ Acceptance
x__ Text
y__ -> Acceptance
x__ {_Acceptance'acceptedRequestMessageId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Acceptance "acceptedRequestSequencingEventId" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "acceptedRequestSequencingEventId"
-> (Int64 -> f Int64) -> Acceptance -> f Acceptance
fieldOf Proxy# "acceptedRequestSequencingEventId"
_
    = ((Int64 -> f Int64) -> Acceptance -> f Acceptance)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> Acceptance
-> f Acceptance
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Acceptance -> Int64)
-> (Acceptance -> Int64 -> Acceptance)
-> Lens Acceptance Acceptance Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Acceptance -> Int64
_Acceptance'acceptedRequestSequencingEventId
           (\ Acceptance
x__ Int64
y__
              -> Acceptance
x__ {_Acceptance'acceptedRequestSequencingEventId = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Acceptance "acceptedRequest" Request where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "acceptedRequest"
-> (Request -> f Request) -> Acceptance -> f Acceptance
fieldOf Proxy# "acceptedRequest"
_
    = ((Maybe Request -> f (Maybe Request))
 -> Acceptance -> f Acceptance)
-> ((Request -> f Request) -> Maybe Request -> f (Maybe Request))
-> (Request -> f Request)
-> Acceptance
-> f Acceptance
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Acceptance -> Maybe Request)
-> (Acceptance -> Maybe Request -> Acceptance)
-> Lens Acceptance Acceptance (Maybe Request) (Maybe Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Acceptance -> Maybe Request
_Acceptance'acceptedRequest
           (\ Acceptance
x__ Maybe Request
y__ -> Acceptance
x__ {_Acceptance'acceptedRequest = y__}))
        (Request -> Lens' (Maybe Request) Request
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Request
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Acceptance "maybe'acceptedRequest" (Prelude.Maybe Request) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'acceptedRequest"
-> (Maybe Request -> f (Maybe Request))
-> Acceptance
-> f Acceptance
fieldOf Proxy# "maybe'acceptedRequest"
_
    = ((Maybe Request -> f (Maybe Request))
 -> Acceptance -> f Acceptance)
-> ((Maybe Request -> f (Maybe Request))
    -> Maybe Request -> f (Maybe Request))
-> (Maybe Request -> f (Maybe Request))
-> Acceptance
-> f Acceptance
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Acceptance -> Maybe Request)
-> (Acceptance -> Maybe Request -> Acceptance)
-> Lens Acceptance Acceptance (Maybe Request) (Maybe Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Acceptance -> Maybe Request
_Acceptance'acceptedRequest
           (\ Acceptance
x__ Maybe Request
y__ -> Acceptance
x__ {_Acceptance'acceptedRequest = y__}))
        (Maybe Request -> f (Maybe Request))
-> Maybe Request -> f (Maybe Request)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Acceptance where
  messageName :: Proxy Acceptance -> Text
messageName Proxy Acceptance
_ = String -> Text
Data.Text.pack String
"temporal.api.update.v1.Acceptance"
  packedMessageDescriptor :: Proxy Acceptance -> ByteString
packedMessageDescriptor Proxy Acceptance
_
    = ByteString
"\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 :: Proxy Acceptance -> ByteString
packedFileDescriptor Proxy Acceptance
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Acceptance)
fieldsByTag
    = let
        acceptedRequestMessageId__field_descriptor :: FieldDescriptor Acceptance
acceptedRequestMessageId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Acceptance Text
-> FieldDescriptor Acceptance
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"accepted_request_message_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 Acceptance Acceptance Text Text
-> FieldAccessor Acceptance 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 @"acceptedRequestMessageId")) ::
              Data.ProtoLens.FieldDescriptor Acceptance
        acceptedRequestSequencingEventId__field_descriptor :: FieldDescriptor Acceptance
acceptedRequestSequencingEventId__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor Acceptance Int64
-> FieldDescriptor Acceptance
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"accepted_request_sequencing_event_id"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens Acceptance Acceptance Int64 Int64
-> FieldAccessor Acceptance 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
                    @"acceptedRequestSequencingEventId")) ::
              Data.ProtoLens.FieldDescriptor Acceptance
        acceptedRequest__field_descriptor :: FieldDescriptor Acceptance
acceptedRequest__field_descriptor
          = String
-> FieldTypeDescriptor Request
-> FieldAccessor Acceptance Request
-> FieldDescriptor Acceptance
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"accepted_request"
              (MessageOrGroup -> FieldTypeDescriptor Request
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Request)
              (Lens Acceptance Acceptance (Maybe Request) (Maybe Request)
-> FieldAccessor Acceptance Request
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'acceptedRequest")) ::
              Data.ProtoLens.FieldDescriptor Acceptance
      in
        [(Tag, FieldDescriptor Acceptance)]
-> Map Tag (FieldDescriptor Acceptance)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, 
            FieldDescriptor Acceptance
acceptedRequestMessageId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, 
            FieldDescriptor Acceptance
acceptedRequestSequencingEventId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Acceptance
acceptedRequest__field_descriptor)]
  unknownFields :: Lens' Acceptance FieldSet
unknownFields
    = (Acceptance -> FieldSet)
-> (Acceptance -> FieldSet -> Acceptance)
-> Lens' Acceptance FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Acceptance -> FieldSet
_Acceptance'_unknownFields
        (\ Acceptance
x__ FieldSet
y__ -> Acceptance
x__ {_Acceptance'_unknownFields = y__})
  defMessage :: Acceptance
defMessage
    = Acceptance'_constructor
        {_Acceptance'acceptedRequestMessageId :: Text
_Acceptance'acceptedRequestMessageId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Acceptance'acceptedRequestSequencingEventId :: Int64
_Acceptance'acceptedRequestSequencingEventId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Acceptance'acceptedRequest :: Maybe Request
_Acceptance'acceptedRequest = Maybe Request
forall a. Maybe a
Prelude.Nothing,
         _Acceptance'_unknownFields :: FieldSet
_Acceptance'_unknownFields = []}
  parseMessage :: Parser Acceptance
parseMessage
    = let
        loop ::
          Acceptance -> Data.ProtoLens.Encoding.Bytes.Parser Acceptance
        loop :: Acceptance -> Parser Acceptance
loop Acceptance
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
"accepted_request_message_id"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"acceptedRequestMessageId") y x)
                        Word64
16
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"accepted_request_sequencing_event_id"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field
                                        @"acceptedRequestSequencingEventId")
                                     y x)
                        Word64
26
                          -> do y <- Parser Request -> String -> Parser Request
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
"accepted_request"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"acceptedRequest") 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 Acceptance -> String -> Parser Acceptance
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Acceptance -> Parser Acceptance
loop Acceptance
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Acceptance"
  buildMessage :: Acceptance -> Builder
buildMessage
    = \ Acceptance
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike Text Acceptance Acceptance Text Text -> Acceptance -> 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 @"acceptedRequestMessageId") Acceptance
_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 :: Int64
_v
                     = FoldLike Int64 Acceptance Acceptance Int64 Int64
-> Acceptance -> 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 @"acceptedRequestSequencingEventId") Acceptance
_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.<>)
                   (case
                        FoldLike
  (Maybe Request)
  Acceptance
  Acceptance
  (Maybe Request)
  (Maybe Request)
-> Acceptance -> Maybe Request
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'acceptedRequest") Acceptance
_x
                    of
                      Maybe Request
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just Request
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (Request -> ByteString) -> Request -> 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))
                                Request -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Request
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Acceptance Acceptance FieldSet FieldSet
-> Acceptance -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Acceptance Acceptance FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Acceptance FieldSet
Data.ProtoLens.unknownFields Acceptance
_x))))
instance Control.DeepSeq.NFData Acceptance where
  rnf :: Acceptance -> ()
rnf
    = \ Acceptance
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Acceptance -> FieldSet
_Acceptance'_unknownFields Acceptance
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Acceptance -> Text
_Acceptance'acceptedRequestMessageId Acceptance
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Acceptance -> Int64
_Acceptance'acceptedRequestSequencingEventId Acceptance
x__)
                   (Maybe Request -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Acceptance -> Maybe Request
_Acceptance'acceptedRequest Acceptance
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 -> Maybe Header
_Input'header :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header),
                        Input -> Text
_Input'name :: !Data.Text.Text,
                        Input -> Maybe Payloads
_Input'args :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
                        Input -> FieldSet
_Input'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Input -> Input -> Bool
(Input -> Input -> Bool) -> (Input -> Input -> Bool) -> Eq Input
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Input -> Input -> Bool
== :: Input -> Input -> Bool
$c/= :: Input -> Input -> Bool
/= :: Input -> Input -> Bool
Prelude.Eq, Eq Input
Eq Input =>
(Input -> Input -> Ordering)
-> (Input -> Input -> Bool)
-> (Input -> Input -> Bool)
-> (Input -> Input -> Bool)
-> (Input -> Input -> Bool)
-> (Input -> Input -> Input)
-> (Input -> Input -> Input)
-> Ord Input
Input -> Input -> Bool
Input -> Input -> Ordering
Input -> Input -> Input
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 :: Input -> Input -> Ordering
compare :: Input -> Input -> Ordering
$c< :: Input -> Input -> Bool
< :: Input -> Input -> Bool
$c<= :: Input -> Input -> Bool
<= :: Input -> Input -> Bool
$c> :: Input -> Input -> Bool
> :: Input -> Input -> Bool
$c>= :: Input -> Input -> Bool
>= :: Input -> Input -> Bool
$cmax :: Input -> Input -> Input
max :: Input -> Input -> Input
$cmin :: Input -> Input -> Input
min :: Input -> Input -> Input
Prelude.Ord)
instance Prelude.Show Input where
  showsPrec :: Int -> Input -> ShowS
showsPrec Int
_ Input
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Input -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Input
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Input "header" Proto.Temporal.Api.Common.V1.Message.Header where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header" -> (Header -> f Header) -> Input -> f Input
fieldOf Proxy# "header"
_
    = ((Maybe Header -> f (Maybe Header)) -> Input -> f Input)
-> ((Header -> f Header) -> Maybe Header -> f (Maybe Header))
-> (Header -> f Header)
-> Input
-> f Input
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Input -> Maybe Header)
-> (Input -> Maybe Header -> Input)
-> Lens Input Input (Maybe Header) (Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Input -> Maybe Header
_Input'header (\ Input
x__ Maybe Header
y__ -> Input
x__ {_Input'header = y__}))
        (Header -> Lens' (Maybe Header) Header
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Header
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Input "maybe'header" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe Header -> f (Maybe Header)) -> Input -> f Input
fieldOf Proxy# "maybe'header"
_
    = ((Maybe Header -> f (Maybe Header)) -> Input -> f Input)
-> ((Maybe Header -> f (Maybe Header))
    -> Maybe Header -> f (Maybe Header))
-> (Maybe Header -> f (Maybe Header))
-> Input
-> f Input
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Input -> Maybe Header)
-> (Input -> Maybe Header -> Input)
-> Lens Input Input (Maybe Header) (Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Input -> Maybe Header
_Input'header (\ Input
x__ Maybe Header
y__ -> Input
x__ {_Input'header = y__}))
        (Maybe Header -> f (Maybe Header))
-> Maybe Header -> f (Maybe Header)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Input "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name" -> (Text -> f Text) -> Input -> f Input
fieldOf Proxy# "name"
_
    = ((Text -> f Text) -> Input -> f Input)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Input
-> f Input
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Input -> Text)
-> (Input -> Text -> Input) -> Lens Input Input Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Input -> Text
_Input'name (\ Input
x__ Text
y__ -> Input
x__ {_Input'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Input "args" Proto.Temporal.Api.Common.V1.Message.Payloads where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "args" -> (Payloads -> f Payloads) -> Input -> f Input
fieldOf Proxy# "args"
_
    = ((Maybe Payloads -> f (Maybe Payloads)) -> Input -> f Input)
-> ((Payloads -> f Payloads)
    -> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> Input
-> f Input
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Input -> Maybe Payloads)
-> (Input -> Maybe Payloads -> Input)
-> Lens Input Input (Maybe Payloads) (Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Input -> Maybe Payloads
_Input'args (\ Input
x__ Maybe Payloads
y__ -> Input
x__ {_Input'args = y__}))
        (Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Input "maybe'args" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'args"
-> (Maybe Payloads -> f (Maybe Payloads)) -> Input -> f Input
fieldOf Proxy# "maybe'args"
_
    = ((Maybe Payloads -> f (Maybe Payloads)) -> Input -> f Input)
-> ((Maybe Payloads -> f (Maybe Payloads))
    -> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> Input
-> f Input
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Input -> Maybe Payloads)
-> (Input -> Maybe Payloads -> Input)
-> Lens Input Input (Maybe Payloads) (Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Input -> Maybe Payloads
_Input'args (\ Input
x__ Maybe Payloads
y__ -> Input
x__ {_Input'args = y__}))
        (Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Input where
  messageName :: Proxy Input -> Text
messageName Proxy Input
_ = String -> Text
Data.Text.pack String
"temporal.api.update.v1.Input"
  packedMessageDescriptor :: Proxy Input -> ByteString
packedMessageDescriptor Proxy Input
_
    = ByteString
"\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 :: Proxy Input -> ByteString
packedFileDescriptor Proxy Input
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Input)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor Input
header__field_descriptor
          = String
-> FieldTypeDescriptor Header
-> FieldAccessor Input Header
-> FieldDescriptor Input
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor Header
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Header)
              (Lens Input Input (Maybe Header) (Maybe Header)
-> FieldAccessor Input Header
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'header")) ::
              Data.ProtoLens.FieldDescriptor Input
        name__field_descriptor :: FieldDescriptor Input
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Input Text
-> FieldDescriptor Input
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens Input Input Text Text -> FieldAccessor Input Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor Input
        args__field_descriptor :: FieldDescriptor Input
args__field_descriptor
          = String
-> FieldTypeDescriptor Payloads
-> FieldAccessor Input Payloads
-> FieldDescriptor Input
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"args"
              (MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
              (Lens Input Input (Maybe Payloads) (Maybe Payloads)
-> FieldAccessor Input Payloads
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'args")) ::
              Data.ProtoLens.FieldDescriptor Input
      in
        [(Tag, FieldDescriptor Input)] -> Map Tag (FieldDescriptor Input)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Input
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Input
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Input
args__field_descriptor)]
  unknownFields :: Lens' Input FieldSet
unknownFields
    = (Input -> FieldSet)
-> (Input -> FieldSet -> Input) -> Lens' Input FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Input -> FieldSet
_Input'_unknownFields
        (\ Input
x__ FieldSet
y__ -> Input
x__ {_Input'_unknownFields = y__})
  defMessage :: Input
defMessage
    = Input'_constructor
        {_Input'header :: Maybe Header
_Input'header = Maybe Header
forall a. Maybe a
Prelude.Nothing,
         _Input'name :: Text
_Input'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Input'args :: Maybe Payloads
_Input'args = Maybe Payloads
forall a. Maybe a
Prelude.Nothing, _Input'_unknownFields :: FieldSet
_Input'_unknownFields = []}
  parseMessage :: Parser Input
parseMessage
    = let
        loop :: Input -> Data.ProtoLens.Encoding.Bytes.Parser Input
        loop :: Input -> Parser Input
loop Input
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 Header -> String -> Parser Header
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                        Word64
26
                          -> do y <- Parser Payloads -> String -> Parser Payloads
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
"args"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"args") 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 Input -> String -> Parser Input
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Input -> Parser Input
loop Input
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Input"
  buildMessage :: Input -> Builder
buildMessage
    = \ Input
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike (Maybe Header) Input Input (Maybe Header) (Maybe Header)
-> Input -> Maybe Header
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'header") Input
_x
              of
                Maybe Header
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Header
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Header -> ByteString) -> Header -> 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))
                          Header -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Header
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: Text
_v = FoldLike Text Input Input Text Text -> Input -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Input
_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.<>)
                   (case
                        FoldLike
  (Maybe Payloads) Input Input (Maybe Payloads) (Maybe Payloads)
-> Input -> Maybe Payloads
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'args") Input
_x
                    of
                      Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just Payloads
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> 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))
                                Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Input Input FieldSet FieldSet
-> Input -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Input Input FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Input FieldSet
Data.ProtoLens.unknownFields Input
_x))))
instance Control.DeepSeq.NFData Input where
  rnf :: Input -> ()
rnf
    = \ Input
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Input -> FieldSet
_Input'_unknownFields Input
x__)
             (Maybe Header -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Input -> Maybe Header
_Input'header Input
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Input -> Text
_Input'name Input
x__) (Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Input -> Maybe Payloads
_Input'args Input
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 -> Text
_Meta'updateId :: !Data.Text.Text,
                       Meta -> Text
_Meta'identity :: !Data.Text.Text,
                       Meta -> FieldSet
_Meta'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Meta -> Meta -> Bool
(Meta -> Meta -> Bool) -> (Meta -> Meta -> Bool) -> Eq Meta
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Meta -> Meta -> Bool
== :: Meta -> Meta -> Bool
$c/= :: Meta -> Meta -> Bool
/= :: Meta -> Meta -> Bool
Prelude.Eq, Eq Meta
Eq Meta =>
(Meta -> Meta -> Ordering)
-> (Meta -> Meta -> Bool)
-> (Meta -> Meta -> Bool)
-> (Meta -> Meta -> Bool)
-> (Meta -> Meta -> Bool)
-> (Meta -> Meta -> Meta)
-> (Meta -> Meta -> Meta)
-> Ord Meta
Meta -> Meta -> Bool
Meta -> Meta -> Ordering
Meta -> Meta -> Meta
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 :: Meta -> Meta -> Ordering
compare :: Meta -> Meta -> Ordering
$c< :: Meta -> Meta -> Bool
< :: Meta -> Meta -> Bool
$c<= :: Meta -> Meta -> Bool
<= :: Meta -> Meta -> Bool
$c> :: Meta -> Meta -> Bool
> :: Meta -> Meta -> Bool
$c>= :: Meta -> Meta -> Bool
>= :: Meta -> Meta -> Bool
$cmax :: Meta -> Meta -> Meta
max :: Meta -> Meta -> Meta
$cmin :: Meta -> Meta -> Meta
min :: Meta -> Meta -> Meta
Prelude.Ord)
instance Prelude.Show Meta where
  showsPrec :: Int -> Meta -> ShowS
showsPrec Int
_ Meta
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Meta -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Meta
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Meta "updateId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "updateId" -> (Text -> f Text) -> Meta -> f Meta
fieldOf Proxy# "updateId"
_
    = ((Text -> f Text) -> Meta -> f Meta)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Meta
-> f Meta
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Meta -> Text)
-> (Meta -> Text -> Meta) -> Lens Meta Meta Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Meta -> Text
_Meta'updateId (\ Meta
x__ Text
y__ -> Meta
x__ {_Meta'updateId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Meta "identity" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "identity" -> (Text -> f Text) -> Meta -> f Meta
fieldOf Proxy# "identity"
_
    = ((Text -> f Text) -> Meta -> f Meta)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Meta
-> f Meta
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Meta -> Text)
-> (Meta -> Text -> Meta) -> Lens Meta Meta Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Meta -> Text
_Meta'identity (\ Meta
x__ Text
y__ -> Meta
x__ {_Meta'identity = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Meta where
  messageName :: Proxy Meta -> Text
messageName Proxy Meta
_ = String -> Text
Data.Text.pack String
"temporal.api.update.v1.Meta"
  packedMessageDescriptor :: Proxy Meta -> ByteString
packedMessageDescriptor Proxy Meta
_
    = ByteString
"\n\
      \\EOTMeta\DC2\ESC\n\
      \\tupdate_id\CAN\SOH \SOH(\tR\bupdateId\DC2\SUB\n\
      \\bidentity\CAN\STX \SOH(\tR\bidentity"
  packedFileDescriptor :: Proxy Meta -> ByteString
packedFileDescriptor Proxy Meta
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Meta)
fieldsByTag
    = let
        updateId__field_descriptor :: FieldDescriptor Meta
updateId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Meta Text
-> FieldDescriptor Meta
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"update_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 Meta Meta Text Text -> FieldAccessor Meta 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 @"updateId")) ::
              Data.ProtoLens.FieldDescriptor Meta
        identity__field_descriptor :: FieldDescriptor Meta
identity__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Meta Text
-> FieldDescriptor Meta
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"identity"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens Meta Meta Text Text -> FieldAccessor Meta Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"identity")) ::
              Data.ProtoLens.FieldDescriptor Meta
      in
        [(Tag, FieldDescriptor Meta)] -> Map Tag (FieldDescriptor Meta)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Meta
updateId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Meta
identity__field_descriptor)]
  unknownFields :: Lens' Meta FieldSet
unknownFields
    = (Meta -> FieldSet)
-> (Meta -> FieldSet -> Meta) -> Lens' Meta FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Meta -> FieldSet
_Meta'_unknownFields
        (\ Meta
x__ FieldSet
y__ -> Meta
x__ {_Meta'_unknownFields = y__})
  defMessage :: Meta
defMessage
    = Meta'_constructor
        {_Meta'updateId :: Text
_Meta'updateId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Meta'identity :: Text
_Meta'identity = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Meta'_unknownFields :: FieldSet
_Meta'_unknownFields = []}
  parseMessage :: Parser Meta
parseMessage
    = let
        loop :: Meta -> Data.ProtoLens.Encoding.Bytes.Parser Meta
        loop :: Meta -> Parser Meta
loop Meta
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
"update_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"updateId") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"identity"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"identity") y x)
                        Word64
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 Meta -> String -> Parser Meta
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Meta -> Parser Meta
loop Meta
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Meta"
  buildMessage :: Meta -> Builder
buildMessage
    = \ Meta
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text Meta Meta Text Text -> Meta -> 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 @"updateId") Meta
_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 Meta Meta Text Text -> Meta -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"identity") Meta
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Meta Meta FieldSet FieldSet -> Meta -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Meta Meta FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Meta FieldSet
Data.ProtoLens.unknownFields Meta
_x)))
instance Control.DeepSeq.NFData Meta where
  rnf :: Meta -> ()
rnf
    = \ Meta
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Meta -> FieldSet
_Meta'_unknownFields Meta
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Meta -> Text
_Meta'updateId Meta
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Meta -> Text
_Meta'identity Meta
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 -> Maybe Outcome'Value
_Outcome'value :: !(Prelude.Maybe Outcome'Value),
                          Outcome -> FieldSet
_Outcome'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Outcome -> Outcome -> Bool
(Outcome -> Outcome -> Bool)
-> (Outcome -> Outcome -> Bool) -> Eq Outcome
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Outcome -> Outcome -> Bool
== :: Outcome -> Outcome -> Bool
$c/= :: Outcome -> Outcome -> Bool
/= :: Outcome -> Outcome -> Bool
Prelude.Eq, Eq Outcome
Eq Outcome =>
(Outcome -> Outcome -> Ordering)
-> (Outcome -> Outcome -> Bool)
-> (Outcome -> Outcome -> Bool)
-> (Outcome -> Outcome -> Bool)
-> (Outcome -> Outcome -> Bool)
-> (Outcome -> Outcome -> Outcome)
-> (Outcome -> Outcome -> Outcome)
-> Ord Outcome
Outcome -> Outcome -> Bool
Outcome -> Outcome -> Ordering
Outcome -> Outcome -> Outcome
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 :: Outcome -> Outcome -> Ordering
compare :: Outcome -> Outcome -> Ordering
$c< :: Outcome -> Outcome -> Bool
< :: Outcome -> Outcome -> Bool
$c<= :: Outcome -> Outcome -> Bool
<= :: Outcome -> Outcome -> Bool
$c> :: Outcome -> Outcome -> Bool
> :: Outcome -> Outcome -> Bool
$c>= :: Outcome -> Outcome -> Bool
>= :: Outcome -> Outcome -> Bool
$cmax :: Outcome -> Outcome -> Outcome
max :: Outcome -> Outcome -> Outcome
$cmin :: Outcome -> Outcome -> Outcome
min :: Outcome -> Outcome -> Outcome
Prelude.Ord)
instance Prelude.Show Outcome where
  showsPrec :: Int -> Outcome -> ShowS
showsPrec Int
_ Outcome
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Outcome -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Outcome
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data Outcome'Value
  = Outcome'Success !Proto.Temporal.Api.Common.V1.Message.Payloads |
    Outcome'Failure !Proto.Temporal.Api.Failure.V1.Message.Failure
  deriving stock (Int -> Outcome'Value -> ShowS
[Outcome'Value] -> ShowS
Outcome'Value -> String
(Int -> Outcome'Value -> ShowS)
-> (Outcome'Value -> String)
-> ([Outcome'Value] -> ShowS)
-> Show Outcome'Value
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Outcome'Value -> ShowS
showsPrec :: Int -> Outcome'Value -> ShowS
$cshow :: Outcome'Value -> String
show :: Outcome'Value -> String
$cshowList :: [Outcome'Value] -> ShowS
showList :: [Outcome'Value] -> ShowS
Prelude.Show, Outcome'Value -> Outcome'Value -> Bool
(Outcome'Value -> Outcome'Value -> Bool)
-> (Outcome'Value -> Outcome'Value -> Bool) -> Eq Outcome'Value
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Outcome'Value -> Outcome'Value -> Bool
== :: Outcome'Value -> Outcome'Value -> Bool
$c/= :: Outcome'Value -> Outcome'Value -> Bool
/= :: Outcome'Value -> Outcome'Value -> Bool
Prelude.Eq, Eq Outcome'Value
Eq Outcome'Value =>
(Outcome'Value -> Outcome'Value -> Ordering)
-> (Outcome'Value -> Outcome'Value -> Bool)
-> (Outcome'Value -> Outcome'Value -> Bool)
-> (Outcome'Value -> Outcome'Value -> Bool)
-> (Outcome'Value -> Outcome'Value -> Bool)
-> (Outcome'Value -> Outcome'Value -> Outcome'Value)
-> (Outcome'Value -> Outcome'Value -> Outcome'Value)
-> Ord Outcome'Value
Outcome'Value -> Outcome'Value -> Bool
Outcome'Value -> Outcome'Value -> Ordering
Outcome'Value -> Outcome'Value -> Outcome'Value
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Outcome'Value -> Outcome'Value -> Ordering
compare :: Outcome'Value -> Outcome'Value -> Ordering
$c< :: Outcome'Value -> Outcome'Value -> Bool
< :: Outcome'Value -> Outcome'Value -> Bool
$c<= :: Outcome'Value -> Outcome'Value -> Bool
<= :: Outcome'Value -> Outcome'Value -> Bool
$c> :: Outcome'Value -> Outcome'Value -> Bool
> :: Outcome'Value -> Outcome'Value -> Bool
$c>= :: Outcome'Value -> Outcome'Value -> Bool
>= :: Outcome'Value -> Outcome'Value -> Bool
$cmax :: Outcome'Value -> Outcome'Value -> Outcome'Value
max :: Outcome'Value -> Outcome'Value -> Outcome'Value
$cmin :: Outcome'Value -> Outcome'Value -> Outcome'Value
min :: Outcome'Value -> Outcome'Value -> Outcome'Value
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Outcome "maybe'value" (Prelude.Maybe Outcome'Value) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'value"
-> (Maybe Outcome'Value -> f (Maybe Outcome'Value))
-> Outcome
-> f Outcome
fieldOf Proxy# "maybe'value"
_
    = ((Maybe Outcome'Value -> f (Maybe Outcome'Value))
 -> Outcome -> f Outcome)
-> ((Maybe Outcome'Value -> f (Maybe Outcome'Value))
    -> Maybe Outcome'Value -> f (Maybe Outcome'Value))
-> (Maybe Outcome'Value -> f (Maybe Outcome'Value))
-> Outcome
-> f Outcome
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Outcome -> Maybe Outcome'Value)
-> (Outcome -> Maybe Outcome'Value -> Outcome)
-> Lens Outcome Outcome (Maybe Outcome'Value) (Maybe Outcome'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Outcome -> Maybe Outcome'Value
_Outcome'value (\ Outcome
x__ Maybe Outcome'Value
y__ -> Outcome
x__ {_Outcome'value = y__}))
        (Maybe Outcome'Value -> f (Maybe Outcome'Value))
-> Maybe Outcome'Value -> f (Maybe Outcome'Value)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Outcome "maybe'success" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'success"
-> (Maybe Payloads -> f (Maybe Payloads)) -> Outcome -> f Outcome
fieldOf Proxy# "maybe'success"
_
    = ((Maybe Outcome'Value -> f (Maybe Outcome'Value))
 -> Outcome -> f Outcome)
-> ((Maybe Payloads -> f (Maybe Payloads))
    -> Maybe Outcome'Value -> f (Maybe Outcome'Value))
-> (Maybe Payloads -> f (Maybe Payloads))
-> Outcome
-> f Outcome
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Outcome -> Maybe Outcome'Value)
-> (Outcome -> Maybe Outcome'Value -> Outcome)
-> Lens Outcome Outcome (Maybe Outcome'Value) (Maybe Outcome'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Outcome -> Maybe Outcome'Value
_Outcome'value (\ Outcome
x__ Maybe Outcome'Value
y__ -> Outcome
x__ {_Outcome'value = y__}))
        ((Maybe Outcome'Value -> Maybe Payloads)
-> (Maybe Outcome'Value -> Maybe Payloads -> Maybe Outcome'Value)
-> Lens
     (Maybe Outcome'Value)
     (Maybe Outcome'Value)
     (Maybe Payloads)
     (Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Outcome'Value
x__
              -> case Maybe Outcome'Value
x__ of
                   (Prelude.Just (Outcome'Success Payloads
x__val)) -> Payloads -> Maybe Payloads
forall a. a -> Maybe a
Prelude.Just Payloads
x__val
                   Maybe Outcome'Value
_otherwise -> Maybe Payloads
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Outcome'Value
_ Maybe Payloads
y__ -> (Payloads -> Outcome'Value)
-> Maybe Payloads -> Maybe Outcome'Value
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Payloads -> Outcome'Value
Outcome'Success Maybe Payloads
y__))
instance Data.ProtoLens.Field.HasField Outcome "success" Proto.Temporal.Api.Common.V1.Message.Payloads where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "success"
-> (Payloads -> f Payloads) -> Outcome -> f Outcome
fieldOf Proxy# "success"
_
    = ((Maybe Outcome'Value -> f (Maybe Outcome'Value))
 -> Outcome -> f Outcome)
-> ((Payloads -> f Payloads)
    -> Maybe Outcome'Value -> f (Maybe Outcome'Value))
-> (Payloads -> f Payloads)
-> Outcome
-> f Outcome
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Outcome -> Maybe Outcome'Value)
-> (Outcome -> Maybe Outcome'Value -> Outcome)
-> Lens Outcome Outcome (Maybe Outcome'Value) (Maybe Outcome'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Outcome -> Maybe Outcome'Value
_Outcome'value (\ Outcome
x__ Maybe Outcome'Value
y__ -> Outcome
x__ {_Outcome'value = y__}))
        (((Maybe Payloads -> f (Maybe Payloads))
 -> Maybe Outcome'Value -> f (Maybe Outcome'Value))
-> ((Payloads -> f Payloads)
    -> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> Maybe Outcome'Value
-> f (Maybe Outcome'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Outcome'Value -> Maybe Payloads)
-> (Maybe Outcome'Value -> Maybe Payloads -> Maybe Outcome'Value)
-> Lens
     (Maybe Outcome'Value)
     (Maybe Outcome'Value)
     (Maybe Payloads)
     (Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Outcome'Value
x__
                 -> case Maybe Outcome'Value
x__ of
                      (Prelude.Just (Outcome'Success Payloads
x__val)) -> Payloads -> Maybe Payloads
forall a. a -> Maybe a
Prelude.Just Payloads
x__val
                      Maybe Outcome'Value
_otherwise -> Maybe Payloads
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Outcome'Value
_ Maybe Payloads
y__ -> (Payloads -> Outcome'Value)
-> Maybe Payloads -> Maybe Outcome'Value
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Payloads -> Outcome'Value
Outcome'Success Maybe Payloads
y__))
           (Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Outcome "maybe'failure" (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failure"
-> (Maybe Failure -> f (Maybe Failure)) -> Outcome -> f Outcome
fieldOf Proxy# "maybe'failure"
_
    = ((Maybe Outcome'Value -> f (Maybe Outcome'Value))
 -> Outcome -> f Outcome)
-> ((Maybe Failure -> f (Maybe Failure))
    -> Maybe Outcome'Value -> f (Maybe Outcome'Value))
-> (Maybe Failure -> f (Maybe Failure))
-> Outcome
-> f Outcome
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Outcome -> Maybe Outcome'Value)
-> (Outcome -> Maybe Outcome'Value -> Outcome)
-> Lens Outcome Outcome (Maybe Outcome'Value) (Maybe Outcome'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Outcome -> Maybe Outcome'Value
_Outcome'value (\ Outcome
x__ Maybe Outcome'Value
y__ -> Outcome
x__ {_Outcome'value = y__}))
        ((Maybe Outcome'Value -> Maybe Failure)
-> (Maybe Outcome'Value -> Maybe Failure -> Maybe Outcome'Value)
-> Lens
     (Maybe Outcome'Value)
     (Maybe Outcome'Value)
     (Maybe Failure)
     (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Outcome'Value
x__
              -> case Maybe Outcome'Value
x__ of
                   (Prelude.Just (Outcome'Failure Failure
x__val)) -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
x__val
                   Maybe Outcome'Value
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Outcome'Value
_ Maybe Failure
y__ -> (Failure -> Outcome'Value) -> Maybe Failure -> Maybe Outcome'Value
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Failure -> Outcome'Value
Outcome'Failure Maybe Failure
y__))
instance Data.ProtoLens.Field.HasField Outcome "failure" Proto.Temporal.Api.Failure.V1.Message.Failure where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failure" -> (Failure -> f Failure) -> Outcome -> f Outcome
fieldOf Proxy# "failure"
_
    = ((Maybe Outcome'Value -> f (Maybe Outcome'Value))
 -> Outcome -> f Outcome)
-> ((Failure -> f Failure)
    -> Maybe Outcome'Value -> f (Maybe Outcome'Value))
-> (Failure -> f Failure)
-> Outcome
-> f Outcome
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Outcome -> Maybe Outcome'Value)
-> (Outcome -> Maybe Outcome'Value -> Outcome)
-> Lens Outcome Outcome (Maybe Outcome'Value) (Maybe Outcome'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Outcome -> Maybe Outcome'Value
_Outcome'value (\ Outcome
x__ Maybe Outcome'Value
y__ -> Outcome
x__ {_Outcome'value = y__}))
        (((Maybe Failure -> f (Maybe Failure))
 -> Maybe Outcome'Value -> f (Maybe Outcome'Value))
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> Maybe Outcome'Value
-> f (Maybe Outcome'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Outcome'Value -> Maybe Failure)
-> (Maybe Outcome'Value -> Maybe Failure -> Maybe Outcome'Value)
-> Lens
     (Maybe Outcome'Value)
     (Maybe Outcome'Value)
     (Maybe Failure)
     (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Outcome'Value
x__
                 -> case Maybe Outcome'Value
x__ of
                      (Prelude.Just (Outcome'Failure Failure
x__val)) -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
x__val
                      Maybe Outcome'Value
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Outcome'Value
_ Maybe Failure
y__ -> (Failure -> Outcome'Value) -> Maybe Failure -> Maybe Outcome'Value
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Failure -> Outcome'Value
Outcome'Failure Maybe Failure
y__))
           (Failure -> Lens' (Maybe Failure) Failure
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message Outcome where
  messageName :: Proxy Outcome -> Text
messageName Proxy Outcome
_ = String -> Text
Data.Text.pack String
"temporal.api.update.v1.Outcome"
  packedMessageDescriptor :: Proxy Outcome -> ByteString
packedMessageDescriptor Proxy Outcome
_
    = ByteString
"\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 :: Proxy Outcome -> ByteString
packedFileDescriptor Proxy Outcome
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Outcome)
fieldsByTag
    = let
        success__field_descriptor :: FieldDescriptor Outcome
success__field_descriptor
          = String
-> FieldTypeDescriptor Payloads
-> FieldAccessor Outcome Payloads
-> FieldDescriptor Outcome
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"success"
              (MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
              (Lens' Outcome (Maybe Payloads) -> FieldAccessor Outcome Payloads
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'success")) ::
              Data.ProtoLens.FieldDescriptor Outcome
        failure__field_descriptor :: FieldDescriptor Outcome
failure__field_descriptor
          = String
-> FieldTypeDescriptor Failure
-> FieldAccessor Outcome Failure
-> FieldDescriptor Outcome
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"failure"
              (MessageOrGroup -> FieldTypeDescriptor Failure
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Failure.V1.Message.Failure)
              (Lens' Outcome (Maybe Failure) -> FieldAccessor Outcome Failure
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'failure")) ::
              Data.ProtoLens.FieldDescriptor Outcome
      in
        [(Tag, FieldDescriptor Outcome)]
-> Map Tag (FieldDescriptor Outcome)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Outcome
success__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Outcome
failure__field_descriptor)]
  unknownFields :: Lens' Outcome FieldSet
unknownFields
    = (Outcome -> FieldSet)
-> (Outcome -> FieldSet -> Outcome) -> Lens' Outcome FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Outcome -> FieldSet
_Outcome'_unknownFields
        (\ Outcome
x__ FieldSet
y__ -> Outcome
x__ {_Outcome'_unknownFields = y__})
  defMessage :: Outcome
defMessage
    = Outcome'_constructor
        {_Outcome'value :: Maybe Outcome'Value
_Outcome'value = Maybe Outcome'Value
forall a. Maybe a
Prelude.Nothing, _Outcome'_unknownFields :: FieldSet
_Outcome'_unknownFields = []}
  parseMessage :: Parser Outcome
parseMessage
    = let
        loop :: Outcome -> Data.ProtoLens.Encoding.Bytes.Parser Outcome
        loop :: Outcome -> Parser Outcome
loop Outcome
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 Payloads -> String -> Parser Payloads
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
"success"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"success") y x)
                        Word64
18
                          -> do y <- Parser Failure -> String -> Parser Failure
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
"failure"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failure") 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 Outcome -> String -> Parser Outcome
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Outcome -> Parser Outcome
loop Outcome
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Outcome"
  buildMessage :: Outcome -> Builder
buildMessage
    = \ Outcome
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Outcome'Value)
  Outcome
  Outcome
  (Maybe Outcome'Value)
  (Maybe Outcome'Value)
-> Outcome -> Maybe Outcome'Value
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value") Outcome
_x
              of
                Maybe Outcome'Value
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (Outcome'Success Payloads
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> 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))
                          Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
v)
                (Prelude.Just (Outcome'Failure Failure
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> 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))
                          Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet Outcome Outcome FieldSet FieldSet
-> Outcome -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Outcome Outcome FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Outcome FieldSet
Data.ProtoLens.unknownFields Outcome
_x))
instance Control.DeepSeq.NFData Outcome where
  rnf :: Outcome -> ()
rnf
    = \ Outcome
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Outcome -> FieldSet
_Outcome'_unknownFields Outcome
x__)
             (Maybe Outcome'Value -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Outcome -> Maybe Outcome'Value
_Outcome'value Outcome
x__) ())
instance Control.DeepSeq.NFData Outcome'Value where
  rnf :: Outcome'Value -> ()
rnf (Outcome'Success Payloads
x__) = Payloads -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Payloads
x__
  rnf (Outcome'Failure Failure
x__) = Failure -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Failure
x__
_Outcome'Success ::
  Data.ProtoLens.Prism.Prism' Outcome'Value Proto.Temporal.Api.Common.V1.Message.Payloads
_Outcome'Success :: Prism' Outcome'Value Payloads
_Outcome'Success
  = (Payloads -> Outcome'Value)
-> (Outcome'Value -> Maybe Payloads)
-> Prism' Outcome'Value Payloads
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Payloads -> Outcome'Value
Outcome'Success
      (\ Outcome'Value
p__
         -> case Outcome'Value
p__ of
              (Outcome'Success Payloads
p__val) -> Payloads -> Maybe Payloads
forall a. a -> Maybe a
Prelude.Just Payloads
p__val
              Outcome'Value
_otherwise -> Maybe Payloads
forall a. Maybe a
Prelude.Nothing)
_Outcome'Failure ::
  Data.ProtoLens.Prism.Prism' Outcome'Value Proto.Temporal.Api.Failure.V1.Message.Failure
_Outcome'Failure :: Prism' Outcome'Value Failure
_Outcome'Failure
  = (Failure -> Outcome'Value)
-> (Outcome'Value -> Maybe Failure) -> Prism' Outcome'Value Failure
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Failure -> Outcome'Value
Outcome'Failure
      (\ Outcome'Value
p__
         -> case Outcome'Value
p__ of
              (Outcome'Failure Failure
p__val) -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
p__val
              Outcome'Value
_otherwise -> Maybe Failure
forall a. Maybe a
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 -> Text
_Rejection'rejectedRequestMessageId :: !Data.Text.Text,
                            Rejection -> Int64
_Rejection'rejectedRequestSequencingEventId :: !Data.Int.Int64,
                            Rejection -> Maybe Request
_Rejection'rejectedRequest :: !(Prelude.Maybe Request),
                            Rejection -> Maybe Failure
_Rejection'failure :: !(Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure),
                            Rejection -> FieldSet
_Rejection'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Rejection -> Rejection -> Bool
(Rejection -> Rejection -> Bool)
-> (Rejection -> Rejection -> Bool) -> Eq Rejection
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Rejection -> Rejection -> Bool
== :: Rejection -> Rejection -> Bool
$c/= :: Rejection -> Rejection -> Bool
/= :: Rejection -> Rejection -> Bool
Prelude.Eq, Eq Rejection
Eq Rejection =>
(Rejection -> Rejection -> Ordering)
-> (Rejection -> Rejection -> Bool)
-> (Rejection -> Rejection -> Bool)
-> (Rejection -> Rejection -> Bool)
-> (Rejection -> Rejection -> Bool)
-> (Rejection -> Rejection -> Rejection)
-> (Rejection -> Rejection -> Rejection)
-> Ord Rejection
Rejection -> Rejection -> Bool
Rejection -> Rejection -> Ordering
Rejection -> Rejection -> Rejection
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 :: Rejection -> Rejection -> Ordering
compare :: Rejection -> Rejection -> Ordering
$c< :: Rejection -> Rejection -> Bool
< :: Rejection -> Rejection -> Bool
$c<= :: Rejection -> Rejection -> Bool
<= :: Rejection -> Rejection -> Bool
$c> :: Rejection -> Rejection -> Bool
> :: Rejection -> Rejection -> Bool
$c>= :: Rejection -> Rejection -> Bool
>= :: Rejection -> Rejection -> Bool
$cmax :: Rejection -> Rejection -> Rejection
max :: Rejection -> Rejection -> Rejection
$cmin :: Rejection -> Rejection -> Rejection
min :: Rejection -> Rejection -> Rejection
Prelude.Ord)
instance Prelude.Show Rejection where
  showsPrec :: Int -> Rejection -> ShowS
showsPrec Int
_ Rejection
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Rejection -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Rejection
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Rejection "rejectedRequestMessageId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rejectedRequestMessageId"
-> (Text -> f Text) -> Rejection -> f Rejection
fieldOf Proxy# "rejectedRequestMessageId"
_
    = ((Text -> f Text) -> Rejection -> f Rejection)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Rejection
-> f Rejection
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Rejection -> Text)
-> (Rejection -> Text -> Rejection)
-> Lens Rejection Rejection Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Rejection -> Text
_Rejection'rejectedRequestMessageId
           (\ Rejection
x__ Text
y__ -> Rejection
x__ {_Rejection'rejectedRequestMessageId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Rejection "rejectedRequestSequencingEventId" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rejectedRequestSequencingEventId"
-> (Int64 -> f Int64) -> Rejection -> f Rejection
fieldOf Proxy# "rejectedRequestSequencingEventId"
_
    = ((Int64 -> f Int64) -> Rejection -> f Rejection)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> Rejection
-> f Rejection
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Rejection -> Int64)
-> (Rejection -> Int64 -> Rejection)
-> Lens Rejection Rejection Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Rejection -> Int64
_Rejection'rejectedRequestSequencingEventId
           (\ Rejection
x__ Int64
y__
              -> Rejection
x__ {_Rejection'rejectedRequestSequencingEventId = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Rejection "rejectedRequest" Request where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rejectedRequest"
-> (Request -> f Request) -> Rejection -> f Rejection
fieldOf Proxy# "rejectedRequest"
_
    = ((Maybe Request -> f (Maybe Request)) -> Rejection -> f Rejection)
-> ((Request -> f Request) -> Maybe Request -> f (Maybe Request))
-> (Request -> f Request)
-> Rejection
-> f Rejection
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Rejection -> Maybe Request)
-> (Rejection -> Maybe Request -> Rejection)
-> Lens Rejection Rejection (Maybe Request) (Maybe Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Rejection -> Maybe Request
_Rejection'rejectedRequest
           (\ Rejection
x__ Maybe Request
y__ -> Rejection
x__ {_Rejection'rejectedRequest = y__}))
        (Request -> Lens' (Maybe Request) Request
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Request
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Rejection "maybe'rejectedRequest" (Prelude.Maybe Request) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'rejectedRequest"
-> (Maybe Request -> f (Maybe Request)) -> Rejection -> f Rejection
fieldOf Proxy# "maybe'rejectedRequest"
_
    = ((Maybe Request -> f (Maybe Request)) -> Rejection -> f Rejection)
-> ((Maybe Request -> f (Maybe Request))
    -> Maybe Request -> f (Maybe Request))
-> (Maybe Request -> f (Maybe Request))
-> Rejection
-> f Rejection
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Rejection -> Maybe Request)
-> (Rejection -> Maybe Request -> Rejection)
-> Lens Rejection Rejection (Maybe Request) (Maybe Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Rejection -> Maybe Request
_Rejection'rejectedRequest
           (\ Rejection
x__ Maybe Request
y__ -> Rejection
x__ {_Rejection'rejectedRequest = y__}))
        (Maybe Request -> f (Maybe Request))
-> Maybe Request -> f (Maybe Request)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Rejection "failure" Proto.Temporal.Api.Failure.V1.Message.Failure where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failure"
-> (Failure -> f Failure) -> Rejection -> f Rejection
fieldOf Proxy# "failure"
_
    = ((Maybe Failure -> f (Maybe Failure)) -> Rejection -> f Rejection)
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> Rejection
-> f Rejection
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Rejection -> Maybe Failure)
-> (Rejection -> Maybe Failure -> Rejection)
-> Lens Rejection Rejection (Maybe Failure) (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Rejection -> Maybe Failure
_Rejection'failure (\ Rejection
x__ Maybe Failure
y__ -> Rejection
x__ {_Rejection'failure = y__}))
        (Failure -> Lens' (Maybe Failure) Failure
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Rejection "maybe'failure" (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failure"
-> (Maybe Failure -> f (Maybe Failure)) -> Rejection -> f Rejection
fieldOf Proxy# "maybe'failure"
_
    = ((Maybe Failure -> f (Maybe Failure)) -> Rejection -> f Rejection)
-> ((Maybe Failure -> f (Maybe Failure))
    -> Maybe Failure -> f (Maybe Failure))
-> (Maybe Failure -> f (Maybe Failure))
-> Rejection
-> f Rejection
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Rejection -> Maybe Failure)
-> (Rejection -> Maybe Failure -> Rejection)
-> Lens Rejection Rejection (Maybe Failure) (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Rejection -> Maybe Failure
_Rejection'failure (\ Rejection
x__ Maybe Failure
y__ -> Rejection
x__ {_Rejection'failure = y__}))
        (Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Rejection where
  messageName :: Proxy Rejection -> Text
messageName Proxy Rejection
_ = String -> Text
Data.Text.pack String
"temporal.api.update.v1.Rejection"
  packedMessageDescriptor :: Proxy Rejection -> ByteString
packedMessageDescriptor Proxy Rejection
_
    = ByteString
"\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 :: Proxy Rejection -> ByteString
packedFileDescriptor Proxy Rejection
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Rejection)
fieldsByTag
    = let
        rejectedRequestMessageId__field_descriptor :: FieldDescriptor Rejection
rejectedRequestMessageId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Rejection Text
-> FieldDescriptor Rejection
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"rejected_request_message_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 Rejection Rejection Text Text
-> FieldAccessor Rejection 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 @"rejectedRequestMessageId")) ::
              Data.ProtoLens.FieldDescriptor Rejection
        rejectedRequestSequencingEventId__field_descriptor :: FieldDescriptor Rejection
rejectedRequestSequencingEventId__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor Rejection Int64
-> FieldDescriptor Rejection
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"rejected_request_sequencing_event_id"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens Rejection Rejection Int64 Int64
-> FieldAccessor Rejection 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
                    @"rejectedRequestSequencingEventId")) ::
              Data.ProtoLens.FieldDescriptor Rejection
        rejectedRequest__field_descriptor :: FieldDescriptor Rejection
rejectedRequest__field_descriptor
          = String
-> FieldTypeDescriptor Request
-> FieldAccessor Rejection Request
-> FieldDescriptor Rejection
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"rejected_request"
              (MessageOrGroup -> FieldTypeDescriptor Request
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Request)
              (Lens Rejection Rejection (Maybe Request) (Maybe Request)
-> FieldAccessor Rejection Request
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'rejectedRequest")) ::
              Data.ProtoLens.FieldDescriptor Rejection
        failure__field_descriptor :: FieldDescriptor Rejection
failure__field_descriptor
          = String
-> FieldTypeDescriptor Failure
-> FieldAccessor Rejection Failure
-> FieldDescriptor Rejection
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"failure"
              (MessageOrGroup -> FieldTypeDescriptor Failure
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Failure.V1.Message.Failure)
              (Lens Rejection Rejection (Maybe Failure) (Maybe Failure)
-> FieldAccessor Rejection Failure
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'failure")) ::
              Data.ProtoLens.FieldDescriptor Rejection
      in
        [(Tag, FieldDescriptor Rejection)]
-> Map Tag (FieldDescriptor Rejection)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, 
            FieldDescriptor Rejection
rejectedRequestMessageId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, 
            FieldDescriptor Rejection
rejectedRequestSequencingEventId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Rejection
rejectedRequest__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Rejection
failure__field_descriptor)]
  unknownFields :: Lens' Rejection FieldSet
unknownFields
    = (Rejection -> FieldSet)
-> (Rejection -> FieldSet -> Rejection) -> Lens' Rejection FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Rejection -> FieldSet
_Rejection'_unknownFields
        (\ Rejection
x__ FieldSet
y__ -> Rejection
x__ {_Rejection'_unknownFields = y__})
  defMessage :: Rejection
defMessage
    = Rejection'_constructor
        {_Rejection'rejectedRequestMessageId :: Text
_Rejection'rejectedRequestMessageId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Rejection'rejectedRequestSequencingEventId :: Int64
_Rejection'rejectedRequestSequencingEventId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Rejection'rejectedRequest :: Maybe Request
_Rejection'rejectedRequest = Maybe Request
forall a. Maybe a
Prelude.Nothing,
         _Rejection'failure :: Maybe Failure
_Rejection'failure = Maybe Failure
forall a. Maybe a
Prelude.Nothing,
         _Rejection'_unknownFields :: FieldSet
_Rejection'_unknownFields = []}
  parseMessage :: Parser Rejection
parseMessage
    = let
        loop :: Rejection -> Data.ProtoLens.Encoding.Bytes.Parser Rejection
        loop :: Rejection -> Parser Rejection
loop Rejection
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
"rejected_request_message_id"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"rejectedRequestMessageId") y x)
                        Word64
16
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"rejected_request_sequencing_event_id"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field
                                        @"rejectedRequestSequencingEventId")
                                     y x)
                        Word64
26
                          -> do y <- Parser Request -> String -> Parser Request
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
"rejected_request"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"rejectedRequest") y x)
                        Word64
34
                          -> do y <- Parser Failure -> String -> Parser Failure
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
"failure"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failure") 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 Rejection -> String -> Parser Rejection
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Rejection -> Parser Rejection
loop Rejection
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Rejection"
  buildMessage :: Rejection -> Builder
buildMessage
    = \ Rejection
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike Text Rejection Rejection Text Text -> Rejection -> 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 @"rejectedRequestMessageId") Rejection
_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 :: Int64
_v
                     = FoldLike Int64 Rejection Rejection Int64 Int64
-> Rejection -> 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 @"rejectedRequestSequencingEventId") Rejection
_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.<>)
                   (case
                        FoldLike
  (Maybe Request) Rejection Rejection (Maybe Request) (Maybe Request)
-> Rejection -> Maybe Request
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'rejectedRequest") Rejection
_x
                    of
                      Maybe Request
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just Request
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (Request -> ByteString) -> Request -> 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))
                                Request -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Request
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe Failure) Rejection Rejection (Maybe Failure) (Maybe Failure)
-> Rejection -> Maybe Failure
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'failure") Rejection
_x
                       of
                         Maybe Failure
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just Failure
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                ((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> 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))
                                   Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet Rejection Rejection FieldSet FieldSet
-> Rejection -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Rejection Rejection FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Rejection FieldSet
Data.ProtoLens.unknownFields Rejection
_x)))))
instance Control.DeepSeq.NFData Rejection where
  rnf :: Rejection -> ()
rnf
    = \ Rejection
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Rejection -> FieldSet
_Rejection'_unknownFields Rejection
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Rejection -> Text
_Rejection'rejectedRequestMessageId Rejection
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Rejection -> Int64
_Rejection'rejectedRequestSequencingEventId Rejection
x__)
                   (Maybe Request -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (Rejection -> Maybe Request
_Rejection'rejectedRequest Rejection
x__)
                      (Maybe Failure -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Rejection -> Maybe Failure
_Rejection'failure Rejection
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 -> Maybe Meta
_Request'meta :: !(Prelude.Maybe Meta),
                          Request -> Maybe Input
_Request'input :: !(Prelude.Maybe Input),
                          Request -> FieldSet
_Request'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Request -> Request -> Bool
(Request -> Request -> Bool)
-> (Request -> Request -> Bool) -> Eq Request
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Request -> Request -> Bool
== :: Request -> Request -> Bool
$c/= :: Request -> Request -> Bool
/= :: Request -> Request -> Bool
Prelude.Eq, Eq Request
Eq Request =>
(Request -> Request -> Ordering)
-> (Request -> Request -> Bool)
-> (Request -> Request -> Bool)
-> (Request -> Request -> Bool)
-> (Request -> Request -> Bool)
-> (Request -> Request -> Request)
-> (Request -> Request -> Request)
-> Ord Request
Request -> Request -> Bool
Request -> Request -> Ordering
Request -> Request -> Request
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 :: Request -> Request -> Ordering
compare :: Request -> Request -> Ordering
$c< :: Request -> Request -> Bool
< :: Request -> Request -> Bool
$c<= :: Request -> Request -> Bool
<= :: Request -> Request -> Bool
$c> :: Request -> Request -> Bool
> :: Request -> Request -> Bool
$c>= :: Request -> Request -> Bool
>= :: Request -> Request -> Bool
$cmax :: Request -> Request -> Request
max :: Request -> Request -> Request
$cmin :: Request -> Request -> Request
min :: Request -> Request -> Request
Prelude.Ord)
instance Prelude.Show Request where
  showsPrec :: Int -> Request -> ShowS
showsPrec Int
_ Request
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Request -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Request
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Request "meta" Meta where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "meta" -> (Meta -> f Meta) -> Request -> f Request
fieldOf Proxy# "meta"
_
    = ((Maybe Meta -> f (Maybe Meta)) -> Request -> f Request)
-> ((Meta -> f Meta) -> Maybe Meta -> f (Maybe Meta))
-> (Meta -> f Meta)
-> Request
-> f Request
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request -> Maybe Meta)
-> (Request -> Maybe Meta -> Request)
-> Lens Request Request (Maybe Meta) (Maybe Meta)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request -> Maybe Meta
_Request'meta (\ Request
x__ Maybe Meta
y__ -> Request
x__ {_Request'meta = y__}))
        (Meta -> Lens' (Maybe Meta) Meta
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Meta
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Request "maybe'meta" (Prelude.Maybe Meta) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'meta"
-> (Maybe Meta -> f (Maybe Meta)) -> Request -> f Request
fieldOf Proxy# "maybe'meta"
_
    = ((Maybe Meta -> f (Maybe Meta)) -> Request -> f Request)
-> ((Maybe Meta -> f (Maybe Meta)) -> Maybe Meta -> f (Maybe Meta))
-> (Maybe Meta -> f (Maybe Meta))
-> Request
-> f Request
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request -> Maybe Meta)
-> (Request -> Maybe Meta -> Request)
-> Lens Request Request (Maybe Meta) (Maybe Meta)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request -> Maybe Meta
_Request'meta (\ Request
x__ Maybe Meta
y__ -> Request
x__ {_Request'meta = y__}))
        (Maybe Meta -> f (Maybe Meta)) -> Maybe Meta -> f (Maybe Meta)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Request "input" Input where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "input" -> (Input -> f Input) -> Request -> f Request
fieldOf Proxy# "input"
_
    = ((Maybe Input -> f (Maybe Input)) -> Request -> f Request)
-> ((Input -> f Input) -> Maybe Input -> f (Maybe Input))
-> (Input -> f Input)
-> Request
-> f Request
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request -> Maybe Input)
-> (Request -> Maybe Input -> Request)
-> Lens Request Request (Maybe Input) (Maybe Input)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request -> Maybe Input
_Request'input (\ Request
x__ Maybe Input
y__ -> Request
x__ {_Request'input = y__}))
        (Input -> Lens' (Maybe Input) Input
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Input
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Request "maybe'input" (Prelude.Maybe Input) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'input"
-> (Maybe Input -> f (Maybe Input)) -> Request -> f Request
fieldOf Proxy# "maybe'input"
_
    = ((Maybe Input -> f (Maybe Input)) -> Request -> f Request)
-> ((Maybe Input -> f (Maybe Input))
    -> Maybe Input -> f (Maybe Input))
-> (Maybe Input -> f (Maybe Input))
-> Request
-> f Request
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request -> Maybe Input)
-> (Request -> Maybe Input -> Request)
-> Lens Request Request (Maybe Input) (Maybe Input)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request -> Maybe Input
_Request'input (\ Request
x__ Maybe Input
y__ -> Request
x__ {_Request'input = y__}))
        (Maybe Input -> f (Maybe Input)) -> Maybe Input -> f (Maybe Input)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Request where
  messageName :: Proxy Request -> Text
messageName Proxy Request
_ = String -> Text
Data.Text.pack String
"temporal.api.update.v1.Request"
  packedMessageDescriptor :: Proxy Request -> ByteString
packedMessageDescriptor Proxy Request
_
    = ByteString
"\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 :: Proxy Request -> ByteString
packedFileDescriptor Proxy Request
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Request)
fieldsByTag
    = let
        meta__field_descriptor :: FieldDescriptor Request
meta__field_descriptor
          = String
-> FieldTypeDescriptor Meta
-> FieldAccessor Request Meta
-> FieldDescriptor Request
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"meta"
              (MessageOrGroup -> FieldTypeDescriptor Meta
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Meta)
              (Lens Request Request (Maybe Meta) (Maybe Meta)
-> FieldAccessor Request Meta
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'meta")) ::
              Data.ProtoLens.FieldDescriptor Request
        input__field_descriptor :: FieldDescriptor Request
input__field_descriptor
          = String
-> FieldTypeDescriptor Input
-> FieldAccessor Request Input
-> FieldDescriptor Request
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"input"
              (MessageOrGroup -> FieldTypeDescriptor Input
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Input)
              (Lens Request Request (Maybe Input) (Maybe Input)
-> FieldAccessor Request Input
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'input")) ::
              Data.ProtoLens.FieldDescriptor Request
      in
        [(Tag, FieldDescriptor Request)]
-> Map Tag (FieldDescriptor Request)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Request
meta__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Request
input__field_descriptor)]
  unknownFields :: Lens' Request FieldSet
unknownFields
    = (Request -> FieldSet)
-> (Request -> FieldSet -> Request) -> Lens' Request FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Request -> FieldSet
_Request'_unknownFields
        (\ Request
x__ FieldSet
y__ -> Request
x__ {_Request'_unknownFields = y__})
  defMessage :: Request
defMessage
    = Request'_constructor
        {_Request'meta :: Maybe Meta
_Request'meta = Maybe Meta
forall a. Maybe a
Prelude.Nothing, _Request'input :: Maybe Input
_Request'input = Maybe Input
forall a. Maybe a
Prelude.Nothing,
         _Request'_unknownFields :: FieldSet
_Request'_unknownFields = []}
  parseMessage :: Parser Request
parseMessage
    = let
        loop :: Request -> Data.ProtoLens.Encoding.Bytes.Parser Request
        loop :: Request -> Parser Request
loop Request
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 Meta -> String -> Parser Meta
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
"meta"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"meta") y x)
                        Word64
18
                          -> do y <- Parser Input -> String -> Parser Input
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
"input"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"input") 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 Request -> String -> Parser Request
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Request -> Parser Request
loop Request
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Request"
  buildMessage :: Request -> Builder
buildMessage
    = \ Request
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike (Maybe Meta) Request Request (Maybe Meta) (Maybe Meta)
-> Request -> Maybe Meta
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'meta") Request
_x
              of
                Maybe Meta
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Meta
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder) -> (Meta -> ByteString) -> Meta -> 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))
                          Meta -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Meta
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike (Maybe Input) Request Request (Maybe Input) (Maybe Input)
-> Request -> Maybe Input
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'input") Request
_x
                 of
                   Maybe Input
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just Input
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Input -> ByteString) -> Input -> 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))
                             Input -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Input
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Request Request FieldSet FieldSet
-> Request -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Request Request FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Request FieldSet
Data.ProtoLens.unknownFields Request
_x)))
instance Control.DeepSeq.NFData Request where
  rnf :: Request -> ()
rnf
    = \ Request
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Request -> FieldSet
_Request'_unknownFields Request
x__)
             (Maybe Meta -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Request -> Maybe Meta
_Request'meta Request
x__)
                (Maybe Input -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Request -> Maybe Input
_Request'input Request
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 -> Maybe Meta
_Response'meta :: !(Prelude.Maybe Meta),
                           Response -> Maybe Outcome
_Response'outcome :: !(Prelude.Maybe Outcome),
                           Response -> FieldSet
_Response'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Response -> Response -> Bool
(Response -> Response -> Bool)
-> (Response -> Response -> Bool) -> Eq Response
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Response -> Response -> Bool
== :: Response -> Response -> Bool
$c/= :: Response -> Response -> Bool
/= :: Response -> Response -> Bool
Prelude.Eq, Eq Response
Eq Response =>
(Response -> Response -> Ordering)
-> (Response -> Response -> Bool)
-> (Response -> Response -> Bool)
-> (Response -> Response -> Bool)
-> (Response -> Response -> Bool)
-> (Response -> Response -> Response)
-> (Response -> Response -> Response)
-> Ord Response
Response -> Response -> Bool
Response -> Response -> Ordering
Response -> Response -> Response
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 :: Response -> Response -> Ordering
compare :: Response -> Response -> Ordering
$c< :: Response -> Response -> Bool
< :: Response -> Response -> Bool
$c<= :: Response -> Response -> Bool
<= :: Response -> Response -> Bool
$c> :: Response -> Response -> Bool
> :: Response -> Response -> Bool
$c>= :: Response -> Response -> Bool
>= :: Response -> Response -> Bool
$cmax :: Response -> Response -> Response
max :: Response -> Response -> Response
$cmin :: Response -> Response -> Response
min :: Response -> Response -> Response
Prelude.Ord)
instance Prelude.Show Response where
  showsPrec :: Int -> Response -> ShowS
showsPrec Int
_ Response
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Response -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Response
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Response "meta" Meta where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "meta" -> (Meta -> f Meta) -> Response -> f Response
fieldOf Proxy# "meta"
_
    = ((Maybe Meta -> f (Maybe Meta)) -> Response -> f Response)
-> ((Meta -> f Meta) -> Maybe Meta -> f (Maybe Meta))
-> (Meta -> f Meta)
-> Response
-> f Response
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Response -> Maybe Meta)
-> (Response -> Maybe Meta -> Response)
-> Lens Response Response (Maybe Meta) (Maybe Meta)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Response -> Maybe Meta
_Response'meta (\ Response
x__ Maybe Meta
y__ -> Response
x__ {_Response'meta = y__}))
        (Meta -> Lens' (Maybe Meta) Meta
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Meta
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Response "maybe'meta" (Prelude.Maybe Meta) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'meta"
-> (Maybe Meta -> f (Maybe Meta)) -> Response -> f Response
fieldOf Proxy# "maybe'meta"
_
    = ((Maybe Meta -> f (Maybe Meta)) -> Response -> f Response)
-> ((Maybe Meta -> f (Maybe Meta)) -> Maybe Meta -> f (Maybe Meta))
-> (Maybe Meta -> f (Maybe Meta))
-> Response
-> f Response
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Response -> Maybe Meta)
-> (Response -> Maybe Meta -> Response)
-> Lens Response Response (Maybe Meta) (Maybe Meta)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Response -> Maybe Meta
_Response'meta (\ Response
x__ Maybe Meta
y__ -> Response
x__ {_Response'meta = y__}))
        (Maybe Meta -> f (Maybe Meta)) -> Maybe Meta -> f (Maybe Meta)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Response "outcome" Outcome where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "outcome"
-> (Outcome -> f Outcome) -> Response -> f Response
fieldOf Proxy# "outcome"
_
    = ((Maybe Outcome -> f (Maybe Outcome)) -> Response -> f Response)
-> ((Outcome -> f Outcome) -> Maybe Outcome -> f (Maybe Outcome))
-> (Outcome -> f Outcome)
-> Response
-> f Response
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Response -> Maybe Outcome)
-> (Response -> Maybe Outcome -> Response)
-> Lens Response Response (Maybe Outcome) (Maybe Outcome)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Response -> Maybe Outcome
_Response'outcome (\ Response
x__ Maybe Outcome
y__ -> Response
x__ {_Response'outcome = y__}))
        (Outcome -> Lens' (Maybe Outcome) Outcome
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Outcome
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Response "maybe'outcome" (Prelude.Maybe Outcome) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'outcome"
-> (Maybe Outcome -> f (Maybe Outcome)) -> Response -> f Response
fieldOf Proxy# "maybe'outcome"
_
    = ((Maybe Outcome -> f (Maybe Outcome)) -> Response -> f Response)
-> ((Maybe Outcome -> f (Maybe Outcome))
    -> Maybe Outcome -> f (Maybe Outcome))
-> (Maybe Outcome -> f (Maybe Outcome))
-> Response
-> f Response
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Response -> Maybe Outcome)
-> (Response -> Maybe Outcome -> Response)
-> Lens Response Response (Maybe Outcome) (Maybe Outcome)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Response -> Maybe Outcome
_Response'outcome (\ Response
x__ Maybe Outcome
y__ -> Response
x__ {_Response'outcome = y__}))
        (Maybe Outcome -> f (Maybe Outcome))
-> Maybe Outcome -> f (Maybe Outcome)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Response where
  messageName :: Proxy Response -> Text
messageName Proxy Response
_ = String -> Text
Data.Text.pack String
"temporal.api.update.v1.Response"
  packedMessageDescriptor :: Proxy Response -> ByteString
packedMessageDescriptor Proxy Response
_
    = ByteString
"\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 :: Proxy Response -> ByteString
packedFileDescriptor Proxy Response
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Response)
fieldsByTag
    = let
        meta__field_descriptor :: FieldDescriptor Response
meta__field_descriptor
          = String
-> FieldTypeDescriptor Meta
-> FieldAccessor Response Meta
-> FieldDescriptor Response
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"meta"
              (MessageOrGroup -> FieldTypeDescriptor Meta
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Meta)
              (Lens Response Response (Maybe Meta) (Maybe Meta)
-> FieldAccessor Response Meta
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'meta")) ::
              Data.ProtoLens.FieldDescriptor Response
        outcome__field_descriptor :: FieldDescriptor Response
outcome__field_descriptor
          = String
-> FieldTypeDescriptor Outcome
-> FieldAccessor Response Outcome
-> FieldDescriptor Response
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"outcome"
              (MessageOrGroup -> FieldTypeDescriptor Outcome
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Outcome)
              (Lens Response Response (Maybe Outcome) (Maybe Outcome)
-> FieldAccessor Response Outcome
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'outcome")) ::
              Data.ProtoLens.FieldDescriptor Response
      in
        [(Tag, FieldDescriptor Response)]
-> Map Tag (FieldDescriptor Response)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Response
meta__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Response
outcome__field_descriptor)]
  unknownFields :: Lens' Response FieldSet
unknownFields
    = (Response -> FieldSet)
-> (Response -> FieldSet -> Response) -> Lens' Response FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Response -> FieldSet
_Response'_unknownFields
        (\ Response
x__ FieldSet
y__ -> Response
x__ {_Response'_unknownFields = y__})
  defMessage :: Response
defMessage
    = Response'_constructor
        {_Response'meta :: Maybe Meta
_Response'meta = Maybe Meta
forall a. Maybe a
Prelude.Nothing,
         _Response'outcome :: Maybe Outcome
_Response'outcome = Maybe Outcome
forall a. Maybe a
Prelude.Nothing, _Response'_unknownFields :: FieldSet
_Response'_unknownFields = []}
  parseMessage :: Parser Response
parseMessage
    = let
        loop :: Response -> Data.ProtoLens.Encoding.Bytes.Parser Response
        loop :: Response -> Parser Response
loop Response
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 Meta -> String -> Parser Meta
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
"meta"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"meta") y x)
                        Word64
18
                          -> do y <- Parser Outcome -> String -> Parser Outcome
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
"outcome"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"outcome") 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 Response -> String -> Parser Response
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Response -> Parser Response
loop Response
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Response"
  buildMessage :: Response -> Builder
buildMessage
    = \ Response
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike (Maybe Meta) Response Response (Maybe Meta) (Maybe Meta)
-> Response -> Maybe Meta
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'meta") Response
_x
              of
                Maybe Meta
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Meta
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder) -> (Meta -> ByteString) -> Meta -> 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))
                          Meta -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Meta
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Outcome) Response Response (Maybe Outcome) (Maybe Outcome)
-> Response -> Maybe Outcome
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'outcome") Response
_x
                 of
                   Maybe Outcome
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just Outcome
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Outcome -> ByteString) -> Outcome -> 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))
                             Outcome -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Outcome
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Response Response FieldSet FieldSet
-> Response -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Response Response FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Response FieldSet
Data.ProtoLens.unknownFields Response
_x)))
instance Control.DeepSeq.NFData Response where
  rnf :: Response -> ()
rnf
    = \ Response
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Response -> FieldSet
_Response'_unknownFields Response
x__)
             (Maybe Meta -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Response -> Maybe Meta
_Response'meta Response
x__)
                (Maybe Outcome -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Response -> Maybe Outcome
_Response'outcome Response
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 -> Maybe WorkflowExecution
_UpdateRef'workflowExecution :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution),
                            UpdateRef -> Text
_UpdateRef'updateId :: !Data.Text.Text,
                            UpdateRef -> FieldSet
_UpdateRef'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (UpdateRef -> UpdateRef -> Bool
(UpdateRef -> UpdateRef -> Bool)
-> (UpdateRef -> UpdateRef -> Bool) -> Eq UpdateRef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UpdateRef -> UpdateRef -> Bool
== :: UpdateRef -> UpdateRef -> Bool
$c/= :: UpdateRef -> UpdateRef -> Bool
/= :: UpdateRef -> UpdateRef -> Bool
Prelude.Eq, Eq UpdateRef
Eq UpdateRef =>
(UpdateRef -> UpdateRef -> Ordering)
-> (UpdateRef -> UpdateRef -> Bool)
-> (UpdateRef -> UpdateRef -> Bool)
-> (UpdateRef -> UpdateRef -> Bool)
-> (UpdateRef -> UpdateRef -> Bool)
-> (UpdateRef -> UpdateRef -> UpdateRef)
-> (UpdateRef -> UpdateRef -> UpdateRef)
-> Ord UpdateRef
UpdateRef -> UpdateRef -> Bool
UpdateRef -> UpdateRef -> Ordering
UpdateRef -> UpdateRef -> UpdateRef
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 :: UpdateRef -> UpdateRef -> Ordering
compare :: UpdateRef -> UpdateRef -> Ordering
$c< :: UpdateRef -> UpdateRef -> Bool
< :: UpdateRef -> UpdateRef -> Bool
$c<= :: UpdateRef -> UpdateRef -> Bool
<= :: UpdateRef -> UpdateRef -> Bool
$c> :: UpdateRef -> UpdateRef -> Bool
> :: UpdateRef -> UpdateRef -> Bool
$c>= :: UpdateRef -> UpdateRef -> Bool
>= :: UpdateRef -> UpdateRef -> Bool
$cmax :: UpdateRef -> UpdateRef -> UpdateRef
max :: UpdateRef -> UpdateRef -> UpdateRef
$cmin :: UpdateRef -> UpdateRef -> UpdateRef
min :: UpdateRef -> UpdateRef -> UpdateRef
Prelude.Ord)
instance Prelude.Show UpdateRef where
  showsPrec :: Int -> UpdateRef -> ShowS
showsPrec Int
_ UpdateRef
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (UpdateRef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UpdateRef
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField UpdateRef "workflowExecution" Proto.Temporal.Api.Common.V1.Message.WorkflowExecution where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowExecution"
-> (WorkflowExecution -> f WorkflowExecution)
-> UpdateRef
-> f UpdateRef
fieldOf Proxy# "workflowExecution"
_
    = ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
 -> UpdateRef -> f UpdateRef)
-> ((WorkflowExecution -> f WorkflowExecution)
    -> Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> (WorkflowExecution -> f WorkflowExecution)
-> UpdateRef
-> f UpdateRef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateRef -> Maybe WorkflowExecution)
-> (UpdateRef -> Maybe WorkflowExecution -> UpdateRef)
-> Lens
     UpdateRef
     UpdateRef
     (Maybe WorkflowExecution)
     (Maybe WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateRef -> Maybe WorkflowExecution
_UpdateRef'workflowExecution
           (\ UpdateRef
x__ Maybe WorkflowExecution
y__ -> UpdateRef
x__ {_UpdateRef'workflowExecution = 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 UpdateRef "maybe'workflowExecution" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowExecution"
-> (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> UpdateRef
-> f UpdateRef
fieldOf Proxy# "maybe'workflowExecution"
_
    = ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
 -> UpdateRef -> f UpdateRef)
-> ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
    -> Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> UpdateRef
-> f UpdateRef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateRef -> Maybe WorkflowExecution)
-> (UpdateRef -> Maybe WorkflowExecution -> UpdateRef)
-> Lens
     UpdateRef
     UpdateRef
     (Maybe WorkflowExecution)
     (Maybe WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateRef -> Maybe WorkflowExecution
_UpdateRef'workflowExecution
           (\ UpdateRef
x__ Maybe WorkflowExecution
y__ -> UpdateRef
x__ {_UpdateRef'workflowExecution = y__}))
        (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> Maybe WorkflowExecution -> f (Maybe WorkflowExecution)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UpdateRef "updateId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "updateId" -> (Text -> f Text) -> UpdateRef -> f UpdateRef
fieldOf Proxy# "updateId"
_
    = ((Text -> f Text) -> UpdateRef -> f UpdateRef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> UpdateRef
-> f UpdateRef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateRef -> Text)
-> (UpdateRef -> Text -> UpdateRef)
-> Lens UpdateRef UpdateRef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateRef -> Text
_UpdateRef'updateId (\ UpdateRef
x__ Text
y__ -> UpdateRef
x__ {_UpdateRef'updateId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UpdateRef where
  messageName :: Proxy UpdateRef -> Text
messageName Proxy UpdateRef
_ = String -> Text
Data.Text.pack String
"temporal.api.update.v1.UpdateRef"
  packedMessageDescriptor :: Proxy UpdateRef -> ByteString
packedMessageDescriptor Proxy UpdateRef
_
    = ByteString
"\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 :: Proxy UpdateRef -> ByteString
packedFileDescriptor Proxy UpdateRef
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor UpdateRef)
fieldsByTag
    = let
        workflowExecution__field_descriptor :: FieldDescriptor UpdateRef
workflowExecution__field_descriptor
          = String
-> FieldTypeDescriptor WorkflowExecution
-> FieldAccessor UpdateRef WorkflowExecution
-> FieldDescriptor UpdateRef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"workflow_execution"
              (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
  UpdateRef
  UpdateRef
  (Maybe WorkflowExecution)
  (Maybe WorkflowExecution)
-> FieldAccessor UpdateRef 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'workflowExecution")) ::
              Data.ProtoLens.FieldDescriptor UpdateRef
        updateId__field_descriptor :: FieldDescriptor UpdateRef
updateId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor UpdateRef Text
-> FieldDescriptor UpdateRef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"update_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 UpdateRef UpdateRef Text Text
-> FieldAccessor UpdateRef 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 @"updateId")) ::
              Data.ProtoLens.FieldDescriptor UpdateRef
      in
        [(Tag, FieldDescriptor UpdateRef)]
-> Map Tag (FieldDescriptor UpdateRef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor UpdateRef
workflowExecution__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor UpdateRef
updateId__field_descriptor)]
  unknownFields :: Lens' UpdateRef FieldSet
unknownFields
    = (UpdateRef -> FieldSet)
-> (UpdateRef -> FieldSet -> UpdateRef) -> Lens' UpdateRef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UpdateRef -> FieldSet
_UpdateRef'_unknownFields
        (\ UpdateRef
x__ FieldSet
y__ -> UpdateRef
x__ {_UpdateRef'_unknownFields = y__})
  defMessage :: UpdateRef
defMessage
    = UpdateRef'_constructor
        {_UpdateRef'workflowExecution :: Maybe WorkflowExecution
_UpdateRef'workflowExecution = Maybe WorkflowExecution
forall a. Maybe a
Prelude.Nothing,
         _UpdateRef'updateId :: Text
_UpdateRef'updateId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _UpdateRef'_unknownFields :: FieldSet
_UpdateRef'_unknownFields = []}
  parseMessage :: Parser UpdateRef
parseMessage
    = let
        loop :: UpdateRef -> Data.ProtoLens.Encoding.Bytes.Parser UpdateRef
        loop :: UpdateRef -> Parser UpdateRef
loop UpdateRef
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 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
"workflow_execution"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"workflowExecution") 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
"update_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"updateId") 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 UpdateRef -> String -> Parser UpdateRef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do UpdateRef -> Parser UpdateRef
loop UpdateRef
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"UpdateRef"
  buildMessage :: UpdateRef -> Builder
buildMessage
    = \ UpdateRef
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe WorkflowExecution)
  UpdateRef
  UpdateRef
  (Maybe WorkflowExecution)
  (Maybe WorkflowExecution)
-> UpdateRef -> 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'workflowExecution") UpdateRef
_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
10)
                       ((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))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text UpdateRef UpdateRef Text Text -> UpdateRef -> 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 @"updateId") UpdateRef
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet UpdateRef UpdateRef FieldSet FieldSet
-> UpdateRef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet UpdateRef UpdateRef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UpdateRef FieldSet
Data.ProtoLens.unknownFields UpdateRef
_x)))
instance Control.DeepSeq.NFData UpdateRef where
  rnf :: UpdateRef -> ()
rnf
    = \ UpdateRef
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UpdateRef -> FieldSet
_UpdateRef'_unknownFields UpdateRef
x__)
             (Maybe WorkflowExecution -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (UpdateRef -> Maybe WorkflowExecution
_UpdateRef'workflowExecution UpdateRef
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (UpdateRef -> Text
_UpdateRef'updateId UpdateRef
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Update.V1.Message_Fields.lifecycleStage' @:: Lens' WaitPolicy Proto.Temporal.Api.Enums.V1.Update.UpdateWorkflowExecutionLifecycleStage@ -}
data WaitPolicy
  = WaitPolicy'_constructor {WaitPolicy -> UpdateWorkflowExecutionLifecycleStage
_WaitPolicy'lifecycleStage :: !Proto.Temporal.Api.Enums.V1.Update.UpdateWorkflowExecutionLifecycleStage,
                             WaitPolicy -> FieldSet
_WaitPolicy'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WaitPolicy -> WaitPolicy -> Bool
(WaitPolicy -> WaitPolicy -> Bool)
-> (WaitPolicy -> WaitPolicy -> Bool) -> Eq WaitPolicy
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WaitPolicy -> WaitPolicy -> Bool
== :: WaitPolicy -> WaitPolicy -> Bool
$c/= :: WaitPolicy -> WaitPolicy -> Bool
/= :: WaitPolicy -> WaitPolicy -> Bool
Prelude.Eq, Eq WaitPolicy
Eq WaitPolicy =>
(WaitPolicy -> WaitPolicy -> Ordering)
-> (WaitPolicy -> WaitPolicy -> Bool)
-> (WaitPolicy -> WaitPolicy -> Bool)
-> (WaitPolicy -> WaitPolicy -> Bool)
-> (WaitPolicy -> WaitPolicy -> Bool)
-> (WaitPolicy -> WaitPolicy -> WaitPolicy)
-> (WaitPolicy -> WaitPolicy -> WaitPolicy)
-> Ord WaitPolicy
WaitPolicy -> WaitPolicy -> Bool
WaitPolicy -> WaitPolicy -> Ordering
WaitPolicy -> WaitPolicy -> WaitPolicy
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 :: WaitPolicy -> WaitPolicy -> Ordering
compare :: WaitPolicy -> WaitPolicy -> Ordering
$c< :: WaitPolicy -> WaitPolicy -> Bool
< :: WaitPolicy -> WaitPolicy -> Bool
$c<= :: WaitPolicy -> WaitPolicy -> Bool
<= :: WaitPolicy -> WaitPolicy -> Bool
$c> :: WaitPolicy -> WaitPolicy -> Bool
> :: WaitPolicy -> WaitPolicy -> Bool
$c>= :: WaitPolicy -> WaitPolicy -> Bool
>= :: WaitPolicy -> WaitPolicy -> Bool
$cmax :: WaitPolicy -> WaitPolicy -> WaitPolicy
max :: WaitPolicy -> WaitPolicy -> WaitPolicy
$cmin :: WaitPolicy -> WaitPolicy -> WaitPolicy
min :: WaitPolicy -> WaitPolicy -> WaitPolicy
Prelude.Ord)
instance Prelude.Show WaitPolicy where
  showsPrec :: Int -> WaitPolicy -> ShowS
showsPrec Int
_ WaitPolicy
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WaitPolicy -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WaitPolicy
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WaitPolicy "lifecycleStage" Proto.Temporal.Api.Enums.V1.Update.UpdateWorkflowExecutionLifecycleStage where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "lifecycleStage"
-> (UpdateWorkflowExecutionLifecycleStage
    -> f UpdateWorkflowExecutionLifecycleStage)
-> WaitPolicy
-> f WaitPolicy
fieldOf Proxy# "lifecycleStage"
_
    = ((UpdateWorkflowExecutionLifecycleStage
  -> f UpdateWorkflowExecutionLifecycleStage)
 -> WaitPolicy -> f WaitPolicy)
-> ((UpdateWorkflowExecutionLifecycleStage
     -> f UpdateWorkflowExecutionLifecycleStage)
    -> UpdateWorkflowExecutionLifecycleStage
    -> f UpdateWorkflowExecutionLifecycleStage)
-> (UpdateWorkflowExecutionLifecycleStage
    -> f UpdateWorkflowExecutionLifecycleStage)
-> WaitPolicy
-> f WaitPolicy
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WaitPolicy -> UpdateWorkflowExecutionLifecycleStage)
-> (WaitPolicy
    -> UpdateWorkflowExecutionLifecycleStage -> WaitPolicy)
-> Lens
     WaitPolicy
     WaitPolicy
     UpdateWorkflowExecutionLifecycleStage
     UpdateWorkflowExecutionLifecycleStage
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WaitPolicy -> UpdateWorkflowExecutionLifecycleStage
_WaitPolicy'lifecycleStage
           (\ WaitPolicy
x__ UpdateWorkflowExecutionLifecycleStage
y__ -> WaitPolicy
x__ {_WaitPolicy'lifecycleStage = y__}))
        (UpdateWorkflowExecutionLifecycleStage
 -> f UpdateWorkflowExecutionLifecycleStage)
-> UpdateWorkflowExecutionLifecycleStage
-> f UpdateWorkflowExecutionLifecycleStage
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WaitPolicy where
  messageName :: Proxy WaitPolicy -> Text
messageName Proxy WaitPolicy
_ = String -> Text
Data.Text.pack String
"temporal.api.update.v1.WaitPolicy"
  packedMessageDescriptor :: Proxy WaitPolicy -> ByteString
packedMessageDescriptor Proxy WaitPolicy
_
    = ByteString
"\n\
      \\n\
      \WaitPolicy\DC2e\n\
      \\SIlifecycle_stage\CAN\SOH \SOH(\SO2<.temporal.api.enums.v1.UpdateWorkflowExecutionLifecycleStageR\SOlifecycleStage"
  packedFileDescriptor :: Proxy WaitPolicy -> ByteString
packedFileDescriptor Proxy WaitPolicy
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WaitPolicy)
fieldsByTag
    = let
        lifecycleStage__field_descriptor :: FieldDescriptor WaitPolicy
lifecycleStage__field_descriptor
          = String
-> FieldTypeDescriptor UpdateWorkflowExecutionLifecycleStage
-> FieldAccessor WaitPolicy UpdateWorkflowExecutionLifecycleStage
-> FieldDescriptor WaitPolicy
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"lifecycle_stage"
              (ScalarField UpdateWorkflowExecutionLifecycleStage
-> FieldTypeDescriptor UpdateWorkflowExecutionLifecycleStage
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField UpdateWorkflowExecutionLifecycleStage
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Update.UpdateWorkflowExecutionLifecycleStage)
              (WireDefault UpdateWorkflowExecutionLifecycleStage
-> Lens
     WaitPolicy
     WaitPolicy
     UpdateWorkflowExecutionLifecycleStage
     UpdateWorkflowExecutionLifecycleStage
-> FieldAccessor WaitPolicy UpdateWorkflowExecutionLifecycleStage
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault UpdateWorkflowExecutionLifecycleStage
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 @"lifecycleStage")) ::
              Data.ProtoLens.FieldDescriptor WaitPolicy
      in
        [(Tag, FieldDescriptor WaitPolicy)]
-> Map Tag (FieldDescriptor WaitPolicy)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WaitPolicy
lifecycleStage__field_descriptor)]
  unknownFields :: Lens' WaitPolicy FieldSet
unknownFields
    = (WaitPolicy -> FieldSet)
-> (WaitPolicy -> FieldSet -> WaitPolicy)
-> Lens' WaitPolicy FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WaitPolicy -> FieldSet
_WaitPolicy'_unknownFields
        (\ WaitPolicy
x__ FieldSet
y__ -> WaitPolicy
x__ {_WaitPolicy'_unknownFields = y__})
  defMessage :: WaitPolicy
defMessage
    = WaitPolicy'_constructor
        {_WaitPolicy'lifecycleStage :: UpdateWorkflowExecutionLifecycleStage
_WaitPolicy'lifecycleStage = UpdateWorkflowExecutionLifecycleStage
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WaitPolicy'_unknownFields :: FieldSet
_WaitPolicy'_unknownFields = []}
  parseMessage :: Parser WaitPolicy
parseMessage
    = let
        loop ::
          WaitPolicy -> Data.ProtoLens.Encoding.Bytes.Parser WaitPolicy
        loop :: WaitPolicy -> Parser WaitPolicy
loop WaitPolicy
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 UpdateWorkflowExecutionLifecycleStage
-> String -> Parser UpdateWorkflowExecutionLifecycleStage
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> UpdateWorkflowExecutionLifecycleStage)
-> Parser Int -> Parser UpdateWorkflowExecutionLifecycleStage
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> UpdateWorkflowExecutionLifecycleStage
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
"lifecycle_stage"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"lifecycleStage") 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 WaitPolicy -> String -> Parser WaitPolicy
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WaitPolicy -> Parser WaitPolicy
loop WaitPolicy
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WaitPolicy"
  buildMessage :: WaitPolicy -> Builder
buildMessage
    = \ WaitPolicy
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: UpdateWorkflowExecutionLifecycleStage
_v
                  = FoldLike
  UpdateWorkflowExecutionLifecycleStage
  WaitPolicy
  WaitPolicy
  UpdateWorkflowExecutionLifecycleStage
  UpdateWorkflowExecutionLifecycleStage
-> WaitPolicy -> UpdateWorkflowExecutionLifecycleStage
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 @"lifecycleStage") WaitPolicy
_x
              in
                if UpdateWorkflowExecutionLifecycleStage
-> UpdateWorkflowExecutionLifecycleStage -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) UpdateWorkflowExecutionLifecycleStage
_v UpdateWorkflowExecutionLifecycleStage
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)
-> (UpdateWorkflowExecutionLifecycleStage -> Int)
-> UpdateWorkflowExecutionLifecycleStage
-> 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)
                         UpdateWorkflowExecutionLifecycleStage -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum UpdateWorkflowExecutionLifecycleStage
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet WaitPolicy WaitPolicy FieldSet FieldSet
-> WaitPolicy -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet WaitPolicy WaitPolicy FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WaitPolicy FieldSet
Data.ProtoLens.unknownFields WaitPolicy
_x))
instance Control.DeepSeq.NFData WaitPolicy where
  rnf :: WaitPolicy -> ()
rnf
    = \ WaitPolicy
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WaitPolicy -> FieldSet
_WaitPolicy'_unknownFields WaitPolicy
x__)
             (UpdateWorkflowExecutionLifecycleStage -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WaitPolicy -> UpdateWorkflowExecutionLifecycleStage
_WaitPolicy'lifecycleStage WaitPolicy
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\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\220\RS\n\
    \\ACK\DC2\EOT\SYN\NULn\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\
    \\149\SOH\n\
    \\STX\EOT\NUL\DC2\EOT'\NUL,\SOH\SUB\136\SOH Specifies to the gRPC server how long the client wants the an update-related\n\
    \ RPC call to wait before returning control to the caller.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX'\b\DC2\n\
    \i\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX+\EOTT\SUB\\ Indicates the update lifecycle stage that the gRPC call should wait for\n\
    \ before returning.\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\n\
    \\STX\EOT\SOH\DC2\EOT0\NUL3\SOH\SUBb The data needed by a client to refer to a previously invoked workflow\n\
    \ execution update process.\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\
    \D\n\
    \\STX\EOT\STX\DC2\EOT6\NUL;\SOH\SUB8 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\
    \9\n\
    \\STX\EOT\ETX\DC2\EOT>\NULD\SOH\SUB- Metadata about a workflow execution update.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX>\b\f\n\
    \D\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX@\EOT\EM\SUB7 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\
    \M\n\
    \\EOT\EOT\EOT\STX\SOH\DC2\ETXL\EOT\DC4\SUB@ The name of the input 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\
    \:\n\
    \\EOT\EOT\EOT\STX\STX\DC2\ETXO\EOT-\SUB- The arguments to pass to the named 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\
    \J\n\
    \\STX\EOT\ENQ\DC2\EOTS\NULV\SOH\SUB> The client request that triggers a workflow execution 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\
    \h\n\
    \\STX\EOT\ACK\DC2\EOTZ\NUL_\SOH\SUB\\ An update protocol message indicating that a workflow execution update has\n\
    \ been rejected.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETXZ\b\DC1\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETX[\EOT+\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETX[\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX[\v&\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX[)*\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\
    \\152\SOH\n\
    \\STX\EOT\a\DC2\EOTc\NULg\SOH\SUB\139\SOH An update protocol message indicating that a workflow execution update has\n\
    \ been accepted (i.e. passed the worker-side validation phase).\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\a\SOH\DC2\ETXc\b\DC2\n\
    \\v\n\
    \\EOT\EOT\a\STX\NUL\DC2\ETXd\EOT+\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETXd\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXd\v&\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXd)*\n\
    \\v\n\
    \\EOT\EOT\a\STX\SOH\DC2\ETXe\EOT3\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETXe\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXe\n\
    \.\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXe12\n\
    \\v\n\
    \\EOT\EOT\a\STX\STX\DC2\ETXf\EOT!\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\ACK\DC2\ETXf\EOT\v\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\SOH\DC2\ETXf\f\FS\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\ETX\DC2\ETXf\US \n\
    \\DEL\n\
    \\STX\EOT\b\DC2\EOTk\NULn\SOH\SUBs An update protocol message indicating that a workflow execution update has\n\
    \ completed with the contained outcome.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\b\SOH\DC2\ETXk\b\DLE\n\
    \\v\n\
    \\EOT\EOT\b\STX\NUL\DC2\ETXl\EOT\DC2\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETXl\EOT\b\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXl\t\r\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXl\DLE\DC1\n\
    \\v\n\
    \\EOT\EOT\b\STX\SOH\DC2\ETXm\EOT\CAN\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ACK\DC2\ETXm\EOT\v\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXm\f\DC3\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXm\SYN\ETBb\ACKproto3"