{- This file was auto-generated from temporal/api/nexus/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.Nexus.V1.Message (
        CancelOperationRequest(), CancelOperationResponse(), Endpoint(),
        EndpointSpec(), EndpointTarget(), EndpointTarget'Variant(..),
        _EndpointTarget'Worker', _EndpointTarget'External',
        EndpointTarget'External(), EndpointTarget'Worker(), Failure(),
        Failure'MetadataEntry(), HandlerError(), Request(),
        Request'Variant(..), _Request'StartOperation,
        _Request'CancelOperation, Request'HeaderEntry(), Response(),
        Response'Variant(..), _Response'StartOperation,
        _Response'CancelOperation, StartOperationRequest(),
        StartOperationRequest'CallbackHeaderEntry(),
        StartOperationResponse(), StartOperationResponse'Variant(..),
        _StartOperationResponse'SyncSuccess,
        _StartOperationResponse'AsyncSuccess,
        _StartOperationResponse'OperationError,
        StartOperationResponse'Async(), StartOperationResponse'Sync(),
        UnsuccessfulOperationError()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.Timestamp
import qualified Proto.Temporal.Api.Common.V1.Message
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.service' @:: Lens' CancelOperationRequest Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.operation' @:: Lens' CancelOperationRequest Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.operationId' @:: Lens' CancelOperationRequest Data.Text.Text@ -}
data CancelOperationRequest
  = CancelOperationRequest'_constructor {CancelOperationRequest -> Text
_CancelOperationRequest'service :: !Data.Text.Text,
                                         CancelOperationRequest -> Text
_CancelOperationRequest'operation :: !Data.Text.Text,
                                         CancelOperationRequest -> Text
_CancelOperationRequest'operationId :: !Data.Text.Text,
                                         CancelOperationRequest -> FieldSet
_CancelOperationRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CancelOperationRequest -> CancelOperationRequest -> Bool
(CancelOperationRequest -> CancelOperationRequest -> Bool)
-> (CancelOperationRequest -> CancelOperationRequest -> Bool)
-> Eq CancelOperationRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CancelOperationRequest -> CancelOperationRequest -> Bool
== :: CancelOperationRequest -> CancelOperationRequest -> Bool
$c/= :: CancelOperationRequest -> CancelOperationRequest -> Bool
/= :: CancelOperationRequest -> CancelOperationRequest -> Bool
Prelude.Eq, Eq CancelOperationRequest
Eq CancelOperationRequest =>
(CancelOperationRequest -> CancelOperationRequest -> Ordering)
-> (CancelOperationRequest -> CancelOperationRequest -> Bool)
-> (CancelOperationRequest -> CancelOperationRequest -> Bool)
-> (CancelOperationRequest -> CancelOperationRequest -> Bool)
-> (CancelOperationRequest -> CancelOperationRequest -> Bool)
-> (CancelOperationRequest
    -> CancelOperationRequest -> CancelOperationRequest)
-> (CancelOperationRequest
    -> CancelOperationRequest -> CancelOperationRequest)
-> Ord CancelOperationRequest
CancelOperationRequest -> CancelOperationRequest -> Bool
CancelOperationRequest -> CancelOperationRequest -> Ordering
CancelOperationRequest
-> CancelOperationRequest -> CancelOperationRequest
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 :: CancelOperationRequest -> CancelOperationRequest -> Ordering
compare :: CancelOperationRequest -> CancelOperationRequest -> Ordering
$c< :: CancelOperationRequest -> CancelOperationRequest -> Bool
< :: CancelOperationRequest -> CancelOperationRequest -> Bool
$c<= :: CancelOperationRequest -> CancelOperationRequest -> Bool
<= :: CancelOperationRequest -> CancelOperationRequest -> Bool
$c> :: CancelOperationRequest -> CancelOperationRequest -> Bool
> :: CancelOperationRequest -> CancelOperationRequest -> Bool
$c>= :: CancelOperationRequest -> CancelOperationRequest -> Bool
>= :: CancelOperationRequest -> CancelOperationRequest -> Bool
$cmax :: CancelOperationRequest
-> CancelOperationRequest -> CancelOperationRequest
max :: CancelOperationRequest
-> CancelOperationRequest -> CancelOperationRequest
$cmin :: CancelOperationRequest
-> CancelOperationRequest -> CancelOperationRequest
min :: CancelOperationRequest
-> CancelOperationRequest -> CancelOperationRequest
Prelude.Ord)
instance Prelude.Show CancelOperationRequest where
  showsPrec :: Int -> CancelOperationRequest -> ShowS
showsPrec Int
_ CancelOperationRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CancelOperationRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CancelOperationRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CancelOperationRequest "service" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "service"
-> (Text -> f Text)
-> CancelOperationRequest
-> f CancelOperationRequest
fieldOf Proxy# "service"
_
    = ((Text -> f Text)
 -> CancelOperationRequest -> f CancelOperationRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CancelOperationRequest
-> f CancelOperationRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CancelOperationRequest -> Text)
-> (CancelOperationRequest -> Text -> CancelOperationRequest)
-> Lens CancelOperationRequest CancelOperationRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CancelOperationRequest -> Text
_CancelOperationRequest'service
           (\ CancelOperationRequest
x__ Text
y__ -> CancelOperationRequest
x__ {_CancelOperationRequest'service = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CancelOperationRequest "operation" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "operation"
-> (Text -> f Text)
-> CancelOperationRequest
-> f CancelOperationRequest
fieldOf Proxy# "operation"
_
    = ((Text -> f Text)
 -> CancelOperationRequest -> f CancelOperationRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CancelOperationRequest
-> f CancelOperationRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CancelOperationRequest -> Text)
-> (CancelOperationRequest -> Text -> CancelOperationRequest)
-> Lens CancelOperationRequest CancelOperationRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CancelOperationRequest -> Text
_CancelOperationRequest'operation
           (\ CancelOperationRequest
x__ Text
y__ -> CancelOperationRequest
x__ {_CancelOperationRequest'operation = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CancelOperationRequest "operationId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "operationId"
-> (Text -> f Text)
-> CancelOperationRequest
-> f CancelOperationRequest
fieldOf Proxy# "operationId"
_
    = ((Text -> f Text)
 -> CancelOperationRequest -> f CancelOperationRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CancelOperationRequest
-> f CancelOperationRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CancelOperationRequest -> Text)
-> (CancelOperationRequest -> Text -> CancelOperationRequest)
-> Lens CancelOperationRequest CancelOperationRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CancelOperationRequest -> Text
_CancelOperationRequest'operationId
           (\ CancelOperationRequest
x__ Text
y__ -> CancelOperationRequest
x__ {_CancelOperationRequest'operationId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CancelOperationRequest where
  messageName :: Proxy CancelOperationRequest -> Text
messageName Proxy CancelOperationRequest
_
    = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.CancelOperationRequest"
  packedMessageDescriptor :: Proxy CancelOperationRequest -> ByteString
packedMessageDescriptor Proxy CancelOperationRequest
_
    = ByteString
"\n\
      \\SYNCancelOperationRequest\DC2\CAN\n\
      \\aservice\CAN\SOH \SOH(\tR\aservice\DC2\FS\n\
      \\toperation\CAN\STX \SOH(\tR\toperation\DC2!\n\
      \\foperation_id\CAN\ETX \SOH(\tR\voperationId"
  packedFileDescriptor :: Proxy CancelOperationRequest -> ByteString
packedFileDescriptor Proxy CancelOperationRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CancelOperationRequest)
fieldsByTag
    = let
        service__field_descriptor :: FieldDescriptor CancelOperationRequest
service__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor CancelOperationRequest Text
-> FieldDescriptor CancelOperationRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"service"
              (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 CancelOperationRequest CancelOperationRequest Text Text
-> FieldAccessor CancelOperationRequest 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 @"service")) ::
              Data.ProtoLens.FieldDescriptor CancelOperationRequest
        operation__field_descriptor :: FieldDescriptor CancelOperationRequest
operation__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor CancelOperationRequest Text
-> FieldDescriptor CancelOperationRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"operation"
              (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 CancelOperationRequest CancelOperationRequest Text Text
-> FieldAccessor CancelOperationRequest 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 @"operation")) ::
              Data.ProtoLens.FieldDescriptor CancelOperationRequest
        operationId__field_descriptor :: FieldDescriptor CancelOperationRequest
operationId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor CancelOperationRequest Text
-> FieldDescriptor CancelOperationRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"operation_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 CancelOperationRequest CancelOperationRequest Text Text
-> FieldAccessor CancelOperationRequest 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 @"operationId")) ::
              Data.ProtoLens.FieldDescriptor CancelOperationRequest
      in
        [(Tag, FieldDescriptor CancelOperationRequest)]
-> Map Tag (FieldDescriptor CancelOperationRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CancelOperationRequest
service__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor CancelOperationRequest
operation__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor CancelOperationRequest
operationId__field_descriptor)]
  unknownFields :: Lens' CancelOperationRequest FieldSet
unknownFields
    = (CancelOperationRequest -> FieldSet)
-> (CancelOperationRequest -> FieldSet -> CancelOperationRequest)
-> Lens' CancelOperationRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CancelOperationRequest -> FieldSet
_CancelOperationRequest'_unknownFields
        (\ CancelOperationRequest
x__ FieldSet
y__ -> CancelOperationRequest
x__ {_CancelOperationRequest'_unknownFields = y__})
  defMessage :: CancelOperationRequest
defMessage
    = CancelOperationRequest'_constructor
        {_CancelOperationRequest'service :: Text
_CancelOperationRequest'service = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CancelOperationRequest'operation :: Text
_CancelOperationRequest'operation = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CancelOperationRequest'operationId :: Text
_CancelOperationRequest'operationId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CancelOperationRequest'_unknownFields :: FieldSet
_CancelOperationRequest'_unknownFields = []}
  parseMessage :: Parser CancelOperationRequest
parseMessage
    = let
        loop ::
          CancelOperationRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser CancelOperationRequest
        loop :: CancelOperationRequest -> Parser CancelOperationRequest
loop CancelOperationRequest
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
"service"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"service") 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
"operation"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"operation") y x)
                        Word64
26
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"operation_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"operationId") 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 CancelOperationRequest
-> String -> Parser CancelOperationRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CancelOperationRequest -> Parser CancelOperationRequest
loop CancelOperationRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CancelOperationRequest"
  buildMessage :: CancelOperationRequest -> Builder
buildMessage
    = \ CancelOperationRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike
  Text CancelOperationRequest CancelOperationRequest Text Text
-> CancelOperationRequest -> 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 @"service") CancelOperationRequest
_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 CancelOperationRequest CancelOperationRequest Text Text
-> CancelOperationRequest -> 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 @"operation") CancelOperationRequest
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Text
_v
                        = FoldLike
  Text CancelOperationRequest CancelOperationRequest Text Text
-> CancelOperationRequest -> 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 @"operationId") CancelOperationRequest
_x
                    in
                      if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                            ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               (\ ByteString
bs
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                          (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                       (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                               Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  CancelOperationRequest
  CancelOperationRequest
  FieldSet
  FieldSet
-> CancelOperationRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  CancelOperationRequest
  CancelOperationRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CancelOperationRequest FieldSet
Data.ProtoLens.unknownFields CancelOperationRequest
_x))))
instance Control.DeepSeq.NFData CancelOperationRequest where
  rnf :: CancelOperationRequest -> ()
rnf
    = \ CancelOperationRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CancelOperationRequest -> FieldSet
_CancelOperationRequest'_unknownFields CancelOperationRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (CancelOperationRequest -> Text
_CancelOperationRequest'service CancelOperationRequest
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (CancelOperationRequest -> Text
_CancelOperationRequest'operation CancelOperationRequest
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (CancelOperationRequest -> Text
_CancelOperationRequest'operationId CancelOperationRequest
x__) ())))
{- | Fields :
      -}
data CancelOperationResponse
  = CancelOperationResponse'_constructor {CancelOperationResponse -> FieldSet
_CancelOperationResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CancelOperationResponse -> CancelOperationResponse -> Bool
(CancelOperationResponse -> CancelOperationResponse -> Bool)
-> (CancelOperationResponse -> CancelOperationResponse -> Bool)
-> Eq CancelOperationResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CancelOperationResponse -> CancelOperationResponse -> Bool
== :: CancelOperationResponse -> CancelOperationResponse -> Bool
$c/= :: CancelOperationResponse -> CancelOperationResponse -> Bool
/= :: CancelOperationResponse -> CancelOperationResponse -> Bool
Prelude.Eq, Eq CancelOperationResponse
Eq CancelOperationResponse =>
(CancelOperationResponse -> CancelOperationResponse -> Ordering)
-> (CancelOperationResponse -> CancelOperationResponse -> Bool)
-> (CancelOperationResponse -> CancelOperationResponse -> Bool)
-> (CancelOperationResponse -> CancelOperationResponse -> Bool)
-> (CancelOperationResponse -> CancelOperationResponse -> Bool)
-> (CancelOperationResponse
    -> CancelOperationResponse -> CancelOperationResponse)
-> (CancelOperationResponse
    -> CancelOperationResponse -> CancelOperationResponse)
-> Ord CancelOperationResponse
CancelOperationResponse -> CancelOperationResponse -> Bool
CancelOperationResponse -> CancelOperationResponse -> Ordering
CancelOperationResponse
-> CancelOperationResponse -> CancelOperationResponse
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 :: CancelOperationResponse -> CancelOperationResponse -> Ordering
compare :: CancelOperationResponse -> CancelOperationResponse -> Ordering
$c< :: CancelOperationResponse -> CancelOperationResponse -> Bool
< :: CancelOperationResponse -> CancelOperationResponse -> Bool
$c<= :: CancelOperationResponse -> CancelOperationResponse -> Bool
<= :: CancelOperationResponse -> CancelOperationResponse -> Bool
$c> :: CancelOperationResponse -> CancelOperationResponse -> Bool
> :: CancelOperationResponse -> CancelOperationResponse -> Bool
$c>= :: CancelOperationResponse -> CancelOperationResponse -> Bool
>= :: CancelOperationResponse -> CancelOperationResponse -> Bool
$cmax :: CancelOperationResponse
-> CancelOperationResponse -> CancelOperationResponse
max :: CancelOperationResponse
-> CancelOperationResponse -> CancelOperationResponse
$cmin :: CancelOperationResponse
-> CancelOperationResponse -> CancelOperationResponse
min :: CancelOperationResponse
-> CancelOperationResponse -> CancelOperationResponse
Prelude.Ord)
instance Prelude.Show CancelOperationResponse where
  showsPrec :: Int -> CancelOperationResponse -> ShowS
showsPrec Int
_ CancelOperationResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CancelOperationResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CancelOperationResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message CancelOperationResponse where
  messageName :: Proxy CancelOperationResponse -> Text
messageName Proxy CancelOperationResponse
_
    = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.CancelOperationResponse"
  packedMessageDescriptor :: Proxy CancelOperationResponse -> ByteString
packedMessageDescriptor Proxy CancelOperationResponse
_
    = ByteString
"\n\
      \\ETBCancelOperationResponse"
  packedFileDescriptor :: Proxy CancelOperationResponse -> ByteString
packedFileDescriptor Proxy CancelOperationResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CancelOperationResponse)
fieldsByTag = let in [(Tag, FieldDescriptor CancelOperationResponse)]
-> Map Tag (FieldDescriptor CancelOperationResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' CancelOperationResponse FieldSet
unknownFields
    = (CancelOperationResponse -> FieldSet)
-> (CancelOperationResponse -> FieldSet -> CancelOperationResponse)
-> Lens' CancelOperationResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CancelOperationResponse -> FieldSet
_CancelOperationResponse'_unknownFields
        (\ CancelOperationResponse
x__ FieldSet
y__ -> CancelOperationResponse
x__ {_CancelOperationResponse'_unknownFields = y__})
  defMessage :: CancelOperationResponse
defMessage
    = CancelOperationResponse'_constructor
        {_CancelOperationResponse'_unknownFields :: FieldSet
_CancelOperationResponse'_unknownFields = []}
  parseMessage :: Parser CancelOperationResponse
parseMessage
    = let
        loop ::
          CancelOperationResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser CancelOperationResponse
        loop :: CancelOperationResponse -> Parser CancelOperationResponse
loop CancelOperationResponse
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
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 CancelOperationResponse
-> String -> Parser CancelOperationResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CancelOperationResponse -> Parser CancelOperationResponse
loop CancelOperationResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CancelOperationResponse"
  buildMessage :: CancelOperationResponse -> Builder
buildMessage
    = \ CancelOperationResponse
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  CancelOperationResponse
  CancelOperationResponse
  FieldSet
  FieldSet
-> CancelOperationResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  CancelOperationResponse
  CancelOperationResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CancelOperationResponse FieldSet
Data.ProtoLens.unknownFields CancelOperationResponse
_x)
instance Control.DeepSeq.NFData CancelOperationResponse where
  rnf :: CancelOperationResponse -> ()
rnf
    = \ CancelOperationResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CancelOperationResponse -> FieldSet
_CancelOperationResponse'_unknownFields CancelOperationResponse
x__) ()
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.version' @:: Lens' Endpoint Data.Int.Int64@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.id' @:: Lens' Endpoint Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.spec' @:: Lens' Endpoint EndpointSpec@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'spec' @:: Lens' Endpoint (Prelude.Maybe EndpointSpec)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.createdTime' @:: Lens' Endpoint Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'createdTime' @:: Lens' Endpoint (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.lastModifiedTime' @:: Lens' Endpoint Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'lastModifiedTime' @:: Lens' Endpoint (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.urlPrefix' @:: Lens' Endpoint Data.Text.Text@ -}
data Endpoint
  = Endpoint'_constructor {Endpoint -> Int64
_Endpoint'version :: !Data.Int.Int64,
                           Endpoint -> Text
_Endpoint'id :: !Data.Text.Text,
                           Endpoint -> Maybe EndpointSpec
_Endpoint'spec :: !(Prelude.Maybe EndpointSpec),
                           Endpoint -> Maybe Timestamp
_Endpoint'createdTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                           Endpoint -> Maybe Timestamp
_Endpoint'lastModifiedTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                           Endpoint -> Text
_Endpoint'urlPrefix :: !Data.Text.Text,
                           Endpoint -> FieldSet
_Endpoint'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Endpoint -> Endpoint -> Bool
(Endpoint -> Endpoint -> Bool)
-> (Endpoint -> Endpoint -> Bool) -> Eq Endpoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Endpoint -> Endpoint -> Bool
== :: Endpoint -> Endpoint -> Bool
$c/= :: Endpoint -> Endpoint -> Bool
/= :: Endpoint -> Endpoint -> Bool
Prelude.Eq, Eq Endpoint
Eq Endpoint =>
(Endpoint -> Endpoint -> Ordering)
-> (Endpoint -> Endpoint -> Bool)
-> (Endpoint -> Endpoint -> Bool)
-> (Endpoint -> Endpoint -> Bool)
-> (Endpoint -> Endpoint -> Bool)
-> (Endpoint -> Endpoint -> Endpoint)
-> (Endpoint -> Endpoint -> Endpoint)
-> Ord Endpoint
Endpoint -> Endpoint -> Bool
Endpoint -> Endpoint -> Ordering
Endpoint -> Endpoint -> Endpoint
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 :: Endpoint -> Endpoint -> Ordering
compare :: Endpoint -> Endpoint -> Ordering
$c< :: Endpoint -> Endpoint -> Bool
< :: Endpoint -> Endpoint -> Bool
$c<= :: Endpoint -> Endpoint -> Bool
<= :: Endpoint -> Endpoint -> Bool
$c> :: Endpoint -> Endpoint -> Bool
> :: Endpoint -> Endpoint -> Bool
$c>= :: Endpoint -> Endpoint -> Bool
>= :: Endpoint -> Endpoint -> Bool
$cmax :: Endpoint -> Endpoint -> Endpoint
max :: Endpoint -> Endpoint -> Endpoint
$cmin :: Endpoint -> Endpoint -> Endpoint
min :: Endpoint -> Endpoint -> Endpoint
Prelude.Ord)
instance Prelude.Show Endpoint where
  showsPrec :: Int -> Endpoint -> ShowS
showsPrec Int
_ Endpoint
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Endpoint -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Endpoint
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Endpoint "version" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "version" -> (Int64 -> f Int64) -> Endpoint -> f Endpoint
fieldOf Proxy# "version"
_
    = ((Int64 -> f Int64) -> Endpoint -> f Endpoint)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> Endpoint
-> f Endpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Endpoint -> Int64)
-> (Endpoint -> Int64 -> Endpoint)
-> Lens Endpoint Endpoint Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Endpoint -> Int64
_Endpoint'version (\ Endpoint
x__ Int64
y__ -> Endpoint
x__ {_Endpoint'version = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Endpoint "id" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id" -> (Text -> f Text) -> Endpoint -> f Endpoint
fieldOf Proxy# "id"
_
    = ((Text -> f Text) -> Endpoint -> f Endpoint)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Endpoint
-> f Endpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Endpoint -> Text)
-> (Endpoint -> Text -> Endpoint)
-> Lens Endpoint Endpoint Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Endpoint -> Text
_Endpoint'id (\ Endpoint
x__ Text
y__ -> Endpoint
x__ {_Endpoint'id = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Endpoint "spec" EndpointSpec where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "spec"
-> (EndpointSpec -> f EndpointSpec) -> Endpoint -> f Endpoint
fieldOf Proxy# "spec"
_
    = ((Maybe EndpointSpec -> f (Maybe EndpointSpec))
 -> Endpoint -> f Endpoint)
-> ((EndpointSpec -> f EndpointSpec)
    -> Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> (EndpointSpec -> f EndpointSpec)
-> Endpoint
-> f Endpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Endpoint -> Maybe EndpointSpec)
-> (Endpoint -> Maybe EndpointSpec -> Endpoint)
-> Lens Endpoint Endpoint (Maybe EndpointSpec) (Maybe EndpointSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Endpoint -> Maybe EndpointSpec
_Endpoint'spec (\ Endpoint
x__ Maybe EndpointSpec
y__ -> Endpoint
x__ {_Endpoint'spec = y__}))
        (EndpointSpec -> Lens' (Maybe EndpointSpec) EndpointSpec
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens EndpointSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Endpoint "maybe'spec" (Prelude.Maybe EndpointSpec) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'spec"
-> (Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> Endpoint
-> f Endpoint
fieldOf Proxy# "maybe'spec"
_
    = ((Maybe EndpointSpec -> f (Maybe EndpointSpec))
 -> Endpoint -> f Endpoint)
-> ((Maybe EndpointSpec -> f (Maybe EndpointSpec))
    -> Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> (Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> Endpoint
-> f Endpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Endpoint -> Maybe EndpointSpec)
-> (Endpoint -> Maybe EndpointSpec -> Endpoint)
-> Lens Endpoint Endpoint (Maybe EndpointSpec) (Maybe EndpointSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Endpoint -> Maybe EndpointSpec
_Endpoint'spec (\ Endpoint
x__ Maybe EndpointSpec
y__ -> Endpoint
x__ {_Endpoint'spec = y__}))
        (Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> Maybe EndpointSpec -> f (Maybe EndpointSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Endpoint "createdTime" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "createdTime"
-> (Timestamp -> f Timestamp) -> Endpoint -> f Endpoint
fieldOf Proxy# "createdTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> Endpoint -> f Endpoint)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> Endpoint
-> f Endpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Endpoint -> Maybe Timestamp)
-> (Endpoint -> Maybe Timestamp -> Endpoint)
-> Lens Endpoint Endpoint (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Endpoint -> Maybe Timestamp
_Endpoint'createdTime
           (\ Endpoint
x__ Maybe Timestamp
y__ -> Endpoint
x__ {_Endpoint'createdTime = y__}))
        (Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Endpoint "maybe'createdTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'createdTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> Endpoint
-> f Endpoint
fieldOf Proxy# "maybe'createdTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> Endpoint -> f Endpoint)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> Endpoint
-> f Endpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Endpoint -> Maybe Timestamp)
-> (Endpoint -> Maybe Timestamp -> Endpoint)
-> Lens Endpoint Endpoint (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Endpoint -> Maybe Timestamp
_Endpoint'createdTime
           (\ Endpoint
x__ Maybe Timestamp
y__ -> Endpoint
x__ {_Endpoint'createdTime = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Endpoint "lastModifiedTime" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "lastModifiedTime"
-> (Timestamp -> f Timestamp) -> Endpoint -> f Endpoint
fieldOf Proxy# "lastModifiedTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> Endpoint -> f Endpoint)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> Endpoint
-> f Endpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Endpoint -> Maybe Timestamp)
-> (Endpoint -> Maybe Timestamp -> Endpoint)
-> Lens Endpoint Endpoint (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Endpoint -> Maybe Timestamp
_Endpoint'lastModifiedTime
           (\ Endpoint
x__ Maybe Timestamp
y__ -> Endpoint
x__ {_Endpoint'lastModifiedTime = y__}))
        (Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Endpoint "maybe'lastModifiedTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'lastModifiedTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> Endpoint
-> f Endpoint
fieldOf Proxy# "maybe'lastModifiedTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> Endpoint -> f Endpoint)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> Endpoint
-> f Endpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Endpoint -> Maybe Timestamp)
-> (Endpoint -> Maybe Timestamp -> Endpoint)
-> Lens Endpoint Endpoint (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Endpoint -> Maybe Timestamp
_Endpoint'lastModifiedTime
           (\ Endpoint
x__ Maybe Timestamp
y__ -> Endpoint
x__ {_Endpoint'lastModifiedTime = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Endpoint "urlPrefix" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "urlPrefix" -> (Text -> f Text) -> Endpoint -> f Endpoint
fieldOf Proxy# "urlPrefix"
_
    = ((Text -> f Text) -> Endpoint -> f Endpoint)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Endpoint
-> f Endpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Endpoint -> Text)
-> (Endpoint -> Text -> Endpoint)
-> Lens Endpoint Endpoint Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Endpoint -> Text
_Endpoint'urlPrefix (\ Endpoint
x__ Text
y__ -> Endpoint
x__ {_Endpoint'urlPrefix = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Endpoint where
  messageName :: Proxy Endpoint -> Text
messageName Proxy Endpoint
_ = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.Endpoint"
  packedMessageDescriptor :: Proxy Endpoint -> ByteString
packedMessageDescriptor Proxy Endpoint
_
    = ByteString
"\n\
      \\bEndpoint\DC2\CAN\n\
      \\aversion\CAN\SOH \SOH(\ETXR\aversion\DC2\SO\n\
      \\STXid\CAN\STX \SOH(\tR\STXid\DC27\n\
      \\EOTspec\CAN\ETX \SOH(\v2#.temporal.api.nexus.v1.EndpointSpecR\EOTspec\DC2=\n\
      \\fcreated_time\CAN\EOT \SOH(\v2\SUB.google.protobuf.TimestampR\vcreatedTime\DC2H\n\
      \\DC2last_modified_time\CAN\ENQ \SOH(\v2\SUB.google.protobuf.TimestampR\DLElastModifiedTime\DC2\GS\n\
      \\n\
      \url_prefix\CAN\ACK \SOH(\tR\turlPrefix"
  packedFileDescriptor :: Proxy Endpoint -> ByteString
packedFileDescriptor Proxy Endpoint
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Endpoint)
fieldsByTag
    = let
        version__field_descriptor :: FieldDescriptor Endpoint
version__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor Endpoint Int64
-> FieldDescriptor Endpoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"version"
              (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 Endpoint Endpoint Int64 Int64
-> FieldAccessor Endpoint 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 @"version")) ::
              Data.ProtoLens.FieldDescriptor Endpoint
        id__field_descriptor :: FieldDescriptor Endpoint
id__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Endpoint Text
-> FieldDescriptor Endpoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"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 Endpoint Endpoint Text Text -> FieldAccessor Endpoint 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 @"id")) ::
              Data.ProtoLens.FieldDescriptor Endpoint
        spec__field_descriptor :: FieldDescriptor Endpoint
spec__field_descriptor
          = String
-> FieldTypeDescriptor EndpointSpec
-> FieldAccessor Endpoint EndpointSpec
-> FieldDescriptor Endpoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"spec"
              (MessageOrGroup -> FieldTypeDescriptor EndpointSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EndpointSpec)
              (Lens Endpoint Endpoint (Maybe EndpointSpec) (Maybe EndpointSpec)
-> FieldAccessor Endpoint EndpointSpec
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'spec")) ::
              Data.ProtoLens.FieldDescriptor Endpoint
        createdTime__field_descriptor :: FieldDescriptor Endpoint
createdTime__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor Endpoint Timestamp
-> FieldDescriptor Endpoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"created_time"
              (MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
              (Lens Endpoint Endpoint (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor Endpoint Timestamp
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'createdTime")) ::
              Data.ProtoLens.FieldDescriptor Endpoint
        lastModifiedTime__field_descriptor :: FieldDescriptor Endpoint
lastModifiedTime__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor Endpoint Timestamp
-> FieldDescriptor Endpoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"last_modified_time"
              (MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
              (Lens Endpoint Endpoint (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor Endpoint Timestamp
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'lastModifiedTime")) ::
              Data.ProtoLens.FieldDescriptor Endpoint
        urlPrefix__field_descriptor :: FieldDescriptor Endpoint
urlPrefix__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Endpoint Text
-> FieldDescriptor Endpoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"url_prefix"
              (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 Endpoint Endpoint Text Text -> FieldAccessor Endpoint 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 @"urlPrefix")) ::
              Data.ProtoLens.FieldDescriptor Endpoint
      in
        [(Tag, FieldDescriptor Endpoint)]
-> Map Tag (FieldDescriptor Endpoint)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Endpoint
version__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Endpoint
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Endpoint
spec__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Endpoint
createdTime__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor Endpoint
lastModifiedTime__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor Endpoint
urlPrefix__field_descriptor)]
  unknownFields :: Lens' Endpoint FieldSet
unknownFields
    = (Endpoint -> FieldSet)
-> (Endpoint -> FieldSet -> Endpoint) -> Lens' Endpoint FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Endpoint -> FieldSet
_Endpoint'_unknownFields
        (\ Endpoint
x__ FieldSet
y__ -> Endpoint
x__ {_Endpoint'_unknownFields = y__})
  defMessage :: Endpoint
defMessage
    = Endpoint'_constructor
        {_Endpoint'version :: Int64
_Endpoint'version = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Endpoint'id :: Text
_Endpoint'id = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Endpoint'spec :: Maybe EndpointSpec
_Endpoint'spec = Maybe EndpointSpec
forall a. Maybe a
Prelude.Nothing,
         _Endpoint'createdTime :: Maybe Timestamp
_Endpoint'createdTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _Endpoint'lastModifiedTime :: Maybe Timestamp
_Endpoint'lastModifiedTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _Endpoint'urlPrefix :: Text
_Endpoint'urlPrefix = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Endpoint'_unknownFields :: FieldSet
_Endpoint'_unknownFields = []}
  parseMessage :: Parser Endpoint
parseMessage
    = let
        loop :: Endpoint -> Data.ProtoLens.Encoding.Bytes.Parser Endpoint
        loop :: Endpoint -> Parser Endpoint
loop Endpoint
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"version"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"version") 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
"id"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x)
                        Word64
26
                          -> do y <- Parser EndpointSpec -> String -> Parser EndpointSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"spec"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"spec") y x)
                        Word64
34
                          -> do y <- Parser Timestamp -> String -> Parser Timestamp
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"created_time"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"createdTime") y x)
                        Word64
42
                          -> do y <- Parser Timestamp -> String -> Parser Timestamp
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"last_modified_time"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"lastModifiedTime") y x)
                        Word64
50
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"url_prefix"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"urlPrefix") 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 Endpoint -> String -> Parser Endpoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Endpoint -> Parser Endpoint
loop Endpoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Endpoint"
  buildMessage :: Endpoint -> Builder
buildMessage
    = \ Endpoint
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int64
_v = FoldLike Int64 Endpoint Endpoint Int64 Int64 -> Endpoint -> 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 @"version") Endpoint
_x
              in
                if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: Text
_v = FoldLike Text Endpoint Endpoint Text Text -> Endpoint -> 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 @"id") Endpoint
_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 EndpointSpec)
  Endpoint
  Endpoint
  (Maybe EndpointSpec)
  (Maybe EndpointSpec)
-> Endpoint -> Maybe EndpointSpec
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'spec") Endpoint
_x
                    of
                      Maybe EndpointSpec
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just EndpointSpec
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (EndpointSpec -> ByteString) -> EndpointSpec -> 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))
                                EndpointSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage EndpointSpec
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe Timestamp)
  Endpoint
  Endpoint
  (Maybe Timestamp)
  (Maybe Timestamp)
-> Endpoint -> Maybe Timestamp
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                             (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'createdTime") Endpoint
_x
                       of
                         Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just Timestamp
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                ((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   (\ ByteString
bs
                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                   Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (case
                              FoldLike
  (Maybe Timestamp)
  Endpoint
  Endpoint
  (Maybe Timestamp)
  (Maybe Timestamp)
-> Endpoint -> Maybe Timestamp
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'lastModifiedTime") Endpoint
_x
                          of
                            Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just Timestamp
_v)
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                                   ((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      (\ ByteString
bs
                                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                 (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                              (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                      Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: Text
_v = FoldLike Text Endpoint Endpoint Text Text -> Endpoint -> 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 @"urlPrefix") Endpoint
_x
                             in
                               if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                   Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               else
                                   Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                                     ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                        (\ ByteString
bs
                                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                      (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                        Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                            (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                               (FoldLike FieldSet Endpoint Endpoint FieldSet FieldSet
-> Endpoint -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Endpoint Endpoint FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Endpoint FieldSet
Data.ProtoLens.unknownFields Endpoint
_x)))))))
instance Control.DeepSeq.NFData Endpoint where
  rnf :: Endpoint -> ()
rnf
    = \ Endpoint
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Endpoint -> FieldSet
_Endpoint'_unknownFields Endpoint
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Endpoint -> Int64
_Endpoint'version Endpoint
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Endpoint -> Text
_Endpoint'id Endpoint
x__)
                   (Maybe EndpointSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (Endpoint -> Maybe EndpointSpec
_Endpoint'spec Endpoint
x__)
                      (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (Endpoint -> Maybe Timestamp
_Endpoint'createdTime Endpoint
x__)
                         (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (Endpoint -> Maybe Timestamp
_Endpoint'lastModifiedTime Endpoint
x__)
                            (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Endpoint -> Text
_Endpoint'urlPrefix Endpoint
x__) ()))))))
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.name' @:: Lens' EndpointSpec Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.description' @:: Lens' EndpointSpec Proto.Temporal.Api.Common.V1.Message.Payload@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'description' @:: Lens' EndpointSpec (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.target' @:: Lens' EndpointSpec EndpointTarget@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'target' @:: Lens' EndpointSpec (Prelude.Maybe EndpointTarget)@ -}
data EndpointSpec
  = EndpointSpec'_constructor {EndpointSpec -> Text
_EndpointSpec'name :: !Data.Text.Text,
                               EndpointSpec -> Maybe Payload
_EndpointSpec'description :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload),
                               EndpointSpec -> Maybe EndpointTarget
_EndpointSpec'target :: !(Prelude.Maybe EndpointTarget),
                               EndpointSpec -> FieldSet
_EndpointSpec'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (EndpointSpec -> EndpointSpec -> Bool
(EndpointSpec -> EndpointSpec -> Bool)
-> (EndpointSpec -> EndpointSpec -> Bool) -> Eq EndpointSpec
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EndpointSpec -> EndpointSpec -> Bool
== :: EndpointSpec -> EndpointSpec -> Bool
$c/= :: EndpointSpec -> EndpointSpec -> Bool
/= :: EndpointSpec -> EndpointSpec -> Bool
Prelude.Eq, Eq EndpointSpec
Eq EndpointSpec =>
(EndpointSpec -> EndpointSpec -> Ordering)
-> (EndpointSpec -> EndpointSpec -> Bool)
-> (EndpointSpec -> EndpointSpec -> Bool)
-> (EndpointSpec -> EndpointSpec -> Bool)
-> (EndpointSpec -> EndpointSpec -> Bool)
-> (EndpointSpec -> EndpointSpec -> EndpointSpec)
-> (EndpointSpec -> EndpointSpec -> EndpointSpec)
-> Ord EndpointSpec
EndpointSpec -> EndpointSpec -> Bool
EndpointSpec -> EndpointSpec -> Ordering
EndpointSpec -> EndpointSpec -> EndpointSpec
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 :: EndpointSpec -> EndpointSpec -> Ordering
compare :: EndpointSpec -> EndpointSpec -> Ordering
$c< :: EndpointSpec -> EndpointSpec -> Bool
< :: EndpointSpec -> EndpointSpec -> Bool
$c<= :: EndpointSpec -> EndpointSpec -> Bool
<= :: EndpointSpec -> EndpointSpec -> Bool
$c> :: EndpointSpec -> EndpointSpec -> Bool
> :: EndpointSpec -> EndpointSpec -> Bool
$c>= :: EndpointSpec -> EndpointSpec -> Bool
>= :: EndpointSpec -> EndpointSpec -> Bool
$cmax :: EndpointSpec -> EndpointSpec -> EndpointSpec
max :: EndpointSpec -> EndpointSpec -> EndpointSpec
$cmin :: EndpointSpec -> EndpointSpec -> EndpointSpec
min :: EndpointSpec -> EndpointSpec -> EndpointSpec
Prelude.Ord)
instance Prelude.Show EndpointSpec where
  showsPrec :: Int -> EndpointSpec -> ShowS
showsPrec Int
_ EndpointSpec
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (EndpointSpec -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EndpointSpec
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField EndpointSpec "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name" -> (Text -> f Text) -> EndpointSpec -> f EndpointSpec
fieldOf Proxy# "name"
_
    = ((Text -> f Text) -> EndpointSpec -> f EndpointSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> EndpointSpec
-> f EndpointSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointSpec -> Text)
-> (EndpointSpec -> Text -> EndpointSpec)
-> Lens EndpointSpec EndpointSpec Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointSpec -> Text
_EndpointSpec'name (\ EndpointSpec
x__ Text
y__ -> EndpointSpec
x__ {_EndpointSpec'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EndpointSpec "description" Proto.Temporal.Api.Common.V1.Message.Payload where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "description"
-> (Payload -> f Payload) -> EndpointSpec -> f EndpointSpec
fieldOf Proxy# "description"
_
    = ((Maybe Payload -> f (Maybe Payload))
 -> EndpointSpec -> f EndpointSpec)
-> ((Payload -> f Payload) -> Maybe Payload -> f (Maybe Payload))
-> (Payload -> f Payload)
-> EndpointSpec
-> f EndpointSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointSpec -> Maybe Payload)
-> (EndpointSpec -> Maybe Payload -> EndpointSpec)
-> Lens EndpointSpec EndpointSpec (Maybe Payload) (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointSpec -> Maybe Payload
_EndpointSpec'description
           (\ EndpointSpec
x__ Maybe Payload
y__ -> EndpointSpec
x__ {_EndpointSpec'description = y__}))
        (Payload -> Lens' (Maybe Payload) Payload
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payload
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField EndpointSpec "maybe'description" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'description"
-> (Maybe Payload -> f (Maybe Payload))
-> EndpointSpec
-> f EndpointSpec
fieldOf Proxy# "maybe'description"
_
    = ((Maybe Payload -> f (Maybe Payload))
 -> EndpointSpec -> f EndpointSpec)
-> ((Maybe Payload -> f (Maybe Payload))
    -> Maybe Payload -> f (Maybe Payload))
-> (Maybe Payload -> f (Maybe Payload))
-> EndpointSpec
-> f EndpointSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointSpec -> Maybe Payload)
-> (EndpointSpec -> Maybe Payload -> EndpointSpec)
-> Lens EndpointSpec EndpointSpec (Maybe Payload) (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointSpec -> Maybe Payload
_EndpointSpec'description
           (\ EndpointSpec
x__ Maybe Payload
y__ -> EndpointSpec
x__ {_EndpointSpec'description = y__}))
        (Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EndpointSpec "target" EndpointTarget where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "target"
-> (EndpointTarget -> f EndpointTarget)
-> EndpointSpec
-> f EndpointSpec
fieldOf Proxy# "target"
_
    = ((Maybe EndpointTarget -> f (Maybe EndpointTarget))
 -> EndpointSpec -> f EndpointSpec)
-> ((EndpointTarget -> f EndpointTarget)
    -> Maybe EndpointTarget -> f (Maybe EndpointTarget))
-> (EndpointTarget -> f EndpointTarget)
-> EndpointSpec
-> f EndpointSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointSpec -> Maybe EndpointTarget)
-> (EndpointSpec -> Maybe EndpointTarget -> EndpointSpec)
-> Lens
     EndpointSpec
     EndpointSpec
     (Maybe EndpointTarget)
     (Maybe EndpointTarget)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointSpec -> Maybe EndpointTarget
_EndpointSpec'target
           (\ EndpointSpec
x__ Maybe EndpointTarget
y__ -> EndpointSpec
x__ {_EndpointSpec'target = y__}))
        (EndpointTarget -> Lens' (Maybe EndpointTarget) EndpointTarget
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens EndpointTarget
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField EndpointSpec "maybe'target" (Prelude.Maybe EndpointTarget) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'target"
-> (Maybe EndpointTarget -> f (Maybe EndpointTarget))
-> EndpointSpec
-> f EndpointSpec
fieldOf Proxy# "maybe'target"
_
    = ((Maybe EndpointTarget -> f (Maybe EndpointTarget))
 -> EndpointSpec -> f EndpointSpec)
-> ((Maybe EndpointTarget -> f (Maybe EndpointTarget))
    -> Maybe EndpointTarget -> f (Maybe EndpointTarget))
-> (Maybe EndpointTarget -> f (Maybe EndpointTarget))
-> EndpointSpec
-> f EndpointSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointSpec -> Maybe EndpointTarget)
-> (EndpointSpec -> Maybe EndpointTarget -> EndpointSpec)
-> Lens
     EndpointSpec
     EndpointSpec
     (Maybe EndpointTarget)
     (Maybe EndpointTarget)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointSpec -> Maybe EndpointTarget
_EndpointSpec'target
           (\ EndpointSpec
x__ Maybe EndpointTarget
y__ -> EndpointSpec
x__ {_EndpointSpec'target = y__}))
        (Maybe EndpointTarget -> f (Maybe EndpointTarget))
-> Maybe EndpointTarget -> f (Maybe EndpointTarget)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EndpointSpec where
  messageName :: Proxy EndpointSpec -> Text
messageName Proxy EndpointSpec
_ = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.EndpointSpec"
  packedMessageDescriptor :: Proxy EndpointSpec -> ByteString
packedMessageDescriptor Proxy EndpointSpec
_
    = ByteString
"\n\
      \\fEndpointSpec\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2A\n\
      \\vdescription\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\vdescription\DC2=\n\
      \\ACKtarget\CAN\ETX \SOH(\v2%.temporal.api.nexus.v1.EndpointTargetR\ACKtarget"
  packedFileDescriptor :: Proxy EndpointSpec -> ByteString
packedFileDescriptor Proxy EndpointSpec
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor EndpointSpec)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor EndpointSpec
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor EndpointSpec Text
-> FieldDescriptor EndpointSpec
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 EndpointSpec EndpointSpec Text Text
-> FieldAccessor EndpointSpec 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 EndpointSpec
        description__field_descriptor :: FieldDescriptor EndpointSpec
description__field_descriptor
          = String
-> FieldTypeDescriptor Payload
-> FieldAccessor EndpointSpec Payload
-> FieldDescriptor EndpointSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"description"
              (MessageOrGroup -> FieldTypeDescriptor Payload
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payload)
              (Lens EndpointSpec EndpointSpec (Maybe Payload) (Maybe Payload)
-> FieldAccessor EndpointSpec Payload
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'description")) ::
              Data.ProtoLens.FieldDescriptor EndpointSpec
        target__field_descriptor :: FieldDescriptor EndpointSpec
target__field_descriptor
          = String
-> FieldTypeDescriptor EndpointTarget
-> FieldAccessor EndpointSpec EndpointTarget
-> FieldDescriptor EndpointSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"target"
              (MessageOrGroup -> FieldTypeDescriptor EndpointTarget
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EndpointTarget)
              (Lens
  EndpointSpec
  EndpointSpec
  (Maybe EndpointTarget)
  (Maybe EndpointTarget)
-> FieldAccessor EndpointSpec EndpointTarget
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'target")) ::
              Data.ProtoLens.FieldDescriptor EndpointSpec
      in
        [(Tag, FieldDescriptor EndpointSpec)]
-> Map Tag (FieldDescriptor EndpointSpec)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor EndpointSpec
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor EndpointSpec
description__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor EndpointSpec
target__field_descriptor)]
  unknownFields :: Lens' EndpointSpec FieldSet
unknownFields
    = (EndpointSpec -> FieldSet)
-> (EndpointSpec -> FieldSet -> EndpointSpec)
-> Lens' EndpointSpec FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EndpointSpec -> FieldSet
_EndpointSpec'_unknownFields
        (\ EndpointSpec
x__ FieldSet
y__ -> EndpointSpec
x__ {_EndpointSpec'_unknownFields = y__})
  defMessage :: EndpointSpec
defMessage
    = EndpointSpec'_constructor
        {_EndpointSpec'name :: Text
_EndpointSpec'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _EndpointSpec'description :: Maybe Payload
_EndpointSpec'description = Maybe Payload
forall a. Maybe a
Prelude.Nothing,
         _EndpointSpec'target :: Maybe EndpointTarget
_EndpointSpec'target = Maybe EndpointTarget
forall a. Maybe a
Prelude.Nothing,
         _EndpointSpec'_unknownFields :: FieldSet
_EndpointSpec'_unknownFields = []}
  parseMessage :: Parser EndpointSpec
parseMessage
    = let
        loop ::
          EndpointSpec -> Data.ProtoLens.Encoding.Bytes.Parser EndpointSpec
        loop :: EndpointSpec -> Parser EndpointSpec
loop EndpointSpec
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                        Word64
18
                          -> do y <- Parser Payload -> String -> Parser Payload
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
"description"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"description") y x)
                        Word64
26
                          -> do y <- Parser EndpointTarget -> String -> Parser EndpointTarget
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
"target"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"target") 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 EndpointSpec -> String -> Parser EndpointSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do EndpointSpec -> Parser EndpointSpec
loop EndpointSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"EndpointSpec"
  buildMessage :: EndpointSpec -> Builder
buildMessage
    = \ EndpointSpec
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text EndpointSpec EndpointSpec Text Text
-> EndpointSpec -> 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") EndpointSpec
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Payload)
  EndpointSpec
  EndpointSpec
  (Maybe Payload)
  (Maybe Payload)
-> EndpointSpec -> Maybe Payload
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'description") EndpointSpec
_x
                 of
                   Maybe Payload
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just Payload
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> 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))
                             Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe EndpointTarget)
  EndpointSpec
  EndpointSpec
  (Maybe EndpointTarget)
  (Maybe EndpointTarget)
-> EndpointSpec -> Maybe EndpointTarget
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'target") EndpointSpec
_x
                    of
                      Maybe EndpointTarget
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just EndpointTarget
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (EndpointTarget -> ByteString) -> EndpointTarget -> 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))
                                EndpointTarget -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage EndpointTarget
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet EndpointSpec EndpointSpec FieldSet FieldSet
-> EndpointSpec -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet EndpointSpec EndpointSpec FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EndpointSpec FieldSet
Data.ProtoLens.unknownFields EndpointSpec
_x))))
instance Control.DeepSeq.NFData EndpointSpec where
  rnf :: EndpointSpec -> ()
rnf
    = \ EndpointSpec
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EndpointSpec -> FieldSet
_EndpointSpec'_unknownFields EndpointSpec
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (EndpointSpec -> Text
_EndpointSpec'name EndpointSpec
x__)
                (Maybe Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (EndpointSpec -> Maybe Payload
_EndpointSpec'description EndpointSpec
x__)
                   (Maybe EndpointTarget -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (EndpointSpec -> Maybe EndpointTarget
_EndpointSpec'target EndpointSpec
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'variant' @:: Lens' EndpointTarget (Prelude.Maybe EndpointTarget'Variant)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'worker' @:: Lens' EndpointTarget (Prelude.Maybe EndpointTarget'Worker)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.worker' @:: Lens' EndpointTarget EndpointTarget'Worker@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'external' @:: Lens' EndpointTarget (Prelude.Maybe EndpointTarget'External)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.external' @:: Lens' EndpointTarget EndpointTarget'External@ -}
data EndpointTarget
  = EndpointTarget'_constructor {EndpointTarget -> Maybe EndpointTarget'Variant
_EndpointTarget'variant :: !(Prelude.Maybe EndpointTarget'Variant),
                                 EndpointTarget -> FieldSet
_EndpointTarget'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (EndpointTarget -> EndpointTarget -> Bool
(EndpointTarget -> EndpointTarget -> Bool)
-> (EndpointTarget -> EndpointTarget -> Bool) -> Eq EndpointTarget
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EndpointTarget -> EndpointTarget -> Bool
== :: EndpointTarget -> EndpointTarget -> Bool
$c/= :: EndpointTarget -> EndpointTarget -> Bool
/= :: EndpointTarget -> EndpointTarget -> Bool
Prelude.Eq, Eq EndpointTarget
Eq EndpointTarget =>
(EndpointTarget -> EndpointTarget -> Ordering)
-> (EndpointTarget -> EndpointTarget -> Bool)
-> (EndpointTarget -> EndpointTarget -> Bool)
-> (EndpointTarget -> EndpointTarget -> Bool)
-> (EndpointTarget -> EndpointTarget -> Bool)
-> (EndpointTarget -> EndpointTarget -> EndpointTarget)
-> (EndpointTarget -> EndpointTarget -> EndpointTarget)
-> Ord EndpointTarget
EndpointTarget -> EndpointTarget -> Bool
EndpointTarget -> EndpointTarget -> Ordering
EndpointTarget -> EndpointTarget -> EndpointTarget
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 :: EndpointTarget -> EndpointTarget -> Ordering
compare :: EndpointTarget -> EndpointTarget -> Ordering
$c< :: EndpointTarget -> EndpointTarget -> Bool
< :: EndpointTarget -> EndpointTarget -> Bool
$c<= :: EndpointTarget -> EndpointTarget -> Bool
<= :: EndpointTarget -> EndpointTarget -> Bool
$c> :: EndpointTarget -> EndpointTarget -> Bool
> :: EndpointTarget -> EndpointTarget -> Bool
$c>= :: EndpointTarget -> EndpointTarget -> Bool
>= :: EndpointTarget -> EndpointTarget -> Bool
$cmax :: EndpointTarget -> EndpointTarget -> EndpointTarget
max :: EndpointTarget -> EndpointTarget -> EndpointTarget
$cmin :: EndpointTarget -> EndpointTarget -> EndpointTarget
min :: EndpointTarget -> EndpointTarget -> EndpointTarget
Prelude.Ord)
instance Prelude.Show EndpointTarget where
  showsPrec :: Int -> EndpointTarget -> ShowS
showsPrec Int
_ EndpointTarget
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (EndpointTarget -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EndpointTarget
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data EndpointTarget'Variant
  = EndpointTarget'Worker' !EndpointTarget'Worker |
    EndpointTarget'External' !EndpointTarget'External
  deriving stock (Int -> EndpointTarget'Variant -> ShowS
[EndpointTarget'Variant] -> ShowS
EndpointTarget'Variant -> String
(Int -> EndpointTarget'Variant -> ShowS)
-> (EndpointTarget'Variant -> String)
-> ([EndpointTarget'Variant] -> ShowS)
-> Show EndpointTarget'Variant
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> EndpointTarget'Variant -> ShowS
showsPrec :: Int -> EndpointTarget'Variant -> ShowS
$cshow :: EndpointTarget'Variant -> String
show :: EndpointTarget'Variant -> String
$cshowList :: [EndpointTarget'Variant] -> ShowS
showList :: [EndpointTarget'Variant] -> ShowS
Prelude.Show, EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
(EndpointTarget'Variant -> EndpointTarget'Variant -> Bool)
-> (EndpointTarget'Variant -> EndpointTarget'Variant -> Bool)
-> Eq EndpointTarget'Variant
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
== :: EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
$c/= :: EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
/= :: EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
Prelude.Eq, Eq EndpointTarget'Variant
Eq EndpointTarget'Variant =>
(EndpointTarget'Variant -> EndpointTarget'Variant -> Ordering)
-> (EndpointTarget'Variant -> EndpointTarget'Variant -> Bool)
-> (EndpointTarget'Variant -> EndpointTarget'Variant -> Bool)
-> (EndpointTarget'Variant -> EndpointTarget'Variant -> Bool)
-> (EndpointTarget'Variant -> EndpointTarget'Variant -> Bool)
-> (EndpointTarget'Variant
    -> EndpointTarget'Variant -> EndpointTarget'Variant)
-> (EndpointTarget'Variant
    -> EndpointTarget'Variant -> EndpointTarget'Variant)
-> Ord EndpointTarget'Variant
EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
EndpointTarget'Variant -> EndpointTarget'Variant -> Ordering
EndpointTarget'Variant
-> EndpointTarget'Variant -> EndpointTarget'Variant
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 :: EndpointTarget'Variant -> EndpointTarget'Variant -> Ordering
compare :: EndpointTarget'Variant -> EndpointTarget'Variant -> Ordering
$c< :: EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
< :: EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
$c<= :: EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
<= :: EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
$c> :: EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
> :: EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
$c>= :: EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
>= :: EndpointTarget'Variant -> EndpointTarget'Variant -> Bool
$cmax :: EndpointTarget'Variant
-> EndpointTarget'Variant -> EndpointTarget'Variant
max :: EndpointTarget'Variant
-> EndpointTarget'Variant -> EndpointTarget'Variant
$cmin :: EndpointTarget'Variant
-> EndpointTarget'Variant -> EndpointTarget'Variant
min :: EndpointTarget'Variant
-> EndpointTarget'Variant -> EndpointTarget'Variant
Prelude.Ord)
instance Data.ProtoLens.Field.HasField EndpointTarget "maybe'variant" (Prelude.Maybe EndpointTarget'Variant) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'variant"
-> (Maybe EndpointTarget'Variant
    -> f (Maybe EndpointTarget'Variant))
-> EndpointTarget
-> f EndpointTarget
fieldOf Proxy# "maybe'variant"
_
    = ((Maybe EndpointTarget'Variant -> f (Maybe EndpointTarget'Variant))
 -> EndpointTarget -> f EndpointTarget)
-> ((Maybe EndpointTarget'Variant
     -> f (Maybe EndpointTarget'Variant))
    -> Maybe EndpointTarget'Variant
    -> f (Maybe EndpointTarget'Variant))
-> (Maybe EndpointTarget'Variant
    -> f (Maybe EndpointTarget'Variant))
-> EndpointTarget
-> f EndpointTarget
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointTarget -> Maybe EndpointTarget'Variant)
-> (EndpointTarget
    -> Maybe EndpointTarget'Variant -> EndpointTarget)
-> Lens
     EndpointTarget
     EndpointTarget
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointTarget -> Maybe EndpointTarget'Variant
_EndpointTarget'variant
           (\ EndpointTarget
x__ Maybe EndpointTarget'Variant
y__ -> EndpointTarget
x__ {_EndpointTarget'variant = y__}))
        (Maybe EndpointTarget'Variant -> f (Maybe EndpointTarget'Variant))
-> Maybe EndpointTarget'Variant -> f (Maybe EndpointTarget'Variant)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EndpointTarget "maybe'worker" (Prelude.Maybe EndpointTarget'Worker) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'worker"
-> (Maybe EndpointTarget'Worker -> f (Maybe EndpointTarget'Worker))
-> EndpointTarget
-> f EndpointTarget
fieldOf Proxy# "maybe'worker"
_
    = ((Maybe EndpointTarget'Variant -> f (Maybe EndpointTarget'Variant))
 -> EndpointTarget -> f EndpointTarget)
-> ((Maybe EndpointTarget'Worker
     -> f (Maybe EndpointTarget'Worker))
    -> Maybe EndpointTarget'Variant
    -> f (Maybe EndpointTarget'Variant))
-> (Maybe EndpointTarget'Worker -> f (Maybe EndpointTarget'Worker))
-> EndpointTarget
-> f EndpointTarget
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointTarget -> Maybe EndpointTarget'Variant)
-> (EndpointTarget
    -> Maybe EndpointTarget'Variant -> EndpointTarget)
-> Lens
     EndpointTarget
     EndpointTarget
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointTarget -> Maybe EndpointTarget'Variant
_EndpointTarget'variant
           (\ EndpointTarget
x__ Maybe EndpointTarget'Variant
y__ -> EndpointTarget
x__ {_EndpointTarget'variant = y__}))
        ((Maybe EndpointTarget'Variant -> Maybe EndpointTarget'Worker)
-> (Maybe EndpointTarget'Variant
    -> Maybe EndpointTarget'Worker -> Maybe EndpointTarget'Variant)
-> Lens
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'Worker)
     (Maybe EndpointTarget'Worker)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe EndpointTarget'Variant
x__
              -> case Maybe EndpointTarget'Variant
x__ of
                   (Prelude.Just (EndpointTarget'Worker' EndpointTarget'Worker
x__val))
                     -> EndpointTarget'Worker -> Maybe EndpointTarget'Worker
forall a. a -> Maybe a
Prelude.Just EndpointTarget'Worker
x__val
                   Maybe EndpointTarget'Variant
_otherwise -> Maybe EndpointTarget'Worker
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe EndpointTarget'Variant
_ Maybe EndpointTarget'Worker
y__ -> (EndpointTarget'Worker -> EndpointTarget'Variant)
-> Maybe EndpointTarget'Worker -> Maybe EndpointTarget'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap EndpointTarget'Worker -> EndpointTarget'Variant
EndpointTarget'Worker' Maybe EndpointTarget'Worker
y__))
instance Data.ProtoLens.Field.HasField EndpointTarget "worker" EndpointTarget'Worker where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "worker"
-> (EndpointTarget'Worker -> f EndpointTarget'Worker)
-> EndpointTarget
-> f EndpointTarget
fieldOf Proxy# "worker"
_
    = ((Maybe EndpointTarget'Variant -> f (Maybe EndpointTarget'Variant))
 -> EndpointTarget -> f EndpointTarget)
-> ((EndpointTarget'Worker -> f EndpointTarget'Worker)
    -> Maybe EndpointTarget'Variant
    -> f (Maybe EndpointTarget'Variant))
-> (EndpointTarget'Worker -> f EndpointTarget'Worker)
-> EndpointTarget
-> f EndpointTarget
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointTarget -> Maybe EndpointTarget'Variant)
-> (EndpointTarget
    -> Maybe EndpointTarget'Variant -> EndpointTarget)
-> Lens
     EndpointTarget
     EndpointTarget
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointTarget -> Maybe EndpointTarget'Variant
_EndpointTarget'variant
           (\ EndpointTarget
x__ Maybe EndpointTarget'Variant
y__ -> EndpointTarget
x__ {_EndpointTarget'variant = y__}))
        (((Maybe EndpointTarget'Worker -> f (Maybe EndpointTarget'Worker))
 -> Maybe EndpointTarget'Variant
 -> f (Maybe EndpointTarget'Variant))
-> ((EndpointTarget'Worker -> f EndpointTarget'Worker)
    -> Maybe EndpointTarget'Worker -> f (Maybe EndpointTarget'Worker))
-> (EndpointTarget'Worker -> f EndpointTarget'Worker)
-> Maybe EndpointTarget'Variant
-> f (Maybe EndpointTarget'Variant)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe EndpointTarget'Variant -> Maybe EndpointTarget'Worker)
-> (Maybe EndpointTarget'Variant
    -> Maybe EndpointTarget'Worker -> Maybe EndpointTarget'Variant)
-> Lens
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'Worker)
     (Maybe EndpointTarget'Worker)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe EndpointTarget'Variant
x__
                 -> case Maybe EndpointTarget'Variant
x__ of
                      (Prelude.Just (EndpointTarget'Worker' EndpointTarget'Worker
x__val))
                        -> EndpointTarget'Worker -> Maybe EndpointTarget'Worker
forall a. a -> Maybe a
Prelude.Just EndpointTarget'Worker
x__val
                      Maybe EndpointTarget'Variant
_otherwise -> Maybe EndpointTarget'Worker
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe EndpointTarget'Variant
_ Maybe EndpointTarget'Worker
y__ -> (EndpointTarget'Worker -> EndpointTarget'Variant)
-> Maybe EndpointTarget'Worker -> Maybe EndpointTarget'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap EndpointTarget'Worker -> EndpointTarget'Variant
EndpointTarget'Worker' Maybe EndpointTarget'Worker
y__))
           (EndpointTarget'Worker
-> Lens' (Maybe EndpointTarget'Worker) EndpointTarget'Worker
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens EndpointTarget'Worker
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField EndpointTarget "maybe'external" (Prelude.Maybe EndpointTarget'External) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'external"
-> (Maybe EndpointTarget'External
    -> f (Maybe EndpointTarget'External))
-> EndpointTarget
-> f EndpointTarget
fieldOf Proxy# "maybe'external"
_
    = ((Maybe EndpointTarget'Variant -> f (Maybe EndpointTarget'Variant))
 -> EndpointTarget -> f EndpointTarget)
-> ((Maybe EndpointTarget'External
     -> f (Maybe EndpointTarget'External))
    -> Maybe EndpointTarget'Variant
    -> f (Maybe EndpointTarget'Variant))
-> (Maybe EndpointTarget'External
    -> f (Maybe EndpointTarget'External))
-> EndpointTarget
-> f EndpointTarget
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointTarget -> Maybe EndpointTarget'Variant)
-> (EndpointTarget
    -> Maybe EndpointTarget'Variant -> EndpointTarget)
-> Lens
     EndpointTarget
     EndpointTarget
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointTarget -> Maybe EndpointTarget'Variant
_EndpointTarget'variant
           (\ EndpointTarget
x__ Maybe EndpointTarget'Variant
y__ -> EndpointTarget
x__ {_EndpointTarget'variant = y__}))
        ((Maybe EndpointTarget'Variant -> Maybe EndpointTarget'External)
-> (Maybe EndpointTarget'Variant
    -> Maybe EndpointTarget'External -> Maybe EndpointTarget'Variant)
-> Lens
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'External)
     (Maybe EndpointTarget'External)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe EndpointTarget'Variant
x__
              -> case Maybe EndpointTarget'Variant
x__ of
                   (Prelude.Just (EndpointTarget'External' EndpointTarget'External
x__val))
                     -> EndpointTarget'External -> Maybe EndpointTarget'External
forall a. a -> Maybe a
Prelude.Just EndpointTarget'External
x__val
                   Maybe EndpointTarget'Variant
_otherwise -> Maybe EndpointTarget'External
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe EndpointTarget'Variant
_ Maybe EndpointTarget'External
y__ -> (EndpointTarget'External -> EndpointTarget'Variant)
-> Maybe EndpointTarget'External -> Maybe EndpointTarget'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap EndpointTarget'External -> EndpointTarget'Variant
EndpointTarget'External' Maybe EndpointTarget'External
y__))
instance Data.ProtoLens.Field.HasField EndpointTarget "external" EndpointTarget'External where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "external"
-> (EndpointTarget'External -> f EndpointTarget'External)
-> EndpointTarget
-> f EndpointTarget
fieldOf Proxy# "external"
_
    = ((Maybe EndpointTarget'Variant -> f (Maybe EndpointTarget'Variant))
 -> EndpointTarget -> f EndpointTarget)
-> ((EndpointTarget'External -> f EndpointTarget'External)
    -> Maybe EndpointTarget'Variant
    -> f (Maybe EndpointTarget'Variant))
-> (EndpointTarget'External -> f EndpointTarget'External)
-> EndpointTarget
-> f EndpointTarget
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointTarget -> Maybe EndpointTarget'Variant)
-> (EndpointTarget
    -> Maybe EndpointTarget'Variant -> EndpointTarget)
-> Lens
     EndpointTarget
     EndpointTarget
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointTarget -> Maybe EndpointTarget'Variant
_EndpointTarget'variant
           (\ EndpointTarget
x__ Maybe EndpointTarget'Variant
y__ -> EndpointTarget
x__ {_EndpointTarget'variant = y__}))
        (((Maybe EndpointTarget'External
  -> f (Maybe EndpointTarget'External))
 -> Maybe EndpointTarget'Variant
 -> f (Maybe EndpointTarget'Variant))
-> ((EndpointTarget'External -> f EndpointTarget'External)
    -> Maybe EndpointTarget'External
    -> f (Maybe EndpointTarget'External))
-> (EndpointTarget'External -> f EndpointTarget'External)
-> Maybe EndpointTarget'Variant
-> f (Maybe EndpointTarget'Variant)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe EndpointTarget'Variant -> Maybe EndpointTarget'External)
-> (Maybe EndpointTarget'Variant
    -> Maybe EndpointTarget'External -> Maybe EndpointTarget'Variant)
-> Lens
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'Variant)
     (Maybe EndpointTarget'External)
     (Maybe EndpointTarget'External)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe EndpointTarget'Variant
x__
                 -> case Maybe EndpointTarget'Variant
x__ of
                      (Prelude.Just (EndpointTarget'External' EndpointTarget'External
x__val))
                        -> EndpointTarget'External -> Maybe EndpointTarget'External
forall a. a -> Maybe a
Prelude.Just EndpointTarget'External
x__val
                      Maybe EndpointTarget'Variant
_otherwise -> Maybe EndpointTarget'External
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe EndpointTarget'Variant
_ Maybe EndpointTarget'External
y__ -> (EndpointTarget'External -> EndpointTarget'Variant)
-> Maybe EndpointTarget'External -> Maybe EndpointTarget'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap EndpointTarget'External -> EndpointTarget'Variant
EndpointTarget'External' Maybe EndpointTarget'External
y__))
           (EndpointTarget'External
-> Lens' (Maybe EndpointTarget'External) EndpointTarget'External
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens EndpointTarget'External
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message EndpointTarget where
  messageName :: Proxy EndpointTarget -> Text
messageName Proxy EndpointTarget
_
    = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.EndpointTarget"
  packedMessageDescriptor :: Proxy EndpointTarget -> ByteString
packedMessageDescriptor Proxy EndpointTarget
_
    = ByteString
"\n\
      \\SOEndpointTarget\DC2F\n\
      \\ACKworker\CAN\SOH \SOH(\v2,.temporal.api.nexus.v1.EndpointTarget.WorkerH\NULR\ACKworker\DC2L\n\
      \\bexternal\CAN\STX \SOH(\v2..temporal.api.nexus.v1.EndpointTarget.ExternalH\NULR\bexternal\SUBE\n\
      \\ACKWorker\DC2\FS\n\
      \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2\GS\n\
      \\n\
      \task_queue\CAN\STX \SOH(\tR\ttaskQueue\SUB\FS\n\
      \\bExternal\DC2\DLE\n\
      \\ETXurl\CAN\SOH \SOH(\tR\ETXurlB\t\n\
      \\avariant"
  packedFileDescriptor :: Proxy EndpointTarget -> ByteString
packedFileDescriptor Proxy EndpointTarget
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor EndpointTarget)
fieldsByTag
    = let
        worker__field_descriptor :: FieldDescriptor EndpointTarget
worker__field_descriptor
          = String
-> FieldTypeDescriptor EndpointTarget'Worker
-> FieldAccessor EndpointTarget EndpointTarget'Worker
-> FieldDescriptor EndpointTarget
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"worker"
              (MessageOrGroup -> FieldTypeDescriptor EndpointTarget'Worker
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EndpointTarget'Worker)
              (Lens' EndpointTarget (Maybe EndpointTarget'Worker)
-> FieldAccessor EndpointTarget EndpointTarget'Worker
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'worker")) ::
              Data.ProtoLens.FieldDescriptor EndpointTarget
        external__field_descriptor :: FieldDescriptor EndpointTarget
external__field_descriptor
          = String
-> FieldTypeDescriptor EndpointTarget'External
-> FieldAccessor EndpointTarget EndpointTarget'External
-> FieldDescriptor EndpointTarget
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"external"
              (MessageOrGroup -> FieldTypeDescriptor EndpointTarget'External
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EndpointTarget'External)
              (Lens' EndpointTarget (Maybe EndpointTarget'External)
-> FieldAccessor EndpointTarget EndpointTarget'External
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'external")) ::
              Data.ProtoLens.FieldDescriptor EndpointTarget
      in
        [(Tag, FieldDescriptor EndpointTarget)]
-> Map Tag (FieldDescriptor EndpointTarget)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor EndpointTarget
worker__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor EndpointTarget
external__field_descriptor)]
  unknownFields :: Lens' EndpointTarget FieldSet
unknownFields
    = (EndpointTarget -> FieldSet)
-> (EndpointTarget -> FieldSet -> EndpointTarget)
-> Lens' EndpointTarget FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EndpointTarget -> FieldSet
_EndpointTarget'_unknownFields
        (\ EndpointTarget
x__ FieldSet
y__ -> EndpointTarget
x__ {_EndpointTarget'_unknownFields = y__})
  defMessage :: EndpointTarget
defMessage
    = EndpointTarget'_constructor
        {_EndpointTarget'variant :: Maybe EndpointTarget'Variant
_EndpointTarget'variant = Maybe EndpointTarget'Variant
forall a. Maybe a
Prelude.Nothing,
         _EndpointTarget'_unknownFields :: FieldSet
_EndpointTarget'_unknownFields = []}
  parseMessage :: Parser EndpointTarget
parseMessage
    = let
        loop ::
          EndpointTarget
          -> Data.ProtoLens.Encoding.Bytes.Parser EndpointTarget
        loop :: EndpointTarget -> Parser EndpointTarget
loop EndpointTarget
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 EndpointTarget'Worker
-> String -> Parser EndpointTarget'Worker
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"worker"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"worker") y x)
                        Word64
18
                          -> do y <- Parser EndpointTarget'External
-> String -> Parser EndpointTarget'External
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
"external"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"external") 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 EndpointTarget -> String -> Parser EndpointTarget
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do EndpointTarget -> Parser EndpointTarget
loop EndpointTarget
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"EndpointTarget"
  buildMessage :: EndpointTarget -> Builder
buildMessage
    = \ EndpointTarget
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe EndpointTarget'Variant)
  EndpointTarget
  EndpointTarget
  (Maybe EndpointTarget'Variant)
  (Maybe EndpointTarget'Variant)
-> EndpointTarget -> Maybe EndpointTarget'Variant
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'variant") EndpointTarget
_x
              of
                Maybe EndpointTarget'Variant
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (EndpointTarget'Worker' EndpointTarget'Worker
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (EndpointTarget'Worker -> ByteString)
-> EndpointTarget'Worker
-> 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))
                          EndpointTarget'Worker -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage EndpointTarget'Worker
v)
                (Prelude.Just (EndpointTarget'External' EndpointTarget'External
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((ByteString -> Builder)
-> (EndpointTarget'External -> ByteString)
-> EndpointTarget'External
-> 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))
                          EndpointTarget'External -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage EndpointTarget'External
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet EndpointTarget EndpointTarget FieldSet FieldSet
-> EndpointTarget -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet EndpointTarget EndpointTarget FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EndpointTarget FieldSet
Data.ProtoLens.unknownFields EndpointTarget
_x))
instance Control.DeepSeq.NFData EndpointTarget where
  rnf :: EndpointTarget -> ()
rnf
    = \ EndpointTarget
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EndpointTarget -> FieldSet
_EndpointTarget'_unknownFields EndpointTarget
x__)
             (Maybe EndpointTarget'Variant -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (EndpointTarget -> Maybe EndpointTarget'Variant
_EndpointTarget'variant EndpointTarget
x__) ())
instance Control.DeepSeq.NFData EndpointTarget'Variant where
  rnf :: EndpointTarget'Variant -> ()
rnf (EndpointTarget'Worker' EndpointTarget'Worker
x__) = EndpointTarget'Worker -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf EndpointTarget'Worker
x__
  rnf (EndpointTarget'External' EndpointTarget'External
x__) = EndpointTarget'External -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf EndpointTarget'External
x__
_EndpointTarget'Worker' ::
  Data.ProtoLens.Prism.Prism' EndpointTarget'Variant EndpointTarget'Worker
_EndpointTarget'Worker' :: Prism' EndpointTarget'Variant EndpointTarget'Worker
_EndpointTarget'Worker'
  = (EndpointTarget'Worker -> EndpointTarget'Variant)
-> (EndpointTarget'Variant -> Maybe EndpointTarget'Worker)
-> Prism' EndpointTarget'Variant EndpointTarget'Worker
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      EndpointTarget'Worker -> EndpointTarget'Variant
EndpointTarget'Worker'
      (\ EndpointTarget'Variant
p__
         -> case EndpointTarget'Variant
p__ of
              (EndpointTarget'Worker' EndpointTarget'Worker
p__val) -> EndpointTarget'Worker -> Maybe EndpointTarget'Worker
forall a. a -> Maybe a
Prelude.Just EndpointTarget'Worker
p__val
              EndpointTarget'Variant
_otherwise -> Maybe EndpointTarget'Worker
forall a. Maybe a
Prelude.Nothing)
_EndpointTarget'External' ::
  Data.ProtoLens.Prism.Prism' EndpointTarget'Variant EndpointTarget'External
_EndpointTarget'External' :: Prism' EndpointTarget'Variant EndpointTarget'External
_EndpointTarget'External'
  = (EndpointTarget'External -> EndpointTarget'Variant)
-> (EndpointTarget'Variant -> Maybe EndpointTarget'External)
-> Prism' EndpointTarget'Variant EndpointTarget'External
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      EndpointTarget'External -> EndpointTarget'Variant
EndpointTarget'External'
      (\ EndpointTarget'Variant
p__
         -> case EndpointTarget'Variant
p__ of
              (EndpointTarget'External' EndpointTarget'External
p__val) -> EndpointTarget'External -> Maybe EndpointTarget'External
forall a. a -> Maybe a
Prelude.Just EndpointTarget'External
p__val
              EndpointTarget'Variant
_otherwise -> Maybe EndpointTarget'External
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.url' @:: Lens' EndpointTarget'External Data.Text.Text@ -}
data EndpointTarget'External
  = EndpointTarget'External'_constructor {EndpointTarget'External -> Text
_EndpointTarget'External'url :: !Data.Text.Text,
                                          EndpointTarget'External -> FieldSet
_EndpointTarget'External'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (EndpointTarget'External -> EndpointTarget'External -> Bool
(EndpointTarget'External -> EndpointTarget'External -> Bool)
-> (EndpointTarget'External -> EndpointTarget'External -> Bool)
-> Eq EndpointTarget'External
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EndpointTarget'External -> EndpointTarget'External -> Bool
== :: EndpointTarget'External -> EndpointTarget'External -> Bool
$c/= :: EndpointTarget'External -> EndpointTarget'External -> Bool
/= :: EndpointTarget'External -> EndpointTarget'External -> Bool
Prelude.Eq, Eq EndpointTarget'External
Eq EndpointTarget'External =>
(EndpointTarget'External -> EndpointTarget'External -> Ordering)
-> (EndpointTarget'External -> EndpointTarget'External -> Bool)
-> (EndpointTarget'External -> EndpointTarget'External -> Bool)
-> (EndpointTarget'External -> EndpointTarget'External -> Bool)
-> (EndpointTarget'External -> EndpointTarget'External -> Bool)
-> (EndpointTarget'External
    -> EndpointTarget'External -> EndpointTarget'External)
-> (EndpointTarget'External
    -> EndpointTarget'External -> EndpointTarget'External)
-> Ord EndpointTarget'External
EndpointTarget'External -> EndpointTarget'External -> Bool
EndpointTarget'External -> EndpointTarget'External -> Ordering
EndpointTarget'External
-> EndpointTarget'External -> EndpointTarget'External
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 :: EndpointTarget'External -> EndpointTarget'External -> Ordering
compare :: EndpointTarget'External -> EndpointTarget'External -> Ordering
$c< :: EndpointTarget'External -> EndpointTarget'External -> Bool
< :: EndpointTarget'External -> EndpointTarget'External -> Bool
$c<= :: EndpointTarget'External -> EndpointTarget'External -> Bool
<= :: EndpointTarget'External -> EndpointTarget'External -> Bool
$c> :: EndpointTarget'External -> EndpointTarget'External -> Bool
> :: EndpointTarget'External -> EndpointTarget'External -> Bool
$c>= :: EndpointTarget'External -> EndpointTarget'External -> Bool
>= :: EndpointTarget'External -> EndpointTarget'External -> Bool
$cmax :: EndpointTarget'External
-> EndpointTarget'External -> EndpointTarget'External
max :: EndpointTarget'External
-> EndpointTarget'External -> EndpointTarget'External
$cmin :: EndpointTarget'External
-> EndpointTarget'External -> EndpointTarget'External
min :: EndpointTarget'External
-> EndpointTarget'External -> EndpointTarget'External
Prelude.Ord)
instance Prelude.Show EndpointTarget'External where
  showsPrec :: Int -> EndpointTarget'External -> ShowS
showsPrec Int
_ EndpointTarget'External
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (EndpointTarget'External -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EndpointTarget'External
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField EndpointTarget'External "url" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "url"
-> (Text -> f Text)
-> EndpointTarget'External
-> f EndpointTarget'External
fieldOf Proxy# "url"
_
    = ((Text -> f Text)
 -> EndpointTarget'External -> f EndpointTarget'External)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> EndpointTarget'External
-> f EndpointTarget'External
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointTarget'External -> Text)
-> (EndpointTarget'External -> Text -> EndpointTarget'External)
-> Lens EndpointTarget'External EndpointTarget'External Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointTarget'External -> Text
_EndpointTarget'External'url
           (\ EndpointTarget'External
x__ Text
y__ -> EndpointTarget'External
x__ {_EndpointTarget'External'url = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EndpointTarget'External where
  messageName :: Proxy EndpointTarget'External -> Text
messageName Proxy EndpointTarget'External
_
    = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.EndpointTarget.External"
  packedMessageDescriptor :: Proxy EndpointTarget'External -> ByteString
packedMessageDescriptor Proxy EndpointTarget'External
_
    = ByteString
"\n\
      \\bExternal\DC2\DLE\n\
      \\ETXurl\CAN\SOH \SOH(\tR\ETXurl"
  packedFileDescriptor :: Proxy EndpointTarget'External -> ByteString
packedFileDescriptor Proxy EndpointTarget'External
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor EndpointTarget'External)
fieldsByTag
    = let
        url__field_descriptor :: FieldDescriptor EndpointTarget'External
url__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor EndpointTarget'External Text
-> FieldDescriptor EndpointTarget'External
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"url"
              (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 EndpointTarget'External EndpointTarget'External Text Text
-> FieldAccessor EndpointTarget'External 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 @"url")) ::
              Data.ProtoLens.FieldDescriptor EndpointTarget'External
      in
        [(Tag, FieldDescriptor EndpointTarget'External)]
-> Map Tag (FieldDescriptor EndpointTarget'External)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor EndpointTarget'External
url__field_descriptor)]
  unknownFields :: Lens' EndpointTarget'External FieldSet
unknownFields
    = (EndpointTarget'External -> FieldSet)
-> (EndpointTarget'External -> FieldSet -> EndpointTarget'External)
-> Lens' EndpointTarget'External FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EndpointTarget'External -> FieldSet
_EndpointTarget'External'_unknownFields
        (\ EndpointTarget'External
x__ FieldSet
y__ -> EndpointTarget'External
x__ {_EndpointTarget'External'_unknownFields = y__})
  defMessage :: EndpointTarget'External
defMessage
    = EndpointTarget'External'_constructor
        {_EndpointTarget'External'url :: Text
_EndpointTarget'External'url = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _EndpointTarget'External'_unknownFields :: FieldSet
_EndpointTarget'External'_unknownFields = []}
  parseMessage :: Parser EndpointTarget'External
parseMessage
    = let
        loop ::
          EndpointTarget'External
          -> Data.ProtoLens.Encoding.Bytes.Parser EndpointTarget'External
        loop :: EndpointTarget'External -> Parser EndpointTarget'External
loop EndpointTarget'External
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
"url"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"url") 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 EndpointTarget'External
-> String -> Parser EndpointTarget'External
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do EndpointTarget'External -> Parser EndpointTarget'External
loop EndpointTarget'External
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"External"
  buildMessage :: EndpointTarget'External -> Builder
buildMessage
    = \ EndpointTarget'External
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text EndpointTarget'External EndpointTarget'External Text Text
-> EndpointTarget'External -> 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 @"url") EndpointTarget'External
_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))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  EndpointTarget'External
  EndpointTarget'External
  FieldSet
  FieldSet
-> EndpointTarget'External -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  EndpointTarget'External
  EndpointTarget'External
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EndpointTarget'External FieldSet
Data.ProtoLens.unknownFields EndpointTarget'External
_x))
instance Control.DeepSeq.NFData EndpointTarget'External where
  rnf :: EndpointTarget'External -> ()
rnf
    = \ EndpointTarget'External
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EndpointTarget'External -> FieldSet
_EndpointTarget'External'_unknownFields EndpointTarget'External
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (EndpointTarget'External -> Text
_EndpointTarget'External'url EndpointTarget'External
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.namespace' @:: Lens' EndpointTarget'Worker Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.taskQueue' @:: Lens' EndpointTarget'Worker Data.Text.Text@ -}
data EndpointTarget'Worker
  = EndpointTarget'Worker'_constructor {EndpointTarget'Worker -> Text
_EndpointTarget'Worker'namespace :: !Data.Text.Text,
                                        EndpointTarget'Worker -> Text
_EndpointTarget'Worker'taskQueue :: !Data.Text.Text,
                                        EndpointTarget'Worker -> FieldSet
_EndpointTarget'Worker'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
(EndpointTarget'Worker -> EndpointTarget'Worker -> Bool)
-> (EndpointTarget'Worker -> EndpointTarget'Worker -> Bool)
-> Eq EndpointTarget'Worker
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
== :: EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
$c/= :: EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
/= :: EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
Prelude.Eq, Eq EndpointTarget'Worker
Eq EndpointTarget'Worker =>
(EndpointTarget'Worker -> EndpointTarget'Worker -> Ordering)
-> (EndpointTarget'Worker -> EndpointTarget'Worker -> Bool)
-> (EndpointTarget'Worker -> EndpointTarget'Worker -> Bool)
-> (EndpointTarget'Worker -> EndpointTarget'Worker -> Bool)
-> (EndpointTarget'Worker -> EndpointTarget'Worker -> Bool)
-> (EndpointTarget'Worker
    -> EndpointTarget'Worker -> EndpointTarget'Worker)
-> (EndpointTarget'Worker
    -> EndpointTarget'Worker -> EndpointTarget'Worker)
-> Ord EndpointTarget'Worker
EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
EndpointTarget'Worker -> EndpointTarget'Worker -> Ordering
EndpointTarget'Worker
-> EndpointTarget'Worker -> EndpointTarget'Worker
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 :: EndpointTarget'Worker -> EndpointTarget'Worker -> Ordering
compare :: EndpointTarget'Worker -> EndpointTarget'Worker -> Ordering
$c< :: EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
< :: EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
$c<= :: EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
<= :: EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
$c> :: EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
> :: EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
$c>= :: EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
>= :: EndpointTarget'Worker -> EndpointTarget'Worker -> Bool
$cmax :: EndpointTarget'Worker
-> EndpointTarget'Worker -> EndpointTarget'Worker
max :: EndpointTarget'Worker
-> EndpointTarget'Worker -> EndpointTarget'Worker
$cmin :: EndpointTarget'Worker
-> EndpointTarget'Worker -> EndpointTarget'Worker
min :: EndpointTarget'Worker
-> EndpointTarget'Worker -> EndpointTarget'Worker
Prelude.Ord)
instance Prelude.Show EndpointTarget'Worker where
  showsPrec :: Int -> EndpointTarget'Worker -> ShowS
showsPrec Int
_ EndpointTarget'Worker
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (EndpointTarget'Worker -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EndpointTarget'Worker
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField EndpointTarget'Worker "namespace" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespace"
-> (Text -> f Text)
-> EndpointTarget'Worker
-> f EndpointTarget'Worker
fieldOf Proxy# "namespace"
_
    = ((Text -> f Text)
 -> EndpointTarget'Worker -> f EndpointTarget'Worker)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> EndpointTarget'Worker
-> f EndpointTarget'Worker
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointTarget'Worker -> Text)
-> (EndpointTarget'Worker -> Text -> EndpointTarget'Worker)
-> Lens EndpointTarget'Worker EndpointTarget'Worker Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointTarget'Worker -> Text
_EndpointTarget'Worker'namespace
           (\ EndpointTarget'Worker
x__ Text
y__ -> EndpointTarget'Worker
x__ {_EndpointTarget'Worker'namespace = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EndpointTarget'Worker "taskQueue" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "taskQueue"
-> (Text -> f Text)
-> EndpointTarget'Worker
-> f EndpointTarget'Worker
fieldOf Proxy# "taskQueue"
_
    = ((Text -> f Text)
 -> EndpointTarget'Worker -> f EndpointTarget'Worker)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> EndpointTarget'Worker
-> f EndpointTarget'Worker
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EndpointTarget'Worker -> Text)
-> (EndpointTarget'Worker -> Text -> EndpointTarget'Worker)
-> Lens EndpointTarget'Worker EndpointTarget'Worker Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EndpointTarget'Worker -> Text
_EndpointTarget'Worker'taskQueue
           (\ EndpointTarget'Worker
x__ Text
y__ -> EndpointTarget'Worker
x__ {_EndpointTarget'Worker'taskQueue = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EndpointTarget'Worker where
  messageName :: Proxy EndpointTarget'Worker -> Text
messageName Proxy EndpointTarget'Worker
_
    = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.EndpointTarget.Worker"
  packedMessageDescriptor :: Proxy EndpointTarget'Worker -> ByteString
packedMessageDescriptor Proxy EndpointTarget'Worker
_
    = ByteString
"\n\
      \\ACKWorker\DC2\FS\n\
      \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2\GS\n\
      \\n\
      \task_queue\CAN\STX \SOH(\tR\ttaskQueue"
  packedFileDescriptor :: Proxy EndpointTarget'Worker -> ByteString
packedFileDescriptor Proxy EndpointTarget'Worker
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor EndpointTarget'Worker)
fieldsByTag
    = let
        namespace__field_descriptor :: FieldDescriptor EndpointTarget'Worker
namespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor EndpointTarget'Worker Text
-> FieldDescriptor EndpointTarget'Worker
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"namespace"
              (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 EndpointTarget'Worker EndpointTarget'Worker Text Text
-> FieldAccessor EndpointTarget'Worker 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 @"namespace")) ::
              Data.ProtoLens.FieldDescriptor EndpointTarget'Worker
        taskQueue__field_descriptor :: FieldDescriptor EndpointTarget'Worker
taskQueue__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor EndpointTarget'Worker Text
-> FieldDescriptor EndpointTarget'Worker
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"task_queue"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens EndpointTarget'Worker EndpointTarget'Worker Text Text
-> FieldAccessor EndpointTarget'Worker Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"taskQueue")) ::
              Data.ProtoLens.FieldDescriptor EndpointTarget'Worker
      in
        [(Tag, FieldDescriptor EndpointTarget'Worker)]
-> Map Tag (FieldDescriptor EndpointTarget'Worker)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor EndpointTarget'Worker
namespace__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor EndpointTarget'Worker
taskQueue__field_descriptor)]
  unknownFields :: Lens' EndpointTarget'Worker FieldSet
unknownFields
    = (EndpointTarget'Worker -> FieldSet)
-> (EndpointTarget'Worker -> FieldSet -> EndpointTarget'Worker)
-> Lens' EndpointTarget'Worker FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EndpointTarget'Worker -> FieldSet
_EndpointTarget'Worker'_unknownFields
        (\ EndpointTarget'Worker
x__ FieldSet
y__ -> EndpointTarget'Worker
x__ {_EndpointTarget'Worker'_unknownFields = y__})
  defMessage :: EndpointTarget'Worker
defMessage
    = EndpointTarget'Worker'_constructor
        {_EndpointTarget'Worker'namespace :: Text
_EndpointTarget'Worker'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _EndpointTarget'Worker'taskQueue :: Text
_EndpointTarget'Worker'taskQueue = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _EndpointTarget'Worker'_unknownFields :: FieldSet
_EndpointTarget'Worker'_unknownFields = []}
  parseMessage :: Parser EndpointTarget'Worker
parseMessage
    = let
        loop ::
          EndpointTarget'Worker
          -> Data.ProtoLens.Encoding.Bytes.Parser EndpointTarget'Worker
        loop :: EndpointTarget'Worker -> Parser EndpointTarget'Worker
loop EndpointTarget'Worker
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
"namespace"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"namespace") 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
"task_queue"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"taskQueue") 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 EndpointTarget'Worker
-> String -> Parser EndpointTarget'Worker
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do EndpointTarget'Worker -> Parser EndpointTarget'Worker
loop EndpointTarget'Worker
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Worker"
  buildMessage :: EndpointTarget'Worker -> Builder
buildMessage
    = \ EndpointTarget'Worker
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text EndpointTarget'Worker EndpointTarget'Worker Text Text
-> EndpointTarget'Worker -> 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 @"namespace") EndpointTarget'Worker
_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 EndpointTarget'Worker EndpointTarget'Worker Text Text
-> EndpointTarget'Worker -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"taskQueue") EndpointTarget'Worker
_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
  EndpointTarget'Worker
  EndpointTarget'Worker
  FieldSet
  FieldSet
-> EndpointTarget'Worker -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  EndpointTarget'Worker
  EndpointTarget'Worker
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EndpointTarget'Worker FieldSet
Data.ProtoLens.unknownFields EndpointTarget'Worker
_x)))
instance Control.DeepSeq.NFData EndpointTarget'Worker where
  rnf :: EndpointTarget'Worker -> ()
rnf
    = \ EndpointTarget'Worker
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EndpointTarget'Worker -> FieldSet
_EndpointTarget'Worker'_unknownFields EndpointTarget'Worker
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (EndpointTarget'Worker -> Text
_EndpointTarget'Worker'namespace EndpointTarget'Worker
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (EndpointTarget'Worker -> Text
_EndpointTarget'Worker'taskQueue EndpointTarget'Worker
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.message' @:: Lens' Failure Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.metadata' @:: Lens' Failure (Data.Map.Map Data.Text.Text Data.Text.Text)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.details' @:: Lens' Failure Data.ByteString.ByteString@ -}
data Failure
  = Failure'_constructor {Failure -> Text
_Failure'message :: !Data.Text.Text,
                          Failure -> Map Text Text
_Failure'metadata :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
                          Failure -> ByteString
_Failure'details :: !Data.ByteString.ByteString,
                          Failure -> FieldSet
_Failure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Failure -> Failure -> Bool
(Failure -> Failure -> Bool)
-> (Failure -> Failure -> Bool) -> Eq Failure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Failure -> Failure -> Bool
== :: Failure -> Failure -> Bool
$c/= :: Failure -> Failure -> Bool
/= :: Failure -> Failure -> Bool
Prelude.Eq, Eq Failure
Eq Failure =>
(Failure -> Failure -> Ordering)
-> (Failure -> Failure -> Bool)
-> (Failure -> Failure -> Bool)
-> (Failure -> Failure -> Bool)
-> (Failure -> Failure -> Bool)
-> (Failure -> Failure -> Failure)
-> (Failure -> Failure -> Failure)
-> Ord Failure
Failure -> Failure -> Bool
Failure -> Failure -> Ordering
Failure -> Failure -> Failure
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 :: Failure -> Failure -> Ordering
compare :: Failure -> Failure -> Ordering
$c< :: Failure -> Failure -> Bool
< :: Failure -> Failure -> Bool
$c<= :: Failure -> Failure -> Bool
<= :: Failure -> Failure -> Bool
$c> :: Failure -> Failure -> Bool
> :: Failure -> Failure -> Bool
$c>= :: Failure -> Failure -> Bool
>= :: Failure -> Failure -> Bool
$cmax :: Failure -> Failure -> Failure
max :: Failure -> Failure -> Failure
$cmin :: Failure -> Failure -> Failure
min :: Failure -> Failure -> Failure
Prelude.Ord)
instance Prelude.Show Failure where
  showsPrec :: Int -> Failure -> ShowS
showsPrec Int
_ Failure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Failure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Failure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Failure "message" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "message" -> (Text -> f Text) -> Failure -> f Failure
fieldOf Proxy# "message"
_
    = ((Text -> f Text) -> Failure -> f Failure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Failure -> Text)
-> (Failure -> Text -> Failure) -> Lens Failure Failure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Failure -> Text
_Failure'message (\ Failure
x__ Text
y__ -> Failure
x__ {_Failure'message = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "metadata" (Data.Map.Map Data.Text.Text Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "metadata"
-> (Map Text Text -> f (Map Text Text)) -> Failure -> f Failure
fieldOf Proxy# "metadata"
_
    = ((Map Text Text -> f (Map Text Text)) -> Failure -> f Failure)
-> ((Map Text Text -> f (Map Text Text))
    -> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Failure -> Map Text Text)
-> (Failure -> Map Text Text -> Failure)
-> Lens Failure Failure (Map Text Text) (Map Text Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Failure -> Map Text Text
_Failure'metadata (\ Failure
x__ Map Text Text
y__ -> Failure
x__ {_Failure'metadata = y__}))
        (Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "details" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "details"
-> (ByteString -> f ByteString) -> Failure -> f Failure
fieldOf Proxy# "details"
_
    = ((ByteString -> f ByteString) -> Failure -> f Failure)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Failure -> ByteString)
-> (Failure -> ByteString -> Failure)
-> Lens Failure Failure ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Failure -> ByteString
_Failure'details (\ Failure
x__ ByteString
y__ -> Failure
x__ {_Failure'details = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Failure where
  messageName :: Proxy Failure -> Text
messageName Proxy Failure
_ = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.Failure"
  packedMessageDescriptor :: Proxy Failure -> ByteString
packedMessageDescriptor Proxy Failure
_
    = ByteString
"\n\
      \\aFailure\DC2\CAN\n\
      \\amessage\CAN\SOH \SOH(\tR\amessage\DC2H\n\
      \\bmetadata\CAN\STX \ETX(\v2,.temporal.api.nexus.v1.Failure.MetadataEntryR\bmetadata\DC2\CAN\n\
      \\adetails\CAN\ETX \SOH(\fR\adetails\SUB;\n\
      \\rMetadataEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy Failure -> ByteString
packedFileDescriptor Proxy Failure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Failure)
fieldsByTag
    = let
        message__field_descriptor :: FieldDescriptor Failure
message__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Failure Text
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"message"
              (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 Failure Failure Text Text -> FieldAccessor Failure 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 @"message")) ::
              Data.ProtoLens.FieldDescriptor Failure
        metadata__field_descriptor :: FieldDescriptor Failure
metadata__field_descriptor
          = String
-> FieldTypeDescriptor Failure'MetadataEntry
-> FieldAccessor Failure Failure'MetadataEntry
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"metadata"
              (MessageOrGroup -> FieldTypeDescriptor Failure'MetadataEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Failure'MetadataEntry)
              (Lens' Failure'MetadataEntry Text
-> Lens' Failure'MetadataEntry Text
-> Lens Failure Failure (Map Text Text) (Map Text Text)
-> FieldAccessor Failure Failure'MetadataEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metadata")) ::
              Data.ProtoLens.FieldDescriptor Failure
        details__field_descriptor :: FieldDescriptor Failure
details__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Failure ByteString
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"details"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens Failure Failure ByteString ByteString
-> FieldAccessor Failure ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"details")) ::
              Data.ProtoLens.FieldDescriptor Failure
      in
        [(Tag, FieldDescriptor Failure)]
-> Map Tag (FieldDescriptor Failure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Failure
message__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Failure
metadata__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Failure
details__field_descriptor)]
  unknownFields :: Lens' Failure FieldSet
unknownFields
    = (Failure -> FieldSet)
-> (Failure -> FieldSet -> Failure) -> Lens' Failure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Failure -> FieldSet
_Failure'_unknownFields
        (\ Failure
x__ FieldSet
y__ -> Failure
x__ {_Failure'_unknownFields = y__})
  defMessage :: Failure
defMessage
    = Failure'_constructor
        {_Failure'message :: Text
_Failure'message = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Failure'metadata :: Map Text Text
_Failure'metadata = Map Text Text
forall k a. Map k a
Data.Map.empty,
         _Failure'details :: ByteString
_Failure'details = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Failure'_unknownFields :: FieldSet
_Failure'_unknownFields = []}
  parseMessage :: Parser Failure
parseMessage
    = let
        loop :: Failure -> Data.ProtoLens.Encoding.Bytes.Parser Failure
        loop :: Failure -> Parser Failure
loop Failure
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
"message"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"message") y x)
                        Word64
18
                          -> do !(entry :: Failure'MetadataEntry) <- Parser Failure'MetadataEntry
-> String -> Parser Failure'MetadataEntry
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
"metadata"
                                (let
                                   key = FoldLike Text Failure'MetadataEntry Failure'MetadataEntry Text Text
-> Failure'MetadataEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Failure'MetadataEntry
entry
                                   value
                                     = FoldLike Text Failure'MetadataEntry Failure'MetadataEntry Text Text
-> Failure'MetadataEntry -> 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 @"value") Failure'MetadataEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"metadata")
                                        (\ !Map Text Text
t -> Text -> Text -> Map Text Text -> Map Text Text
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Text
value Map Text Text
t) x))
                        Word64
26
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"details"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"details") 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 Failure -> String -> Parser Failure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Failure -> Parser Failure
loop Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Failure"
  buildMessage :: Failure -> Builder
buildMessage
    = \ Failure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text Failure Failure Text Text -> Failure -> 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 @"message") Failure
_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.<>)
                ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                   (((Text, Text) -> Builder) -> [(Text, Text)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                      (\ (Text, Text)
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                              ((ByteString -> Builder)
-> (Failure'MetadataEntry -> ByteString)
-> Failure'MetadataEntry
-> 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'MetadataEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                 (Setter Failure'MetadataEntry Failure'MetadataEntry Text Text
-> Text -> Failure'MetadataEntry -> Failure'MetadataEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, Text) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Text)
_v)
                                    (Setter Failure'MetadataEntry Failure'MetadataEntry Text Text
-> Text -> Failure'MetadataEntry -> Failure'MetadataEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ((Text, Text) -> Text
forall a b. (a, b) -> b
Prelude.snd (Text, Text)
_v)
                                       (Failure'MetadataEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: Failure'MetadataEntry)))))
                      (Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                         (FoldLike
  (Map Text Text) Failure Failure (Map Text Text) (Map Text Text)
-> Failure -> Map Text 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 @"metadata") Failure
_x))))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: ByteString
_v = FoldLike ByteString Failure Failure ByteString ByteString
-> Failure -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"details") Failure
_x
                    in
                      if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                            ((\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                               ByteString
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Failure Failure FieldSet FieldSet
-> Failure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Failure Failure FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Failure FieldSet
Data.ProtoLens.unknownFields Failure
_x))))
instance Control.DeepSeq.NFData Failure where
  rnf :: Failure -> ()
rnf
    = \ Failure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Failure -> FieldSet
_Failure'_unknownFields Failure
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Failure -> Text
_Failure'message Failure
x__)
                (Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Failure -> Map Text Text
_Failure'metadata Failure
x__)
                   (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Failure -> ByteString
_Failure'details Failure
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.key' @:: Lens' Failure'MetadataEntry Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.value' @:: Lens' Failure'MetadataEntry Data.Text.Text@ -}
data Failure'MetadataEntry
  = Failure'MetadataEntry'_constructor {Failure'MetadataEntry -> Text
_Failure'MetadataEntry'key :: !Data.Text.Text,
                                        Failure'MetadataEntry -> Text
_Failure'MetadataEntry'value :: !Data.Text.Text,
                                        Failure'MetadataEntry -> FieldSet
_Failure'MetadataEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
(Failure'MetadataEntry -> Failure'MetadataEntry -> Bool)
-> (Failure'MetadataEntry -> Failure'MetadataEntry -> Bool)
-> Eq Failure'MetadataEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
== :: Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
$c/= :: Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
/= :: Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
Prelude.Eq, Eq Failure'MetadataEntry
Eq Failure'MetadataEntry =>
(Failure'MetadataEntry -> Failure'MetadataEntry -> Ordering)
-> (Failure'MetadataEntry -> Failure'MetadataEntry -> Bool)
-> (Failure'MetadataEntry -> Failure'MetadataEntry -> Bool)
-> (Failure'MetadataEntry -> Failure'MetadataEntry -> Bool)
-> (Failure'MetadataEntry -> Failure'MetadataEntry -> Bool)
-> (Failure'MetadataEntry
    -> Failure'MetadataEntry -> Failure'MetadataEntry)
-> (Failure'MetadataEntry
    -> Failure'MetadataEntry -> Failure'MetadataEntry)
-> Ord Failure'MetadataEntry
Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
Failure'MetadataEntry -> Failure'MetadataEntry -> Ordering
Failure'MetadataEntry
-> Failure'MetadataEntry -> Failure'MetadataEntry
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 :: Failure'MetadataEntry -> Failure'MetadataEntry -> Ordering
compare :: Failure'MetadataEntry -> Failure'MetadataEntry -> Ordering
$c< :: Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
< :: Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
$c<= :: Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
<= :: Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
$c> :: Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
> :: Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
$c>= :: Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
>= :: Failure'MetadataEntry -> Failure'MetadataEntry -> Bool
$cmax :: Failure'MetadataEntry
-> Failure'MetadataEntry -> Failure'MetadataEntry
max :: Failure'MetadataEntry
-> Failure'MetadataEntry -> Failure'MetadataEntry
$cmin :: Failure'MetadataEntry
-> Failure'MetadataEntry -> Failure'MetadataEntry
min :: Failure'MetadataEntry
-> Failure'MetadataEntry -> Failure'MetadataEntry
Prelude.Ord)
instance Prelude.Show Failure'MetadataEntry where
  showsPrec :: Int -> Failure'MetadataEntry -> ShowS
showsPrec Int
_ Failure'MetadataEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Failure'MetadataEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Failure'MetadataEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Failure'MetadataEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> Failure'MetadataEntry
-> f Failure'MetadataEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> Failure'MetadataEntry -> f Failure'MetadataEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Failure'MetadataEntry
-> f Failure'MetadataEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Failure'MetadataEntry -> Text)
-> (Failure'MetadataEntry -> Text -> Failure'MetadataEntry)
-> Lens' Failure'MetadataEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Failure'MetadataEntry -> Text
_Failure'MetadataEntry'key
           (\ Failure'MetadataEntry
x__ Text
y__ -> Failure'MetadataEntry
x__ {_Failure'MetadataEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Failure'MetadataEntry "value" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Text -> f Text)
-> Failure'MetadataEntry
-> f Failure'MetadataEntry
fieldOf Proxy# "value"
_
    = ((Text -> f Text)
 -> Failure'MetadataEntry -> f Failure'MetadataEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Failure'MetadataEntry
-> f Failure'MetadataEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Failure'MetadataEntry -> Text)
-> (Failure'MetadataEntry -> Text -> Failure'MetadataEntry)
-> Lens' Failure'MetadataEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Failure'MetadataEntry -> Text
_Failure'MetadataEntry'value
           (\ Failure'MetadataEntry
x__ Text
y__ -> Failure'MetadataEntry
x__ {_Failure'MetadataEntry'value = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Failure'MetadataEntry where
  messageName :: Proxy Failure'MetadataEntry -> Text
messageName Proxy Failure'MetadataEntry
_
    = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.Failure.MetadataEntry"
  packedMessageDescriptor :: Proxy Failure'MetadataEntry -> ByteString
packedMessageDescriptor Proxy Failure'MetadataEntry
_
    = ByteString
"\n\
      \\rMetadataEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy Failure'MetadataEntry -> ByteString
packedFileDescriptor Proxy Failure'MetadataEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Failure'MetadataEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor Failure'MetadataEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Failure'MetadataEntry Text
-> FieldDescriptor Failure'MetadataEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' Failure'MetadataEntry Text
-> FieldAccessor Failure'MetadataEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor Failure'MetadataEntry
        value__field_descriptor :: FieldDescriptor Failure'MetadataEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Failure'MetadataEntry Text
-> FieldDescriptor Failure'MetadataEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (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' Failure'MetadataEntry Text
-> FieldAccessor Failure'MetadataEntry 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 @"value")) ::
              Data.ProtoLens.FieldDescriptor Failure'MetadataEntry
      in
        [(Tag, FieldDescriptor Failure'MetadataEntry)]
-> Map Tag (FieldDescriptor Failure'MetadataEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Failure'MetadataEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Failure'MetadataEntry
value__field_descriptor)]
  unknownFields :: Lens' Failure'MetadataEntry FieldSet
unknownFields
    = (Failure'MetadataEntry -> FieldSet)
-> (Failure'MetadataEntry -> FieldSet -> Failure'MetadataEntry)
-> Lens' Failure'MetadataEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Failure'MetadataEntry -> FieldSet
_Failure'MetadataEntry'_unknownFields
        (\ Failure'MetadataEntry
x__ FieldSet
y__ -> Failure'MetadataEntry
x__ {_Failure'MetadataEntry'_unknownFields = y__})
  defMessage :: Failure'MetadataEntry
defMessage
    = Failure'MetadataEntry'_constructor
        {_Failure'MetadataEntry'key :: Text
_Failure'MetadataEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Failure'MetadataEntry'value :: Text
_Failure'MetadataEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Failure'MetadataEntry'_unknownFields :: FieldSet
_Failure'MetadataEntry'_unknownFields = []}
  parseMessage :: Parser Failure'MetadataEntry
parseMessage
    = let
        loop ::
          Failure'MetadataEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser Failure'MetadataEntry
        loop :: Failure'MetadataEntry -> Parser Failure'MetadataEntry
loop Failure'MetadataEntry
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Failure'MetadataEntry
-> String -> Parser Failure'MetadataEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Failure'MetadataEntry -> Parser Failure'MetadataEntry
loop Failure'MetadataEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"MetadataEntry"
  buildMessage :: Failure'MetadataEntry -> Builder
buildMessage
    = \ Failure'MetadataEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text Failure'MetadataEntry Failure'MetadataEntry Text Text
-> Failure'MetadataEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Failure'MetadataEntry
_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 Failure'MetadataEntry Failure'MetadataEntry Text Text
-> Failure'MetadataEntry -> 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 @"value") Failure'MetadataEntry
_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
  Failure'MetadataEntry
  Failure'MetadataEntry
  FieldSet
  FieldSet
-> Failure'MetadataEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  Failure'MetadataEntry
  Failure'MetadataEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Failure'MetadataEntry FieldSet
Data.ProtoLens.unknownFields Failure'MetadataEntry
_x)))
instance Control.DeepSeq.NFData Failure'MetadataEntry where
  rnf :: Failure'MetadataEntry -> ()
rnf
    = \ Failure'MetadataEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Failure'MetadataEntry -> FieldSet
_Failure'MetadataEntry'_unknownFields Failure'MetadataEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Failure'MetadataEntry -> Text
_Failure'MetadataEntry'key Failure'MetadataEntry
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Failure'MetadataEntry -> Text
_Failure'MetadataEntry'value Failure'MetadataEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.errorType' @:: Lens' HandlerError Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.failure' @:: Lens' HandlerError Failure@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'failure' @:: Lens' HandlerError (Prelude.Maybe Failure)@ -}
data HandlerError
  = HandlerError'_constructor {HandlerError -> Text
_HandlerError'errorType :: !Data.Text.Text,
                               HandlerError -> Maybe Failure
_HandlerError'failure :: !(Prelude.Maybe Failure),
                               HandlerError -> FieldSet
_HandlerError'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (HandlerError -> HandlerError -> Bool
(HandlerError -> HandlerError -> Bool)
-> (HandlerError -> HandlerError -> Bool) -> Eq HandlerError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HandlerError -> HandlerError -> Bool
== :: HandlerError -> HandlerError -> Bool
$c/= :: HandlerError -> HandlerError -> Bool
/= :: HandlerError -> HandlerError -> Bool
Prelude.Eq, Eq HandlerError
Eq HandlerError =>
(HandlerError -> HandlerError -> Ordering)
-> (HandlerError -> HandlerError -> Bool)
-> (HandlerError -> HandlerError -> Bool)
-> (HandlerError -> HandlerError -> Bool)
-> (HandlerError -> HandlerError -> Bool)
-> (HandlerError -> HandlerError -> HandlerError)
-> (HandlerError -> HandlerError -> HandlerError)
-> Ord HandlerError
HandlerError -> HandlerError -> Bool
HandlerError -> HandlerError -> Ordering
HandlerError -> HandlerError -> HandlerError
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 :: HandlerError -> HandlerError -> Ordering
compare :: HandlerError -> HandlerError -> Ordering
$c< :: HandlerError -> HandlerError -> Bool
< :: HandlerError -> HandlerError -> Bool
$c<= :: HandlerError -> HandlerError -> Bool
<= :: HandlerError -> HandlerError -> Bool
$c> :: HandlerError -> HandlerError -> Bool
> :: HandlerError -> HandlerError -> Bool
$c>= :: HandlerError -> HandlerError -> Bool
>= :: HandlerError -> HandlerError -> Bool
$cmax :: HandlerError -> HandlerError -> HandlerError
max :: HandlerError -> HandlerError -> HandlerError
$cmin :: HandlerError -> HandlerError -> HandlerError
min :: HandlerError -> HandlerError -> HandlerError
Prelude.Ord)
instance Prelude.Show HandlerError where
  showsPrec :: Int -> HandlerError -> ShowS
showsPrec Int
_ HandlerError
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (HandlerError -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort HandlerError
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField HandlerError "errorType" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "errorType"
-> (Text -> f Text) -> HandlerError -> f HandlerError
fieldOf Proxy# "errorType"
_
    = ((Text -> f Text) -> HandlerError -> f HandlerError)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> HandlerError
-> f HandlerError
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HandlerError -> Text)
-> (HandlerError -> Text -> HandlerError)
-> Lens HandlerError HandlerError Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HandlerError -> Text
_HandlerError'errorType
           (\ HandlerError
x__ Text
y__ -> HandlerError
x__ {_HandlerError'errorType = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HandlerError "failure" Failure where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failure"
-> (Failure -> f Failure) -> HandlerError -> f HandlerError
fieldOf Proxy# "failure"
_
    = ((Maybe Failure -> f (Maybe Failure))
 -> HandlerError -> f HandlerError)
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> HandlerError
-> f HandlerError
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HandlerError -> Maybe Failure)
-> (HandlerError -> Maybe Failure -> HandlerError)
-> Lens HandlerError HandlerError (Maybe Failure) (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HandlerError -> Maybe Failure
_HandlerError'failure
           (\ HandlerError
x__ Maybe Failure
y__ -> HandlerError
x__ {_HandlerError'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 HandlerError "maybe'failure" (Prelude.Maybe Failure) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failure"
-> (Maybe Failure -> f (Maybe Failure))
-> HandlerError
-> f HandlerError
fieldOf Proxy# "maybe'failure"
_
    = ((Maybe Failure -> f (Maybe Failure))
 -> HandlerError -> f HandlerError)
-> ((Maybe Failure -> f (Maybe Failure))
    -> Maybe Failure -> f (Maybe Failure))
-> (Maybe Failure -> f (Maybe Failure))
-> HandlerError
-> f HandlerError
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HandlerError -> Maybe Failure)
-> (HandlerError -> Maybe Failure -> HandlerError)
-> Lens HandlerError HandlerError (Maybe Failure) (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HandlerError -> Maybe Failure
_HandlerError'failure
           (\ HandlerError
x__ Maybe Failure
y__ -> HandlerError
x__ {_HandlerError'failure = y__}))
        (Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message HandlerError where
  messageName :: Proxy HandlerError -> Text
messageName Proxy HandlerError
_ = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.HandlerError"
  packedMessageDescriptor :: Proxy HandlerError -> ByteString
packedMessageDescriptor Proxy HandlerError
_
    = ByteString
"\n\
      \\fHandlerError\DC2\GS\n\
      \\n\
      \error_type\CAN\SOH \SOH(\tR\terrorType\DC28\n\
      \\afailure\CAN\STX \SOH(\v2\RS.temporal.api.nexus.v1.FailureR\afailure"
  packedFileDescriptor :: Proxy HandlerError -> ByteString
packedFileDescriptor Proxy HandlerError
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor HandlerError)
fieldsByTag
    = let
        errorType__field_descriptor :: FieldDescriptor HandlerError
errorType__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor HandlerError Text
-> FieldDescriptor HandlerError
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"error_type"
              (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 HandlerError HandlerError Text Text
-> FieldAccessor HandlerError 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 @"errorType")) ::
              Data.ProtoLens.FieldDescriptor HandlerError
        failure__field_descriptor :: FieldDescriptor HandlerError
failure__field_descriptor
          = String
-> FieldTypeDescriptor Failure
-> FieldAccessor HandlerError Failure
-> FieldDescriptor HandlerError
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 Failure)
              (Lens HandlerError HandlerError (Maybe Failure) (Maybe Failure)
-> FieldAccessor HandlerError 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 HandlerError
      in
        [(Tag, FieldDescriptor HandlerError)]
-> Map Tag (FieldDescriptor HandlerError)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor HandlerError
errorType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor HandlerError
failure__field_descriptor)]
  unknownFields :: Lens' HandlerError FieldSet
unknownFields
    = (HandlerError -> FieldSet)
-> (HandlerError -> FieldSet -> HandlerError)
-> Lens' HandlerError FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        HandlerError -> FieldSet
_HandlerError'_unknownFields
        (\ HandlerError
x__ FieldSet
y__ -> HandlerError
x__ {_HandlerError'_unknownFields = y__})
  defMessage :: HandlerError
defMessage
    = HandlerError'_constructor
        {_HandlerError'errorType :: Text
_HandlerError'errorType = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _HandlerError'failure :: Maybe Failure
_HandlerError'failure = Maybe Failure
forall a. Maybe a
Prelude.Nothing,
         _HandlerError'_unknownFields :: FieldSet
_HandlerError'_unknownFields = []}
  parseMessage :: Parser HandlerError
parseMessage
    = let
        loop ::
          HandlerError -> Data.ProtoLens.Encoding.Bytes.Parser HandlerError
        loop :: HandlerError -> Parser HandlerError
loop HandlerError
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
"error_type"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"errorType") 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 HandlerError -> String -> Parser HandlerError
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do HandlerError -> Parser HandlerError
loop HandlerError
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"HandlerError"
  buildMessage :: HandlerError -> Builder
buildMessage
    = \ HandlerError
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text HandlerError HandlerError Text Text
-> HandlerError -> 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 @"errorType") HandlerError
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Failure)
  HandlerError
  HandlerError
  (Maybe Failure)
  (Maybe Failure)
-> HandlerError -> 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") HandlerError
_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
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 HandlerError HandlerError FieldSet FieldSet
-> HandlerError -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet HandlerError HandlerError FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' HandlerError FieldSet
Data.ProtoLens.unknownFields HandlerError
_x)))
instance Control.DeepSeq.NFData HandlerError where
  rnf :: HandlerError -> ()
rnf
    = \ HandlerError
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (HandlerError -> FieldSet
_HandlerError'_unknownFields HandlerError
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (HandlerError -> Text
_HandlerError'errorType HandlerError
x__)
                (Maybe Failure -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (HandlerError -> Maybe Failure
_HandlerError'failure HandlerError
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.header' @:: Lens' Request (Data.Map.Map Data.Text.Text Data.Text.Text)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.scheduledTime' @:: Lens' Request Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'scheduledTime' @:: Lens' Request (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'variant' @:: Lens' Request (Prelude.Maybe Request'Variant)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'startOperation' @:: Lens' Request (Prelude.Maybe StartOperationRequest)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.startOperation' @:: Lens' Request StartOperationRequest@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'cancelOperation' @:: Lens' Request (Prelude.Maybe CancelOperationRequest)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.cancelOperation' @:: Lens' Request CancelOperationRequest@ -}
data Request
  = Request'_constructor {Request -> Map Text Text
_Request'header :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
                          Request -> Maybe Timestamp
_Request'scheduledTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                          Request -> Maybe Request'Variant
_Request'variant :: !(Prelude.Maybe Request'Variant),
                          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))
data Request'Variant
  = Request'StartOperation !StartOperationRequest |
    Request'CancelOperation !CancelOperationRequest
  deriving stock (Int -> Request'Variant -> ShowS
[Request'Variant] -> ShowS
Request'Variant -> String
(Int -> Request'Variant -> ShowS)
-> (Request'Variant -> String)
-> ([Request'Variant] -> ShowS)
-> Show Request'Variant
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Request'Variant -> ShowS
showsPrec :: Int -> Request'Variant -> ShowS
$cshow :: Request'Variant -> String
show :: Request'Variant -> String
$cshowList :: [Request'Variant] -> ShowS
showList :: [Request'Variant] -> ShowS
Prelude.Show, Request'Variant -> Request'Variant -> Bool
(Request'Variant -> Request'Variant -> Bool)
-> (Request'Variant -> Request'Variant -> Bool)
-> Eq Request'Variant
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Request'Variant -> Request'Variant -> Bool
== :: Request'Variant -> Request'Variant -> Bool
$c/= :: Request'Variant -> Request'Variant -> Bool
/= :: Request'Variant -> Request'Variant -> Bool
Prelude.Eq, Eq Request'Variant
Eq Request'Variant =>
(Request'Variant -> Request'Variant -> Ordering)
-> (Request'Variant -> Request'Variant -> Bool)
-> (Request'Variant -> Request'Variant -> Bool)
-> (Request'Variant -> Request'Variant -> Bool)
-> (Request'Variant -> Request'Variant -> Bool)
-> (Request'Variant -> Request'Variant -> Request'Variant)
-> (Request'Variant -> Request'Variant -> Request'Variant)
-> Ord Request'Variant
Request'Variant -> Request'Variant -> Bool
Request'Variant -> Request'Variant -> Ordering
Request'Variant -> Request'Variant -> Request'Variant
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'Variant -> Request'Variant -> Ordering
compare :: Request'Variant -> Request'Variant -> Ordering
$c< :: Request'Variant -> Request'Variant -> Bool
< :: Request'Variant -> Request'Variant -> Bool
$c<= :: Request'Variant -> Request'Variant -> Bool
<= :: Request'Variant -> Request'Variant -> Bool
$c> :: Request'Variant -> Request'Variant -> Bool
> :: Request'Variant -> Request'Variant -> Bool
$c>= :: Request'Variant -> Request'Variant -> Bool
>= :: Request'Variant -> Request'Variant -> Bool
$cmax :: Request'Variant -> Request'Variant -> Request'Variant
max :: Request'Variant -> Request'Variant -> Request'Variant
$cmin :: Request'Variant -> Request'Variant -> Request'Variant
min :: Request'Variant -> Request'Variant -> Request'Variant
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Request "header" (Data.Map.Map Data.Text.Text Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (Map Text Text -> f (Map Text Text)) -> Request -> f Request
fieldOf Proxy# "header"
_
    = ((Map Text Text -> f (Map Text Text)) -> Request -> f Request)
-> ((Map Text Text -> f (Map Text Text))
    -> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> Request
-> f Request
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request -> Map Text Text)
-> (Request -> Map Text Text -> Request)
-> Lens Request Request (Map Text Text) (Map Text Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request -> Map Text Text
_Request'header (\ Request
x__ Map Text Text
y__ -> Request
x__ {_Request'header = y__}))
        (Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Request "scheduledTime" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduledTime"
-> (Timestamp -> f Timestamp) -> Request -> f Request
fieldOf Proxy# "scheduledTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp)) -> Request -> f Request)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> Request
-> f Request
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request -> Maybe Timestamp)
-> (Request -> Maybe Timestamp -> Request)
-> Lens Request Request (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request -> Maybe Timestamp
_Request'scheduledTime
           (\ Request
x__ Maybe Timestamp
y__ -> Request
x__ {_Request'scheduledTime = y__}))
        (Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Request "maybe'scheduledTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scheduledTime"
-> (Maybe Timestamp -> f (Maybe Timestamp)) -> Request -> f Request
fieldOf Proxy# "maybe'scheduledTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp)) -> Request -> f Request)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> Request
-> f Request
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request -> Maybe Timestamp)
-> (Request -> Maybe Timestamp -> Request)
-> Lens Request Request (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request -> Maybe Timestamp
_Request'scheduledTime
           (\ Request
x__ Maybe Timestamp
y__ -> Request
x__ {_Request'scheduledTime = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Request "maybe'variant" (Prelude.Maybe Request'Variant) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'variant"
-> (Maybe Request'Variant -> f (Maybe Request'Variant))
-> Request
-> f Request
fieldOf Proxy# "maybe'variant"
_
    = ((Maybe Request'Variant -> f (Maybe Request'Variant))
 -> Request -> f Request)
-> ((Maybe Request'Variant -> f (Maybe Request'Variant))
    -> Maybe Request'Variant -> f (Maybe Request'Variant))
-> (Maybe Request'Variant -> f (Maybe Request'Variant))
-> Request
-> f Request
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request -> Maybe Request'Variant)
-> (Request -> Maybe Request'Variant -> Request)
-> Lens
     Request Request (Maybe Request'Variant) (Maybe Request'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request -> Maybe Request'Variant
_Request'variant (\ Request
x__ Maybe Request'Variant
y__ -> Request
x__ {_Request'variant = y__}))
        (Maybe Request'Variant -> f (Maybe Request'Variant))
-> Maybe Request'Variant -> f (Maybe Request'Variant)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Request "maybe'startOperation" (Prelude.Maybe StartOperationRequest) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'startOperation"
-> (Maybe StartOperationRequest -> f (Maybe StartOperationRequest))
-> Request
-> f Request
fieldOf Proxy# "maybe'startOperation"
_
    = ((Maybe Request'Variant -> f (Maybe Request'Variant))
 -> Request -> f Request)
-> ((Maybe StartOperationRequest
     -> f (Maybe StartOperationRequest))
    -> Maybe Request'Variant -> f (Maybe Request'Variant))
-> (Maybe StartOperationRequest -> f (Maybe StartOperationRequest))
-> Request
-> f Request
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request -> Maybe Request'Variant)
-> (Request -> Maybe Request'Variant -> Request)
-> Lens
     Request Request (Maybe Request'Variant) (Maybe Request'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request -> Maybe Request'Variant
_Request'variant (\ Request
x__ Maybe Request'Variant
y__ -> Request
x__ {_Request'variant = y__}))
        ((Maybe Request'Variant -> Maybe StartOperationRequest)
-> (Maybe Request'Variant
    -> Maybe StartOperationRequest -> Maybe Request'Variant)
-> Lens
     (Maybe Request'Variant)
     (Maybe Request'Variant)
     (Maybe StartOperationRequest)
     (Maybe StartOperationRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Request'Variant
x__
              -> case Maybe Request'Variant
x__ of
                   (Prelude.Just (Request'StartOperation StartOperationRequest
x__val))
                     -> StartOperationRequest -> Maybe StartOperationRequest
forall a. a -> Maybe a
Prelude.Just StartOperationRequest
x__val
                   Maybe Request'Variant
_otherwise -> Maybe StartOperationRequest
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Request'Variant
_ Maybe StartOperationRequest
y__ -> (StartOperationRequest -> Request'Variant)
-> Maybe StartOperationRequest -> Maybe Request'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StartOperationRequest -> Request'Variant
Request'StartOperation Maybe StartOperationRequest
y__))
instance Data.ProtoLens.Field.HasField Request "startOperation" StartOperationRequest where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startOperation"
-> (StartOperationRequest -> f StartOperationRequest)
-> Request
-> f Request
fieldOf Proxy# "startOperation"
_
    = ((Maybe Request'Variant -> f (Maybe Request'Variant))
 -> Request -> f Request)
-> ((StartOperationRequest -> f StartOperationRequest)
    -> Maybe Request'Variant -> f (Maybe Request'Variant))
-> (StartOperationRequest -> f StartOperationRequest)
-> Request
-> f Request
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request -> Maybe Request'Variant)
-> (Request -> Maybe Request'Variant -> Request)
-> Lens
     Request Request (Maybe Request'Variant) (Maybe Request'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request -> Maybe Request'Variant
_Request'variant (\ Request
x__ Maybe Request'Variant
y__ -> Request
x__ {_Request'variant = y__}))
        (((Maybe StartOperationRequest -> f (Maybe StartOperationRequest))
 -> Maybe Request'Variant -> f (Maybe Request'Variant))
-> ((StartOperationRequest -> f StartOperationRequest)
    -> Maybe StartOperationRequest -> f (Maybe StartOperationRequest))
-> (StartOperationRequest -> f StartOperationRequest)
-> Maybe Request'Variant
-> f (Maybe Request'Variant)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Request'Variant -> Maybe StartOperationRequest)
-> (Maybe Request'Variant
    -> Maybe StartOperationRequest -> Maybe Request'Variant)
-> Lens
     (Maybe Request'Variant)
     (Maybe Request'Variant)
     (Maybe StartOperationRequest)
     (Maybe StartOperationRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Request'Variant
x__
                 -> case Maybe Request'Variant
x__ of
                      (Prelude.Just (Request'StartOperation StartOperationRequest
x__val))
                        -> StartOperationRequest -> Maybe StartOperationRequest
forall a. a -> Maybe a
Prelude.Just StartOperationRequest
x__val
                      Maybe Request'Variant
_otherwise -> Maybe StartOperationRequest
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Request'Variant
_ Maybe StartOperationRequest
y__ -> (StartOperationRequest -> Request'Variant)
-> Maybe StartOperationRequest -> Maybe Request'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StartOperationRequest -> Request'Variant
Request'StartOperation Maybe StartOperationRequest
y__))
           (StartOperationRequest
-> Lens' (Maybe StartOperationRequest) StartOperationRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StartOperationRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Request "maybe'cancelOperation" (Prelude.Maybe CancelOperationRequest) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cancelOperation"
-> (Maybe CancelOperationRequest
    -> f (Maybe CancelOperationRequest))
-> Request
-> f Request
fieldOf Proxy# "maybe'cancelOperation"
_
    = ((Maybe Request'Variant -> f (Maybe Request'Variant))
 -> Request -> f Request)
-> ((Maybe CancelOperationRequest
     -> f (Maybe CancelOperationRequest))
    -> Maybe Request'Variant -> f (Maybe Request'Variant))
-> (Maybe CancelOperationRequest
    -> f (Maybe CancelOperationRequest))
-> Request
-> f Request
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request -> Maybe Request'Variant)
-> (Request -> Maybe Request'Variant -> Request)
-> Lens
     Request Request (Maybe Request'Variant) (Maybe Request'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request -> Maybe Request'Variant
_Request'variant (\ Request
x__ Maybe Request'Variant
y__ -> Request
x__ {_Request'variant = y__}))
        ((Maybe Request'Variant -> Maybe CancelOperationRequest)
-> (Maybe Request'Variant
    -> Maybe CancelOperationRequest -> Maybe Request'Variant)
-> Lens
     (Maybe Request'Variant)
     (Maybe Request'Variant)
     (Maybe CancelOperationRequest)
     (Maybe CancelOperationRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Request'Variant
x__
              -> case Maybe Request'Variant
x__ of
                   (Prelude.Just (Request'CancelOperation CancelOperationRequest
x__val))
                     -> CancelOperationRequest -> Maybe CancelOperationRequest
forall a. a -> Maybe a
Prelude.Just CancelOperationRequest
x__val
                   Maybe Request'Variant
_otherwise -> Maybe CancelOperationRequest
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Request'Variant
_ Maybe CancelOperationRequest
y__ -> (CancelOperationRequest -> Request'Variant)
-> Maybe CancelOperationRequest -> Maybe Request'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CancelOperationRequest -> Request'Variant
Request'CancelOperation Maybe CancelOperationRequest
y__))
instance Data.ProtoLens.Field.HasField Request "cancelOperation" CancelOperationRequest where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cancelOperation"
-> (CancelOperationRequest -> f CancelOperationRequest)
-> Request
-> f Request
fieldOf Proxy# "cancelOperation"
_
    = ((Maybe Request'Variant -> f (Maybe Request'Variant))
 -> Request -> f Request)
-> ((CancelOperationRequest -> f CancelOperationRequest)
    -> Maybe Request'Variant -> f (Maybe Request'Variant))
-> (CancelOperationRequest -> f CancelOperationRequest)
-> Request
-> f Request
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request -> Maybe Request'Variant)
-> (Request -> Maybe Request'Variant -> Request)
-> Lens
     Request Request (Maybe Request'Variant) (Maybe Request'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request -> Maybe Request'Variant
_Request'variant (\ Request
x__ Maybe Request'Variant
y__ -> Request
x__ {_Request'variant = y__}))
        (((Maybe CancelOperationRequest -> f (Maybe CancelOperationRequest))
 -> Maybe Request'Variant -> f (Maybe Request'Variant))
-> ((CancelOperationRequest -> f CancelOperationRequest)
    -> Maybe CancelOperationRequest
    -> f (Maybe CancelOperationRequest))
-> (CancelOperationRequest -> f CancelOperationRequest)
-> Maybe Request'Variant
-> f (Maybe Request'Variant)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Request'Variant -> Maybe CancelOperationRequest)
-> (Maybe Request'Variant
    -> Maybe CancelOperationRequest -> Maybe Request'Variant)
-> Lens
     (Maybe Request'Variant)
     (Maybe Request'Variant)
     (Maybe CancelOperationRequest)
     (Maybe CancelOperationRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Request'Variant
x__
                 -> case Maybe Request'Variant
x__ of
                      (Prelude.Just (Request'CancelOperation CancelOperationRequest
x__val))
                        -> CancelOperationRequest -> Maybe CancelOperationRequest
forall a. a -> Maybe a
Prelude.Just CancelOperationRequest
x__val
                      Maybe Request'Variant
_otherwise -> Maybe CancelOperationRequest
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Request'Variant
_ Maybe CancelOperationRequest
y__ -> (CancelOperationRequest -> Request'Variant)
-> Maybe CancelOperationRequest -> Maybe Request'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CancelOperationRequest -> Request'Variant
Request'CancelOperation Maybe CancelOperationRequest
y__))
           (CancelOperationRequest
-> Lens' (Maybe CancelOperationRequest) CancelOperationRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CancelOperationRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message Request where
  messageName :: Proxy Request -> Text
messageName Proxy Request
_ = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.Request"
  packedMessageDescriptor :: Proxy Request -> ByteString
packedMessageDescriptor Proxy Request
_
    = ByteString
"\n\
      \\aRequest\DC2B\n\
      \\ACKheader\CAN\SOH \ETX(\v2*.temporal.api.nexus.v1.Request.HeaderEntryR\ACKheader\DC2A\n\
      \\SOscheduled_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\rscheduledTime\DC2W\n\
      \\SIstart_operation\CAN\ETX \SOH(\v2,.temporal.api.nexus.v1.StartOperationRequestH\NULR\SOstartOperation\DC2Z\n\
      \\DLEcancel_operation\CAN\EOT \SOH(\v2-.temporal.api.nexus.v1.CancelOperationRequestH\NULR\SIcancelOperation\SUB9\n\
      \\vHeaderEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHB\t\n\
      \\avariant"
  packedFileDescriptor :: Proxy Request -> ByteString
packedFileDescriptor Proxy Request
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Request)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor Request
header__field_descriptor
          = String
-> FieldTypeDescriptor Request'HeaderEntry
-> FieldAccessor Request Request'HeaderEntry
-> FieldDescriptor Request
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor Request'HeaderEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Request'HeaderEntry)
              (Lens' Request'HeaderEntry Text
-> Lens' Request'HeaderEntry Text
-> Lens Request Request (Map Text Text) (Map Text Text)
-> FieldAccessor Request Request'HeaderEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"header")) ::
              Data.ProtoLens.FieldDescriptor Request
        scheduledTime__field_descriptor :: FieldDescriptor Request
scheduledTime__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor Request Timestamp
-> FieldDescriptor Request
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"scheduled_time"
              (MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
              (Lens Request Request (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor Request Timestamp
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'scheduledTime")) ::
              Data.ProtoLens.FieldDescriptor Request
        startOperation__field_descriptor :: FieldDescriptor Request
startOperation__field_descriptor
          = String
-> FieldTypeDescriptor StartOperationRequest
-> FieldAccessor Request StartOperationRequest
-> FieldDescriptor Request
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"start_operation"
              (MessageOrGroup -> FieldTypeDescriptor StartOperationRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StartOperationRequest)
              (Lens' Request (Maybe StartOperationRequest)
-> FieldAccessor Request StartOperationRequest
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'startOperation")) ::
              Data.ProtoLens.FieldDescriptor Request
        cancelOperation__field_descriptor :: FieldDescriptor Request
cancelOperation__field_descriptor
          = String
-> FieldTypeDescriptor CancelOperationRequest
-> FieldAccessor Request CancelOperationRequest
-> FieldDescriptor Request
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cancel_operation"
              (MessageOrGroup -> FieldTypeDescriptor CancelOperationRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CancelOperationRequest)
              (Lens' Request (Maybe CancelOperationRequest)
-> FieldAccessor Request CancelOperationRequest
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'cancelOperation")) ::
              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
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Request
scheduledTime__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Request
startOperation__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Request
cancelOperation__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'header :: Map Text Text
_Request'header = Map Text Text
forall k a. Map k a
Data.Map.empty,
         _Request'scheduledTime :: Maybe Timestamp
_Request'scheduledTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _Request'variant :: Maybe Request'Variant
_Request'variant = Maybe Request'Variant
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 !(entry :: Request'HeaderEntry) <- Parser Request'HeaderEntry -> String -> Parser Request'HeaderEntry
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"
                                (let
                                   key = FoldLike Text Request'HeaderEntry Request'HeaderEntry Text Text
-> Request'HeaderEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Request'HeaderEntry
entry
                                   value
                                     = FoldLike Text Request'HeaderEntry Request'HeaderEntry Text Text
-> Request'HeaderEntry -> 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 @"value") Request'HeaderEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"header")
                                        (\ !Map Text Text
t -> Text -> Text -> Map Text Text -> Map Text Text
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Text
value Map Text Text
t) x))
                        Word64
18
                          -> do y <- Parser Timestamp -> String -> Parser Timestamp
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"scheduled_time"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"scheduledTime") y x)
                        Word64
26
                          -> do y <- Parser StartOperationRequest
-> String -> Parser StartOperationRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"start_operation"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"startOperation") y x)
                        Word64
34
                          -> do y <- Parser CancelOperationRequest
-> String -> Parser CancelOperationRequest
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
"cancel_operation"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"cancelOperation") 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.<>)
             ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                (((Text, Text) -> Builder) -> [(Text, Text)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                   (\ (Text, Text)
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                           ((ByteString -> Builder)
-> (Request'HeaderEntry -> ByteString)
-> Request'HeaderEntry
-> 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'HeaderEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              (Setter Request'HeaderEntry Request'HeaderEntry Text Text
-> Text -> Request'HeaderEntry -> Request'HeaderEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, Text) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Text)
_v)
                                 (Setter Request'HeaderEntry Request'HeaderEntry Text Text
-> Text -> Request'HeaderEntry -> Request'HeaderEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ((Text, Text) -> Text
forall a b. (a, b) -> b
Prelude.snd (Text, Text)
_v)
                                    (Request'HeaderEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: Request'HeaderEntry)))))
                   (Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                      (FoldLike
  (Map Text Text) Request Request (Map Text Text) (Map Text Text)
-> Request -> Map Text 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 @"header") Request
_x))))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Timestamp)
  Request
  Request
  (Maybe Timestamp)
  (Maybe Timestamp)
-> Request -> Maybe Timestamp
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'scheduledTime") Request
_x
                 of
                   Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just Timestamp
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Request'Variant)
  Request
  Request
  (Maybe Request'Variant)
  (Maybe Request'Variant)
-> Request -> Maybe Request'Variant
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'variant") Request
_x
                    of
                      Maybe Request'Variant
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just (Request'StartOperation StartOperationRequest
v))
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (StartOperationRequest -> ByteString)
-> StartOperationRequest
-> 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))
                                StartOperationRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StartOperationRequest
v)
                      (Prelude.Just (Request'CancelOperation CancelOperationRequest
v))
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                             ((ByteString -> Builder)
-> (CancelOperationRequest -> ByteString)
-> CancelOperationRequest
-> 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))
                                CancelOperationRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CancelOperationRequest
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__)
             (Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Request -> Map Text Text
_Request'header Request
x__)
                (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Request -> Maybe Timestamp
_Request'scheduledTime Request
x__)
                   (Maybe Request'Variant -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Request -> Maybe Request'Variant
_Request'variant Request
x__) ())))
instance Control.DeepSeq.NFData Request'Variant where
  rnf :: Request'Variant -> ()
rnf (Request'StartOperation StartOperationRequest
x__) = StartOperationRequest -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StartOperationRequest
x__
  rnf (Request'CancelOperation CancelOperationRequest
x__) = CancelOperationRequest -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CancelOperationRequest
x__
_Request'StartOperation ::
  Data.ProtoLens.Prism.Prism' Request'Variant StartOperationRequest
_Request'StartOperation :: Prism' Request'Variant StartOperationRequest
_Request'StartOperation
  = (StartOperationRequest -> Request'Variant)
-> (Request'Variant -> Maybe StartOperationRequest)
-> Prism' Request'Variant StartOperationRequest
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StartOperationRequest -> Request'Variant
Request'StartOperation
      (\ Request'Variant
p__
         -> case Request'Variant
p__ of
              (Request'StartOperation StartOperationRequest
p__val) -> StartOperationRequest -> Maybe StartOperationRequest
forall a. a -> Maybe a
Prelude.Just StartOperationRequest
p__val
              Request'Variant
_otherwise -> Maybe StartOperationRequest
forall a. Maybe a
Prelude.Nothing)
_Request'CancelOperation ::
  Data.ProtoLens.Prism.Prism' Request'Variant CancelOperationRequest
_Request'CancelOperation :: Prism' Request'Variant CancelOperationRequest
_Request'CancelOperation
  = (CancelOperationRequest -> Request'Variant)
-> (Request'Variant -> Maybe CancelOperationRequest)
-> Prism' Request'Variant CancelOperationRequest
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      CancelOperationRequest -> Request'Variant
Request'CancelOperation
      (\ Request'Variant
p__
         -> case Request'Variant
p__ of
              (Request'CancelOperation CancelOperationRequest
p__val) -> CancelOperationRequest -> Maybe CancelOperationRequest
forall a. a -> Maybe a
Prelude.Just CancelOperationRequest
p__val
              Request'Variant
_otherwise -> Maybe CancelOperationRequest
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.key' @:: Lens' Request'HeaderEntry Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.value' @:: Lens' Request'HeaderEntry Data.Text.Text@ -}
data Request'HeaderEntry
  = Request'HeaderEntry'_constructor {Request'HeaderEntry -> Text
_Request'HeaderEntry'key :: !Data.Text.Text,
                                      Request'HeaderEntry -> Text
_Request'HeaderEntry'value :: !Data.Text.Text,
                                      Request'HeaderEntry -> FieldSet
_Request'HeaderEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Request'HeaderEntry -> Request'HeaderEntry -> Bool
(Request'HeaderEntry -> Request'HeaderEntry -> Bool)
-> (Request'HeaderEntry -> Request'HeaderEntry -> Bool)
-> Eq Request'HeaderEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Request'HeaderEntry -> Request'HeaderEntry -> Bool
== :: Request'HeaderEntry -> Request'HeaderEntry -> Bool
$c/= :: Request'HeaderEntry -> Request'HeaderEntry -> Bool
/= :: Request'HeaderEntry -> Request'HeaderEntry -> Bool
Prelude.Eq, Eq Request'HeaderEntry
Eq Request'HeaderEntry =>
(Request'HeaderEntry -> Request'HeaderEntry -> Ordering)
-> (Request'HeaderEntry -> Request'HeaderEntry -> Bool)
-> (Request'HeaderEntry -> Request'HeaderEntry -> Bool)
-> (Request'HeaderEntry -> Request'HeaderEntry -> Bool)
-> (Request'HeaderEntry -> Request'HeaderEntry -> Bool)
-> (Request'HeaderEntry
    -> Request'HeaderEntry -> Request'HeaderEntry)
-> (Request'HeaderEntry
    -> Request'HeaderEntry -> Request'HeaderEntry)
-> Ord Request'HeaderEntry
Request'HeaderEntry -> Request'HeaderEntry -> Bool
Request'HeaderEntry -> Request'HeaderEntry -> Ordering
Request'HeaderEntry -> Request'HeaderEntry -> Request'HeaderEntry
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'HeaderEntry -> Request'HeaderEntry -> Ordering
compare :: Request'HeaderEntry -> Request'HeaderEntry -> Ordering
$c< :: Request'HeaderEntry -> Request'HeaderEntry -> Bool
< :: Request'HeaderEntry -> Request'HeaderEntry -> Bool
$c<= :: Request'HeaderEntry -> Request'HeaderEntry -> Bool
<= :: Request'HeaderEntry -> Request'HeaderEntry -> Bool
$c> :: Request'HeaderEntry -> Request'HeaderEntry -> Bool
> :: Request'HeaderEntry -> Request'HeaderEntry -> Bool
$c>= :: Request'HeaderEntry -> Request'HeaderEntry -> Bool
>= :: Request'HeaderEntry -> Request'HeaderEntry -> Bool
$cmax :: Request'HeaderEntry -> Request'HeaderEntry -> Request'HeaderEntry
max :: Request'HeaderEntry -> Request'HeaderEntry -> Request'HeaderEntry
$cmin :: Request'HeaderEntry -> Request'HeaderEntry -> Request'HeaderEntry
min :: Request'HeaderEntry -> Request'HeaderEntry -> Request'HeaderEntry
Prelude.Ord)
instance Prelude.Show Request'HeaderEntry where
  showsPrec :: Int -> Request'HeaderEntry -> ShowS
showsPrec Int
_ Request'HeaderEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Request'HeaderEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Request'HeaderEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Request'HeaderEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text) -> Request'HeaderEntry -> f Request'HeaderEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text) -> Request'HeaderEntry -> f Request'HeaderEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Request'HeaderEntry
-> f Request'HeaderEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request'HeaderEntry -> Text)
-> (Request'HeaderEntry -> Text -> Request'HeaderEntry)
-> Lens' Request'HeaderEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request'HeaderEntry -> Text
_Request'HeaderEntry'key
           (\ Request'HeaderEntry
x__ Text
y__ -> Request'HeaderEntry
x__ {_Request'HeaderEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Request'HeaderEntry "value" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Text -> f Text) -> Request'HeaderEntry -> f Request'HeaderEntry
fieldOf Proxy# "value"
_
    = ((Text -> f Text) -> Request'HeaderEntry -> f Request'HeaderEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Request'HeaderEntry
-> f Request'HeaderEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Request'HeaderEntry -> Text)
-> (Request'HeaderEntry -> Text -> Request'HeaderEntry)
-> Lens' Request'HeaderEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Request'HeaderEntry -> Text
_Request'HeaderEntry'value
           (\ Request'HeaderEntry
x__ Text
y__ -> Request'HeaderEntry
x__ {_Request'HeaderEntry'value = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Request'HeaderEntry where
  messageName :: Proxy Request'HeaderEntry -> Text
messageName Proxy Request'HeaderEntry
_
    = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.Request.HeaderEntry"
  packedMessageDescriptor :: Proxy Request'HeaderEntry -> ByteString
packedMessageDescriptor Proxy Request'HeaderEntry
_
    = ByteString
"\n\
      \\vHeaderEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy Request'HeaderEntry -> ByteString
packedFileDescriptor Proxy Request'HeaderEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Request'HeaderEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor Request'HeaderEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Request'HeaderEntry Text
-> FieldDescriptor Request'HeaderEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' Request'HeaderEntry Text
-> FieldAccessor Request'HeaderEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor Request'HeaderEntry
        value__field_descriptor :: FieldDescriptor Request'HeaderEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Request'HeaderEntry Text
-> FieldDescriptor Request'HeaderEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (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' Request'HeaderEntry Text
-> FieldAccessor Request'HeaderEntry 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 @"value")) ::
              Data.ProtoLens.FieldDescriptor Request'HeaderEntry
      in
        [(Tag, FieldDescriptor Request'HeaderEntry)]
-> Map Tag (FieldDescriptor Request'HeaderEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Request'HeaderEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Request'HeaderEntry
value__field_descriptor)]
  unknownFields :: Lens' Request'HeaderEntry FieldSet
unknownFields
    = (Request'HeaderEntry -> FieldSet)
-> (Request'HeaderEntry -> FieldSet -> Request'HeaderEntry)
-> Lens' Request'HeaderEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Request'HeaderEntry -> FieldSet
_Request'HeaderEntry'_unknownFields
        (\ Request'HeaderEntry
x__ FieldSet
y__ -> Request'HeaderEntry
x__ {_Request'HeaderEntry'_unknownFields = y__})
  defMessage :: Request'HeaderEntry
defMessage
    = Request'HeaderEntry'_constructor
        {_Request'HeaderEntry'key :: Text
_Request'HeaderEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Request'HeaderEntry'value :: Text
_Request'HeaderEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Request'HeaderEntry'_unknownFields :: FieldSet
_Request'HeaderEntry'_unknownFields = []}
  parseMessage :: Parser Request'HeaderEntry
parseMessage
    = let
        loop ::
          Request'HeaderEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser Request'HeaderEntry
        loop :: Request'HeaderEntry -> Parser Request'HeaderEntry
loop Request'HeaderEntry
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Request'HeaderEntry -> String -> Parser Request'HeaderEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Request'HeaderEntry -> Parser Request'HeaderEntry
loop Request'HeaderEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"HeaderEntry"
  buildMessage :: Request'HeaderEntry -> Builder
buildMessage
    = \ Request'HeaderEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text Request'HeaderEntry Request'HeaderEntry Text Text
-> Request'HeaderEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Request'HeaderEntry
_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 Request'HeaderEntry Request'HeaderEntry Text Text
-> Request'HeaderEntry -> 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 @"value") Request'HeaderEntry
_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 Request'HeaderEntry Request'HeaderEntry FieldSet FieldSet
-> Request'HeaderEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet Request'HeaderEntry Request'HeaderEntry FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Request'HeaderEntry FieldSet
Data.ProtoLens.unknownFields Request'HeaderEntry
_x)))
instance Control.DeepSeq.NFData Request'HeaderEntry where
  rnf :: Request'HeaderEntry -> ()
rnf
    = \ Request'HeaderEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Request'HeaderEntry -> FieldSet
_Request'HeaderEntry'_unknownFields Request'HeaderEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Request'HeaderEntry -> Text
_Request'HeaderEntry'key Request'HeaderEntry
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Request'HeaderEntry -> Text
_Request'HeaderEntry'value Request'HeaderEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'variant' @:: Lens' Response (Prelude.Maybe Response'Variant)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'startOperation' @:: Lens' Response (Prelude.Maybe StartOperationResponse)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.startOperation' @:: Lens' Response StartOperationResponse@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'cancelOperation' @:: Lens' Response (Prelude.Maybe CancelOperationResponse)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.cancelOperation' @:: Lens' Response CancelOperationResponse@ -}
data Response
  = Response'_constructor {Response -> Maybe Response'Variant
_Response'variant :: !(Prelude.Maybe Response'Variant),
                           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))
data Response'Variant
  = Response'StartOperation !StartOperationResponse |
    Response'CancelOperation !CancelOperationResponse
  deriving stock (Int -> Response'Variant -> ShowS
[Response'Variant] -> ShowS
Response'Variant -> String
(Int -> Response'Variant -> ShowS)
-> (Response'Variant -> String)
-> ([Response'Variant] -> ShowS)
-> Show Response'Variant
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Response'Variant -> ShowS
showsPrec :: Int -> Response'Variant -> ShowS
$cshow :: Response'Variant -> String
show :: Response'Variant -> String
$cshowList :: [Response'Variant] -> ShowS
showList :: [Response'Variant] -> ShowS
Prelude.Show, Response'Variant -> Response'Variant -> Bool
(Response'Variant -> Response'Variant -> Bool)
-> (Response'Variant -> Response'Variant -> Bool)
-> Eq Response'Variant
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Response'Variant -> Response'Variant -> Bool
== :: Response'Variant -> Response'Variant -> Bool
$c/= :: Response'Variant -> Response'Variant -> Bool
/= :: Response'Variant -> Response'Variant -> Bool
Prelude.Eq, Eq Response'Variant
Eq Response'Variant =>
(Response'Variant -> Response'Variant -> Ordering)
-> (Response'Variant -> Response'Variant -> Bool)
-> (Response'Variant -> Response'Variant -> Bool)
-> (Response'Variant -> Response'Variant -> Bool)
-> (Response'Variant -> Response'Variant -> Bool)
-> (Response'Variant -> Response'Variant -> Response'Variant)
-> (Response'Variant -> Response'Variant -> Response'Variant)
-> Ord Response'Variant
Response'Variant -> Response'Variant -> Bool
Response'Variant -> Response'Variant -> Ordering
Response'Variant -> Response'Variant -> Response'Variant
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'Variant -> Response'Variant -> Ordering
compare :: Response'Variant -> Response'Variant -> Ordering
$c< :: Response'Variant -> Response'Variant -> Bool
< :: Response'Variant -> Response'Variant -> Bool
$c<= :: Response'Variant -> Response'Variant -> Bool
<= :: Response'Variant -> Response'Variant -> Bool
$c> :: Response'Variant -> Response'Variant -> Bool
> :: Response'Variant -> Response'Variant -> Bool
$c>= :: Response'Variant -> Response'Variant -> Bool
>= :: Response'Variant -> Response'Variant -> Bool
$cmax :: Response'Variant -> Response'Variant -> Response'Variant
max :: Response'Variant -> Response'Variant -> Response'Variant
$cmin :: Response'Variant -> Response'Variant -> Response'Variant
min :: Response'Variant -> Response'Variant -> Response'Variant
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Response "maybe'variant" (Prelude.Maybe Response'Variant) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'variant"
-> (Maybe Response'Variant -> f (Maybe Response'Variant))
-> Response
-> f Response
fieldOf Proxy# "maybe'variant"
_
    = ((Maybe Response'Variant -> f (Maybe Response'Variant))
 -> Response -> f Response)
-> ((Maybe Response'Variant -> f (Maybe Response'Variant))
    -> Maybe Response'Variant -> f (Maybe Response'Variant))
-> (Maybe Response'Variant -> f (Maybe Response'Variant))
-> Response
-> f Response
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Response -> Maybe Response'Variant)
-> (Response -> Maybe Response'Variant -> Response)
-> Lens
     Response Response (Maybe Response'Variant) (Maybe Response'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Response -> Maybe Response'Variant
_Response'variant (\ Response
x__ Maybe Response'Variant
y__ -> Response
x__ {_Response'variant = y__}))
        (Maybe Response'Variant -> f (Maybe Response'Variant))
-> Maybe Response'Variant -> f (Maybe Response'Variant)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Response "maybe'startOperation" (Prelude.Maybe StartOperationResponse) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'startOperation"
-> (Maybe StartOperationResponse
    -> f (Maybe StartOperationResponse))
-> Response
-> f Response
fieldOf Proxy# "maybe'startOperation"
_
    = ((Maybe Response'Variant -> f (Maybe Response'Variant))
 -> Response -> f Response)
-> ((Maybe StartOperationResponse
     -> f (Maybe StartOperationResponse))
    -> Maybe Response'Variant -> f (Maybe Response'Variant))
-> (Maybe StartOperationResponse
    -> f (Maybe StartOperationResponse))
-> Response
-> f Response
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Response -> Maybe Response'Variant)
-> (Response -> Maybe Response'Variant -> Response)
-> Lens
     Response Response (Maybe Response'Variant) (Maybe Response'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Response -> Maybe Response'Variant
_Response'variant (\ Response
x__ Maybe Response'Variant
y__ -> Response
x__ {_Response'variant = y__}))
        ((Maybe Response'Variant -> Maybe StartOperationResponse)
-> (Maybe Response'Variant
    -> Maybe StartOperationResponse -> Maybe Response'Variant)
-> Lens
     (Maybe Response'Variant)
     (Maybe Response'Variant)
     (Maybe StartOperationResponse)
     (Maybe StartOperationResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Response'Variant
x__
              -> case Maybe Response'Variant
x__ of
                   (Prelude.Just (Response'StartOperation StartOperationResponse
x__val))
                     -> StartOperationResponse -> Maybe StartOperationResponse
forall a. a -> Maybe a
Prelude.Just StartOperationResponse
x__val
                   Maybe Response'Variant
_otherwise -> Maybe StartOperationResponse
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Response'Variant
_ Maybe StartOperationResponse
y__ -> (StartOperationResponse -> Response'Variant)
-> Maybe StartOperationResponse -> Maybe Response'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StartOperationResponse -> Response'Variant
Response'StartOperation Maybe StartOperationResponse
y__))
instance Data.ProtoLens.Field.HasField Response "startOperation" StartOperationResponse where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startOperation"
-> (StartOperationResponse -> f StartOperationResponse)
-> Response
-> f Response
fieldOf Proxy# "startOperation"
_
    = ((Maybe Response'Variant -> f (Maybe Response'Variant))
 -> Response -> f Response)
-> ((StartOperationResponse -> f StartOperationResponse)
    -> Maybe Response'Variant -> f (Maybe Response'Variant))
-> (StartOperationResponse -> f StartOperationResponse)
-> Response
-> f Response
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Response -> Maybe Response'Variant)
-> (Response -> Maybe Response'Variant -> Response)
-> Lens
     Response Response (Maybe Response'Variant) (Maybe Response'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Response -> Maybe Response'Variant
_Response'variant (\ Response
x__ Maybe Response'Variant
y__ -> Response
x__ {_Response'variant = y__}))
        (((Maybe StartOperationResponse -> f (Maybe StartOperationResponse))
 -> Maybe Response'Variant -> f (Maybe Response'Variant))
-> ((StartOperationResponse -> f StartOperationResponse)
    -> Maybe StartOperationResponse
    -> f (Maybe StartOperationResponse))
-> (StartOperationResponse -> f StartOperationResponse)
-> Maybe Response'Variant
-> f (Maybe Response'Variant)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Response'Variant -> Maybe StartOperationResponse)
-> (Maybe Response'Variant
    -> Maybe StartOperationResponse -> Maybe Response'Variant)
-> Lens
     (Maybe Response'Variant)
     (Maybe Response'Variant)
     (Maybe StartOperationResponse)
     (Maybe StartOperationResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Response'Variant
x__
                 -> case Maybe Response'Variant
x__ of
                      (Prelude.Just (Response'StartOperation StartOperationResponse
x__val))
                        -> StartOperationResponse -> Maybe StartOperationResponse
forall a. a -> Maybe a
Prelude.Just StartOperationResponse
x__val
                      Maybe Response'Variant
_otherwise -> Maybe StartOperationResponse
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Response'Variant
_ Maybe StartOperationResponse
y__ -> (StartOperationResponse -> Response'Variant)
-> Maybe StartOperationResponse -> Maybe Response'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StartOperationResponse -> Response'Variant
Response'StartOperation Maybe StartOperationResponse
y__))
           (StartOperationResponse
-> Lens' (Maybe StartOperationResponse) StartOperationResponse
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StartOperationResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Response "maybe'cancelOperation" (Prelude.Maybe CancelOperationResponse) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cancelOperation"
-> (Maybe CancelOperationResponse
    -> f (Maybe CancelOperationResponse))
-> Response
-> f Response
fieldOf Proxy# "maybe'cancelOperation"
_
    = ((Maybe Response'Variant -> f (Maybe Response'Variant))
 -> Response -> f Response)
-> ((Maybe CancelOperationResponse
     -> f (Maybe CancelOperationResponse))
    -> Maybe Response'Variant -> f (Maybe Response'Variant))
-> (Maybe CancelOperationResponse
    -> f (Maybe CancelOperationResponse))
-> Response
-> f Response
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Response -> Maybe Response'Variant)
-> (Response -> Maybe Response'Variant -> Response)
-> Lens
     Response Response (Maybe Response'Variant) (Maybe Response'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Response -> Maybe Response'Variant
_Response'variant (\ Response
x__ Maybe Response'Variant
y__ -> Response
x__ {_Response'variant = y__}))
        ((Maybe Response'Variant -> Maybe CancelOperationResponse)
-> (Maybe Response'Variant
    -> Maybe CancelOperationResponse -> Maybe Response'Variant)
-> Lens
     (Maybe Response'Variant)
     (Maybe Response'Variant)
     (Maybe CancelOperationResponse)
     (Maybe CancelOperationResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Response'Variant
x__
              -> case Maybe Response'Variant
x__ of
                   (Prelude.Just (Response'CancelOperation CancelOperationResponse
x__val))
                     -> CancelOperationResponse -> Maybe CancelOperationResponse
forall a. a -> Maybe a
Prelude.Just CancelOperationResponse
x__val
                   Maybe Response'Variant
_otherwise -> Maybe CancelOperationResponse
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Response'Variant
_ Maybe CancelOperationResponse
y__ -> (CancelOperationResponse -> Response'Variant)
-> Maybe CancelOperationResponse -> Maybe Response'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CancelOperationResponse -> Response'Variant
Response'CancelOperation Maybe CancelOperationResponse
y__))
instance Data.ProtoLens.Field.HasField Response "cancelOperation" CancelOperationResponse where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cancelOperation"
-> (CancelOperationResponse -> f CancelOperationResponse)
-> Response
-> f Response
fieldOf Proxy# "cancelOperation"
_
    = ((Maybe Response'Variant -> f (Maybe Response'Variant))
 -> Response -> f Response)
-> ((CancelOperationResponse -> f CancelOperationResponse)
    -> Maybe Response'Variant -> f (Maybe Response'Variant))
-> (CancelOperationResponse -> f CancelOperationResponse)
-> Response
-> f Response
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Response -> Maybe Response'Variant)
-> (Response -> Maybe Response'Variant -> Response)
-> Lens
     Response Response (Maybe Response'Variant) (Maybe Response'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Response -> Maybe Response'Variant
_Response'variant (\ Response
x__ Maybe Response'Variant
y__ -> Response
x__ {_Response'variant = y__}))
        (((Maybe CancelOperationResponse
  -> f (Maybe CancelOperationResponse))
 -> Maybe Response'Variant -> f (Maybe Response'Variant))
-> ((CancelOperationResponse -> f CancelOperationResponse)
    -> Maybe CancelOperationResponse
    -> f (Maybe CancelOperationResponse))
-> (CancelOperationResponse -> f CancelOperationResponse)
-> Maybe Response'Variant
-> f (Maybe Response'Variant)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Response'Variant -> Maybe CancelOperationResponse)
-> (Maybe Response'Variant
    -> Maybe CancelOperationResponse -> Maybe Response'Variant)
-> Lens
     (Maybe Response'Variant)
     (Maybe Response'Variant)
     (Maybe CancelOperationResponse)
     (Maybe CancelOperationResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Response'Variant
x__
                 -> case Maybe Response'Variant
x__ of
                      (Prelude.Just (Response'CancelOperation CancelOperationResponse
x__val))
                        -> CancelOperationResponse -> Maybe CancelOperationResponse
forall a. a -> Maybe a
Prelude.Just CancelOperationResponse
x__val
                      Maybe Response'Variant
_otherwise -> Maybe CancelOperationResponse
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Response'Variant
_ Maybe CancelOperationResponse
y__ -> (CancelOperationResponse -> Response'Variant)
-> Maybe CancelOperationResponse -> Maybe Response'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CancelOperationResponse -> Response'Variant
Response'CancelOperation Maybe CancelOperationResponse
y__))
           (CancelOperationResponse
-> Lens' (Maybe CancelOperationResponse) CancelOperationResponse
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CancelOperationResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message Response where
  messageName :: Proxy Response -> Text
messageName Proxy Response
_ = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.Response"
  packedMessageDescriptor :: Proxy Response -> ByteString
packedMessageDescriptor Proxy Response
_
    = ByteString
"\n\
      \\bResponse\DC2X\n\
      \\SIstart_operation\CAN\SOH \SOH(\v2-.temporal.api.nexus.v1.StartOperationResponseH\NULR\SOstartOperation\DC2[\n\
      \\DLEcancel_operation\CAN\STX \SOH(\v2..temporal.api.nexus.v1.CancelOperationResponseH\NULR\SIcancelOperationB\t\n\
      \\avariant"
  packedFileDescriptor :: Proxy Response -> ByteString
packedFileDescriptor Proxy Response
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Response)
fieldsByTag
    = let
        startOperation__field_descriptor :: FieldDescriptor Response
startOperation__field_descriptor
          = String
-> FieldTypeDescriptor StartOperationResponse
-> FieldAccessor Response StartOperationResponse
-> FieldDescriptor Response
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"start_operation"
              (MessageOrGroup -> FieldTypeDescriptor StartOperationResponse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StartOperationResponse)
              (Lens' Response (Maybe StartOperationResponse)
-> FieldAccessor Response StartOperationResponse
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'startOperation")) ::
              Data.ProtoLens.FieldDescriptor Response
        cancelOperation__field_descriptor :: FieldDescriptor Response
cancelOperation__field_descriptor
          = String
-> FieldTypeDescriptor CancelOperationResponse
-> FieldAccessor Response CancelOperationResponse
-> FieldDescriptor Response
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cancel_operation"
              (MessageOrGroup -> FieldTypeDescriptor CancelOperationResponse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CancelOperationResponse)
              (Lens' Response (Maybe CancelOperationResponse)
-> FieldAccessor Response CancelOperationResponse
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'cancelOperation")) ::
              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
startOperation__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Response
cancelOperation__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'variant :: Maybe Response'Variant
_Response'variant = Maybe Response'Variant
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 StartOperationResponse
-> String -> Parser StartOperationResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"start_operation"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"startOperation") y x)
                        Word64
18
                          -> do y <- Parser CancelOperationResponse
-> String -> Parser CancelOperationResponse
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
"cancel_operation"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"cancelOperation") 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 Response'Variant)
  Response
  Response
  (Maybe Response'Variant)
  (Maybe Response'Variant)
-> Response -> Maybe Response'Variant
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'variant") Response
_x
              of
                Maybe Response'Variant
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (Response'StartOperation StartOperationResponse
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (StartOperationResponse -> ByteString)
-> StartOperationResponse
-> 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))
                          StartOperationResponse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StartOperationResponse
v)
                (Prelude.Just (Response'CancelOperation CancelOperationResponse
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((ByteString -> Builder)
-> (CancelOperationResponse -> ByteString)
-> CancelOperationResponse
-> 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))
                          CancelOperationResponse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CancelOperationResponse
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 Response'Variant -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Response -> Maybe Response'Variant
_Response'variant Response
x__) ())
instance Control.DeepSeq.NFData Response'Variant where
  rnf :: Response'Variant -> ()
rnf (Response'StartOperation StartOperationResponse
x__) = StartOperationResponse -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StartOperationResponse
x__
  rnf (Response'CancelOperation CancelOperationResponse
x__) = CancelOperationResponse -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CancelOperationResponse
x__
_Response'StartOperation ::
  Data.ProtoLens.Prism.Prism' Response'Variant StartOperationResponse
_Response'StartOperation :: Prism' Response'Variant StartOperationResponse
_Response'StartOperation
  = (StartOperationResponse -> Response'Variant)
-> (Response'Variant -> Maybe StartOperationResponse)
-> Prism' Response'Variant StartOperationResponse
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StartOperationResponse -> Response'Variant
Response'StartOperation
      (\ Response'Variant
p__
         -> case Response'Variant
p__ of
              (Response'StartOperation StartOperationResponse
p__val) -> StartOperationResponse -> Maybe StartOperationResponse
forall a. a -> Maybe a
Prelude.Just StartOperationResponse
p__val
              Response'Variant
_otherwise -> Maybe StartOperationResponse
forall a. Maybe a
Prelude.Nothing)
_Response'CancelOperation ::
  Data.ProtoLens.Prism.Prism' Response'Variant CancelOperationResponse
_Response'CancelOperation :: Prism' Response'Variant CancelOperationResponse
_Response'CancelOperation
  = (CancelOperationResponse -> Response'Variant)
-> (Response'Variant -> Maybe CancelOperationResponse)
-> Prism' Response'Variant CancelOperationResponse
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      CancelOperationResponse -> Response'Variant
Response'CancelOperation
      (\ Response'Variant
p__
         -> case Response'Variant
p__ of
              (Response'CancelOperation CancelOperationResponse
p__val) -> CancelOperationResponse -> Maybe CancelOperationResponse
forall a. a -> Maybe a
Prelude.Just CancelOperationResponse
p__val
              Response'Variant
_otherwise -> Maybe CancelOperationResponse
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.service' @:: Lens' StartOperationRequest Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.operation' @:: Lens' StartOperationRequest Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.requestId' @:: Lens' StartOperationRequest Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.callback' @:: Lens' StartOperationRequest Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.payload' @:: Lens' StartOperationRequest Proto.Temporal.Api.Common.V1.Message.Payload@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'payload' @:: Lens' StartOperationRequest (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.callbackHeader' @:: Lens' StartOperationRequest (Data.Map.Map Data.Text.Text Data.Text.Text)@ -}
data StartOperationRequest
  = StartOperationRequest'_constructor {StartOperationRequest -> Text
_StartOperationRequest'service :: !Data.Text.Text,
                                        StartOperationRequest -> Text
_StartOperationRequest'operation :: !Data.Text.Text,
                                        StartOperationRequest -> Text
_StartOperationRequest'requestId :: !Data.Text.Text,
                                        StartOperationRequest -> Text
_StartOperationRequest'callback :: !Data.Text.Text,
                                        StartOperationRequest -> Maybe Payload
_StartOperationRequest'payload :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload),
                                        StartOperationRequest -> Map Text Text
_StartOperationRequest'callbackHeader :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
                                        StartOperationRequest -> FieldSet
_StartOperationRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (StartOperationRequest -> StartOperationRequest -> Bool
(StartOperationRequest -> StartOperationRequest -> Bool)
-> (StartOperationRequest -> StartOperationRequest -> Bool)
-> Eq StartOperationRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StartOperationRequest -> StartOperationRequest -> Bool
== :: StartOperationRequest -> StartOperationRequest -> Bool
$c/= :: StartOperationRequest -> StartOperationRequest -> Bool
/= :: StartOperationRequest -> StartOperationRequest -> Bool
Prelude.Eq, Eq StartOperationRequest
Eq StartOperationRequest =>
(StartOperationRequest -> StartOperationRequest -> Ordering)
-> (StartOperationRequest -> StartOperationRequest -> Bool)
-> (StartOperationRequest -> StartOperationRequest -> Bool)
-> (StartOperationRequest -> StartOperationRequest -> Bool)
-> (StartOperationRequest -> StartOperationRequest -> Bool)
-> (StartOperationRequest
    -> StartOperationRequest -> StartOperationRequest)
-> (StartOperationRequest
    -> StartOperationRequest -> StartOperationRequest)
-> Ord StartOperationRequest
StartOperationRequest -> StartOperationRequest -> Bool
StartOperationRequest -> StartOperationRequest -> Ordering
StartOperationRequest
-> StartOperationRequest -> StartOperationRequest
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 :: StartOperationRequest -> StartOperationRequest -> Ordering
compare :: StartOperationRequest -> StartOperationRequest -> Ordering
$c< :: StartOperationRequest -> StartOperationRequest -> Bool
< :: StartOperationRequest -> StartOperationRequest -> Bool
$c<= :: StartOperationRequest -> StartOperationRequest -> Bool
<= :: StartOperationRequest -> StartOperationRequest -> Bool
$c> :: StartOperationRequest -> StartOperationRequest -> Bool
> :: StartOperationRequest -> StartOperationRequest -> Bool
$c>= :: StartOperationRequest -> StartOperationRequest -> Bool
>= :: StartOperationRequest -> StartOperationRequest -> Bool
$cmax :: StartOperationRequest
-> StartOperationRequest -> StartOperationRequest
max :: StartOperationRequest
-> StartOperationRequest -> StartOperationRequest
$cmin :: StartOperationRequest
-> StartOperationRequest -> StartOperationRequest
min :: StartOperationRequest
-> StartOperationRequest -> StartOperationRequest
Prelude.Ord)
instance Prelude.Show StartOperationRequest where
  showsPrec :: Int -> StartOperationRequest -> ShowS
showsPrec Int
_ StartOperationRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (StartOperationRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StartOperationRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField StartOperationRequest "service" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "service"
-> (Text -> f Text)
-> StartOperationRequest
-> f StartOperationRequest
fieldOf Proxy# "service"
_
    = ((Text -> f Text)
 -> StartOperationRequest -> f StartOperationRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StartOperationRequest
-> f StartOperationRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationRequest -> Text)
-> (StartOperationRequest -> Text -> StartOperationRequest)
-> Lens StartOperationRequest StartOperationRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationRequest -> Text
_StartOperationRequest'service
           (\ StartOperationRequest
x__ Text
y__ -> StartOperationRequest
x__ {_StartOperationRequest'service = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartOperationRequest "operation" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "operation"
-> (Text -> f Text)
-> StartOperationRequest
-> f StartOperationRequest
fieldOf Proxy# "operation"
_
    = ((Text -> f Text)
 -> StartOperationRequest -> f StartOperationRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StartOperationRequest
-> f StartOperationRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationRequest -> Text)
-> (StartOperationRequest -> Text -> StartOperationRequest)
-> Lens StartOperationRequest StartOperationRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationRequest -> Text
_StartOperationRequest'operation
           (\ StartOperationRequest
x__ Text
y__ -> StartOperationRequest
x__ {_StartOperationRequest'operation = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartOperationRequest "requestId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "requestId"
-> (Text -> f Text)
-> StartOperationRequest
-> f StartOperationRequest
fieldOf Proxy# "requestId"
_
    = ((Text -> f Text)
 -> StartOperationRequest -> f StartOperationRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StartOperationRequest
-> f StartOperationRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationRequest -> Text)
-> (StartOperationRequest -> Text -> StartOperationRequest)
-> Lens StartOperationRequest StartOperationRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationRequest -> Text
_StartOperationRequest'requestId
           (\ StartOperationRequest
x__ Text
y__ -> StartOperationRequest
x__ {_StartOperationRequest'requestId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartOperationRequest "callback" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "callback"
-> (Text -> f Text)
-> StartOperationRequest
-> f StartOperationRequest
fieldOf Proxy# "callback"
_
    = ((Text -> f Text)
 -> StartOperationRequest -> f StartOperationRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StartOperationRequest
-> f StartOperationRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationRequest -> Text)
-> (StartOperationRequest -> Text -> StartOperationRequest)
-> Lens StartOperationRequest StartOperationRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationRequest -> Text
_StartOperationRequest'callback
           (\ StartOperationRequest
x__ Text
y__ -> StartOperationRequest
x__ {_StartOperationRequest'callback = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartOperationRequest "payload" Proto.Temporal.Api.Common.V1.Message.Payload where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "payload"
-> (Payload -> f Payload)
-> StartOperationRequest
-> f StartOperationRequest
fieldOf Proxy# "payload"
_
    = ((Maybe Payload -> f (Maybe Payload))
 -> StartOperationRequest -> f StartOperationRequest)
-> ((Payload -> f Payload) -> Maybe Payload -> f (Maybe Payload))
-> (Payload -> f Payload)
-> StartOperationRequest
-> f StartOperationRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationRequest -> Maybe Payload)
-> (StartOperationRequest
    -> Maybe Payload -> StartOperationRequest)
-> Lens
     StartOperationRequest
     StartOperationRequest
     (Maybe Payload)
     (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationRequest -> Maybe Payload
_StartOperationRequest'payload
           (\ StartOperationRequest
x__ Maybe Payload
y__ -> StartOperationRequest
x__ {_StartOperationRequest'payload = y__}))
        (Payload -> Lens' (Maybe Payload) Payload
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payload
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StartOperationRequest "maybe'payload" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'payload"
-> (Maybe Payload -> f (Maybe Payload))
-> StartOperationRequest
-> f StartOperationRequest
fieldOf Proxy# "maybe'payload"
_
    = ((Maybe Payload -> f (Maybe Payload))
 -> StartOperationRequest -> f StartOperationRequest)
-> ((Maybe Payload -> f (Maybe Payload))
    -> Maybe Payload -> f (Maybe Payload))
-> (Maybe Payload -> f (Maybe Payload))
-> StartOperationRequest
-> f StartOperationRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationRequest -> Maybe Payload)
-> (StartOperationRequest
    -> Maybe Payload -> StartOperationRequest)
-> Lens
     StartOperationRequest
     StartOperationRequest
     (Maybe Payload)
     (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationRequest -> Maybe Payload
_StartOperationRequest'payload
           (\ StartOperationRequest
x__ Maybe Payload
y__ -> StartOperationRequest
x__ {_StartOperationRequest'payload = y__}))
        (Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartOperationRequest "callbackHeader" (Data.Map.Map Data.Text.Text Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "callbackHeader"
-> (Map Text Text -> f (Map Text Text))
-> StartOperationRequest
-> f StartOperationRequest
fieldOf Proxy# "callbackHeader"
_
    = ((Map Text Text -> f (Map Text Text))
 -> StartOperationRequest -> f StartOperationRequest)
-> ((Map Text Text -> f (Map Text Text))
    -> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> StartOperationRequest
-> f StartOperationRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationRequest -> Map Text Text)
-> (StartOperationRequest
    -> Map Text Text -> StartOperationRequest)
-> Lens
     StartOperationRequest
     StartOperationRequest
     (Map Text Text)
     (Map Text Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationRequest -> Map Text Text
_StartOperationRequest'callbackHeader
           (\ StartOperationRequest
x__ Map Text Text
y__ -> StartOperationRequest
x__ {_StartOperationRequest'callbackHeader = y__}))
        (Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StartOperationRequest where
  messageName :: Proxy StartOperationRequest -> Text
messageName Proxy StartOperationRequest
_
    = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.StartOperationRequest"
  packedMessageDescriptor :: Proxy StartOperationRequest -> ByteString
packedMessageDescriptor Proxy StartOperationRequest
_
    = ByteString
"\n\
      \\NAKStartOperationRequest\DC2\CAN\n\
      \\aservice\CAN\SOH \SOH(\tR\aservice\DC2\FS\n\
      \\toperation\CAN\STX \SOH(\tR\toperation\DC2\GS\n\
      \\n\
      \request_id\CAN\ETX \SOH(\tR\trequestId\DC2\SUB\n\
      \\bcallback\CAN\EOT \SOH(\tR\bcallback\DC29\n\
      \\apayload\CAN\ENQ \SOH(\v2\US.temporal.api.common.v1.PayloadR\apayload\DC2i\n\
      \\SIcallback_header\CAN\ACK \ETX(\v2@.temporal.api.nexus.v1.StartOperationRequest.CallbackHeaderEntryR\SOcallbackHeader\SUBA\n\
      \\DC3CallbackHeaderEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy StartOperationRequest -> ByteString
packedFileDescriptor Proxy StartOperationRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor StartOperationRequest)
fieldsByTag
    = let
        service__field_descriptor :: FieldDescriptor StartOperationRequest
service__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor StartOperationRequest Text
-> FieldDescriptor StartOperationRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"service"
              (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 StartOperationRequest StartOperationRequest Text Text
-> FieldAccessor StartOperationRequest 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 @"service")) ::
              Data.ProtoLens.FieldDescriptor StartOperationRequest
        operation__field_descriptor :: FieldDescriptor StartOperationRequest
operation__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor StartOperationRequest Text
-> FieldDescriptor StartOperationRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"operation"
              (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 StartOperationRequest StartOperationRequest Text Text
-> FieldAccessor StartOperationRequest 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 @"operation")) ::
              Data.ProtoLens.FieldDescriptor StartOperationRequest
        requestId__field_descriptor :: FieldDescriptor StartOperationRequest
requestId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor StartOperationRequest Text
-> FieldDescriptor StartOperationRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"request_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 StartOperationRequest StartOperationRequest Text Text
-> FieldAccessor StartOperationRequest 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 @"requestId")) ::
              Data.ProtoLens.FieldDescriptor StartOperationRequest
        callback__field_descriptor :: FieldDescriptor StartOperationRequest
callback__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor StartOperationRequest Text
-> FieldDescriptor StartOperationRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"callback"
              (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 StartOperationRequest StartOperationRequest Text Text
-> FieldAccessor StartOperationRequest 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 @"callback")) ::
              Data.ProtoLens.FieldDescriptor StartOperationRequest
        payload__field_descriptor :: FieldDescriptor StartOperationRequest
payload__field_descriptor
          = String
-> FieldTypeDescriptor Payload
-> FieldAccessor StartOperationRequest Payload
-> FieldDescriptor StartOperationRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"payload"
              (MessageOrGroup -> FieldTypeDescriptor Payload
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payload)
              (Lens
  StartOperationRequest
  StartOperationRequest
  (Maybe Payload)
  (Maybe Payload)
-> FieldAccessor StartOperationRequest Payload
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'payload")) ::
              Data.ProtoLens.FieldDescriptor StartOperationRequest
        callbackHeader__field_descriptor :: FieldDescriptor StartOperationRequest
callbackHeader__field_descriptor
          = String
-> FieldTypeDescriptor StartOperationRequest'CallbackHeaderEntry
-> FieldAccessor
     StartOperationRequest StartOperationRequest'CallbackHeaderEntry
-> FieldDescriptor StartOperationRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"callback_header"
              (MessageOrGroup
-> FieldTypeDescriptor StartOperationRequest'CallbackHeaderEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StartOperationRequest'CallbackHeaderEntry)
              (Lens' StartOperationRequest'CallbackHeaderEntry Text
-> Lens' StartOperationRequest'CallbackHeaderEntry Text
-> Lens
     StartOperationRequest
     StartOperationRequest
     (Map Text Text)
     (Map Text Text)
-> FieldAccessor
     StartOperationRequest StartOperationRequest'CallbackHeaderEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"callbackHeader")) ::
              Data.ProtoLens.FieldDescriptor StartOperationRequest
      in
        [(Tag, FieldDescriptor StartOperationRequest)]
-> Map Tag (FieldDescriptor StartOperationRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StartOperationRequest
service__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor StartOperationRequest
operation__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor StartOperationRequest
requestId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor StartOperationRequest
callback__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor StartOperationRequest
payload__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor StartOperationRequest
callbackHeader__field_descriptor)]
  unknownFields :: Lens' StartOperationRequest FieldSet
unknownFields
    = (StartOperationRequest -> FieldSet)
-> (StartOperationRequest -> FieldSet -> StartOperationRequest)
-> Lens' StartOperationRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        StartOperationRequest -> FieldSet
_StartOperationRequest'_unknownFields
        (\ StartOperationRequest
x__ FieldSet
y__ -> StartOperationRequest
x__ {_StartOperationRequest'_unknownFields = y__})
  defMessage :: StartOperationRequest
defMessage
    = StartOperationRequest'_constructor
        {_StartOperationRequest'service :: Text
_StartOperationRequest'service = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StartOperationRequest'operation :: Text
_StartOperationRequest'operation = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StartOperationRequest'requestId :: Text
_StartOperationRequest'requestId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StartOperationRequest'callback :: Text
_StartOperationRequest'callback = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StartOperationRequest'payload :: Maybe Payload
_StartOperationRequest'payload = Maybe Payload
forall a. Maybe a
Prelude.Nothing,
         _StartOperationRequest'callbackHeader :: Map Text Text
_StartOperationRequest'callbackHeader = Map Text Text
forall k a. Map k a
Data.Map.empty,
         _StartOperationRequest'_unknownFields :: FieldSet
_StartOperationRequest'_unknownFields = []}
  parseMessage :: Parser StartOperationRequest
parseMessage
    = let
        loop ::
          StartOperationRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser StartOperationRequest
        loop :: StartOperationRequest -> Parser StartOperationRequest
loop StartOperationRequest
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
"service"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"service") 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
"operation"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"operation") y x)
                        Word64
26
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"request_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"requestId") y x)
                        Word64
34
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"callback"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"callback") y x)
                        Word64
42
                          -> do y <- Parser Payload -> String -> Parser Payload
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
"payload"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x)
                        Word64
50
                          -> do !(entry :: StartOperationRequest'CallbackHeaderEntry) <- Parser StartOperationRequest'CallbackHeaderEntry
-> String -> Parser StartOperationRequest'CallbackHeaderEntry
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
"callback_header"
                                (let
                                   key = FoldLike
  Text
  StartOperationRequest'CallbackHeaderEntry
  StartOperationRequest'CallbackHeaderEntry
  Text
  Text
-> StartOperationRequest'CallbackHeaderEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") StartOperationRequest'CallbackHeaderEntry
entry
                                   value
                                     = FoldLike
  Text
  StartOperationRequest'CallbackHeaderEntry
  StartOperationRequest'CallbackHeaderEntry
  Text
  Text
-> StartOperationRequest'CallbackHeaderEntry -> 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 @"value") StartOperationRequest'CallbackHeaderEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"callbackHeader")
                                        (\ !Map Text Text
t -> Text -> Text -> Map Text Text -> Map Text Text
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Text
value Map Text Text
t) 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 StartOperationRequest
-> String -> Parser StartOperationRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do StartOperationRequest -> Parser StartOperationRequest
loop StartOperationRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"StartOperationRequest"
  buildMessage :: StartOperationRequest -> Builder
buildMessage
    = \ StartOperationRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text StartOperationRequest StartOperationRequest Text Text
-> StartOperationRequest -> 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 @"service") StartOperationRequest
_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 StartOperationRequest StartOperationRequest Text Text
-> StartOperationRequest -> 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 @"operation") StartOperationRequest
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Text
_v = FoldLike Text StartOperationRequest StartOperationRequest Text Text
-> StartOperationRequest -> 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 @"requestId") StartOperationRequest
_x
                    in
                      if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                            ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               (\ ByteString
bs
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                          (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                       (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                               Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: Text
_v = FoldLike Text StartOperationRequest StartOperationRequest Text Text
-> StartOperationRequest -> 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 @"callback") StartOperationRequest
_x
                       in
                         if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                             Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         else
                             Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                               ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  (\ ByteString
bs
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                             (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                          (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                  Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (case
                              FoldLike
  (Maybe Payload)
  StartOperationRequest
  StartOperationRequest
  (Maybe Payload)
  (Maybe Payload)
-> StartOperationRequest -> Maybe Payload
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'payload") StartOperationRequest
_x
                          of
                            Maybe Payload
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just Payload
_v)
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                                   ((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> 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))
                                      Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                               (((Text, Text) -> Builder) -> [(Text, Text)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                                  (\ (Text, Text)
_v
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                                          ((ByteString -> Builder)
-> (StartOperationRequest'CallbackHeaderEntry -> ByteString)
-> StartOperationRequest'CallbackHeaderEntry
-> 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))
                                             StartOperationRequest'CallbackHeaderEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                             (Setter
  StartOperationRequest'CallbackHeaderEntry
  StartOperationRequest'CallbackHeaderEntry
  Text
  Text
-> Text
-> StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, Text) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Text)
_v)
                                                (Setter
  StartOperationRequest'CallbackHeaderEntry
  StartOperationRequest'CallbackHeaderEntry
  Text
  Text
-> Text
-> StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                                                   ((Text, Text) -> Text
forall a b. (a, b) -> b
Prelude.snd (Text, Text)
_v)
                                                   (StartOperationRequest'CallbackHeaderEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                                      StartOperationRequest'CallbackHeaderEntry)))))
                                  (Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                                     (FoldLike
  (Map Text Text)
  StartOperationRequest
  StartOperationRequest
  (Map Text Text)
  (Map Text Text)
-> StartOperationRequest -> Map Text 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 @"callbackHeader") StartOperationRequest
_x))))
                            (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                               (FoldLike
  FieldSet
  StartOperationRequest
  StartOperationRequest
  FieldSet
  FieldSet
-> StartOperationRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  StartOperationRequest
  StartOperationRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StartOperationRequest FieldSet
Data.ProtoLens.unknownFields StartOperationRequest
_x)))))))
instance Control.DeepSeq.NFData StartOperationRequest where
  rnf :: StartOperationRequest -> ()
rnf
    = \ StartOperationRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (StartOperationRequest -> FieldSet
_StartOperationRequest'_unknownFields StartOperationRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (StartOperationRequest -> Text
_StartOperationRequest'service StartOperationRequest
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (StartOperationRequest -> Text
_StartOperationRequest'operation StartOperationRequest
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (StartOperationRequest -> Text
_StartOperationRequest'requestId StartOperationRequest
x__)
                      (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (StartOperationRequest -> Text
_StartOperationRequest'callback StartOperationRequest
x__)
                         (Maybe Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (StartOperationRequest -> Maybe Payload
_StartOperationRequest'payload StartOperationRequest
x__)
                            (Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (StartOperationRequest -> Map Text Text
_StartOperationRequest'callbackHeader StartOperationRequest
x__) ()))))))
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.key' @:: Lens' StartOperationRequest'CallbackHeaderEntry Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.value' @:: Lens' StartOperationRequest'CallbackHeaderEntry Data.Text.Text@ -}
data StartOperationRequest'CallbackHeaderEntry
  = StartOperationRequest'CallbackHeaderEntry'_constructor {StartOperationRequest'CallbackHeaderEntry -> Text
_StartOperationRequest'CallbackHeaderEntry'key :: !Data.Text.Text,
                                                            StartOperationRequest'CallbackHeaderEntry -> Text
_StartOperationRequest'CallbackHeaderEntry'value :: !Data.Text.Text,
                                                            StartOperationRequest'CallbackHeaderEntry -> FieldSet
_StartOperationRequest'CallbackHeaderEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
(StartOperationRequest'CallbackHeaderEntry
 -> StartOperationRequest'CallbackHeaderEntry -> Bool)
-> (StartOperationRequest'CallbackHeaderEntry
    -> StartOperationRequest'CallbackHeaderEntry -> Bool)
-> Eq StartOperationRequest'CallbackHeaderEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
== :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
$c/= :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
/= :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
Prelude.Eq, Eq StartOperationRequest'CallbackHeaderEntry
Eq StartOperationRequest'CallbackHeaderEntry =>
(StartOperationRequest'CallbackHeaderEntry
 -> StartOperationRequest'CallbackHeaderEntry -> Ordering)
-> (StartOperationRequest'CallbackHeaderEntry
    -> StartOperationRequest'CallbackHeaderEntry -> Bool)
-> (StartOperationRequest'CallbackHeaderEntry
    -> StartOperationRequest'CallbackHeaderEntry -> Bool)
-> (StartOperationRequest'CallbackHeaderEntry
    -> StartOperationRequest'CallbackHeaderEntry -> Bool)
-> (StartOperationRequest'CallbackHeaderEntry
    -> StartOperationRequest'CallbackHeaderEntry -> Bool)
-> (StartOperationRequest'CallbackHeaderEntry
    -> StartOperationRequest'CallbackHeaderEntry
    -> StartOperationRequest'CallbackHeaderEntry)
-> (StartOperationRequest'CallbackHeaderEntry
    -> StartOperationRequest'CallbackHeaderEntry
    -> StartOperationRequest'CallbackHeaderEntry)
-> Ord StartOperationRequest'CallbackHeaderEntry
StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Ordering
StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry
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 :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Ordering
compare :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Ordering
$c< :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
< :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
$c<= :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
<= :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
$c> :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
> :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
$c>= :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
>= :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry -> Bool
$cmax :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry
max :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry
$cmin :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry
min :: StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry
-> StartOperationRequest'CallbackHeaderEntry
Prelude.Ord)
instance Prelude.Show StartOperationRequest'CallbackHeaderEntry where
  showsPrec :: Int -> StartOperationRequest'CallbackHeaderEntry -> ShowS
showsPrec Int
_ StartOperationRequest'CallbackHeaderEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (StartOperationRequest'CallbackHeaderEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StartOperationRequest'CallbackHeaderEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField StartOperationRequest'CallbackHeaderEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> StartOperationRequest'CallbackHeaderEntry
-> f StartOperationRequest'CallbackHeaderEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> StartOperationRequest'CallbackHeaderEntry
 -> f StartOperationRequest'CallbackHeaderEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StartOperationRequest'CallbackHeaderEntry
-> f StartOperationRequest'CallbackHeaderEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationRequest'CallbackHeaderEntry -> Text)
-> (StartOperationRequest'CallbackHeaderEntry
    -> Text -> StartOperationRequest'CallbackHeaderEntry)
-> Lens' StartOperationRequest'CallbackHeaderEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationRequest'CallbackHeaderEntry -> Text
_StartOperationRequest'CallbackHeaderEntry'key
           (\ StartOperationRequest'CallbackHeaderEntry
x__ Text
y__
              -> StartOperationRequest'CallbackHeaderEntry
x__ {_StartOperationRequest'CallbackHeaderEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartOperationRequest'CallbackHeaderEntry "value" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Text -> f Text)
-> StartOperationRequest'CallbackHeaderEntry
-> f StartOperationRequest'CallbackHeaderEntry
fieldOf Proxy# "value"
_
    = ((Text -> f Text)
 -> StartOperationRequest'CallbackHeaderEntry
 -> f StartOperationRequest'CallbackHeaderEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StartOperationRequest'CallbackHeaderEntry
-> f StartOperationRequest'CallbackHeaderEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationRequest'CallbackHeaderEntry -> Text)
-> (StartOperationRequest'CallbackHeaderEntry
    -> Text -> StartOperationRequest'CallbackHeaderEntry)
-> Lens' StartOperationRequest'CallbackHeaderEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationRequest'CallbackHeaderEntry -> Text
_StartOperationRequest'CallbackHeaderEntry'value
           (\ StartOperationRequest'CallbackHeaderEntry
x__ Text
y__
              -> StartOperationRequest'CallbackHeaderEntry
x__ {_StartOperationRequest'CallbackHeaderEntry'value = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StartOperationRequest'CallbackHeaderEntry where
  messageName :: Proxy StartOperationRequest'CallbackHeaderEntry -> Text
messageName Proxy StartOperationRequest'CallbackHeaderEntry
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.nexus.v1.StartOperationRequest.CallbackHeaderEntry"
  packedMessageDescriptor :: Proxy StartOperationRequest'CallbackHeaderEntry -> ByteString
packedMessageDescriptor Proxy StartOperationRequest'CallbackHeaderEntry
_
    = ByteString
"\n\
      \\DC3CallbackHeaderEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy StartOperationRequest'CallbackHeaderEntry -> ByteString
packedFileDescriptor Proxy StartOperationRequest'CallbackHeaderEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor StartOperationRequest'CallbackHeaderEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor StartOperationRequest'CallbackHeaderEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor StartOperationRequest'CallbackHeaderEntry Text
-> FieldDescriptor StartOperationRequest'CallbackHeaderEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' StartOperationRequest'CallbackHeaderEntry Text
-> FieldAccessor StartOperationRequest'CallbackHeaderEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor StartOperationRequest'CallbackHeaderEntry
        value__field_descriptor :: FieldDescriptor StartOperationRequest'CallbackHeaderEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor StartOperationRequest'CallbackHeaderEntry Text
-> FieldDescriptor StartOperationRequest'CallbackHeaderEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (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' StartOperationRequest'CallbackHeaderEntry Text
-> FieldAccessor StartOperationRequest'CallbackHeaderEntry 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 @"value")) ::
              Data.ProtoLens.FieldDescriptor StartOperationRequest'CallbackHeaderEntry
      in
        [(Tag, FieldDescriptor StartOperationRequest'CallbackHeaderEntry)]
-> Map
     Tag (FieldDescriptor StartOperationRequest'CallbackHeaderEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StartOperationRequest'CallbackHeaderEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor StartOperationRequest'CallbackHeaderEntry
value__field_descriptor)]
  unknownFields :: Lens' StartOperationRequest'CallbackHeaderEntry FieldSet
unknownFields
    = (StartOperationRequest'CallbackHeaderEntry -> FieldSet)
-> (StartOperationRequest'CallbackHeaderEntry
    -> FieldSet -> StartOperationRequest'CallbackHeaderEntry)
-> Lens' StartOperationRequest'CallbackHeaderEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        StartOperationRequest'CallbackHeaderEntry -> FieldSet
_StartOperationRequest'CallbackHeaderEntry'_unknownFields
        (\ StartOperationRequest'CallbackHeaderEntry
x__ FieldSet
y__
           -> StartOperationRequest'CallbackHeaderEntry
x__
                {_StartOperationRequest'CallbackHeaderEntry'_unknownFields = y__})
  defMessage :: StartOperationRequest'CallbackHeaderEntry
defMessage
    = StartOperationRequest'CallbackHeaderEntry'_constructor
        {_StartOperationRequest'CallbackHeaderEntry'key :: Text
_StartOperationRequest'CallbackHeaderEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StartOperationRequest'CallbackHeaderEntry'value :: Text
_StartOperationRequest'CallbackHeaderEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StartOperationRequest'CallbackHeaderEntry'_unknownFields :: FieldSet
_StartOperationRequest'CallbackHeaderEntry'_unknownFields = []}
  parseMessage :: Parser StartOperationRequest'CallbackHeaderEntry
parseMessage
    = let
        loop ::
          StartOperationRequest'CallbackHeaderEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser StartOperationRequest'CallbackHeaderEntry
        loop :: StartOperationRequest'CallbackHeaderEntry
-> Parser StartOperationRequest'CallbackHeaderEntry
loop StartOperationRequest'CallbackHeaderEntry
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser StartOperationRequest'CallbackHeaderEntry
-> String -> Parser StartOperationRequest'CallbackHeaderEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do StartOperationRequest'CallbackHeaderEntry
-> Parser StartOperationRequest'CallbackHeaderEntry
loop StartOperationRequest'CallbackHeaderEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CallbackHeaderEntry"
  buildMessage :: StartOperationRequest'CallbackHeaderEntry -> Builder
buildMessage
    = \ StartOperationRequest'CallbackHeaderEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  StartOperationRequest'CallbackHeaderEntry
  StartOperationRequest'CallbackHeaderEntry
  Text
  Text
-> StartOperationRequest'CallbackHeaderEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") StartOperationRequest'CallbackHeaderEntry
_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
  StartOperationRequest'CallbackHeaderEntry
  StartOperationRequest'CallbackHeaderEntry
  Text
  Text
-> StartOperationRequest'CallbackHeaderEntry -> 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 @"value") StartOperationRequest'CallbackHeaderEntry
_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
  StartOperationRequest'CallbackHeaderEntry
  StartOperationRequest'CallbackHeaderEntry
  FieldSet
  FieldSet
-> StartOperationRequest'CallbackHeaderEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  StartOperationRequest'CallbackHeaderEntry
  StartOperationRequest'CallbackHeaderEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StartOperationRequest'CallbackHeaderEntry FieldSet
Data.ProtoLens.unknownFields StartOperationRequest'CallbackHeaderEntry
_x)))
instance Control.DeepSeq.NFData StartOperationRequest'CallbackHeaderEntry where
  rnf :: StartOperationRequest'CallbackHeaderEntry -> ()
rnf
    = \ StartOperationRequest'CallbackHeaderEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (StartOperationRequest'CallbackHeaderEntry -> FieldSet
_StartOperationRequest'CallbackHeaderEntry'_unknownFields StartOperationRequest'CallbackHeaderEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (StartOperationRequest'CallbackHeaderEntry -> Text
_StartOperationRequest'CallbackHeaderEntry'key StartOperationRequest'CallbackHeaderEntry
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (StartOperationRequest'CallbackHeaderEntry -> Text
_StartOperationRequest'CallbackHeaderEntry'value StartOperationRequest'CallbackHeaderEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'variant' @:: Lens' StartOperationResponse (Prelude.Maybe StartOperationResponse'Variant)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'syncSuccess' @:: Lens' StartOperationResponse (Prelude.Maybe StartOperationResponse'Sync)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.syncSuccess' @:: Lens' StartOperationResponse StartOperationResponse'Sync@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'asyncSuccess' @:: Lens' StartOperationResponse (Prelude.Maybe StartOperationResponse'Async)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.asyncSuccess' @:: Lens' StartOperationResponse StartOperationResponse'Async@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'operationError' @:: Lens' StartOperationResponse (Prelude.Maybe UnsuccessfulOperationError)@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.operationError' @:: Lens' StartOperationResponse UnsuccessfulOperationError@ -}
data StartOperationResponse
  = StartOperationResponse'_constructor {StartOperationResponse -> Maybe StartOperationResponse'Variant
_StartOperationResponse'variant :: !(Prelude.Maybe StartOperationResponse'Variant),
                                         StartOperationResponse -> FieldSet
_StartOperationResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (StartOperationResponse -> StartOperationResponse -> Bool
(StartOperationResponse -> StartOperationResponse -> Bool)
-> (StartOperationResponse -> StartOperationResponse -> Bool)
-> Eq StartOperationResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StartOperationResponse -> StartOperationResponse -> Bool
== :: StartOperationResponse -> StartOperationResponse -> Bool
$c/= :: StartOperationResponse -> StartOperationResponse -> Bool
/= :: StartOperationResponse -> StartOperationResponse -> Bool
Prelude.Eq, Eq StartOperationResponse
Eq StartOperationResponse =>
(StartOperationResponse -> StartOperationResponse -> Ordering)
-> (StartOperationResponse -> StartOperationResponse -> Bool)
-> (StartOperationResponse -> StartOperationResponse -> Bool)
-> (StartOperationResponse -> StartOperationResponse -> Bool)
-> (StartOperationResponse -> StartOperationResponse -> Bool)
-> (StartOperationResponse
    -> StartOperationResponse -> StartOperationResponse)
-> (StartOperationResponse
    -> StartOperationResponse -> StartOperationResponse)
-> Ord StartOperationResponse
StartOperationResponse -> StartOperationResponse -> Bool
StartOperationResponse -> StartOperationResponse -> Ordering
StartOperationResponse
-> StartOperationResponse -> StartOperationResponse
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 :: StartOperationResponse -> StartOperationResponse -> Ordering
compare :: StartOperationResponse -> StartOperationResponse -> Ordering
$c< :: StartOperationResponse -> StartOperationResponse -> Bool
< :: StartOperationResponse -> StartOperationResponse -> Bool
$c<= :: StartOperationResponse -> StartOperationResponse -> Bool
<= :: StartOperationResponse -> StartOperationResponse -> Bool
$c> :: StartOperationResponse -> StartOperationResponse -> Bool
> :: StartOperationResponse -> StartOperationResponse -> Bool
$c>= :: StartOperationResponse -> StartOperationResponse -> Bool
>= :: StartOperationResponse -> StartOperationResponse -> Bool
$cmax :: StartOperationResponse
-> StartOperationResponse -> StartOperationResponse
max :: StartOperationResponse
-> StartOperationResponse -> StartOperationResponse
$cmin :: StartOperationResponse
-> StartOperationResponse -> StartOperationResponse
min :: StartOperationResponse
-> StartOperationResponse -> StartOperationResponse
Prelude.Ord)
instance Prelude.Show StartOperationResponse where
  showsPrec :: Int -> StartOperationResponse -> ShowS
showsPrec Int
_ StartOperationResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (StartOperationResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StartOperationResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data StartOperationResponse'Variant
  = StartOperationResponse'SyncSuccess !StartOperationResponse'Sync |
    StartOperationResponse'AsyncSuccess !StartOperationResponse'Async |
    StartOperationResponse'OperationError !UnsuccessfulOperationError
  deriving stock (Int -> StartOperationResponse'Variant -> ShowS
[StartOperationResponse'Variant] -> ShowS
StartOperationResponse'Variant -> String
(Int -> StartOperationResponse'Variant -> ShowS)
-> (StartOperationResponse'Variant -> String)
-> ([StartOperationResponse'Variant] -> ShowS)
-> Show StartOperationResponse'Variant
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> StartOperationResponse'Variant -> ShowS
showsPrec :: Int -> StartOperationResponse'Variant -> ShowS
$cshow :: StartOperationResponse'Variant -> String
show :: StartOperationResponse'Variant -> String
$cshowList :: [StartOperationResponse'Variant] -> ShowS
showList :: [StartOperationResponse'Variant] -> ShowS
Prelude.Show, StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
(StartOperationResponse'Variant
 -> StartOperationResponse'Variant -> Bool)
-> (StartOperationResponse'Variant
    -> StartOperationResponse'Variant -> Bool)
-> Eq StartOperationResponse'Variant
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
== :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
$c/= :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
/= :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
Prelude.Eq, Eq StartOperationResponse'Variant
Eq StartOperationResponse'Variant =>
(StartOperationResponse'Variant
 -> StartOperationResponse'Variant -> Ordering)
-> (StartOperationResponse'Variant
    -> StartOperationResponse'Variant -> Bool)
-> (StartOperationResponse'Variant
    -> StartOperationResponse'Variant -> Bool)
-> (StartOperationResponse'Variant
    -> StartOperationResponse'Variant -> Bool)
-> (StartOperationResponse'Variant
    -> StartOperationResponse'Variant -> Bool)
-> (StartOperationResponse'Variant
    -> StartOperationResponse'Variant
    -> StartOperationResponse'Variant)
-> (StartOperationResponse'Variant
    -> StartOperationResponse'Variant
    -> StartOperationResponse'Variant)
-> Ord StartOperationResponse'Variant
StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Ordering
StartOperationResponse'Variant
-> StartOperationResponse'Variant -> StartOperationResponse'Variant
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 :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Ordering
compare :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Ordering
$c< :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
< :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
$c<= :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
<= :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
$c> :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
> :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
$c>= :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
>= :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> Bool
$cmax :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> StartOperationResponse'Variant
max :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> StartOperationResponse'Variant
$cmin :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> StartOperationResponse'Variant
min :: StartOperationResponse'Variant
-> StartOperationResponse'Variant -> StartOperationResponse'Variant
Prelude.Ord)
instance Data.ProtoLens.Field.HasField StartOperationResponse "maybe'variant" (Prelude.Maybe StartOperationResponse'Variant) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'variant"
-> (Maybe StartOperationResponse'Variant
    -> f (Maybe StartOperationResponse'Variant))
-> StartOperationResponse
-> f StartOperationResponse
fieldOf Proxy# "maybe'variant"
_
    = ((Maybe StartOperationResponse'Variant
  -> f (Maybe StartOperationResponse'Variant))
 -> StartOperationResponse -> f StartOperationResponse)
-> ((Maybe StartOperationResponse'Variant
     -> f (Maybe StartOperationResponse'Variant))
    -> Maybe StartOperationResponse'Variant
    -> f (Maybe StartOperationResponse'Variant))
-> (Maybe StartOperationResponse'Variant
    -> f (Maybe StartOperationResponse'Variant))
-> StartOperationResponse
-> f StartOperationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationResponse -> Maybe StartOperationResponse'Variant)
-> (StartOperationResponse
    -> Maybe StartOperationResponse'Variant -> StartOperationResponse)
-> Lens
     StartOperationResponse
     StartOperationResponse
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationResponse -> Maybe StartOperationResponse'Variant
_StartOperationResponse'variant
           (\ StartOperationResponse
x__ Maybe StartOperationResponse'Variant
y__ -> StartOperationResponse
x__ {_StartOperationResponse'variant = y__}))
        (Maybe StartOperationResponse'Variant
 -> f (Maybe StartOperationResponse'Variant))
-> Maybe StartOperationResponse'Variant
-> f (Maybe StartOperationResponse'Variant)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartOperationResponse "maybe'syncSuccess" (Prelude.Maybe StartOperationResponse'Sync) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'syncSuccess"
-> (Maybe StartOperationResponse'Sync
    -> f (Maybe StartOperationResponse'Sync))
-> StartOperationResponse
-> f StartOperationResponse
fieldOf Proxy# "maybe'syncSuccess"
_
    = ((Maybe StartOperationResponse'Variant
  -> f (Maybe StartOperationResponse'Variant))
 -> StartOperationResponse -> f StartOperationResponse)
-> ((Maybe StartOperationResponse'Sync
     -> f (Maybe StartOperationResponse'Sync))
    -> Maybe StartOperationResponse'Variant
    -> f (Maybe StartOperationResponse'Variant))
-> (Maybe StartOperationResponse'Sync
    -> f (Maybe StartOperationResponse'Sync))
-> StartOperationResponse
-> f StartOperationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationResponse -> Maybe StartOperationResponse'Variant)
-> (StartOperationResponse
    -> Maybe StartOperationResponse'Variant -> StartOperationResponse)
-> Lens
     StartOperationResponse
     StartOperationResponse
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationResponse -> Maybe StartOperationResponse'Variant
_StartOperationResponse'variant
           (\ StartOperationResponse
x__ Maybe StartOperationResponse'Variant
y__ -> StartOperationResponse
x__ {_StartOperationResponse'variant = y__}))
        ((Maybe StartOperationResponse'Variant
 -> Maybe StartOperationResponse'Sync)
-> (Maybe StartOperationResponse'Variant
    -> Maybe StartOperationResponse'Sync
    -> Maybe StartOperationResponse'Variant)
-> Lens
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Sync)
     (Maybe StartOperationResponse'Sync)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe StartOperationResponse'Variant
x__
              -> case Maybe StartOperationResponse'Variant
x__ of
                   (Prelude.Just (StartOperationResponse'SyncSuccess StartOperationResponse'Sync
x__val))
                     -> StartOperationResponse'Sync -> Maybe StartOperationResponse'Sync
forall a. a -> Maybe a
Prelude.Just StartOperationResponse'Sync
x__val
                   Maybe StartOperationResponse'Variant
_otherwise -> Maybe StartOperationResponse'Sync
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe StartOperationResponse'Variant
_ Maybe StartOperationResponse'Sync
y__ -> (StartOperationResponse'Sync -> StartOperationResponse'Variant)
-> Maybe StartOperationResponse'Sync
-> Maybe StartOperationResponse'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StartOperationResponse'Sync -> StartOperationResponse'Variant
StartOperationResponse'SyncSuccess Maybe StartOperationResponse'Sync
y__))
instance Data.ProtoLens.Field.HasField StartOperationResponse "syncSuccess" StartOperationResponse'Sync where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "syncSuccess"
-> (StartOperationResponse'Sync -> f StartOperationResponse'Sync)
-> StartOperationResponse
-> f StartOperationResponse
fieldOf Proxy# "syncSuccess"
_
    = ((Maybe StartOperationResponse'Variant
  -> f (Maybe StartOperationResponse'Variant))
 -> StartOperationResponse -> f StartOperationResponse)
-> ((StartOperationResponse'Sync -> f StartOperationResponse'Sync)
    -> Maybe StartOperationResponse'Variant
    -> f (Maybe StartOperationResponse'Variant))
-> (StartOperationResponse'Sync -> f StartOperationResponse'Sync)
-> StartOperationResponse
-> f StartOperationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationResponse -> Maybe StartOperationResponse'Variant)
-> (StartOperationResponse
    -> Maybe StartOperationResponse'Variant -> StartOperationResponse)
-> Lens
     StartOperationResponse
     StartOperationResponse
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationResponse -> Maybe StartOperationResponse'Variant
_StartOperationResponse'variant
           (\ StartOperationResponse
x__ Maybe StartOperationResponse'Variant
y__ -> StartOperationResponse
x__ {_StartOperationResponse'variant = y__}))
        (((Maybe StartOperationResponse'Sync
  -> f (Maybe StartOperationResponse'Sync))
 -> Maybe StartOperationResponse'Variant
 -> f (Maybe StartOperationResponse'Variant))
-> ((StartOperationResponse'Sync -> f StartOperationResponse'Sync)
    -> Maybe StartOperationResponse'Sync
    -> f (Maybe StartOperationResponse'Sync))
-> (StartOperationResponse'Sync -> f StartOperationResponse'Sync)
-> Maybe StartOperationResponse'Variant
-> f (Maybe StartOperationResponse'Variant)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StartOperationResponse'Variant
 -> Maybe StartOperationResponse'Sync)
-> (Maybe StartOperationResponse'Variant
    -> Maybe StartOperationResponse'Sync
    -> Maybe StartOperationResponse'Variant)
-> Lens
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Sync)
     (Maybe StartOperationResponse'Sync)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe StartOperationResponse'Variant
x__
                 -> case Maybe StartOperationResponse'Variant
x__ of
                      (Prelude.Just (StartOperationResponse'SyncSuccess StartOperationResponse'Sync
x__val))
                        -> StartOperationResponse'Sync -> Maybe StartOperationResponse'Sync
forall a. a -> Maybe a
Prelude.Just StartOperationResponse'Sync
x__val
                      Maybe StartOperationResponse'Variant
_otherwise -> Maybe StartOperationResponse'Sync
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe StartOperationResponse'Variant
_ Maybe StartOperationResponse'Sync
y__ -> (StartOperationResponse'Sync -> StartOperationResponse'Variant)
-> Maybe StartOperationResponse'Sync
-> Maybe StartOperationResponse'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StartOperationResponse'Sync -> StartOperationResponse'Variant
StartOperationResponse'SyncSuccess Maybe StartOperationResponse'Sync
y__))
           (StartOperationResponse'Sync
-> Lens'
     (Maybe StartOperationResponse'Sync) StartOperationResponse'Sync
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StartOperationResponse'Sync
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField StartOperationResponse "maybe'asyncSuccess" (Prelude.Maybe StartOperationResponse'Async) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'asyncSuccess"
-> (Maybe StartOperationResponse'Async
    -> f (Maybe StartOperationResponse'Async))
-> StartOperationResponse
-> f StartOperationResponse
fieldOf Proxy# "maybe'asyncSuccess"
_
    = ((Maybe StartOperationResponse'Variant
  -> f (Maybe StartOperationResponse'Variant))
 -> StartOperationResponse -> f StartOperationResponse)
-> ((Maybe StartOperationResponse'Async
     -> f (Maybe StartOperationResponse'Async))
    -> Maybe StartOperationResponse'Variant
    -> f (Maybe StartOperationResponse'Variant))
-> (Maybe StartOperationResponse'Async
    -> f (Maybe StartOperationResponse'Async))
-> StartOperationResponse
-> f StartOperationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationResponse -> Maybe StartOperationResponse'Variant)
-> (StartOperationResponse
    -> Maybe StartOperationResponse'Variant -> StartOperationResponse)
-> Lens
     StartOperationResponse
     StartOperationResponse
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationResponse -> Maybe StartOperationResponse'Variant
_StartOperationResponse'variant
           (\ StartOperationResponse
x__ Maybe StartOperationResponse'Variant
y__ -> StartOperationResponse
x__ {_StartOperationResponse'variant = y__}))
        ((Maybe StartOperationResponse'Variant
 -> Maybe StartOperationResponse'Async)
-> (Maybe StartOperationResponse'Variant
    -> Maybe StartOperationResponse'Async
    -> Maybe StartOperationResponse'Variant)
-> Lens
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Async)
     (Maybe StartOperationResponse'Async)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe StartOperationResponse'Variant
x__
              -> case Maybe StartOperationResponse'Variant
x__ of
                   (Prelude.Just (StartOperationResponse'AsyncSuccess StartOperationResponse'Async
x__val))
                     -> StartOperationResponse'Async -> Maybe StartOperationResponse'Async
forall a. a -> Maybe a
Prelude.Just StartOperationResponse'Async
x__val
                   Maybe StartOperationResponse'Variant
_otherwise -> Maybe StartOperationResponse'Async
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe StartOperationResponse'Variant
_ Maybe StartOperationResponse'Async
y__ -> (StartOperationResponse'Async -> StartOperationResponse'Variant)
-> Maybe StartOperationResponse'Async
-> Maybe StartOperationResponse'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StartOperationResponse'Async -> StartOperationResponse'Variant
StartOperationResponse'AsyncSuccess Maybe StartOperationResponse'Async
y__))
instance Data.ProtoLens.Field.HasField StartOperationResponse "asyncSuccess" StartOperationResponse'Async where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "asyncSuccess"
-> (StartOperationResponse'Async -> f StartOperationResponse'Async)
-> StartOperationResponse
-> f StartOperationResponse
fieldOf Proxy# "asyncSuccess"
_
    = ((Maybe StartOperationResponse'Variant
  -> f (Maybe StartOperationResponse'Variant))
 -> StartOperationResponse -> f StartOperationResponse)
-> ((StartOperationResponse'Async
     -> f StartOperationResponse'Async)
    -> Maybe StartOperationResponse'Variant
    -> f (Maybe StartOperationResponse'Variant))
-> (StartOperationResponse'Async -> f StartOperationResponse'Async)
-> StartOperationResponse
-> f StartOperationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationResponse -> Maybe StartOperationResponse'Variant)
-> (StartOperationResponse
    -> Maybe StartOperationResponse'Variant -> StartOperationResponse)
-> Lens
     StartOperationResponse
     StartOperationResponse
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationResponse -> Maybe StartOperationResponse'Variant
_StartOperationResponse'variant
           (\ StartOperationResponse
x__ Maybe StartOperationResponse'Variant
y__ -> StartOperationResponse
x__ {_StartOperationResponse'variant = y__}))
        (((Maybe StartOperationResponse'Async
  -> f (Maybe StartOperationResponse'Async))
 -> Maybe StartOperationResponse'Variant
 -> f (Maybe StartOperationResponse'Variant))
-> ((StartOperationResponse'Async
     -> f StartOperationResponse'Async)
    -> Maybe StartOperationResponse'Async
    -> f (Maybe StartOperationResponse'Async))
-> (StartOperationResponse'Async -> f StartOperationResponse'Async)
-> Maybe StartOperationResponse'Variant
-> f (Maybe StartOperationResponse'Variant)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StartOperationResponse'Variant
 -> Maybe StartOperationResponse'Async)
-> (Maybe StartOperationResponse'Variant
    -> Maybe StartOperationResponse'Async
    -> Maybe StartOperationResponse'Variant)
-> Lens
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Async)
     (Maybe StartOperationResponse'Async)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe StartOperationResponse'Variant
x__
                 -> case Maybe StartOperationResponse'Variant
x__ of
                      (Prelude.Just (StartOperationResponse'AsyncSuccess StartOperationResponse'Async
x__val))
                        -> StartOperationResponse'Async -> Maybe StartOperationResponse'Async
forall a. a -> Maybe a
Prelude.Just StartOperationResponse'Async
x__val
                      Maybe StartOperationResponse'Variant
_otherwise -> Maybe StartOperationResponse'Async
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe StartOperationResponse'Variant
_ Maybe StartOperationResponse'Async
y__ -> (StartOperationResponse'Async -> StartOperationResponse'Variant)
-> Maybe StartOperationResponse'Async
-> Maybe StartOperationResponse'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StartOperationResponse'Async -> StartOperationResponse'Variant
StartOperationResponse'AsyncSuccess Maybe StartOperationResponse'Async
y__))
           (StartOperationResponse'Async
-> Lens'
     (Maybe StartOperationResponse'Async) StartOperationResponse'Async
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StartOperationResponse'Async
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField StartOperationResponse "maybe'operationError" (Prelude.Maybe UnsuccessfulOperationError) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'operationError"
-> (Maybe UnsuccessfulOperationError
    -> f (Maybe UnsuccessfulOperationError))
-> StartOperationResponse
-> f StartOperationResponse
fieldOf Proxy# "maybe'operationError"
_
    = ((Maybe StartOperationResponse'Variant
  -> f (Maybe StartOperationResponse'Variant))
 -> StartOperationResponse -> f StartOperationResponse)
-> ((Maybe UnsuccessfulOperationError
     -> f (Maybe UnsuccessfulOperationError))
    -> Maybe StartOperationResponse'Variant
    -> f (Maybe StartOperationResponse'Variant))
-> (Maybe UnsuccessfulOperationError
    -> f (Maybe UnsuccessfulOperationError))
-> StartOperationResponse
-> f StartOperationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationResponse -> Maybe StartOperationResponse'Variant)
-> (StartOperationResponse
    -> Maybe StartOperationResponse'Variant -> StartOperationResponse)
-> Lens
     StartOperationResponse
     StartOperationResponse
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationResponse -> Maybe StartOperationResponse'Variant
_StartOperationResponse'variant
           (\ StartOperationResponse
x__ Maybe StartOperationResponse'Variant
y__ -> StartOperationResponse
x__ {_StartOperationResponse'variant = y__}))
        ((Maybe StartOperationResponse'Variant
 -> Maybe UnsuccessfulOperationError)
-> (Maybe StartOperationResponse'Variant
    -> Maybe UnsuccessfulOperationError
    -> Maybe StartOperationResponse'Variant)
-> Lens
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
     (Maybe UnsuccessfulOperationError)
     (Maybe UnsuccessfulOperationError)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe StartOperationResponse'Variant
x__
              -> case Maybe StartOperationResponse'Variant
x__ of
                   (Prelude.Just (StartOperationResponse'OperationError UnsuccessfulOperationError
x__val))
                     -> UnsuccessfulOperationError -> Maybe UnsuccessfulOperationError
forall a. a -> Maybe a
Prelude.Just UnsuccessfulOperationError
x__val
                   Maybe StartOperationResponse'Variant
_otherwise -> Maybe UnsuccessfulOperationError
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe StartOperationResponse'Variant
_ Maybe UnsuccessfulOperationError
y__
              -> (UnsuccessfulOperationError -> StartOperationResponse'Variant)
-> Maybe UnsuccessfulOperationError
-> Maybe StartOperationResponse'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap UnsuccessfulOperationError -> StartOperationResponse'Variant
StartOperationResponse'OperationError Maybe UnsuccessfulOperationError
y__))
instance Data.ProtoLens.Field.HasField StartOperationResponse "operationError" UnsuccessfulOperationError where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "operationError"
-> (UnsuccessfulOperationError -> f UnsuccessfulOperationError)
-> StartOperationResponse
-> f StartOperationResponse
fieldOf Proxy# "operationError"
_
    = ((Maybe StartOperationResponse'Variant
  -> f (Maybe StartOperationResponse'Variant))
 -> StartOperationResponse -> f StartOperationResponse)
-> ((UnsuccessfulOperationError -> f UnsuccessfulOperationError)
    -> Maybe StartOperationResponse'Variant
    -> f (Maybe StartOperationResponse'Variant))
-> (UnsuccessfulOperationError -> f UnsuccessfulOperationError)
-> StartOperationResponse
-> f StartOperationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationResponse -> Maybe StartOperationResponse'Variant)
-> (StartOperationResponse
    -> Maybe StartOperationResponse'Variant -> StartOperationResponse)
-> Lens
     StartOperationResponse
     StartOperationResponse
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationResponse -> Maybe StartOperationResponse'Variant
_StartOperationResponse'variant
           (\ StartOperationResponse
x__ Maybe StartOperationResponse'Variant
y__ -> StartOperationResponse
x__ {_StartOperationResponse'variant = y__}))
        (((Maybe UnsuccessfulOperationError
  -> f (Maybe UnsuccessfulOperationError))
 -> Maybe StartOperationResponse'Variant
 -> f (Maybe StartOperationResponse'Variant))
-> ((UnsuccessfulOperationError -> f UnsuccessfulOperationError)
    -> Maybe UnsuccessfulOperationError
    -> f (Maybe UnsuccessfulOperationError))
-> (UnsuccessfulOperationError -> f UnsuccessfulOperationError)
-> Maybe StartOperationResponse'Variant
-> f (Maybe StartOperationResponse'Variant)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StartOperationResponse'Variant
 -> Maybe UnsuccessfulOperationError)
-> (Maybe StartOperationResponse'Variant
    -> Maybe UnsuccessfulOperationError
    -> Maybe StartOperationResponse'Variant)
-> Lens
     (Maybe StartOperationResponse'Variant)
     (Maybe StartOperationResponse'Variant)
     (Maybe UnsuccessfulOperationError)
     (Maybe UnsuccessfulOperationError)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe StartOperationResponse'Variant
x__
                 -> case Maybe StartOperationResponse'Variant
x__ of
                      (Prelude.Just (StartOperationResponse'OperationError UnsuccessfulOperationError
x__val))
                        -> UnsuccessfulOperationError -> Maybe UnsuccessfulOperationError
forall a. a -> Maybe a
Prelude.Just UnsuccessfulOperationError
x__val
                      Maybe StartOperationResponse'Variant
_otherwise -> Maybe UnsuccessfulOperationError
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe StartOperationResponse'Variant
_ Maybe UnsuccessfulOperationError
y__
                 -> (UnsuccessfulOperationError -> StartOperationResponse'Variant)
-> Maybe UnsuccessfulOperationError
-> Maybe StartOperationResponse'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap UnsuccessfulOperationError -> StartOperationResponse'Variant
StartOperationResponse'OperationError Maybe UnsuccessfulOperationError
y__))
           (UnsuccessfulOperationError
-> Lens'
     (Maybe UnsuccessfulOperationError) UnsuccessfulOperationError
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens UnsuccessfulOperationError
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message StartOperationResponse where
  messageName :: Proxy StartOperationResponse -> Text
messageName Proxy StartOperationResponse
_
    = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.StartOperationResponse"
  packedMessageDescriptor :: Proxy StartOperationResponse -> ByteString
packedMessageDescriptor Proxy StartOperationResponse
_
    = ByteString
"\n\
      \\SYNStartOperationResponse\DC2W\n\
      \\fsync_success\CAN\SOH \SOH(\v22.temporal.api.nexus.v1.StartOperationResponse.SyncH\NULR\vsyncSuccess\DC2Z\n\
      \\rasync_success\CAN\STX \SOH(\v23.temporal.api.nexus.v1.StartOperationResponse.AsyncH\NULR\fasyncSuccess\DC2\\\n\
      \\SIoperation_error\CAN\ETX \SOH(\v21.temporal.api.nexus.v1.UnsuccessfulOperationErrorH\NULR\SOoperationError\SUBA\n\
      \\EOTSync\DC29\n\
      \\apayload\CAN\SOH \SOH(\v2\US.temporal.api.common.v1.PayloadR\apayload\SUB*\n\
      \\ENQAsync\DC2!\n\
      \\foperation_id\CAN\SOH \SOH(\tR\voperationIdB\t\n\
      \\avariant"
  packedFileDescriptor :: Proxy StartOperationResponse -> ByteString
packedFileDescriptor Proxy StartOperationResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor StartOperationResponse)
fieldsByTag
    = let
        syncSuccess__field_descriptor :: FieldDescriptor StartOperationResponse
syncSuccess__field_descriptor
          = String
-> FieldTypeDescriptor StartOperationResponse'Sync
-> FieldAccessor StartOperationResponse StartOperationResponse'Sync
-> FieldDescriptor StartOperationResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"sync_success"
              (MessageOrGroup -> FieldTypeDescriptor StartOperationResponse'Sync
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StartOperationResponse'Sync)
              (Lens' StartOperationResponse (Maybe StartOperationResponse'Sync)
-> FieldAccessor StartOperationResponse StartOperationResponse'Sync
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'syncSuccess")) ::
              Data.ProtoLens.FieldDescriptor StartOperationResponse
        asyncSuccess__field_descriptor :: FieldDescriptor StartOperationResponse
asyncSuccess__field_descriptor
          = String
-> FieldTypeDescriptor StartOperationResponse'Async
-> FieldAccessor
     StartOperationResponse StartOperationResponse'Async
-> FieldDescriptor StartOperationResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"async_success"
              (MessageOrGroup -> FieldTypeDescriptor StartOperationResponse'Async
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StartOperationResponse'Async)
              (Lens' StartOperationResponse (Maybe StartOperationResponse'Async)
-> FieldAccessor
     StartOperationResponse StartOperationResponse'Async
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'asyncSuccess")) ::
              Data.ProtoLens.FieldDescriptor StartOperationResponse
        operationError__field_descriptor :: FieldDescriptor StartOperationResponse
operationError__field_descriptor
          = String
-> FieldTypeDescriptor UnsuccessfulOperationError
-> FieldAccessor StartOperationResponse UnsuccessfulOperationError
-> FieldDescriptor StartOperationResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"operation_error"
              (MessageOrGroup -> FieldTypeDescriptor UnsuccessfulOperationError
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UnsuccessfulOperationError)
              (Lens' StartOperationResponse (Maybe UnsuccessfulOperationError)
-> FieldAccessor StartOperationResponse UnsuccessfulOperationError
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'operationError")) ::
              Data.ProtoLens.FieldDescriptor StartOperationResponse
      in
        [(Tag, FieldDescriptor StartOperationResponse)]
-> Map Tag (FieldDescriptor StartOperationResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StartOperationResponse
syncSuccess__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor StartOperationResponse
asyncSuccess__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor StartOperationResponse
operationError__field_descriptor)]
  unknownFields :: Lens' StartOperationResponse FieldSet
unknownFields
    = (StartOperationResponse -> FieldSet)
-> (StartOperationResponse -> FieldSet -> StartOperationResponse)
-> Lens' StartOperationResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        StartOperationResponse -> FieldSet
_StartOperationResponse'_unknownFields
        (\ StartOperationResponse
x__ FieldSet
y__ -> StartOperationResponse
x__ {_StartOperationResponse'_unknownFields = y__})
  defMessage :: StartOperationResponse
defMessage
    = StartOperationResponse'_constructor
        {_StartOperationResponse'variant :: Maybe StartOperationResponse'Variant
_StartOperationResponse'variant = Maybe StartOperationResponse'Variant
forall a. Maybe a
Prelude.Nothing,
         _StartOperationResponse'_unknownFields :: FieldSet
_StartOperationResponse'_unknownFields = []}
  parseMessage :: Parser StartOperationResponse
parseMessage
    = let
        loop ::
          StartOperationResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser StartOperationResponse
        loop :: StartOperationResponse -> Parser StartOperationResponse
loop StartOperationResponse
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 StartOperationResponse'Sync
-> String -> Parser StartOperationResponse'Sync
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
"sync_success"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"syncSuccess") y x)
                        Word64
18
                          -> do y <- Parser StartOperationResponse'Async
-> String -> Parser StartOperationResponse'Async
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
"async_success"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"asyncSuccess") y x)
                        Word64
26
                          -> do y <- Parser UnsuccessfulOperationError
-> String -> Parser UnsuccessfulOperationError
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
"operation_error"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"operationError") 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 StartOperationResponse
-> String -> Parser StartOperationResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do StartOperationResponse -> Parser StartOperationResponse
loop StartOperationResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"StartOperationResponse"
  buildMessage :: StartOperationResponse -> Builder
buildMessage
    = \ StartOperationResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe StartOperationResponse'Variant)
  StartOperationResponse
  StartOperationResponse
  (Maybe StartOperationResponse'Variant)
  (Maybe StartOperationResponse'Variant)
-> StartOperationResponse -> Maybe StartOperationResponse'Variant
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'variant") StartOperationResponse
_x
              of
                Maybe StartOperationResponse'Variant
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (StartOperationResponse'SyncSuccess StartOperationResponse'Sync
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (StartOperationResponse'Sync -> ByteString)
-> StartOperationResponse'Sync
-> 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))
                          StartOperationResponse'Sync -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StartOperationResponse'Sync
v)
                (Prelude.Just (StartOperationResponse'AsyncSuccess StartOperationResponse'Async
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((ByteString -> Builder)
-> (StartOperationResponse'Async -> ByteString)
-> StartOperationResponse'Async
-> 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))
                          StartOperationResponse'Async -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StartOperationResponse'Async
v)
                (Prelude.Just (StartOperationResponse'OperationError UnsuccessfulOperationError
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                       ((ByteString -> Builder)
-> (UnsuccessfulOperationError -> ByteString)
-> UnsuccessfulOperationError
-> 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))
                          UnsuccessfulOperationError -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UnsuccessfulOperationError
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  StartOperationResponse
  StartOperationResponse
  FieldSet
  FieldSet
-> StartOperationResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  StartOperationResponse
  StartOperationResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StartOperationResponse FieldSet
Data.ProtoLens.unknownFields StartOperationResponse
_x))
instance Control.DeepSeq.NFData StartOperationResponse where
  rnf :: StartOperationResponse -> ()
rnf
    = \ StartOperationResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (StartOperationResponse -> FieldSet
_StartOperationResponse'_unknownFields StartOperationResponse
x__)
             (Maybe StartOperationResponse'Variant -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (StartOperationResponse -> Maybe StartOperationResponse'Variant
_StartOperationResponse'variant StartOperationResponse
x__) ())
instance Control.DeepSeq.NFData StartOperationResponse'Variant where
  rnf :: StartOperationResponse'Variant -> ()
rnf (StartOperationResponse'SyncSuccess StartOperationResponse'Sync
x__)
    = StartOperationResponse'Sync -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StartOperationResponse'Sync
x__
  rnf (StartOperationResponse'AsyncSuccess StartOperationResponse'Async
x__)
    = StartOperationResponse'Async -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StartOperationResponse'Async
x__
  rnf (StartOperationResponse'OperationError UnsuccessfulOperationError
x__)
    = UnsuccessfulOperationError -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf UnsuccessfulOperationError
x__
_StartOperationResponse'SyncSuccess ::
  Data.ProtoLens.Prism.Prism' StartOperationResponse'Variant StartOperationResponse'Sync
_StartOperationResponse'SyncSuccess :: Prism' StartOperationResponse'Variant StartOperationResponse'Sync
_StartOperationResponse'SyncSuccess
  = (StartOperationResponse'Sync -> StartOperationResponse'Variant)
-> (StartOperationResponse'Variant
    -> Maybe StartOperationResponse'Sync)
-> Prism'
     StartOperationResponse'Variant StartOperationResponse'Sync
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StartOperationResponse'Sync -> StartOperationResponse'Variant
StartOperationResponse'SyncSuccess
      (\ StartOperationResponse'Variant
p__
         -> case StartOperationResponse'Variant
p__ of
              (StartOperationResponse'SyncSuccess StartOperationResponse'Sync
p__val) -> StartOperationResponse'Sync -> Maybe StartOperationResponse'Sync
forall a. a -> Maybe a
Prelude.Just StartOperationResponse'Sync
p__val
              StartOperationResponse'Variant
_otherwise -> Maybe StartOperationResponse'Sync
forall a. Maybe a
Prelude.Nothing)
_StartOperationResponse'AsyncSuccess ::
  Data.ProtoLens.Prism.Prism' StartOperationResponse'Variant StartOperationResponse'Async
_StartOperationResponse'AsyncSuccess :: Prism' StartOperationResponse'Variant StartOperationResponse'Async
_StartOperationResponse'AsyncSuccess
  = (StartOperationResponse'Async -> StartOperationResponse'Variant)
-> (StartOperationResponse'Variant
    -> Maybe StartOperationResponse'Async)
-> Prism'
     StartOperationResponse'Variant StartOperationResponse'Async
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StartOperationResponse'Async -> StartOperationResponse'Variant
StartOperationResponse'AsyncSuccess
      (\ StartOperationResponse'Variant
p__
         -> case StartOperationResponse'Variant
p__ of
              (StartOperationResponse'AsyncSuccess StartOperationResponse'Async
p__val) -> StartOperationResponse'Async -> Maybe StartOperationResponse'Async
forall a. a -> Maybe a
Prelude.Just StartOperationResponse'Async
p__val
              StartOperationResponse'Variant
_otherwise -> Maybe StartOperationResponse'Async
forall a. Maybe a
Prelude.Nothing)
_StartOperationResponse'OperationError ::
  Data.ProtoLens.Prism.Prism' StartOperationResponse'Variant UnsuccessfulOperationError
_StartOperationResponse'OperationError :: Prism' StartOperationResponse'Variant UnsuccessfulOperationError
_StartOperationResponse'OperationError
  = (UnsuccessfulOperationError -> StartOperationResponse'Variant)
-> (StartOperationResponse'Variant
    -> Maybe UnsuccessfulOperationError)
-> Prism' StartOperationResponse'Variant UnsuccessfulOperationError
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      UnsuccessfulOperationError -> StartOperationResponse'Variant
StartOperationResponse'OperationError
      (\ StartOperationResponse'Variant
p__
         -> case StartOperationResponse'Variant
p__ of
              (StartOperationResponse'OperationError UnsuccessfulOperationError
p__val)
                -> UnsuccessfulOperationError -> Maybe UnsuccessfulOperationError
forall a. a -> Maybe a
Prelude.Just UnsuccessfulOperationError
p__val
              StartOperationResponse'Variant
_otherwise -> Maybe UnsuccessfulOperationError
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.operationId' @:: Lens' StartOperationResponse'Async Data.Text.Text@ -}
data StartOperationResponse'Async
  = StartOperationResponse'Async'_constructor {StartOperationResponse'Async -> Text
_StartOperationResponse'Async'operationId :: !Data.Text.Text,
                                               StartOperationResponse'Async -> FieldSet
_StartOperationResponse'Async'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
(StartOperationResponse'Async
 -> StartOperationResponse'Async -> Bool)
-> (StartOperationResponse'Async
    -> StartOperationResponse'Async -> Bool)
-> Eq StartOperationResponse'Async
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
== :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
$c/= :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
/= :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
Prelude.Eq, Eq StartOperationResponse'Async
Eq StartOperationResponse'Async =>
(StartOperationResponse'Async
 -> StartOperationResponse'Async -> Ordering)
-> (StartOperationResponse'Async
    -> StartOperationResponse'Async -> Bool)
-> (StartOperationResponse'Async
    -> StartOperationResponse'Async -> Bool)
-> (StartOperationResponse'Async
    -> StartOperationResponse'Async -> Bool)
-> (StartOperationResponse'Async
    -> StartOperationResponse'Async -> Bool)
-> (StartOperationResponse'Async
    -> StartOperationResponse'Async -> StartOperationResponse'Async)
-> (StartOperationResponse'Async
    -> StartOperationResponse'Async -> StartOperationResponse'Async)
-> Ord StartOperationResponse'Async
StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
StartOperationResponse'Async
-> StartOperationResponse'Async -> Ordering
StartOperationResponse'Async
-> StartOperationResponse'Async -> StartOperationResponse'Async
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 :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Ordering
compare :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Ordering
$c< :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
< :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
$c<= :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
<= :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
$c> :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
> :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
$c>= :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
>= :: StartOperationResponse'Async
-> StartOperationResponse'Async -> Bool
$cmax :: StartOperationResponse'Async
-> StartOperationResponse'Async -> StartOperationResponse'Async
max :: StartOperationResponse'Async
-> StartOperationResponse'Async -> StartOperationResponse'Async
$cmin :: StartOperationResponse'Async
-> StartOperationResponse'Async -> StartOperationResponse'Async
min :: StartOperationResponse'Async
-> StartOperationResponse'Async -> StartOperationResponse'Async
Prelude.Ord)
instance Prelude.Show StartOperationResponse'Async where
  showsPrec :: Int -> StartOperationResponse'Async -> ShowS
showsPrec Int
_ StartOperationResponse'Async
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (StartOperationResponse'Async -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StartOperationResponse'Async
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField StartOperationResponse'Async "operationId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "operationId"
-> (Text -> f Text)
-> StartOperationResponse'Async
-> f StartOperationResponse'Async
fieldOf Proxy# "operationId"
_
    = ((Text -> f Text)
 -> StartOperationResponse'Async -> f StartOperationResponse'Async)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StartOperationResponse'Async
-> f StartOperationResponse'Async
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationResponse'Async -> Text)
-> (StartOperationResponse'Async
    -> Text -> StartOperationResponse'Async)
-> Lens
     StartOperationResponse'Async StartOperationResponse'Async Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationResponse'Async -> Text
_StartOperationResponse'Async'operationId
           (\ StartOperationResponse'Async
x__ Text
y__
              -> StartOperationResponse'Async
x__ {_StartOperationResponse'Async'operationId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StartOperationResponse'Async where
  messageName :: Proxy StartOperationResponse'Async -> Text
messageName Proxy StartOperationResponse'Async
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.nexus.v1.StartOperationResponse.Async"
  packedMessageDescriptor :: Proxy StartOperationResponse'Async -> ByteString
packedMessageDescriptor Proxy StartOperationResponse'Async
_
    = ByteString
"\n\
      \\ENQAsync\DC2!\n\
      \\foperation_id\CAN\SOH \SOH(\tR\voperationId"
  packedFileDescriptor :: Proxy StartOperationResponse'Async -> ByteString
packedFileDescriptor Proxy StartOperationResponse'Async
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor StartOperationResponse'Async)
fieldsByTag
    = let
        operationId__field_descriptor :: FieldDescriptor StartOperationResponse'Async
operationId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor StartOperationResponse'Async Text
-> FieldDescriptor StartOperationResponse'Async
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"operation_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
     StartOperationResponse'Async StartOperationResponse'Async Text Text
-> FieldAccessor StartOperationResponse'Async 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 @"operationId")) ::
              Data.ProtoLens.FieldDescriptor StartOperationResponse'Async
      in
        [(Tag, FieldDescriptor StartOperationResponse'Async)]
-> Map Tag (FieldDescriptor StartOperationResponse'Async)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StartOperationResponse'Async
operationId__field_descriptor)]
  unknownFields :: Lens' StartOperationResponse'Async FieldSet
unknownFields
    = (StartOperationResponse'Async -> FieldSet)
-> (StartOperationResponse'Async
    -> FieldSet -> StartOperationResponse'Async)
-> Lens' StartOperationResponse'Async FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        StartOperationResponse'Async -> FieldSet
_StartOperationResponse'Async'_unknownFields
        (\ StartOperationResponse'Async
x__ FieldSet
y__
           -> StartOperationResponse'Async
x__ {_StartOperationResponse'Async'_unknownFields = y__})
  defMessage :: StartOperationResponse'Async
defMessage
    = StartOperationResponse'Async'_constructor
        {_StartOperationResponse'Async'operationId :: Text
_StartOperationResponse'Async'operationId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StartOperationResponse'Async'_unknownFields :: FieldSet
_StartOperationResponse'Async'_unknownFields = []}
  parseMessage :: Parser StartOperationResponse'Async
parseMessage
    = let
        loop ::
          StartOperationResponse'Async
          -> Data.ProtoLens.Encoding.Bytes.Parser StartOperationResponse'Async
        loop :: StartOperationResponse'Async -> Parser StartOperationResponse'Async
loop StartOperationResponse'Async
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
"operation_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"operationId") 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 StartOperationResponse'Async
-> String -> Parser StartOperationResponse'Async
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do StartOperationResponse'Async -> Parser StartOperationResponse'Async
loop StartOperationResponse'Async
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Async"
  buildMessage :: StartOperationResponse'Async -> Builder
buildMessage
    = \ StartOperationResponse'Async
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text
  StartOperationResponse'Async
  StartOperationResponse'Async
  Text
  Text
-> StartOperationResponse'Async -> 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 @"operationId") StartOperationResponse'Async
_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))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  StartOperationResponse'Async
  StartOperationResponse'Async
  FieldSet
  FieldSet
-> StartOperationResponse'Async -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  StartOperationResponse'Async
  StartOperationResponse'Async
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StartOperationResponse'Async FieldSet
Data.ProtoLens.unknownFields StartOperationResponse'Async
_x))
instance Control.DeepSeq.NFData StartOperationResponse'Async where
  rnf :: StartOperationResponse'Async -> ()
rnf
    = \ StartOperationResponse'Async
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (StartOperationResponse'Async -> FieldSet
_StartOperationResponse'Async'_unknownFields StartOperationResponse'Async
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (StartOperationResponse'Async -> Text
_StartOperationResponse'Async'operationId StartOperationResponse'Async
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.payload' @:: Lens' StartOperationResponse'Sync Proto.Temporal.Api.Common.V1.Message.Payload@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'payload' @:: Lens' StartOperationResponse'Sync (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload)@ -}
data StartOperationResponse'Sync
  = StartOperationResponse'Sync'_constructor {StartOperationResponse'Sync -> Maybe Payload
_StartOperationResponse'Sync'payload :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload),
                                              StartOperationResponse'Sync -> FieldSet
_StartOperationResponse'Sync'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
(StartOperationResponse'Sync
 -> StartOperationResponse'Sync -> Bool)
-> (StartOperationResponse'Sync
    -> StartOperationResponse'Sync -> Bool)
-> Eq StartOperationResponse'Sync
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
== :: StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
$c/= :: StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
/= :: StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
Prelude.Eq, Eq StartOperationResponse'Sync
Eq StartOperationResponse'Sync =>
(StartOperationResponse'Sync
 -> StartOperationResponse'Sync -> Ordering)
-> (StartOperationResponse'Sync
    -> StartOperationResponse'Sync -> Bool)
-> (StartOperationResponse'Sync
    -> StartOperationResponse'Sync -> Bool)
-> (StartOperationResponse'Sync
    -> StartOperationResponse'Sync -> Bool)
-> (StartOperationResponse'Sync
    -> StartOperationResponse'Sync -> Bool)
-> (StartOperationResponse'Sync
    -> StartOperationResponse'Sync -> StartOperationResponse'Sync)
-> (StartOperationResponse'Sync
    -> StartOperationResponse'Sync -> StartOperationResponse'Sync)
-> Ord StartOperationResponse'Sync
StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
StartOperationResponse'Sync
-> StartOperationResponse'Sync -> Ordering
StartOperationResponse'Sync
-> StartOperationResponse'Sync -> StartOperationResponse'Sync
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 :: StartOperationResponse'Sync
-> StartOperationResponse'Sync -> Ordering
compare :: StartOperationResponse'Sync
-> StartOperationResponse'Sync -> Ordering
$c< :: StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
< :: StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
$c<= :: StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
<= :: StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
$c> :: StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
> :: StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
$c>= :: StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
>= :: StartOperationResponse'Sync -> StartOperationResponse'Sync -> Bool
$cmax :: StartOperationResponse'Sync
-> StartOperationResponse'Sync -> StartOperationResponse'Sync
max :: StartOperationResponse'Sync
-> StartOperationResponse'Sync -> StartOperationResponse'Sync
$cmin :: StartOperationResponse'Sync
-> StartOperationResponse'Sync -> StartOperationResponse'Sync
min :: StartOperationResponse'Sync
-> StartOperationResponse'Sync -> StartOperationResponse'Sync
Prelude.Ord)
instance Prelude.Show StartOperationResponse'Sync where
  showsPrec :: Int -> StartOperationResponse'Sync -> ShowS
showsPrec Int
_ StartOperationResponse'Sync
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (StartOperationResponse'Sync -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StartOperationResponse'Sync
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField StartOperationResponse'Sync "payload" Proto.Temporal.Api.Common.V1.Message.Payload where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "payload"
-> (Payload -> f Payload)
-> StartOperationResponse'Sync
-> f StartOperationResponse'Sync
fieldOf Proxy# "payload"
_
    = ((Maybe Payload -> f (Maybe Payload))
 -> StartOperationResponse'Sync -> f StartOperationResponse'Sync)
-> ((Payload -> f Payload) -> Maybe Payload -> f (Maybe Payload))
-> (Payload -> f Payload)
-> StartOperationResponse'Sync
-> f StartOperationResponse'Sync
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationResponse'Sync -> Maybe Payload)
-> (StartOperationResponse'Sync
    -> Maybe Payload -> StartOperationResponse'Sync)
-> Lens
     StartOperationResponse'Sync
     StartOperationResponse'Sync
     (Maybe Payload)
     (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationResponse'Sync -> Maybe Payload
_StartOperationResponse'Sync'payload
           (\ StartOperationResponse'Sync
x__ Maybe Payload
y__ -> StartOperationResponse'Sync
x__ {_StartOperationResponse'Sync'payload = y__}))
        (Payload -> Lens' (Maybe Payload) Payload
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payload
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StartOperationResponse'Sync "maybe'payload" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'payload"
-> (Maybe Payload -> f (Maybe Payload))
-> StartOperationResponse'Sync
-> f StartOperationResponse'Sync
fieldOf Proxy# "maybe'payload"
_
    = ((Maybe Payload -> f (Maybe Payload))
 -> StartOperationResponse'Sync -> f StartOperationResponse'Sync)
-> ((Maybe Payload -> f (Maybe Payload))
    -> Maybe Payload -> f (Maybe Payload))
-> (Maybe Payload -> f (Maybe Payload))
-> StartOperationResponse'Sync
-> f StartOperationResponse'Sync
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartOperationResponse'Sync -> Maybe Payload)
-> (StartOperationResponse'Sync
    -> Maybe Payload -> StartOperationResponse'Sync)
-> Lens
     StartOperationResponse'Sync
     StartOperationResponse'Sync
     (Maybe Payload)
     (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartOperationResponse'Sync -> Maybe Payload
_StartOperationResponse'Sync'payload
           (\ StartOperationResponse'Sync
x__ Maybe Payload
y__ -> StartOperationResponse'Sync
x__ {_StartOperationResponse'Sync'payload = y__}))
        (Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StartOperationResponse'Sync where
  messageName :: Proxy StartOperationResponse'Sync -> Text
messageName Proxy StartOperationResponse'Sync
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.nexus.v1.StartOperationResponse.Sync"
  packedMessageDescriptor :: Proxy StartOperationResponse'Sync -> ByteString
packedMessageDescriptor Proxy StartOperationResponse'Sync
_
    = ByteString
"\n\
      \\EOTSync\DC29\n\
      \\apayload\CAN\SOH \SOH(\v2\US.temporal.api.common.v1.PayloadR\apayload"
  packedFileDescriptor :: Proxy StartOperationResponse'Sync -> ByteString
packedFileDescriptor Proxy StartOperationResponse'Sync
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor StartOperationResponse'Sync)
fieldsByTag
    = let
        payload__field_descriptor :: FieldDescriptor StartOperationResponse'Sync
payload__field_descriptor
          = String
-> FieldTypeDescriptor Payload
-> FieldAccessor StartOperationResponse'Sync Payload
-> FieldDescriptor StartOperationResponse'Sync
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"payload"
              (MessageOrGroup -> FieldTypeDescriptor Payload
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payload)
              (Lens
  StartOperationResponse'Sync
  StartOperationResponse'Sync
  (Maybe Payload)
  (Maybe Payload)
-> FieldAccessor StartOperationResponse'Sync Payload
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'payload")) ::
              Data.ProtoLens.FieldDescriptor StartOperationResponse'Sync
      in
        [(Tag, FieldDescriptor StartOperationResponse'Sync)]
-> Map Tag (FieldDescriptor StartOperationResponse'Sync)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StartOperationResponse'Sync
payload__field_descriptor)]
  unknownFields :: Lens' StartOperationResponse'Sync FieldSet
unknownFields
    = (StartOperationResponse'Sync -> FieldSet)
-> (StartOperationResponse'Sync
    -> FieldSet -> StartOperationResponse'Sync)
-> Lens' StartOperationResponse'Sync FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        StartOperationResponse'Sync -> FieldSet
_StartOperationResponse'Sync'_unknownFields
        (\ StartOperationResponse'Sync
x__ FieldSet
y__
           -> StartOperationResponse'Sync
x__ {_StartOperationResponse'Sync'_unknownFields = y__})
  defMessage :: StartOperationResponse'Sync
defMessage
    = StartOperationResponse'Sync'_constructor
        {_StartOperationResponse'Sync'payload :: Maybe Payload
_StartOperationResponse'Sync'payload = Maybe Payload
forall a. Maybe a
Prelude.Nothing,
         _StartOperationResponse'Sync'_unknownFields :: FieldSet
_StartOperationResponse'Sync'_unknownFields = []}
  parseMessage :: Parser StartOperationResponse'Sync
parseMessage
    = let
        loop ::
          StartOperationResponse'Sync
          -> Data.ProtoLens.Encoding.Bytes.Parser StartOperationResponse'Sync
        loop :: StartOperationResponse'Sync -> Parser StartOperationResponse'Sync
loop StartOperationResponse'Sync
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 Payload -> String -> Parser Payload
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
"payload"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") 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 StartOperationResponse'Sync
-> String -> Parser StartOperationResponse'Sync
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do StartOperationResponse'Sync -> Parser StartOperationResponse'Sync
loop StartOperationResponse'Sync
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Sync"
  buildMessage :: StartOperationResponse'Sync -> Builder
buildMessage
    = \ StartOperationResponse'Sync
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Payload)
  StartOperationResponse'Sync
  StartOperationResponse'Sync
  (Maybe Payload)
  (Maybe Payload)
-> StartOperationResponse'Sync -> Maybe Payload
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'payload") StartOperationResponse'Sync
_x
              of
                Maybe Payload
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Payload
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> 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))
                          Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  StartOperationResponse'Sync
  StartOperationResponse'Sync
  FieldSet
  FieldSet
-> StartOperationResponse'Sync -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  StartOperationResponse'Sync
  StartOperationResponse'Sync
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StartOperationResponse'Sync FieldSet
Data.ProtoLens.unknownFields StartOperationResponse'Sync
_x))
instance Control.DeepSeq.NFData StartOperationResponse'Sync where
  rnf :: StartOperationResponse'Sync -> ()
rnf
    = \ StartOperationResponse'Sync
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (StartOperationResponse'Sync -> FieldSet
_StartOperationResponse'Sync'_unknownFields StartOperationResponse'Sync
x__)
             (Maybe Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (StartOperationResponse'Sync -> Maybe Payload
_StartOperationResponse'Sync'payload StartOperationResponse'Sync
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.operationState' @:: Lens' UnsuccessfulOperationError Data.Text.Text@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.failure' @:: Lens' UnsuccessfulOperationError Failure@
         * 'Proto.Temporal.Api.Nexus.V1.Message_Fields.maybe'failure' @:: Lens' UnsuccessfulOperationError (Prelude.Maybe Failure)@ -}
data UnsuccessfulOperationError
  = UnsuccessfulOperationError'_constructor {UnsuccessfulOperationError -> Text
_UnsuccessfulOperationError'operationState :: !Data.Text.Text,
                                             UnsuccessfulOperationError -> Maybe Failure
_UnsuccessfulOperationError'failure :: !(Prelude.Maybe Failure),
                                             UnsuccessfulOperationError -> FieldSet
_UnsuccessfulOperationError'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
(UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool)
-> (UnsuccessfulOperationError
    -> UnsuccessfulOperationError -> Bool)
-> Eq UnsuccessfulOperationError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
== :: UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
$c/= :: UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
/= :: UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
Prelude.Eq, Eq UnsuccessfulOperationError
Eq UnsuccessfulOperationError =>
(UnsuccessfulOperationError
 -> UnsuccessfulOperationError -> Ordering)
-> (UnsuccessfulOperationError
    -> UnsuccessfulOperationError -> Bool)
-> (UnsuccessfulOperationError
    -> UnsuccessfulOperationError -> Bool)
-> (UnsuccessfulOperationError
    -> UnsuccessfulOperationError -> Bool)
-> (UnsuccessfulOperationError
    -> UnsuccessfulOperationError -> Bool)
-> (UnsuccessfulOperationError
    -> UnsuccessfulOperationError -> UnsuccessfulOperationError)
-> (UnsuccessfulOperationError
    -> UnsuccessfulOperationError -> UnsuccessfulOperationError)
-> Ord UnsuccessfulOperationError
UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
UnsuccessfulOperationError
-> UnsuccessfulOperationError -> Ordering
UnsuccessfulOperationError
-> UnsuccessfulOperationError -> UnsuccessfulOperationError
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 :: UnsuccessfulOperationError
-> UnsuccessfulOperationError -> Ordering
compare :: UnsuccessfulOperationError
-> UnsuccessfulOperationError -> Ordering
$c< :: UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
< :: UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
$c<= :: UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
<= :: UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
$c> :: UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
> :: UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
$c>= :: UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
>= :: UnsuccessfulOperationError -> UnsuccessfulOperationError -> Bool
$cmax :: UnsuccessfulOperationError
-> UnsuccessfulOperationError -> UnsuccessfulOperationError
max :: UnsuccessfulOperationError
-> UnsuccessfulOperationError -> UnsuccessfulOperationError
$cmin :: UnsuccessfulOperationError
-> UnsuccessfulOperationError -> UnsuccessfulOperationError
min :: UnsuccessfulOperationError
-> UnsuccessfulOperationError -> UnsuccessfulOperationError
Prelude.Ord)
instance Prelude.Show UnsuccessfulOperationError where
  showsPrec :: Int -> UnsuccessfulOperationError -> ShowS
showsPrec Int
_ UnsuccessfulOperationError
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (UnsuccessfulOperationError -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UnsuccessfulOperationError
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField UnsuccessfulOperationError "operationState" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "operationState"
-> (Text -> f Text)
-> UnsuccessfulOperationError
-> f UnsuccessfulOperationError
fieldOf Proxy# "operationState"
_
    = ((Text -> f Text)
 -> UnsuccessfulOperationError -> f UnsuccessfulOperationError)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> UnsuccessfulOperationError
-> f UnsuccessfulOperationError
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UnsuccessfulOperationError -> Text)
-> (UnsuccessfulOperationError
    -> Text -> UnsuccessfulOperationError)
-> Lens
     UnsuccessfulOperationError UnsuccessfulOperationError Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UnsuccessfulOperationError -> Text
_UnsuccessfulOperationError'operationState
           (\ UnsuccessfulOperationError
x__ Text
y__
              -> UnsuccessfulOperationError
x__ {_UnsuccessfulOperationError'operationState = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UnsuccessfulOperationError "failure" Failure where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failure"
-> (Failure -> f Failure)
-> UnsuccessfulOperationError
-> f UnsuccessfulOperationError
fieldOf Proxy# "failure"
_
    = ((Maybe Failure -> f (Maybe Failure))
 -> UnsuccessfulOperationError -> f UnsuccessfulOperationError)
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> UnsuccessfulOperationError
-> f UnsuccessfulOperationError
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UnsuccessfulOperationError -> Maybe Failure)
-> (UnsuccessfulOperationError
    -> Maybe Failure -> UnsuccessfulOperationError)
-> Lens
     UnsuccessfulOperationError
     UnsuccessfulOperationError
     (Maybe Failure)
     (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UnsuccessfulOperationError -> Maybe Failure
_UnsuccessfulOperationError'failure
           (\ UnsuccessfulOperationError
x__ Maybe Failure
y__ -> UnsuccessfulOperationError
x__ {_UnsuccessfulOperationError'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 UnsuccessfulOperationError "maybe'failure" (Prelude.Maybe Failure) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failure"
-> (Maybe Failure -> f (Maybe Failure))
-> UnsuccessfulOperationError
-> f UnsuccessfulOperationError
fieldOf Proxy# "maybe'failure"
_
    = ((Maybe Failure -> f (Maybe Failure))
 -> UnsuccessfulOperationError -> f UnsuccessfulOperationError)
-> ((Maybe Failure -> f (Maybe Failure))
    -> Maybe Failure -> f (Maybe Failure))
-> (Maybe Failure -> f (Maybe Failure))
-> UnsuccessfulOperationError
-> f UnsuccessfulOperationError
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UnsuccessfulOperationError -> Maybe Failure)
-> (UnsuccessfulOperationError
    -> Maybe Failure -> UnsuccessfulOperationError)
-> Lens
     UnsuccessfulOperationError
     UnsuccessfulOperationError
     (Maybe Failure)
     (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UnsuccessfulOperationError -> Maybe Failure
_UnsuccessfulOperationError'failure
           (\ UnsuccessfulOperationError
x__ Maybe Failure
y__ -> UnsuccessfulOperationError
x__ {_UnsuccessfulOperationError'failure = y__}))
        (Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UnsuccessfulOperationError where
  messageName :: Proxy UnsuccessfulOperationError -> Text
messageName Proxy UnsuccessfulOperationError
_
    = String -> Text
Data.Text.pack String
"temporal.api.nexus.v1.UnsuccessfulOperationError"
  packedMessageDescriptor :: Proxy UnsuccessfulOperationError -> ByteString
packedMessageDescriptor Proxy UnsuccessfulOperationError
_
    = ByteString
"\n\
      \\SUBUnsuccessfulOperationError\DC2'\n\
      \\SIoperation_state\CAN\SOH \SOH(\tR\SOoperationState\DC28\n\
      \\afailure\CAN\STX \SOH(\v2\RS.temporal.api.nexus.v1.FailureR\afailure"
  packedFileDescriptor :: Proxy UnsuccessfulOperationError -> ByteString
packedFileDescriptor Proxy UnsuccessfulOperationError
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor UnsuccessfulOperationError)
fieldsByTag
    = let
        operationState__field_descriptor :: FieldDescriptor UnsuccessfulOperationError
operationState__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor UnsuccessfulOperationError Text
-> FieldDescriptor UnsuccessfulOperationError
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"operation_state"
              (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
     UnsuccessfulOperationError UnsuccessfulOperationError Text Text
-> FieldAccessor UnsuccessfulOperationError 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 @"operationState")) ::
              Data.ProtoLens.FieldDescriptor UnsuccessfulOperationError
        failure__field_descriptor :: FieldDescriptor UnsuccessfulOperationError
failure__field_descriptor
          = String
-> FieldTypeDescriptor Failure
-> FieldAccessor UnsuccessfulOperationError Failure
-> FieldDescriptor UnsuccessfulOperationError
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 Failure)
              (Lens
  UnsuccessfulOperationError
  UnsuccessfulOperationError
  (Maybe Failure)
  (Maybe Failure)
-> FieldAccessor UnsuccessfulOperationError 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 UnsuccessfulOperationError
      in
        [(Tag, FieldDescriptor UnsuccessfulOperationError)]
-> Map Tag (FieldDescriptor UnsuccessfulOperationError)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor UnsuccessfulOperationError
operationState__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor UnsuccessfulOperationError
failure__field_descriptor)]
  unknownFields :: Lens' UnsuccessfulOperationError FieldSet
unknownFields
    = (UnsuccessfulOperationError -> FieldSet)
-> (UnsuccessfulOperationError
    -> FieldSet -> UnsuccessfulOperationError)
-> Lens' UnsuccessfulOperationError FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UnsuccessfulOperationError -> FieldSet
_UnsuccessfulOperationError'_unknownFields
        (\ UnsuccessfulOperationError
x__ FieldSet
y__
           -> UnsuccessfulOperationError
x__ {_UnsuccessfulOperationError'_unknownFields = y__})
  defMessage :: UnsuccessfulOperationError
defMessage
    = UnsuccessfulOperationError'_constructor
        {_UnsuccessfulOperationError'operationState :: Text
_UnsuccessfulOperationError'operationState = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _UnsuccessfulOperationError'failure :: Maybe Failure
_UnsuccessfulOperationError'failure = Maybe Failure
forall a. Maybe a
Prelude.Nothing,
         _UnsuccessfulOperationError'_unknownFields :: FieldSet
_UnsuccessfulOperationError'_unknownFields = []}
  parseMessage :: Parser UnsuccessfulOperationError
parseMessage
    = let
        loop ::
          UnsuccessfulOperationError
          -> Data.ProtoLens.Encoding.Bytes.Parser UnsuccessfulOperationError
        loop :: UnsuccessfulOperationError -> Parser UnsuccessfulOperationError
loop UnsuccessfulOperationError
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
"operation_state"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"operationState") 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 UnsuccessfulOperationError
-> String -> Parser UnsuccessfulOperationError
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do UnsuccessfulOperationError -> Parser UnsuccessfulOperationError
loop UnsuccessfulOperationError
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"UnsuccessfulOperationError"
  buildMessage :: UnsuccessfulOperationError -> Builder
buildMessage
    = \ UnsuccessfulOperationError
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text
  UnsuccessfulOperationError
  UnsuccessfulOperationError
  Text
  Text
-> UnsuccessfulOperationError -> 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 @"operationState") UnsuccessfulOperationError
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Failure)
  UnsuccessfulOperationError
  UnsuccessfulOperationError
  (Maybe Failure)
  (Maybe Failure)
-> UnsuccessfulOperationError -> 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") UnsuccessfulOperationError
_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
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
  UnsuccessfulOperationError
  UnsuccessfulOperationError
  FieldSet
  FieldSet
-> UnsuccessfulOperationError -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  UnsuccessfulOperationError
  UnsuccessfulOperationError
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UnsuccessfulOperationError FieldSet
Data.ProtoLens.unknownFields UnsuccessfulOperationError
_x)))
instance Control.DeepSeq.NFData UnsuccessfulOperationError where
  rnf :: UnsuccessfulOperationError -> ()
rnf
    = \ UnsuccessfulOperationError
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UnsuccessfulOperationError -> FieldSet
_UnsuccessfulOperationError'_unknownFields UnsuccessfulOperationError
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (UnsuccessfulOperationError -> Text
_UnsuccessfulOperationError'operationState UnsuccessfulOperationError
x__)
                (Maybe Failure -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (UnsuccessfulOperationError -> Maybe Failure
_UnsuccessfulOperationError'failure UnsuccessfulOperationError
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \#temporal/api/nexus/v1/message.proto\DC2\NAKtemporal.api.nexus.v1\SUB\USgoogle/protobuf/timestamp.proto\SUB$temporal/api/common/v1/message.proto\"\196\SOH\n\
    \\aFailure\DC2\CAN\n\
    \\amessage\CAN\SOH \SOH(\tR\amessage\DC2H\n\
    \\bmetadata\CAN\STX \ETX(\v2,.temporal.api.nexus.v1.Failure.MetadataEntryR\bmetadata\DC2\CAN\n\
    \\adetails\CAN\ETX \SOH(\fR\adetails\SUB;\n\
    \\rMetadataEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\"g\n\
    \\fHandlerError\DC2\GS\n\
    \\n\
    \error_type\CAN\SOH \SOH(\tR\terrorType\DC28\n\
    \\afailure\CAN\STX \SOH(\v2\RS.temporal.api.nexus.v1.FailureR\afailure\"\DEL\n\
    \\SUBUnsuccessfulOperationError\DC2'\n\
    \\SIoperation_state\CAN\SOH \SOH(\tR\SOoperationState\DC28\n\
    \\afailure\CAN\STX \SOH(\v2\RS.temporal.api.nexus.v1.FailureR\afailure\"\243\STX\n\
    \\NAKStartOperationRequest\DC2\CAN\n\
    \\aservice\CAN\SOH \SOH(\tR\aservice\DC2\FS\n\
    \\toperation\CAN\STX \SOH(\tR\toperation\DC2\GS\n\
    \\n\
    \request_id\CAN\ETX \SOH(\tR\trequestId\DC2\SUB\n\
    \\bcallback\CAN\EOT \SOH(\tR\bcallback\DC29\n\
    \\apayload\CAN\ENQ \SOH(\v2\US.temporal.api.common.v1.PayloadR\apayload\DC2i\n\
    \\SIcallback_header\CAN\ACK \ETX(\v2@.temporal.api.nexus.v1.StartOperationRequest.CallbackHeaderEntryR\SOcallbackHeader\SUBA\n\
    \\DC3CallbackHeaderEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\"s\n\
    \\SYNCancelOperationRequest\DC2\CAN\n\
    \\aservice\CAN\SOH \SOH(\tR\aservice\DC2\FS\n\
    \\toperation\CAN\STX \SOH(\tR\toperation\DC2!\n\
    \\foperation_id\CAN\ETX \SOH(\tR\voperationId\"\139\ETX\n\
    \\aRequest\DC2B\n\
    \\ACKheader\CAN\SOH \ETX(\v2*.temporal.api.nexus.v1.Request.HeaderEntryR\ACKheader\DC2A\n\
    \\SOscheduled_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\rscheduledTime\DC2W\n\
    \\SIstart_operation\CAN\ETX \SOH(\v2,.temporal.api.nexus.v1.StartOperationRequestH\NULR\SOstartOperation\DC2Z\n\
    \\DLEcancel_operation\CAN\EOT \SOH(\v2-.temporal.api.nexus.v1.CancelOperationRequestH\NULR\SIcancelOperation\SUB9\n\
    \\vHeaderEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHB\t\n\
    \\avariant\"\165\ETX\n\
    \\SYNStartOperationResponse\DC2W\n\
    \\fsync_success\CAN\SOH \SOH(\v22.temporal.api.nexus.v1.StartOperationResponse.SyncH\NULR\vsyncSuccess\DC2Z\n\
    \\rasync_success\CAN\STX \SOH(\v23.temporal.api.nexus.v1.StartOperationResponse.AsyncH\NULR\fasyncSuccess\DC2\\\n\
    \\SIoperation_error\CAN\ETX \SOH(\v21.temporal.api.nexus.v1.UnsuccessfulOperationErrorH\NULR\SOoperationError\SUBA\n\
    \\EOTSync\DC29\n\
    \\apayload\CAN\SOH \SOH(\v2\US.temporal.api.common.v1.PayloadR\apayload\SUB*\n\
    \\ENQAsync\DC2!\n\
    \\foperation_id\CAN\SOH \SOH(\tR\voperationIdB\t\n\
    \\avariant\"\EM\n\
    \\ETBCancelOperationResponse\"\204\SOH\n\
    \\bResponse\DC2X\n\
    \\SIstart_operation\CAN\SOH \SOH(\v2-.temporal.api.nexus.v1.StartOperationResponseH\NULR\SOstartOperation\DC2[\n\
    \\DLEcancel_operation\CAN\STX \SOH(\v2..temporal.api.nexus.v1.CancelOperationResponseH\NULR\SIcancelOperationB\t\n\
    \\avariant\"\149\STX\n\
    \\bEndpoint\DC2\CAN\n\
    \\aversion\CAN\SOH \SOH(\ETXR\aversion\DC2\SO\n\
    \\STXid\CAN\STX \SOH(\tR\STXid\DC27\n\
    \\EOTspec\CAN\ETX \SOH(\v2#.temporal.api.nexus.v1.EndpointSpecR\EOTspec\DC2=\n\
    \\fcreated_time\CAN\EOT \SOH(\v2\SUB.google.protobuf.TimestampR\vcreatedTime\DC2H\n\
    \\DC2last_modified_time\CAN\ENQ \SOH(\v2\SUB.google.protobuf.TimestampR\DLElastModifiedTime\DC2\GS\n\
    \\n\
    \url_prefix\CAN\ACK \SOH(\tR\turlPrefix\"\164\SOH\n\
    \\fEndpointSpec\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2A\n\
    \\vdescription\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\vdescription\DC2=\n\
    \\ACKtarget\CAN\ETX \SOH(\v2%.temporal.api.nexus.v1.EndpointTargetR\ACKtarget\"\150\STX\n\
    \\SOEndpointTarget\DC2F\n\
    \\ACKworker\CAN\SOH \SOH(\v2,.temporal.api.nexus.v1.EndpointTarget.WorkerH\NULR\ACKworker\DC2L\n\
    \\bexternal\CAN\STX \SOH(\v2..temporal.api.nexus.v1.EndpointTarget.ExternalH\NULR\bexternal\SUBE\n\
    \\ACKWorker\DC2\FS\n\
    \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2\GS\n\
    \\n\
    \task_queue\CAN\STX \SOH(\tR\ttaskQueue\SUB\FS\n\
    \\bExternal\DC2\DLE\n\
    \\ETXurl\CAN\SOH \SOH(\tR\ETXurlB\t\n\
    \\avariantB\132\SOH\n\
    \\CANio.temporal.api.nexus.v1B\fMessageProtoP\SOHZ!go.temporal.io/api/nexus/v1;nexus\170\STX\ETBTemporalio.Api.Nexus.V1\234\STX\SUBTemporalio::Api::Nexus::V1J\224\&9\n\
    \\a\DC2\ENQ\DC4\NUL\192\SOH\SOH\n\
    \\211\a\n\
    \\SOH\f\DC2\ETX\DC4\NUL\DC22\200\a The MIT License\n\
    \\n\
    \ Copyright (c) 2023 Temporal Technologies Inc. All rights reserved.\n\
    \\n\
    \ Permission is hereby granted, free of charge, to any person obtaining a copy\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\SYN\NUL\RS\n\
    \\b\n\
    \\SOH\b\DC2\ETX\CAN\NUL8\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\CAN\NUL8\n\
    \\b\n\
    \\SOH\b\DC2\ETX\EM\NUL1\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\EM\NUL1\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SUB\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\SUB\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ESC\NUL-\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\ESC\NUL-\n\
    \\b\n\
    \\SOH\b\DC2\ETX\FS\NUL3\n\
    \\t\n\
    \\STX\b-\DC2\ETX\FS\NUL3\n\
    \\b\n\
    \\SOH\b\DC2\ETX\GS\NUL4\n\
    \\t\n\
    \\STX\b%\DC2\ETX\GS\NUL4\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\US\NUL)\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX \NUL.\n\
    \q\n\
    \\STX\EOT\NUL\DC2\EOT$\NUL(\SOH\SUBe A general purpose failure message.\n\
    \ See: https://github.com/nexus-rpc/api/blob/main/SPEC.md#failure\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX$\b\SI\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX%\EOT\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX%\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX%\v\DC2\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX%\NAK\SYN\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX&\EOT%\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX&\EOT\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX&\CAN \n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX&#$\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX'\EOT\SYN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX'\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX'\n\
    \\DC1\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX'\DC4\NAK\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT*\NUL.\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX*\b\DC4\n\
    \`\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX,\EOT\SUB\SUBS See https://github.com/nexus-rpc/api/blob/main/SPEC.md#predefined-handler-errors.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX,\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX,\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX,\CAN\EM\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX-\EOT\CAN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX-\EOT\v\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX-\f\DC3\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX-\SYN\ETB\n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOT0\NUL4\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX0\b\"\n\
    \T\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX2\EOT\US\SUBG See https://github.com/nexus-rpc/api/blob/main/SPEC.md#operationinfo.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX2\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX2\v\SUB\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX2\GS\RS\n\
    \\v\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETX3\EOT\CAN\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX3\EOT\v\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX3\f\DC3\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX3\SYN\ETB\n\
    \.\n\
    \\STX\EOT\ETX\DC2\EOT7\NULD\SOH\SUB\" A request to start an operation.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX7\b\GS\n\
    \9\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX9\EOT\ETB\SUB, Name of service to start the operation in.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX9\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX9\v\DC2\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX9\NAK\SYN\n\
    \*\n\
    \\EOT\EOT\ETX\STX\SOH\DC2\ETX;\EOT\EM\SUB\GS Type of operation to start.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX;\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX;\v\DC4\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX;\ETB\CAN\n\
    \F\n\
    \\EOT\EOT\ETX\STX\STX\DC2\ETX=\EOT\SUB\SUB9 A request ID that can be used as an idempotentency key.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX=\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX=\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX=\CAN\EM\n\
    \V\n\
    \\EOT\EOT\ETX\STX\ETX\DC2\ETX?\EOT\CAN\SUBI Callback URL to call upon completion if the started operation is async.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\ETX\ENQ\DC2\ETX?\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\ETX\SOH\DC2\ETX?\v\DC3\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\ETX\ETX\DC2\ETX?\SYN\ETB\n\
    \@\n\
    \\EOT\EOT\ETX\STX\EOT\DC2\ETXA\EOT/\SUB3 Full request body from the incoming HTTP request.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\EOT\ACK\DC2\ETXA\EOT\"\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\EOT\SOH\DC2\ETXA#*\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\EOT\ETX\DC2\ETXA-.\n\
    \k\n\
    \\EOT\EOT\ETX\STX\ENQ\DC2\ETXC\EOT,\SUB^ Header that is expected to be attached to the callback request when the operation completes.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\ENQ\ACK\DC2\ETXC\EOT\ETB\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\ENQ\SOH\DC2\ETXC\CAN'\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\ENQ\ETX\DC2\ETXC*+\n\
    \/\n\
    \\STX\EOT\EOT\DC2\EOTG\NULN\SOH\SUB# A request to cancel an operation.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\EOT\SOH\DC2\ETXG\b\RS\n\
    \\FS\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\ETXI\EOT\ETB\SUB\SI Service name.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETXI\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXI\v\DC2\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXI\NAK\SYN\n\
    \+\n\
    \\EOT\EOT\EOT\STX\SOH\DC2\ETXK\EOT\EM\SUB\RS Type of operation to cancel.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\ETXK\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETXK\v\DC4\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETXK\ETB\CAN\n\
    \A\n\
    \\EOT\EOT\EOT\STX\STX\DC2\ETXM\EOT\FS\SUB4 Operation ID as originally generated by a Handler.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\STX\ENQ\DC2\ETXM\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\STX\SOH\DC2\ETXM\v\ETB\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\STX\ETX\DC2\ETXM\SUB\ESC\n\
    \\RS\n\
    \\STX\EOT\ENQ\DC2\EOTQ\NUL_\SOH\SUB\DC2 A Nexus request.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETXQ\b\SI\n\
    \\181\SOH\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\ETXT\EOT#\SUB\167\SOH Headers extracted from the original request in the Temporal frontend.\n\
    \ When using Nexus over HTTP, this includes the request's HTTP headers ignoring multiple values.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETXT\EOT\ETB\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXT\CAN\RS\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXT!\"\n\
    \\192\SOH\n\
    \\EOT\EOT\ENQ\STX\SOH\DC2\ETXY\EOT1\SUB\178\SOH The timestamp when the request was scheduled in the frontend.\n\
    \ (-- api-linter: core::0142::time-field-names=disabled\n\
    \     aip.dev/not-precedent: Not following linter rules. --)\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETXY\EOT\GS\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETXY\RS,\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETXY/0\n\
    \\f\n\
    \\EOT\EOT\ENQ\b\NUL\DC2\EOT[\EOT^\ENQ\n\
    \\f\n\
    \\ENQ\EOT\ENQ\b\NUL\SOH\DC2\ETX[\n\
    \\DC1\n\
    \\v\n\
    \\EOT\EOT\ENQ\STX\STX\DC2\ETX\\\b2\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\ACK\DC2\ETX\\\b\GS\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETX\\\RS-\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETX\\01\n\
    \\v\n\
    \\EOT\EOT\ENQ\STX\ETX\DC2\ETX]\b4\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\ETX\ACK\DC2\ETX]\b\RS\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\ETX\SOH\DC2\ETX]\US/\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\ETX\ETX\DC2\ETX]23\n\
    \9\n\
    \\STX\EOT\ACK\DC2\EOTb\NULt\SOH\SUB- Response variant for StartOperationRequest.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETXb\b\RS\n\
    \4\n\
    \\EOT\EOT\ACK\ETX\NUL\DC2\EOTd\EOTf\ENQ\SUB& An operation completed successfully.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\ETX\NUL\SOH\DC2\ETXd\f\DLE\n\
    \\r\n\
    \\ACK\EOT\ACK\ETX\NUL\STX\NUL\DC2\ETXe\b3\n\
    \\SO\n\
    \\a\EOT\ACK\ETX\NUL\STX\NUL\ACK\DC2\ETXe\b&\n\
    \\SO\n\
    \\a\EOT\ACK\ETX\NUL\STX\NUL\SOH\DC2\ETXe'.\n\
    \\SO\n\
    \\a\EOT\ACK\ETX\NUL\STX\NUL\ETX\DC2\ETXe12\n\
    \u\n\
    \\EOT\EOT\ACK\ETX\SOH\DC2\EOTj\EOTl\ENQ\SUBg The operation will complete asynchronously.\n\
    \ The returned ID can be used to reference this operation.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\ETX\SOH\SOH\DC2\ETXj\f\DC1\n\
    \\r\n\
    \\ACK\EOT\ACK\ETX\SOH\STX\NUL\DC2\ETXk\b \n\
    \\SO\n\
    \\a\EOT\ACK\ETX\SOH\STX\NUL\ENQ\DC2\ETXk\b\SO\n\
    \\SO\n\
    \\a\EOT\ACK\ETX\SOH\STX\NUL\SOH\DC2\ETXk\SI\ESC\n\
    \\SO\n\
    \\a\EOT\ACK\ETX\SOH\STX\NUL\ETX\DC2\ETXk\RS\US\n\
    \\f\n\
    \\EOT\EOT\ACK\b\NUL\DC2\EOTn\EOTs\ENQ\n\
    \\f\n\
    \\ENQ\EOT\ACK\b\NUL\SOH\DC2\ETXn\n\
    \\DC1\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETXo\b\RS\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETXo\b\f\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXo\r\EM\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXo\FS\GS\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\SOH\DC2\ETXp\b \n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETXp\b\r\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETXp\SO\ESC\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETXp\RS\US\n\
    \K\n\
    \\EOT\EOT\ACK\STX\STX\DC2\ETXr\b7\SUB> The operation completed unsuccessfully (failed or canceled).\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ACK\DC2\ETXr\b\"\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETXr#2\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETXr56\n\
    \:\n\
    \\STX\EOT\a\DC2\EOTw\NULx\SOH\SUB. Response variant for CancelOperationRequest.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\a\SOH\DC2\ETXw\b\US\n\
    \[\n\
    \\STX\EOT\b\DC2\ENQ{\NUL\129\SOH\SOH\SUBN A response indicating that the handler has successfully processed a request.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\b\SOH\DC2\ETX{\b\DLE\n\
    \O\n\
    \\EOT\EOT\b\b\NUL\DC2\ENQ}\EOT\128\SOH\ENQ\SUB@ Variant must correlate to the corresponding Request's variant.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\b\NUL\SOH\DC2\ETX}\n\
    \\DC1\n\
    \\v\n\
    \\EOT\EOT\b\STX\NUL\DC2\ETX~\b3\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETX~\b\RS\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETX~\US.\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETX~12\n\
    \\v\n\
    \\EOT\EOT\b\STX\SOH\DC2\ETX\DEL\b5\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ACK\DC2\ETX\DEL\b\US\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETX\DEL 0\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETX\DEL34\n\
    \q\n\
    \\STX\EOT\t\DC2\ACK\132\SOH\NUL\155\SOH\SOH\SUBc A cluster-global binding from an endpoint ID to a target for dispatching incoming Nexus requests.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\t\SOH\DC2\EOT\132\SOH\b\DLE\n\
    \t\n\
    \\EOT\EOT\t\STX\NUL\DC2\EOT\134\SOH\EOT\SYN\SUBf Data version for this endpoint, incremented for every update issued via the UpdateNexusEndpoint API.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\NUL\ENQ\DC2\EOT\134\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\t\STX\NUL\SOH\DC2\EOT\134\SOH\n\
    \\DC1\n\
    \\r\n\
    \\ENQ\EOT\t\STX\NUL\ETX\DC2\EOT\134\SOH\DC4\NAK\n\
    \4\n\
    \\EOT\EOT\t\STX\SOH\DC2\EOT\136\SOH\EOT\DC2\SUB& Unique server-generated endpoint ID.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\SOH\ENQ\DC2\EOT\136\SOH\EOT\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\SOH\SOH\DC2\EOT\136\SOH\v\r\n\
    \\r\n\
    \\ENQ\EOT\t\STX\SOH\ETX\DC2\EOT\136\SOH\DLE\DC1\n\
    \&\n\
    \\EOT\EOT\t\STX\STX\DC2\EOT\138\SOH\EOT\SUB\SUB\CAN Spec for the endpoint.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\STX\ACK\DC2\EOT\138\SOH\EOT\DLE\n\
    \\r\n\
    \\ENQ\EOT\t\STX\STX\SOH\DC2\EOT\138\SOH\DC1\NAK\n\
    \\r\n\
    \\ENQ\EOT\t\STX\STX\ETX\DC2\EOT\138\SOH\CAN\EM\n\
    \\180\SOH\n\
    \\EOT\EOT\t\STX\ETX\DC2\EOT\143\SOH\EOT/\SUB\165\SOH The date and time when the endpoint was created.\n\
    \ (-- api-linter: core::0142::time-field-names=disabled\n\
    \     aip.dev/not-precedent: Not following linter rules. --)\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ETX\ACK\DC2\EOT\143\SOH\EOT\GS\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ETX\SOH\DC2\EOT\143\SOH\RS*\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ETX\ETX\DC2\EOT\143\SOH-.\n\
    \\244\SOH\n\
    \\EOT\EOT\t\STX\EOT\DC2\EOT\149\SOH\EOT5\SUB\229\SOH The date and time when the endpoint was last modified.\n\
    \ Will not be set if the endpoint has never been modified.\n\
    \ (-- api-linter: core::0142::time-field-names=disabled\n\
    \     aip.dev/not-precedent: Not following linter rules. --)\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\EOT\ACK\DC2\EOT\149\SOH\EOT\GS\n\
    \\r\n\
    \\ENQ\EOT\t\STX\EOT\SOH\DC2\EOT\149\SOH\RS0\n\
    \\r\n\
    \\ENQ\EOT\t\STX\EOT\ETX\DC2\EOT\149\SOH34\n\
    \\130\STX\n\
    \\EOT\EOT\t\STX\ENQ\DC2\EOT\154\SOH\EOT\SUB\SUB\243\SOH Server exposed URL prefix for invocation of operations on this endpoint.\n\
    \ This doesn't include the protocol, hostname or port as the server does not know how it should be accessed\n\
    \ publicly. The URL is stable in the face of endpoint renames.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ENQ\ENQ\DC2\EOT\154\SOH\EOT\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ENQ\SOH\DC2\EOT\154\SOH\v\NAK\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ENQ\ETX\DC2\EOT\154\SOH\CAN\EM\n\
    \8\n\
    \\STX\EOT\n\
    \\DC2\ACK\158\SOH\NUL\168\SOH\SOH\SUB* Contains mutable fields for an Endpoint.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\n\
    \\SOH\DC2\EOT\158\SOH\b\DC4\n\
    \\201\SOH\n\
    \\EOT\EOT\n\
    \\STX\NUL\DC2\EOT\161\SOH\EOT\DC4\SUB\186\SOH Endpoint name, unique for this cluster. Must match `[a-zA-Z_][a-zA-Z0-9_]*`.\n\
    \ Renaming an endpoint breaks all workflow callers that reference this endpoint, causing operations to fail.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ENQ\DC2\EOT\161\SOH\EOT\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\NUL\SOH\DC2\EOT\161\SOH\v\SI\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ETX\DC2\EOT\161\SOH\DC2\DC3\n\
    \\173\SOH\n\
    \\EOT\EOT\n\
    \\STX\SOH\DC2\EOT\164\SOH\EOT3\SUB\158\SOH Markdown description serialized as a single JSON string.\n\
    \ If the Payload is encrypted, the UI and CLI may decrypt with the configured codec server endpoint.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\SOH\ACK\DC2\EOT\164\SOH\EOT\"\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\SOH\SOH\DC2\EOT\164\SOH#.\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\SOH\ETX\DC2\EOT\164\SOH12\n\
    \,\n\
    \\EOT\EOT\n\
    \\STX\STX\DC2\EOT\167\SOH\EOT\RS\SUB\RS Target to route requests to.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\STX\ACK\DC2\EOT\167\SOH\EOT\DC2\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\STX\SOH\DC2\EOT\167\SOH\DC3\EM\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\STX\ETX\DC2\EOT\167\SOH\FS\GS\n\
    \,\n\
    \\STX\EOT\v\DC2\ACK\171\SOH\NUL\192\SOH\SOH\SUB\RS Target to route requests to.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\v\SOH\DC2\EOT\171\SOH\b\SYN\n\
    \X\n\
    \\EOT\EOT\v\ETX\NUL\DC2\ACK\173\SOH\EOT\178\SOH\ENQ\SUBH Target a worker polling on a Nexus task queue in a specific namespace.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\ETX\NUL\SOH\DC2\EOT\173\SOH\f\DC2\n\
    \1\n\
    \\ACK\EOT\v\ETX\NUL\STX\NUL\DC2\EOT\175\SOH\b\GS\SUB! Namespace to route requests to.\n\
    \\n\
    \\SI\n\
    \\a\EOT\v\ETX\NUL\STX\NUL\ENQ\DC2\EOT\175\SOH\b\SO\n\
    \\SI\n\
    \\a\EOT\v\ETX\NUL\STX\NUL\SOH\DC2\EOT\175\SOH\SI\CAN\n\
    \\SI\n\
    \\a\EOT\v\ETX\NUL\STX\NUL\ETX\DC2\EOT\175\SOH\ESC\FS\n\
    \8\n\
    \\ACK\EOT\v\ETX\NUL\STX\SOH\DC2\EOT\177\SOH\b\RS\SUB( Nexus task queue to route requests to.\n\
    \\n\
    \\SI\n\
    \\a\EOT\v\ETX\NUL\STX\SOH\ENQ\DC2\EOT\177\SOH\b\SO\n\
    \\SI\n\
    \\a\EOT\v\ETX\NUL\STX\SOH\SOH\DC2\EOT\177\SOH\SI\EM\n\
    \\SI\n\
    \\a\EOT\v\ETX\NUL\STX\SOH\ETX\DC2\EOT\177\SOH\FS\GS\n\
    \\206\SOH\n\
    \\EOT\EOT\v\ETX\SOH\DC2\ACK\183\SOH\EOT\186\SOH\ENQ\SUB\189\SOH Target an external server by URL.\n\
    \ At a later point, this will support providing credentials, in the meantime, an http.RoundTripper can be injected\n\
    \ into the server to modify the request.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\ETX\SOH\SOH\DC2\EOT\183\SOH\f\DC4\n\
    \\RS\n\
    \\ACK\EOT\v\ETX\SOH\STX\NUL\DC2\EOT\185\SOH\b\ETB\SUB\SO URL to call.\n\
    \\n\
    \\SI\n\
    \\a\EOT\v\ETX\SOH\STX\NUL\ENQ\DC2\EOT\185\SOH\b\SO\n\
    \\SI\n\
    \\a\EOT\v\ETX\SOH\STX\NUL\SOH\DC2\EOT\185\SOH\SI\DC2\n\
    \\SI\n\
    \\a\EOT\v\ETX\SOH\STX\NUL\ETX\DC2\EOT\185\SOH\NAK\SYN\n\
    \\SO\n\
    \\EOT\EOT\v\b\NUL\DC2\ACK\188\SOH\EOT\191\SOH\ENQ\n\
    \\r\n\
    \\ENQ\EOT\v\b\NUL\SOH\DC2\EOT\188\SOH\n\
    \\DC1\n\
    \\f\n\
    \\EOT\EOT\v\STX\NUL\DC2\EOT\189\SOH\b\SUB\n\
    \\r\n\
    \\ENQ\EOT\v\STX\NUL\ACK\DC2\EOT\189\SOH\b\SO\n\
    \\r\n\
    \\ENQ\EOT\v\STX\NUL\SOH\DC2\EOT\189\SOH\SI\NAK\n\
    \\r\n\
    \\ENQ\EOT\v\STX\NUL\ETX\DC2\EOT\189\SOH\CAN\EM\n\
    \\f\n\
    \\EOT\EOT\v\STX\SOH\DC2\EOT\190\SOH\b\RS\n\
    \\r\n\
    \\ENQ\EOT\v\STX\SOH\ACK\DC2\EOT\190\SOH\b\DLE\n\
    \\r\n\
    \\ENQ\EOT\v\STX\SOH\SOH\DC2\EOT\190\SOH\DC1\EM\n\
    \\r\n\
    \\ENQ\EOT\v\STX\SOH\ETX\DC2\EOT\190\SOH\FS\GSb\ACKproto3"