{- This file was auto-generated from temporal/api/errordetails/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.Errordetails.V1.Message (
        CancellationAlreadyRequestedFailure(),
        ClientVersionNotSupportedFailure(),
        MultiOperationExecutionFailure(),
        MultiOperationExecutionFailure'OperationStatus(),
        NamespaceAlreadyExistsFailure(), NamespaceInvalidStateFailure(),
        NamespaceNotActiveFailure(), NamespaceNotFoundFailure(),
        NewerBuildExistsFailure(), NotFoundFailure(),
        PermissionDeniedFailure(), QueryFailedFailure(),
        ResourceExhaustedFailure(), ServerVersionNotSupportedFailure(),
        SystemWorkflowFailure(), WorkflowExecutionAlreadyStartedFailure(),
        WorkflowNotReadyFailure()
    ) 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.Any
import qualified Proto.Temporal.Api.Common.V1.Message
import qualified Proto.Temporal.Api.Enums.V1.FailedCause
import qualified Proto.Temporal.Api.Enums.V1.Namespace
{- | Fields :
      -}
data CancellationAlreadyRequestedFailure
  = CancellationAlreadyRequestedFailure'_constructor {CancellationAlreadyRequestedFailure -> FieldSet
_CancellationAlreadyRequestedFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
(CancellationAlreadyRequestedFailure
 -> CancellationAlreadyRequestedFailure -> Bool)
-> (CancellationAlreadyRequestedFailure
    -> CancellationAlreadyRequestedFailure -> Bool)
-> Eq CancellationAlreadyRequestedFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
== :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
$c/= :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
/= :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
Prelude.Eq, Eq CancellationAlreadyRequestedFailure
Eq CancellationAlreadyRequestedFailure =>
(CancellationAlreadyRequestedFailure
 -> CancellationAlreadyRequestedFailure -> Ordering)
-> (CancellationAlreadyRequestedFailure
    -> CancellationAlreadyRequestedFailure -> Bool)
-> (CancellationAlreadyRequestedFailure
    -> CancellationAlreadyRequestedFailure -> Bool)
-> (CancellationAlreadyRequestedFailure
    -> CancellationAlreadyRequestedFailure -> Bool)
-> (CancellationAlreadyRequestedFailure
    -> CancellationAlreadyRequestedFailure -> Bool)
-> (CancellationAlreadyRequestedFailure
    -> CancellationAlreadyRequestedFailure
    -> CancellationAlreadyRequestedFailure)
-> (CancellationAlreadyRequestedFailure
    -> CancellationAlreadyRequestedFailure
    -> CancellationAlreadyRequestedFailure)
-> Ord CancellationAlreadyRequestedFailure
CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Ordering
CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure
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 :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Ordering
compare :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Ordering
$c< :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
< :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
$c<= :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
<= :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
$c> :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
> :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
$c>= :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
>= :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure -> Bool
$cmax :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure
max :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure
$cmin :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure
min :: CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure
-> CancellationAlreadyRequestedFailure
Prelude.Ord)
instance Prelude.Show CancellationAlreadyRequestedFailure where
  showsPrec :: Int -> CancellationAlreadyRequestedFailure -> ShowS
showsPrec Int
_ CancellationAlreadyRequestedFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CancellationAlreadyRequestedFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CancellationAlreadyRequestedFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message CancellationAlreadyRequestedFailure where
  messageName :: Proxy CancellationAlreadyRequestedFailure -> Text
messageName Proxy CancellationAlreadyRequestedFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.CancellationAlreadyRequestedFailure"
  packedMessageDescriptor :: Proxy CancellationAlreadyRequestedFailure -> ByteString
packedMessageDescriptor Proxy CancellationAlreadyRequestedFailure
_
    = ByteString
"\n\
      \#CancellationAlreadyRequestedFailure"
  packedFileDescriptor :: Proxy CancellationAlreadyRequestedFailure -> ByteString
packedFileDescriptor Proxy CancellationAlreadyRequestedFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CancellationAlreadyRequestedFailure)
fieldsByTag = let in [(Tag, FieldDescriptor CancellationAlreadyRequestedFailure)]
-> Map Tag (FieldDescriptor CancellationAlreadyRequestedFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' CancellationAlreadyRequestedFailure FieldSet
unknownFields
    = (CancellationAlreadyRequestedFailure -> FieldSet)
-> (CancellationAlreadyRequestedFailure
    -> FieldSet -> CancellationAlreadyRequestedFailure)
-> Lens' CancellationAlreadyRequestedFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CancellationAlreadyRequestedFailure -> FieldSet
_CancellationAlreadyRequestedFailure'_unknownFields
        (\ CancellationAlreadyRequestedFailure
x__ FieldSet
y__
           -> CancellationAlreadyRequestedFailure
x__ {_CancellationAlreadyRequestedFailure'_unknownFields = y__})
  defMessage :: CancellationAlreadyRequestedFailure
defMessage
    = CancellationAlreadyRequestedFailure'_constructor
        {_CancellationAlreadyRequestedFailure'_unknownFields :: FieldSet
_CancellationAlreadyRequestedFailure'_unknownFields = []}
  parseMessage :: Parser CancellationAlreadyRequestedFailure
parseMessage
    = let
        loop ::
          CancellationAlreadyRequestedFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser CancellationAlreadyRequestedFailure
        loop :: CancellationAlreadyRequestedFailure
-> Parser CancellationAlreadyRequestedFailure
loop CancellationAlreadyRequestedFailure
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 CancellationAlreadyRequestedFailure
-> String -> Parser CancellationAlreadyRequestedFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CancellationAlreadyRequestedFailure
-> Parser CancellationAlreadyRequestedFailure
loop CancellationAlreadyRequestedFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"CancellationAlreadyRequestedFailure"
  buildMessage :: CancellationAlreadyRequestedFailure -> Builder
buildMessage
    = \ CancellationAlreadyRequestedFailure
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  CancellationAlreadyRequestedFailure
  CancellationAlreadyRequestedFailure
  FieldSet
  FieldSet
-> CancellationAlreadyRequestedFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  CancellationAlreadyRequestedFailure
  CancellationAlreadyRequestedFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CancellationAlreadyRequestedFailure FieldSet
Data.ProtoLens.unknownFields CancellationAlreadyRequestedFailure
_x)
instance Control.DeepSeq.NFData CancellationAlreadyRequestedFailure where
  rnf :: CancellationAlreadyRequestedFailure -> ()
rnf
    = \ CancellationAlreadyRequestedFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CancellationAlreadyRequestedFailure -> FieldSet
_CancellationAlreadyRequestedFailure'_unknownFields CancellationAlreadyRequestedFailure
x__) ()
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.clientVersion' @:: Lens' ClientVersionNotSupportedFailure Data.Text.Text@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.clientName' @:: Lens' ClientVersionNotSupportedFailure Data.Text.Text@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.supportedVersions' @:: Lens' ClientVersionNotSupportedFailure Data.Text.Text@ -}
data ClientVersionNotSupportedFailure
  = ClientVersionNotSupportedFailure'_constructor {ClientVersionNotSupportedFailure -> Text
_ClientVersionNotSupportedFailure'clientVersion :: !Data.Text.Text,
                                                   ClientVersionNotSupportedFailure -> Text
_ClientVersionNotSupportedFailure'clientName :: !Data.Text.Text,
                                                   ClientVersionNotSupportedFailure -> Text
_ClientVersionNotSupportedFailure'supportedVersions :: !Data.Text.Text,
                                                   ClientVersionNotSupportedFailure -> FieldSet
_ClientVersionNotSupportedFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
(ClientVersionNotSupportedFailure
 -> ClientVersionNotSupportedFailure -> Bool)
-> (ClientVersionNotSupportedFailure
    -> ClientVersionNotSupportedFailure -> Bool)
-> Eq ClientVersionNotSupportedFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
== :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
$c/= :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
/= :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
Prelude.Eq, Eq ClientVersionNotSupportedFailure
Eq ClientVersionNotSupportedFailure =>
(ClientVersionNotSupportedFailure
 -> ClientVersionNotSupportedFailure -> Ordering)
-> (ClientVersionNotSupportedFailure
    -> ClientVersionNotSupportedFailure -> Bool)
-> (ClientVersionNotSupportedFailure
    -> ClientVersionNotSupportedFailure -> Bool)
-> (ClientVersionNotSupportedFailure
    -> ClientVersionNotSupportedFailure -> Bool)
-> (ClientVersionNotSupportedFailure
    -> ClientVersionNotSupportedFailure -> Bool)
-> (ClientVersionNotSupportedFailure
    -> ClientVersionNotSupportedFailure
    -> ClientVersionNotSupportedFailure)
-> (ClientVersionNotSupportedFailure
    -> ClientVersionNotSupportedFailure
    -> ClientVersionNotSupportedFailure)
-> Ord ClientVersionNotSupportedFailure
ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Ordering
ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure
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 :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Ordering
compare :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Ordering
$c< :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
< :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
$c<= :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
<= :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
$c> :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
> :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
$c>= :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
>= :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure -> Bool
$cmax :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure
max :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure
$cmin :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure
min :: ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure
-> ClientVersionNotSupportedFailure
Prelude.Ord)
instance Prelude.Show ClientVersionNotSupportedFailure where
  showsPrec :: Int -> ClientVersionNotSupportedFailure -> ShowS
showsPrec Int
_ ClientVersionNotSupportedFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ClientVersionNotSupportedFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ClientVersionNotSupportedFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ClientVersionNotSupportedFailure "clientVersion" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "clientVersion"
-> (Text -> f Text)
-> ClientVersionNotSupportedFailure
-> f ClientVersionNotSupportedFailure
fieldOf Proxy# "clientVersion"
_
    = ((Text -> f Text)
 -> ClientVersionNotSupportedFailure
 -> f ClientVersionNotSupportedFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ClientVersionNotSupportedFailure
-> f ClientVersionNotSupportedFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClientVersionNotSupportedFailure -> Text)
-> (ClientVersionNotSupportedFailure
    -> Text -> ClientVersionNotSupportedFailure)
-> Lens
     ClientVersionNotSupportedFailure
     ClientVersionNotSupportedFailure
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClientVersionNotSupportedFailure -> Text
_ClientVersionNotSupportedFailure'clientVersion
           (\ ClientVersionNotSupportedFailure
x__ Text
y__
              -> ClientVersionNotSupportedFailure
x__ {_ClientVersionNotSupportedFailure'clientVersion = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ClientVersionNotSupportedFailure "clientName" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "clientName"
-> (Text -> f Text)
-> ClientVersionNotSupportedFailure
-> f ClientVersionNotSupportedFailure
fieldOf Proxy# "clientName"
_
    = ((Text -> f Text)
 -> ClientVersionNotSupportedFailure
 -> f ClientVersionNotSupportedFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ClientVersionNotSupportedFailure
-> f ClientVersionNotSupportedFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClientVersionNotSupportedFailure -> Text)
-> (ClientVersionNotSupportedFailure
    -> Text -> ClientVersionNotSupportedFailure)
-> Lens
     ClientVersionNotSupportedFailure
     ClientVersionNotSupportedFailure
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClientVersionNotSupportedFailure -> Text
_ClientVersionNotSupportedFailure'clientName
           (\ ClientVersionNotSupportedFailure
x__ Text
y__
              -> ClientVersionNotSupportedFailure
x__ {_ClientVersionNotSupportedFailure'clientName = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ClientVersionNotSupportedFailure "supportedVersions" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "supportedVersions"
-> (Text -> f Text)
-> ClientVersionNotSupportedFailure
-> f ClientVersionNotSupportedFailure
fieldOf Proxy# "supportedVersions"
_
    = ((Text -> f Text)
 -> ClientVersionNotSupportedFailure
 -> f ClientVersionNotSupportedFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ClientVersionNotSupportedFailure
-> f ClientVersionNotSupportedFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClientVersionNotSupportedFailure -> Text)
-> (ClientVersionNotSupportedFailure
    -> Text -> ClientVersionNotSupportedFailure)
-> Lens
     ClientVersionNotSupportedFailure
     ClientVersionNotSupportedFailure
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClientVersionNotSupportedFailure -> Text
_ClientVersionNotSupportedFailure'supportedVersions
           (\ ClientVersionNotSupportedFailure
x__ Text
y__
              -> ClientVersionNotSupportedFailure
x__
                   {_ClientVersionNotSupportedFailure'supportedVersions = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ClientVersionNotSupportedFailure where
  messageName :: Proxy ClientVersionNotSupportedFailure -> Text
messageName Proxy ClientVersionNotSupportedFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.ClientVersionNotSupportedFailure"
  packedMessageDescriptor :: Proxy ClientVersionNotSupportedFailure -> ByteString
packedMessageDescriptor Proxy ClientVersionNotSupportedFailure
_
    = ByteString
"\n\
      \ ClientVersionNotSupportedFailure\DC2%\n\
      \\SOclient_version\CAN\SOH \SOH(\tR\rclientVersion\DC2\US\n\
      \\vclient_name\CAN\STX \SOH(\tR\n\
      \clientName\DC2-\n\
      \\DC2supported_versions\CAN\ETX \SOH(\tR\DC1supportedVersions"
  packedFileDescriptor :: Proxy ClientVersionNotSupportedFailure -> ByteString
packedFileDescriptor Proxy ClientVersionNotSupportedFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ClientVersionNotSupportedFailure)
fieldsByTag
    = let
        clientVersion__field_descriptor :: FieldDescriptor ClientVersionNotSupportedFailure
clientVersion__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ClientVersionNotSupportedFailure Text
-> FieldDescriptor ClientVersionNotSupportedFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"client_version"
              (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
     ClientVersionNotSupportedFailure
     ClientVersionNotSupportedFailure
     Text
     Text
-> FieldAccessor ClientVersionNotSupportedFailure 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 @"clientVersion")) ::
              Data.ProtoLens.FieldDescriptor ClientVersionNotSupportedFailure
        clientName__field_descriptor :: FieldDescriptor ClientVersionNotSupportedFailure
clientName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ClientVersionNotSupportedFailure Text
-> FieldDescriptor ClientVersionNotSupportedFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"client_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
     ClientVersionNotSupportedFailure
     ClientVersionNotSupportedFailure
     Text
     Text
-> FieldAccessor ClientVersionNotSupportedFailure 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 @"clientName")) ::
              Data.ProtoLens.FieldDescriptor ClientVersionNotSupportedFailure
        supportedVersions__field_descriptor :: FieldDescriptor ClientVersionNotSupportedFailure
supportedVersions__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ClientVersionNotSupportedFailure Text
-> FieldDescriptor ClientVersionNotSupportedFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"supported_versions"
              (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
     ClientVersionNotSupportedFailure
     ClientVersionNotSupportedFailure
     Text
     Text
-> FieldAccessor ClientVersionNotSupportedFailure 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 @"supportedVersions")) ::
              Data.ProtoLens.FieldDescriptor ClientVersionNotSupportedFailure
      in
        [(Tag, FieldDescriptor ClientVersionNotSupportedFailure)]
-> Map Tag (FieldDescriptor ClientVersionNotSupportedFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ClientVersionNotSupportedFailure
clientVersion__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ClientVersionNotSupportedFailure
clientName__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ClientVersionNotSupportedFailure
supportedVersions__field_descriptor)]
  unknownFields :: Lens' ClientVersionNotSupportedFailure FieldSet
unknownFields
    = (ClientVersionNotSupportedFailure -> FieldSet)
-> (ClientVersionNotSupportedFailure
    -> FieldSet -> ClientVersionNotSupportedFailure)
-> Lens' ClientVersionNotSupportedFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ClientVersionNotSupportedFailure -> FieldSet
_ClientVersionNotSupportedFailure'_unknownFields
        (\ ClientVersionNotSupportedFailure
x__ FieldSet
y__
           -> ClientVersionNotSupportedFailure
x__ {_ClientVersionNotSupportedFailure'_unknownFields = y__})
  defMessage :: ClientVersionNotSupportedFailure
defMessage
    = ClientVersionNotSupportedFailure'_constructor
        {_ClientVersionNotSupportedFailure'clientVersion :: Text
_ClientVersionNotSupportedFailure'clientVersion = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ClientVersionNotSupportedFailure'clientName :: Text
_ClientVersionNotSupportedFailure'clientName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ClientVersionNotSupportedFailure'supportedVersions :: Text
_ClientVersionNotSupportedFailure'supportedVersions = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ClientVersionNotSupportedFailure'_unknownFields :: FieldSet
_ClientVersionNotSupportedFailure'_unknownFields = []}
  parseMessage :: Parser ClientVersionNotSupportedFailure
parseMessage
    = let
        loop ::
          ClientVersionNotSupportedFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser ClientVersionNotSupportedFailure
        loop :: ClientVersionNotSupportedFailure
-> Parser ClientVersionNotSupportedFailure
loop ClientVersionNotSupportedFailure
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
"client_version"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"clientVersion") 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
"client_name"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"clientName") 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
"supported_versions"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"supportedVersions") 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 ClientVersionNotSupportedFailure
-> String -> Parser ClientVersionNotSupportedFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ClientVersionNotSupportedFailure
-> Parser ClientVersionNotSupportedFailure
loop ClientVersionNotSupportedFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"ClientVersionNotSupportedFailure"
  buildMessage :: ClientVersionNotSupportedFailure -> Builder
buildMessage
    = \ ClientVersionNotSupportedFailure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text
  ClientVersionNotSupportedFailure
  ClientVersionNotSupportedFailure
  Text
  Text
-> ClientVersionNotSupportedFailure -> 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 @"clientVersion") ClientVersionNotSupportedFailure
_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
  ClientVersionNotSupportedFailure
  ClientVersionNotSupportedFailure
  Text
  Text
-> ClientVersionNotSupportedFailure -> 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 @"clientName") ClientVersionNotSupportedFailure
_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
  ClientVersionNotSupportedFailure
  ClientVersionNotSupportedFailure
  Text
  Text
-> ClientVersionNotSupportedFailure -> 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 @"supportedVersions") ClientVersionNotSupportedFailure
_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
  ClientVersionNotSupportedFailure
  ClientVersionNotSupportedFailure
  FieldSet
  FieldSet
-> ClientVersionNotSupportedFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ClientVersionNotSupportedFailure
  ClientVersionNotSupportedFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientVersionNotSupportedFailure FieldSet
Data.ProtoLens.unknownFields ClientVersionNotSupportedFailure
_x))))
instance Control.DeepSeq.NFData ClientVersionNotSupportedFailure where
  rnf :: ClientVersionNotSupportedFailure -> ()
rnf
    = \ ClientVersionNotSupportedFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ClientVersionNotSupportedFailure -> FieldSet
_ClientVersionNotSupportedFailure'_unknownFields ClientVersionNotSupportedFailure
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ClientVersionNotSupportedFailure -> Text
_ClientVersionNotSupportedFailure'clientVersion ClientVersionNotSupportedFailure
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ClientVersionNotSupportedFailure -> Text
_ClientVersionNotSupportedFailure'clientName ClientVersionNotSupportedFailure
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (ClientVersionNotSupportedFailure -> Text
_ClientVersionNotSupportedFailure'supportedVersions ClientVersionNotSupportedFailure
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.statuses' @:: Lens' MultiOperationExecutionFailure [MultiOperationExecutionFailure'OperationStatus]@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.vec'statuses' @:: Lens' MultiOperationExecutionFailure (Data.Vector.Vector MultiOperationExecutionFailure'OperationStatus)@ -}
data MultiOperationExecutionFailure
  = MultiOperationExecutionFailure'_constructor {MultiOperationExecutionFailure
-> Vector MultiOperationExecutionFailure'OperationStatus
_MultiOperationExecutionFailure'statuses :: !(Data.Vector.Vector MultiOperationExecutionFailure'OperationStatus),
                                                 MultiOperationExecutionFailure -> FieldSet
_MultiOperationExecutionFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
(MultiOperationExecutionFailure
 -> MultiOperationExecutionFailure -> Bool)
-> (MultiOperationExecutionFailure
    -> MultiOperationExecutionFailure -> Bool)
-> Eq MultiOperationExecutionFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
== :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
$c/= :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
/= :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
Prelude.Eq, Eq MultiOperationExecutionFailure
Eq MultiOperationExecutionFailure =>
(MultiOperationExecutionFailure
 -> MultiOperationExecutionFailure -> Ordering)
-> (MultiOperationExecutionFailure
    -> MultiOperationExecutionFailure -> Bool)
-> (MultiOperationExecutionFailure
    -> MultiOperationExecutionFailure -> Bool)
-> (MultiOperationExecutionFailure
    -> MultiOperationExecutionFailure -> Bool)
-> (MultiOperationExecutionFailure
    -> MultiOperationExecutionFailure -> Bool)
-> (MultiOperationExecutionFailure
    -> MultiOperationExecutionFailure
    -> MultiOperationExecutionFailure)
-> (MultiOperationExecutionFailure
    -> MultiOperationExecutionFailure
    -> MultiOperationExecutionFailure)
-> Ord MultiOperationExecutionFailure
MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Ordering
MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> MultiOperationExecutionFailure
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 :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Ordering
compare :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Ordering
$c< :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
< :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
$c<= :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
<= :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
$c> :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
> :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
$c>= :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
>= :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> Bool
$cmax :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> MultiOperationExecutionFailure
max :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> MultiOperationExecutionFailure
$cmin :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> MultiOperationExecutionFailure
min :: MultiOperationExecutionFailure
-> MultiOperationExecutionFailure -> MultiOperationExecutionFailure
Prelude.Ord)
instance Prelude.Show MultiOperationExecutionFailure where
  showsPrec :: Int -> MultiOperationExecutionFailure -> ShowS
showsPrec Int
_ MultiOperationExecutionFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MultiOperationExecutionFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MultiOperationExecutionFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MultiOperationExecutionFailure "statuses" [MultiOperationExecutionFailure'OperationStatus] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "statuses"
-> ([MultiOperationExecutionFailure'OperationStatus]
    -> f [MultiOperationExecutionFailure'OperationStatus])
-> MultiOperationExecutionFailure
-> f MultiOperationExecutionFailure
fieldOf Proxy# "statuses"
_
    = ((Vector MultiOperationExecutionFailure'OperationStatus
  -> f (Vector MultiOperationExecutionFailure'OperationStatus))
 -> MultiOperationExecutionFailure
 -> f MultiOperationExecutionFailure)
-> (([MultiOperationExecutionFailure'OperationStatus]
     -> f [MultiOperationExecutionFailure'OperationStatus])
    -> Vector MultiOperationExecutionFailure'OperationStatus
    -> f (Vector MultiOperationExecutionFailure'OperationStatus))
-> ([MultiOperationExecutionFailure'OperationStatus]
    -> f [MultiOperationExecutionFailure'OperationStatus])
-> MultiOperationExecutionFailure
-> f MultiOperationExecutionFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MultiOperationExecutionFailure
 -> Vector MultiOperationExecutionFailure'OperationStatus)
-> (MultiOperationExecutionFailure
    -> Vector MultiOperationExecutionFailure'OperationStatus
    -> MultiOperationExecutionFailure)
-> Lens
     MultiOperationExecutionFailure
     MultiOperationExecutionFailure
     (Vector MultiOperationExecutionFailure'OperationStatus)
     (Vector MultiOperationExecutionFailure'OperationStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MultiOperationExecutionFailure
-> Vector MultiOperationExecutionFailure'OperationStatus
_MultiOperationExecutionFailure'statuses
           (\ MultiOperationExecutionFailure
x__ Vector MultiOperationExecutionFailure'OperationStatus
y__
              -> MultiOperationExecutionFailure
x__ {_MultiOperationExecutionFailure'statuses = y__}))
        ((Vector MultiOperationExecutionFailure'OperationStatus
 -> [MultiOperationExecutionFailure'OperationStatus])
-> (Vector MultiOperationExecutionFailure'OperationStatus
    -> [MultiOperationExecutionFailure'OperationStatus]
    -> Vector MultiOperationExecutionFailure'OperationStatus)
-> Lens
     (Vector MultiOperationExecutionFailure'OperationStatus)
     (Vector MultiOperationExecutionFailure'OperationStatus)
     [MultiOperationExecutionFailure'OperationStatus]
     [MultiOperationExecutionFailure'OperationStatus]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector MultiOperationExecutionFailure'OperationStatus
-> [MultiOperationExecutionFailure'OperationStatus]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector MultiOperationExecutionFailure'OperationStatus
_ [MultiOperationExecutionFailure'OperationStatus]
y__ -> [MultiOperationExecutionFailure'OperationStatus]
-> Vector MultiOperationExecutionFailure'OperationStatus
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [MultiOperationExecutionFailure'OperationStatus]
y__))
instance Data.ProtoLens.Field.HasField MultiOperationExecutionFailure "vec'statuses" (Data.Vector.Vector MultiOperationExecutionFailure'OperationStatus) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'statuses"
-> (Vector MultiOperationExecutionFailure'OperationStatus
    -> f (Vector MultiOperationExecutionFailure'OperationStatus))
-> MultiOperationExecutionFailure
-> f MultiOperationExecutionFailure
fieldOf Proxy# "vec'statuses"
_
    = ((Vector MultiOperationExecutionFailure'OperationStatus
  -> f (Vector MultiOperationExecutionFailure'OperationStatus))
 -> MultiOperationExecutionFailure
 -> f MultiOperationExecutionFailure)
-> ((Vector MultiOperationExecutionFailure'OperationStatus
     -> f (Vector MultiOperationExecutionFailure'OperationStatus))
    -> Vector MultiOperationExecutionFailure'OperationStatus
    -> f (Vector MultiOperationExecutionFailure'OperationStatus))
-> (Vector MultiOperationExecutionFailure'OperationStatus
    -> f (Vector MultiOperationExecutionFailure'OperationStatus))
-> MultiOperationExecutionFailure
-> f MultiOperationExecutionFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MultiOperationExecutionFailure
 -> Vector MultiOperationExecutionFailure'OperationStatus)
-> (MultiOperationExecutionFailure
    -> Vector MultiOperationExecutionFailure'OperationStatus
    -> MultiOperationExecutionFailure)
-> Lens
     MultiOperationExecutionFailure
     MultiOperationExecutionFailure
     (Vector MultiOperationExecutionFailure'OperationStatus)
     (Vector MultiOperationExecutionFailure'OperationStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MultiOperationExecutionFailure
-> Vector MultiOperationExecutionFailure'OperationStatus
_MultiOperationExecutionFailure'statuses
           (\ MultiOperationExecutionFailure
x__ Vector MultiOperationExecutionFailure'OperationStatus
y__
              -> MultiOperationExecutionFailure
x__ {_MultiOperationExecutionFailure'statuses = y__}))
        (Vector MultiOperationExecutionFailure'OperationStatus
 -> f (Vector MultiOperationExecutionFailure'OperationStatus))
-> Vector MultiOperationExecutionFailure'OperationStatus
-> f (Vector MultiOperationExecutionFailure'OperationStatus)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MultiOperationExecutionFailure where
  messageName :: Proxy MultiOperationExecutionFailure -> Text
messageName Proxy MultiOperationExecutionFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.MultiOperationExecutionFailure"
  packedMessageDescriptor :: Proxy MultiOperationExecutionFailure -> ByteString
packedMessageDescriptor Proxy MultiOperationExecutionFailure
_
    = ByteString
"\n\
      \\RSMultiOperationExecutionFailure\DC2h\n\
      \\bstatuses\CAN\SOH \ETX(\v2L.temporal.api.errordetails.v1.MultiOperationExecutionFailure.OperationStatusR\bstatuses\SUBo\n\
      \\SIOperationStatus\DC2\DC2\n\
      \\EOTcode\CAN\SOH \SOH(\ENQR\EOTcode\DC2\CAN\n\
      \\amessage\CAN\STX \SOH(\tR\amessage\DC2.\n\
      \\adetails\CAN\ETX \ETX(\v2\DC4.google.protobuf.AnyR\adetails"
  packedFileDescriptor :: Proxy MultiOperationExecutionFailure -> ByteString
packedFileDescriptor Proxy MultiOperationExecutionFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MultiOperationExecutionFailure)
fieldsByTag
    = let
        statuses__field_descriptor :: FieldDescriptor MultiOperationExecutionFailure
statuses__field_descriptor
          = String
-> FieldTypeDescriptor
     MultiOperationExecutionFailure'OperationStatus
-> FieldAccessor
     MultiOperationExecutionFailure
     MultiOperationExecutionFailure'OperationStatus
-> FieldDescriptor MultiOperationExecutionFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"statuses"
              (MessageOrGroup
-> FieldTypeDescriptor
     MultiOperationExecutionFailure'OperationStatus
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MultiOperationExecutionFailure'OperationStatus)
              (Packing
-> Lens'
     MultiOperationExecutionFailure
     [MultiOperationExecutionFailure'OperationStatus]
-> FieldAccessor
     MultiOperationExecutionFailure
     MultiOperationExecutionFailure'OperationStatus
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"statuses")) ::
              Data.ProtoLens.FieldDescriptor MultiOperationExecutionFailure
      in
        [(Tag, FieldDescriptor MultiOperationExecutionFailure)]
-> Map Tag (FieldDescriptor MultiOperationExecutionFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MultiOperationExecutionFailure
statuses__field_descriptor)]
  unknownFields :: Lens' MultiOperationExecutionFailure FieldSet
unknownFields
    = (MultiOperationExecutionFailure -> FieldSet)
-> (MultiOperationExecutionFailure
    -> FieldSet -> MultiOperationExecutionFailure)
-> Lens' MultiOperationExecutionFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MultiOperationExecutionFailure -> FieldSet
_MultiOperationExecutionFailure'_unknownFields
        (\ MultiOperationExecutionFailure
x__ FieldSet
y__
           -> MultiOperationExecutionFailure
x__ {_MultiOperationExecutionFailure'_unknownFields = y__})
  defMessage :: MultiOperationExecutionFailure
defMessage
    = MultiOperationExecutionFailure'_constructor
        {_MultiOperationExecutionFailure'statuses :: Vector MultiOperationExecutionFailure'OperationStatus
_MultiOperationExecutionFailure'statuses = Vector MultiOperationExecutionFailure'OperationStatus
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MultiOperationExecutionFailure'_unknownFields :: FieldSet
_MultiOperationExecutionFailure'_unknownFields = []}
  parseMessage :: Parser MultiOperationExecutionFailure
parseMessage
    = let
        loop ::
          MultiOperationExecutionFailure
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MultiOperationExecutionFailure'OperationStatus
             -> Data.ProtoLens.Encoding.Bytes.Parser MultiOperationExecutionFailure
        loop :: MultiOperationExecutionFailure
-> Growing
     Vector RealWorld MultiOperationExecutionFailure'OperationStatus
-> Parser MultiOperationExecutionFailure
loop MultiOperationExecutionFailure
x Growing
  Vector RealWorld MultiOperationExecutionFailure'OperationStatus
mutable'statuses
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'statuses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              mutable'statuses)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'statuses") frozen'statuses x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser MultiOperationExecutionFailure'OperationStatus
-> String -> Parser MultiOperationExecutionFailure'OperationStatus
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
"statuses"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'statuses y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'statuses
      in
        Parser MultiOperationExecutionFailure
-> String -> Parser MultiOperationExecutionFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'statuses <- IO
  (Growing
     Vector RealWorld MultiOperationExecutionFailure'OperationStatus)
-> Parser
     (Growing
        Vector RealWorld MultiOperationExecutionFailure'OperationStatus)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    IO
  (Growing
     Vector RealWorld MultiOperationExecutionFailure'OperationStatus)
IO
  (Growing
     Vector
     (PrimState IO)
     MultiOperationExecutionFailure'OperationStatus)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'statuses)
          String
"MultiOperationExecutionFailure"
  buildMessage :: MultiOperationExecutionFailure -> Builder
buildMessage
    = \ MultiOperationExecutionFailure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((MultiOperationExecutionFailure'OperationStatus -> Builder)
-> Vector MultiOperationExecutionFailure'OperationStatus -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ MultiOperationExecutionFailure'OperationStatus
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (MultiOperationExecutionFailure'OperationStatus -> ByteString)
-> MultiOperationExecutionFailure'OperationStatus
-> 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))
                           MultiOperationExecutionFailure'OperationStatus -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage MultiOperationExecutionFailure'OperationStatus
_v))
                (FoldLike
  (Vector MultiOperationExecutionFailure'OperationStatus)
  MultiOperationExecutionFailure
  MultiOperationExecutionFailure
  (Vector MultiOperationExecutionFailure'OperationStatus)
  (Vector MultiOperationExecutionFailure'OperationStatus)
-> MultiOperationExecutionFailure
-> Vector MultiOperationExecutionFailure'OperationStatus
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'statuses") MultiOperationExecutionFailure
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  MultiOperationExecutionFailure
  MultiOperationExecutionFailure
  FieldSet
  FieldSet
-> MultiOperationExecutionFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  MultiOperationExecutionFailure
  MultiOperationExecutionFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MultiOperationExecutionFailure FieldSet
Data.ProtoLens.unknownFields MultiOperationExecutionFailure
_x))
instance Control.DeepSeq.NFData MultiOperationExecutionFailure where
  rnf :: MultiOperationExecutionFailure -> ()
rnf
    = \ MultiOperationExecutionFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MultiOperationExecutionFailure -> FieldSet
_MultiOperationExecutionFailure'_unknownFields MultiOperationExecutionFailure
x__)
             (Vector MultiOperationExecutionFailure'OperationStatus -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MultiOperationExecutionFailure
-> Vector MultiOperationExecutionFailure'OperationStatus
_MultiOperationExecutionFailure'statuses MultiOperationExecutionFailure
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.code' @:: Lens' MultiOperationExecutionFailure'OperationStatus Data.Int.Int32@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.message' @:: Lens' MultiOperationExecutionFailure'OperationStatus Data.Text.Text@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.details' @:: Lens' MultiOperationExecutionFailure'OperationStatus [Proto.Google.Protobuf.Any.Any]@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.vec'details' @:: Lens' MultiOperationExecutionFailure'OperationStatus (Data.Vector.Vector Proto.Google.Protobuf.Any.Any)@ -}
data MultiOperationExecutionFailure'OperationStatus
  = MultiOperationExecutionFailure'OperationStatus'_constructor {MultiOperationExecutionFailure'OperationStatus -> Int32
_MultiOperationExecutionFailure'OperationStatus'code :: !Data.Int.Int32,
                                                                 MultiOperationExecutionFailure'OperationStatus -> Text
_MultiOperationExecutionFailure'OperationStatus'message :: !Data.Text.Text,
                                                                 MultiOperationExecutionFailure'OperationStatus -> Vector Any
_MultiOperationExecutionFailure'OperationStatus'details :: !(Data.Vector.Vector Proto.Google.Protobuf.Any.Any),
                                                                 MultiOperationExecutionFailure'OperationStatus -> FieldSet
_MultiOperationExecutionFailure'OperationStatus'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
(MultiOperationExecutionFailure'OperationStatus
 -> MultiOperationExecutionFailure'OperationStatus -> Bool)
-> (MultiOperationExecutionFailure'OperationStatus
    -> MultiOperationExecutionFailure'OperationStatus -> Bool)
-> Eq MultiOperationExecutionFailure'OperationStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
== :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
$c/= :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
/= :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
Prelude.Eq, Eq MultiOperationExecutionFailure'OperationStatus
Eq MultiOperationExecutionFailure'OperationStatus =>
(MultiOperationExecutionFailure'OperationStatus
 -> MultiOperationExecutionFailure'OperationStatus -> Ordering)
-> (MultiOperationExecutionFailure'OperationStatus
    -> MultiOperationExecutionFailure'OperationStatus -> Bool)
-> (MultiOperationExecutionFailure'OperationStatus
    -> MultiOperationExecutionFailure'OperationStatus -> Bool)
-> (MultiOperationExecutionFailure'OperationStatus
    -> MultiOperationExecutionFailure'OperationStatus -> Bool)
-> (MultiOperationExecutionFailure'OperationStatus
    -> MultiOperationExecutionFailure'OperationStatus -> Bool)
-> (MultiOperationExecutionFailure'OperationStatus
    -> MultiOperationExecutionFailure'OperationStatus
    -> MultiOperationExecutionFailure'OperationStatus)
-> (MultiOperationExecutionFailure'OperationStatus
    -> MultiOperationExecutionFailure'OperationStatus
    -> MultiOperationExecutionFailure'OperationStatus)
-> Ord MultiOperationExecutionFailure'OperationStatus
MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Ordering
MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus
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 :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Ordering
compare :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Ordering
$c< :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
< :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
$c<= :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
<= :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
$c> :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
> :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
$c>= :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
>= :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus -> Bool
$cmax :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus
max :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus
$cmin :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus
min :: MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus
-> MultiOperationExecutionFailure'OperationStatus
Prelude.Ord)
instance Prelude.Show MultiOperationExecutionFailure'OperationStatus where
  showsPrec :: Int -> MultiOperationExecutionFailure'OperationStatus -> ShowS
showsPrec Int
_ MultiOperationExecutionFailure'OperationStatus
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MultiOperationExecutionFailure'OperationStatus -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MultiOperationExecutionFailure'OperationStatus
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MultiOperationExecutionFailure'OperationStatus "code" Data.Int.Int32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "code"
-> (Int32 -> f Int32)
-> MultiOperationExecutionFailure'OperationStatus
-> f MultiOperationExecutionFailure'OperationStatus
fieldOf Proxy# "code"
_
    = ((Int32 -> f Int32)
 -> MultiOperationExecutionFailure'OperationStatus
 -> f MultiOperationExecutionFailure'OperationStatus)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> MultiOperationExecutionFailure'OperationStatus
-> f MultiOperationExecutionFailure'OperationStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MultiOperationExecutionFailure'OperationStatus -> Int32)
-> (MultiOperationExecutionFailure'OperationStatus
    -> Int32 -> MultiOperationExecutionFailure'OperationStatus)
-> Lens
     MultiOperationExecutionFailure'OperationStatus
     MultiOperationExecutionFailure'OperationStatus
     Int32
     Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MultiOperationExecutionFailure'OperationStatus -> Int32
_MultiOperationExecutionFailure'OperationStatus'code
           (\ MultiOperationExecutionFailure'OperationStatus
x__ Int32
y__
              -> MultiOperationExecutionFailure'OperationStatus
x__
                   {_MultiOperationExecutionFailure'OperationStatus'code = y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MultiOperationExecutionFailure'OperationStatus "message" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "message"
-> (Text -> f Text)
-> MultiOperationExecutionFailure'OperationStatus
-> f MultiOperationExecutionFailure'OperationStatus
fieldOf Proxy# "message"
_
    = ((Text -> f Text)
 -> MultiOperationExecutionFailure'OperationStatus
 -> f MultiOperationExecutionFailure'OperationStatus)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MultiOperationExecutionFailure'OperationStatus
-> f MultiOperationExecutionFailure'OperationStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MultiOperationExecutionFailure'OperationStatus -> Text)
-> (MultiOperationExecutionFailure'OperationStatus
    -> Text -> MultiOperationExecutionFailure'OperationStatus)
-> Lens
     MultiOperationExecutionFailure'OperationStatus
     MultiOperationExecutionFailure'OperationStatus
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MultiOperationExecutionFailure'OperationStatus -> Text
_MultiOperationExecutionFailure'OperationStatus'message
           (\ MultiOperationExecutionFailure'OperationStatus
x__ Text
y__
              -> MultiOperationExecutionFailure'OperationStatus
x__
                   {_MultiOperationExecutionFailure'OperationStatus'message = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MultiOperationExecutionFailure'OperationStatus "details" [Proto.Google.Protobuf.Any.Any] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "details"
-> ([Any] -> f [Any])
-> MultiOperationExecutionFailure'OperationStatus
-> f MultiOperationExecutionFailure'OperationStatus
fieldOf Proxy# "details"
_
    = ((Vector Any -> f (Vector Any))
 -> MultiOperationExecutionFailure'OperationStatus
 -> f MultiOperationExecutionFailure'OperationStatus)
-> (([Any] -> f [Any]) -> Vector Any -> f (Vector Any))
-> ([Any] -> f [Any])
-> MultiOperationExecutionFailure'OperationStatus
-> f MultiOperationExecutionFailure'OperationStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MultiOperationExecutionFailure'OperationStatus -> Vector Any)
-> (MultiOperationExecutionFailure'OperationStatus
    -> Vector Any -> MultiOperationExecutionFailure'OperationStatus)
-> Lens
     MultiOperationExecutionFailure'OperationStatus
     MultiOperationExecutionFailure'OperationStatus
     (Vector Any)
     (Vector Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MultiOperationExecutionFailure'OperationStatus -> Vector Any
_MultiOperationExecutionFailure'OperationStatus'details
           (\ MultiOperationExecutionFailure'OperationStatus
x__ Vector Any
y__
              -> MultiOperationExecutionFailure'OperationStatus
x__
                   {_MultiOperationExecutionFailure'OperationStatus'details = y__}))
        ((Vector Any -> [Any])
-> (Vector Any -> [Any] -> Vector Any)
-> Lens (Vector Any) (Vector Any) [Any] [Any]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Any -> [Any]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Any
_ [Any]
y__ -> [Any] -> Vector Any
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Any]
y__))
instance Data.ProtoLens.Field.HasField MultiOperationExecutionFailure'OperationStatus "vec'details" (Data.Vector.Vector Proto.Google.Protobuf.Any.Any) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'details"
-> (Vector Any -> f (Vector Any))
-> MultiOperationExecutionFailure'OperationStatus
-> f MultiOperationExecutionFailure'OperationStatus
fieldOf Proxy# "vec'details"
_
    = ((Vector Any -> f (Vector Any))
 -> MultiOperationExecutionFailure'OperationStatus
 -> f MultiOperationExecutionFailure'OperationStatus)
-> ((Vector Any -> f (Vector Any)) -> Vector Any -> f (Vector Any))
-> (Vector Any -> f (Vector Any))
-> MultiOperationExecutionFailure'OperationStatus
-> f MultiOperationExecutionFailure'OperationStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MultiOperationExecutionFailure'OperationStatus -> Vector Any)
-> (MultiOperationExecutionFailure'OperationStatus
    -> Vector Any -> MultiOperationExecutionFailure'OperationStatus)
-> Lens
     MultiOperationExecutionFailure'OperationStatus
     MultiOperationExecutionFailure'OperationStatus
     (Vector Any)
     (Vector Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MultiOperationExecutionFailure'OperationStatus -> Vector Any
_MultiOperationExecutionFailure'OperationStatus'details
           (\ MultiOperationExecutionFailure'OperationStatus
x__ Vector Any
y__
              -> MultiOperationExecutionFailure'OperationStatus
x__
                   {_MultiOperationExecutionFailure'OperationStatus'details = y__}))
        (Vector Any -> f (Vector Any)) -> Vector Any -> f (Vector Any)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MultiOperationExecutionFailure'OperationStatus where
  messageName :: Proxy MultiOperationExecutionFailure'OperationStatus -> Text
messageName Proxy MultiOperationExecutionFailure'OperationStatus
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.MultiOperationExecutionFailure.OperationStatus"
  packedMessageDescriptor :: Proxy MultiOperationExecutionFailure'OperationStatus -> ByteString
packedMessageDescriptor Proxy MultiOperationExecutionFailure'OperationStatus
_
    = ByteString
"\n\
      \\SIOperationStatus\DC2\DC2\n\
      \\EOTcode\CAN\SOH \SOH(\ENQR\EOTcode\DC2\CAN\n\
      \\amessage\CAN\STX \SOH(\tR\amessage\DC2.\n\
      \\adetails\CAN\ETX \ETX(\v2\DC4.google.protobuf.AnyR\adetails"
  packedFileDescriptor :: Proxy MultiOperationExecutionFailure'OperationStatus -> ByteString
packedFileDescriptor Proxy MultiOperationExecutionFailure'OperationStatus
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map
  Tag
  (FieldDescriptor MultiOperationExecutionFailure'OperationStatus)
fieldsByTag
    = let
        code__field_descriptor :: FieldDescriptor MultiOperationExecutionFailure'OperationStatus
code__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor
     MultiOperationExecutionFailure'OperationStatus Int32
-> FieldDescriptor MultiOperationExecutionFailure'OperationStatus
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"code"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (WireDefault Int32
-> Lens
     MultiOperationExecutionFailure'OperationStatus
     MultiOperationExecutionFailure'OperationStatus
     Int32
     Int32
-> FieldAccessor
     MultiOperationExecutionFailure'OperationStatus Int32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"code")) ::
              Data.ProtoLens.FieldDescriptor MultiOperationExecutionFailure'OperationStatus
        message__field_descriptor :: FieldDescriptor MultiOperationExecutionFailure'OperationStatus
message__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor
     MultiOperationExecutionFailure'OperationStatus Text
-> FieldDescriptor MultiOperationExecutionFailure'OperationStatus
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
     MultiOperationExecutionFailure'OperationStatus
     MultiOperationExecutionFailure'OperationStatus
     Text
     Text
-> FieldAccessor
     MultiOperationExecutionFailure'OperationStatus 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 MultiOperationExecutionFailure'OperationStatus
        details__field_descriptor :: FieldDescriptor MultiOperationExecutionFailure'OperationStatus
details__field_descriptor
          = String
-> FieldTypeDescriptor Any
-> FieldAccessor MultiOperationExecutionFailure'OperationStatus Any
-> FieldDescriptor MultiOperationExecutionFailure'OperationStatus
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"details"
              (MessageOrGroup -> FieldTypeDescriptor Any
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any)
              (Packing
-> Lens' MultiOperationExecutionFailure'OperationStatus [Any]
-> FieldAccessor MultiOperationExecutionFailure'OperationStatus Any
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"details")) ::
              Data.ProtoLens.FieldDescriptor MultiOperationExecutionFailure'OperationStatus
      in
        [(Tag,
  FieldDescriptor MultiOperationExecutionFailure'OperationStatus)]
-> Map
     Tag
     (FieldDescriptor MultiOperationExecutionFailure'OperationStatus)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MultiOperationExecutionFailure'OperationStatus
code__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MultiOperationExecutionFailure'OperationStatus
message__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor MultiOperationExecutionFailure'OperationStatus
details__field_descriptor)]
  unknownFields :: Lens' MultiOperationExecutionFailure'OperationStatus FieldSet
unknownFields
    = (MultiOperationExecutionFailure'OperationStatus -> FieldSet)
-> (MultiOperationExecutionFailure'OperationStatus
    -> FieldSet -> MultiOperationExecutionFailure'OperationStatus)
-> Lens' MultiOperationExecutionFailure'OperationStatus FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MultiOperationExecutionFailure'OperationStatus -> FieldSet
_MultiOperationExecutionFailure'OperationStatus'_unknownFields
        (\ MultiOperationExecutionFailure'OperationStatus
x__ FieldSet
y__
           -> MultiOperationExecutionFailure'OperationStatus
x__
                {_MultiOperationExecutionFailure'OperationStatus'_unknownFields = y__})
  defMessage :: MultiOperationExecutionFailure'OperationStatus
defMessage
    = MultiOperationExecutionFailure'OperationStatus'_constructor
        {_MultiOperationExecutionFailure'OperationStatus'code :: Int32
_MultiOperationExecutionFailure'OperationStatus'code = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MultiOperationExecutionFailure'OperationStatus'message :: Text
_MultiOperationExecutionFailure'OperationStatus'message = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MultiOperationExecutionFailure'OperationStatus'details :: Vector Any
_MultiOperationExecutionFailure'OperationStatus'details = Vector Any
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MultiOperationExecutionFailure'OperationStatus'_unknownFields :: FieldSet
_MultiOperationExecutionFailure'OperationStatus'_unknownFields = []}
  parseMessage :: Parser MultiOperationExecutionFailure'OperationStatus
parseMessage
    = let
        loop ::
          MultiOperationExecutionFailure'OperationStatus
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Google.Protobuf.Any.Any
             -> Data.ProtoLens.Encoding.Bytes.Parser MultiOperationExecutionFailure'OperationStatus
        loop :: MultiOperationExecutionFailure'OperationStatus
-> Growing Vector RealWorld Any
-> Parser MultiOperationExecutionFailure'OperationStatus
loop MultiOperationExecutionFailure'OperationStatus
x Growing Vector RealWorld Any
mutable'details
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'details <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'details)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'details") frozen'details x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"code"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"code") y x)
                                  mutable'details
                        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
"message"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"message") y x)
                                  mutable'details
                        Word64
26
                          -> do !y <- Parser Any -> String -> Parser Any
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
"details"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'details y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'details
      in
        Parser MultiOperationExecutionFailure'OperationStatus
-> String -> Parser MultiOperationExecutionFailure'OperationStatus
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'details <- IO (Growing Vector RealWorld Any)
-> Parser (Growing Vector RealWorld Any)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld Any)
IO (Growing Vector (PrimState IO) Any)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'details)
          String
"OperationStatus"
  buildMessage :: MultiOperationExecutionFailure'OperationStatus -> Builder
buildMessage
    = \ MultiOperationExecutionFailure'OperationStatus
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Int32
_v = FoldLike
  Int32
  MultiOperationExecutionFailure'OperationStatus
  MultiOperationExecutionFailure'OperationStatus
  Int32
  Int32
-> MultiOperationExecutionFailure'OperationStatus -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"code") MultiOperationExecutionFailure'OperationStatus
_x
              in
                if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike
  Text
  MultiOperationExecutionFailure'OperationStatus
  MultiOperationExecutionFailure'OperationStatus
  Text
  Text
-> MultiOperationExecutionFailure'OperationStatus -> 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") MultiOperationExecutionFailure'OperationStatus
_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.<>)
                   ((Any -> Builder) -> Vector Any -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ Any
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((ByteString -> Builder) -> (Any -> ByteString) -> Any -> 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))
                                 Any -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Any
_v))
                      (FoldLike
  (Vector Any)
  MultiOperationExecutionFailure'OperationStatus
  MultiOperationExecutionFailure'OperationStatus
  (Vector Any)
  (Vector Any)
-> MultiOperationExecutionFailure'OperationStatus -> Vector Any
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'details") MultiOperationExecutionFailure'OperationStatus
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  MultiOperationExecutionFailure'OperationStatus
  MultiOperationExecutionFailure'OperationStatus
  FieldSet
  FieldSet
-> MultiOperationExecutionFailure'OperationStatus -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  MultiOperationExecutionFailure'OperationStatus
  MultiOperationExecutionFailure'OperationStatus
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MultiOperationExecutionFailure'OperationStatus FieldSet
Data.ProtoLens.unknownFields MultiOperationExecutionFailure'OperationStatus
_x))))
instance Control.DeepSeq.NFData MultiOperationExecutionFailure'OperationStatus where
  rnf :: MultiOperationExecutionFailure'OperationStatus -> ()
rnf
    = \ MultiOperationExecutionFailure'OperationStatus
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MultiOperationExecutionFailure'OperationStatus -> FieldSet
_MultiOperationExecutionFailure'OperationStatus'_unknownFields
                MultiOperationExecutionFailure'OperationStatus
x__)
             (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MultiOperationExecutionFailure'OperationStatus -> Int32
_MultiOperationExecutionFailure'OperationStatus'code MultiOperationExecutionFailure'OperationStatus
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (MultiOperationExecutionFailure'OperationStatus -> Text
_MultiOperationExecutionFailure'OperationStatus'message MultiOperationExecutionFailure'OperationStatus
x__)
                   (Vector Any -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (MultiOperationExecutionFailure'OperationStatus -> Vector Any
_MultiOperationExecutionFailure'OperationStatus'details MultiOperationExecutionFailure'OperationStatus
x__) ())))
{- | Fields :
      -}
data NamespaceAlreadyExistsFailure
  = NamespaceAlreadyExistsFailure'_constructor {NamespaceAlreadyExistsFailure -> FieldSet
_NamespaceAlreadyExistsFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
(NamespaceAlreadyExistsFailure
 -> NamespaceAlreadyExistsFailure -> Bool)
-> (NamespaceAlreadyExistsFailure
    -> NamespaceAlreadyExistsFailure -> Bool)
-> Eq NamespaceAlreadyExistsFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
== :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
$c/= :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
/= :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
Prelude.Eq, Eq NamespaceAlreadyExistsFailure
Eq NamespaceAlreadyExistsFailure =>
(NamespaceAlreadyExistsFailure
 -> NamespaceAlreadyExistsFailure -> Ordering)
-> (NamespaceAlreadyExistsFailure
    -> NamespaceAlreadyExistsFailure -> Bool)
-> (NamespaceAlreadyExistsFailure
    -> NamespaceAlreadyExistsFailure -> Bool)
-> (NamespaceAlreadyExistsFailure
    -> NamespaceAlreadyExistsFailure -> Bool)
-> (NamespaceAlreadyExistsFailure
    -> NamespaceAlreadyExistsFailure -> Bool)
-> (NamespaceAlreadyExistsFailure
    -> NamespaceAlreadyExistsFailure -> NamespaceAlreadyExistsFailure)
-> (NamespaceAlreadyExistsFailure
    -> NamespaceAlreadyExistsFailure -> NamespaceAlreadyExistsFailure)
-> Ord NamespaceAlreadyExistsFailure
NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Ordering
NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> NamespaceAlreadyExistsFailure
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 :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Ordering
compare :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Ordering
$c< :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
< :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
$c<= :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
<= :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
$c> :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
> :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
$c>= :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
>= :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> Bool
$cmax :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> NamespaceAlreadyExistsFailure
max :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> NamespaceAlreadyExistsFailure
$cmin :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> NamespaceAlreadyExistsFailure
min :: NamespaceAlreadyExistsFailure
-> NamespaceAlreadyExistsFailure -> NamespaceAlreadyExistsFailure
Prelude.Ord)
instance Prelude.Show NamespaceAlreadyExistsFailure where
  showsPrec :: Int -> NamespaceAlreadyExistsFailure -> ShowS
showsPrec Int
_ NamespaceAlreadyExistsFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NamespaceAlreadyExistsFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NamespaceAlreadyExistsFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message NamespaceAlreadyExistsFailure where
  messageName :: Proxy NamespaceAlreadyExistsFailure -> Text
messageName Proxy NamespaceAlreadyExistsFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.NamespaceAlreadyExistsFailure"
  packedMessageDescriptor :: Proxy NamespaceAlreadyExistsFailure -> ByteString
packedMessageDescriptor Proxy NamespaceAlreadyExistsFailure
_
    = ByteString
"\n\
      \\GSNamespaceAlreadyExistsFailure"
  packedFileDescriptor :: Proxy NamespaceAlreadyExistsFailure -> ByteString
packedFileDescriptor Proxy NamespaceAlreadyExistsFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NamespaceAlreadyExistsFailure)
fieldsByTag = let in [(Tag, FieldDescriptor NamespaceAlreadyExistsFailure)]
-> Map Tag (FieldDescriptor NamespaceAlreadyExistsFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' NamespaceAlreadyExistsFailure FieldSet
unknownFields
    = (NamespaceAlreadyExistsFailure -> FieldSet)
-> (NamespaceAlreadyExistsFailure
    -> FieldSet -> NamespaceAlreadyExistsFailure)
-> Lens' NamespaceAlreadyExistsFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NamespaceAlreadyExistsFailure -> FieldSet
_NamespaceAlreadyExistsFailure'_unknownFields
        (\ NamespaceAlreadyExistsFailure
x__ FieldSet
y__
           -> NamespaceAlreadyExistsFailure
x__ {_NamespaceAlreadyExistsFailure'_unknownFields = y__})
  defMessage :: NamespaceAlreadyExistsFailure
defMessage
    = NamespaceAlreadyExistsFailure'_constructor
        {_NamespaceAlreadyExistsFailure'_unknownFields :: FieldSet
_NamespaceAlreadyExistsFailure'_unknownFields = []}
  parseMessage :: Parser NamespaceAlreadyExistsFailure
parseMessage
    = let
        loop ::
          NamespaceAlreadyExistsFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser NamespaceAlreadyExistsFailure
        loop :: NamespaceAlreadyExistsFailure
-> Parser NamespaceAlreadyExistsFailure
loop NamespaceAlreadyExistsFailure
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 NamespaceAlreadyExistsFailure
-> String -> Parser NamespaceAlreadyExistsFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NamespaceAlreadyExistsFailure
-> Parser NamespaceAlreadyExistsFailure
loop NamespaceAlreadyExistsFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"NamespaceAlreadyExistsFailure"
  buildMessage :: NamespaceAlreadyExistsFailure -> Builder
buildMessage
    = \ NamespaceAlreadyExistsFailure
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  NamespaceAlreadyExistsFailure
  NamespaceAlreadyExistsFailure
  FieldSet
  FieldSet
-> NamespaceAlreadyExistsFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  NamespaceAlreadyExistsFailure
  NamespaceAlreadyExistsFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NamespaceAlreadyExistsFailure FieldSet
Data.ProtoLens.unknownFields NamespaceAlreadyExistsFailure
_x)
instance Control.DeepSeq.NFData NamespaceAlreadyExistsFailure where
  rnf :: NamespaceAlreadyExistsFailure -> ()
rnf
    = \ NamespaceAlreadyExistsFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NamespaceAlreadyExistsFailure -> FieldSet
_NamespaceAlreadyExistsFailure'_unknownFields NamespaceAlreadyExistsFailure
x__) ()
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.namespace' @:: Lens' NamespaceInvalidStateFailure Data.Text.Text@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.state' @:: Lens' NamespaceInvalidStateFailure Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.allowedStates' @:: Lens' NamespaceInvalidStateFailure [Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState]@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.vec'allowedStates' @:: Lens' NamespaceInvalidStateFailure (Data.Vector.Vector Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState)@ -}
data NamespaceInvalidStateFailure
  = NamespaceInvalidStateFailure'_constructor {NamespaceInvalidStateFailure -> Text
_NamespaceInvalidStateFailure'namespace :: !Data.Text.Text,
                                               NamespaceInvalidStateFailure -> NamespaceState
_NamespaceInvalidStateFailure'state :: !Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState,
                                               NamespaceInvalidStateFailure -> Vector NamespaceState
_NamespaceInvalidStateFailure'allowedStates :: !(Data.Vector.Vector Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState),
                                               NamespaceInvalidStateFailure -> FieldSet
_NamespaceInvalidStateFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
(NamespaceInvalidStateFailure
 -> NamespaceInvalidStateFailure -> Bool)
-> (NamespaceInvalidStateFailure
    -> NamespaceInvalidStateFailure -> Bool)
-> Eq NamespaceInvalidStateFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
== :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
$c/= :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
/= :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
Prelude.Eq, Eq NamespaceInvalidStateFailure
Eq NamespaceInvalidStateFailure =>
(NamespaceInvalidStateFailure
 -> NamespaceInvalidStateFailure -> Ordering)
-> (NamespaceInvalidStateFailure
    -> NamespaceInvalidStateFailure -> Bool)
-> (NamespaceInvalidStateFailure
    -> NamespaceInvalidStateFailure -> Bool)
-> (NamespaceInvalidStateFailure
    -> NamespaceInvalidStateFailure -> Bool)
-> (NamespaceInvalidStateFailure
    -> NamespaceInvalidStateFailure -> Bool)
-> (NamespaceInvalidStateFailure
    -> NamespaceInvalidStateFailure -> NamespaceInvalidStateFailure)
-> (NamespaceInvalidStateFailure
    -> NamespaceInvalidStateFailure -> NamespaceInvalidStateFailure)
-> Ord NamespaceInvalidStateFailure
NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Ordering
NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> NamespaceInvalidStateFailure
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 :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Ordering
compare :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Ordering
$c< :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
< :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
$c<= :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
<= :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
$c> :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
> :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
$c>= :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
>= :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> Bool
$cmax :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> NamespaceInvalidStateFailure
max :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> NamespaceInvalidStateFailure
$cmin :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> NamespaceInvalidStateFailure
min :: NamespaceInvalidStateFailure
-> NamespaceInvalidStateFailure -> NamespaceInvalidStateFailure
Prelude.Ord)
instance Prelude.Show NamespaceInvalidStateFailure where
  showsPrec :: Int -> NamespaceInvalidStateFailure -> ShowS
showsPrec Int
_ NamespaceInvalidStateFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NamespaceInvalidStateFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NamespaceInvalidStateFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NamespaceInvalidStateFailure "namespace" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespace"
-> (Text -> f Text)
-> NamespaceInvalidStateFailure
-> f NamespaceInvalidStateFailure
fieldOf Proxy# "namespace"
_
    = ((Text -> f Text)
 -> NamespaceInvalidStateFailure -> f NamespaceInvalidStateFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceInvalidStateFailure
-> f NamespaceInvalidStateFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInvalidStateFailure -> Text)
-> (NamespaceInvalidStateFailure
    -> Text -> NamespaceInvalidStateFailure)
-> Lens
     NamespaceInvalidStateFailure NamespaceInvalidStateFailure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInvalidStateFailure -> Text
_NamespaceInvalidStateFailure'namespace
           (\ NamespaceInvalidStateFailure
x__ Text
y__ -> NamespaceInvalidStateFailure
x__ {_NamespaceInvalidStateFailure'namespace = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceInvalidStateFailure "state" Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "state"
-> (NamespaceState -> f NamespaceState)
-> NamespaceInvalidStateFailure
-> f NamespaceInvalidStateFailure
fieldOf Proxy# "state"
_
    = ((NamespaceState -> f NamespaceState)
 -> NamespaceInvalidStateFailure -> f NamespaceInvalidStateFailure)
-> ((NamespaceState -> f NamespaceState)
    -> NamespaceState -> f NamespaceState)
-> (NamespaceState -> f NamespaceState)
-> NamespaceInvalidStateFailure
-> f NamespaceInvalidStateFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInvalidStateFailure -> NamespaceState)
-> (NamespaceInvalidStateFailure
    -> NamespaceState -> NamespaceInvalidStateFailure)
-> Lens
     NamespaceInvalidStateFailure
     NamespaceInvalidStateFailure
     NamespaceState
     NamespaceState
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInvalidStateFailure -> NamespaceState
_NamespaceInvalidStateFailure'state
           (\ NamespaceInvalidStateFailure
x__ NamespaceState
y__ -> NamespaceInvalidStateFailure
x__ {_NamespaceInvalidStateFailure'state = y__}))
        (NamespaceState -> f NamespaceState)
-> NamespaceState -> f NamespaceState
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceInvalidStateFailure "allowedStates" [Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "allowedStates"
-> ([NamespaceState] -> f [NamespaceState])
-> NamespaceInvalidStateFailure
-> f NamespaceInvalidStateFailure
fieldOf Proxy# "allowedStates"
_
    = ((Vector NamespaceState -> f (Vector NamespaceState))
 -> NamespaceInvalidStateFailure -> f NamespaceInvalidStateFailure)
-> (([NamespaceState] -> f [NamespaceState])
    -> Vector NamespaceState -> f (Vector NamespaceState))
-> ([NamespaceState] -> f [NamespaceState])
-> NamespaceInvalidStateFailure
-> f NamespaceInvalidStateFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInvalidStateFailure -> Vector NamespaceState)
-> (NamespaceInvalidStateFailure
    -> Vector NamespaceState -> NamespaceInvalidStateFailure)
-> Lens
     NamespaceInvalidStateFailure
     NamespaceInvalidStateFailure
     (Vector NamespaceState)
     (Vector NamespaceState)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInvalidStateFailure -> Vector NamespaceState
_NamespaceInvalidStateFailure'allowedStates
           (\ NamespaceInvalidStateFailure
x__ Vector NamespaceState
y__
              -> NamespaceInvalidStateFailure
x__ {_NamespaceInvalidStateFailure'allowedStates = y__}))
        ((Vector NamespaceState -> [NamespaceState])
-> (Vector NamespaceState
    -> [NamespaceState] -> Vector NamespaceState)
-> Lens
     (Vector NamespaceState)
     (Vector NamespaceState)
     [NamespaceState]
     [NamespaceState]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector NamespaceState -> [NamespaceState]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector NamespaceState
_ [NamespaceState]
y__ -> [NamespaceState] -> Vector NamespaceState
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [NamespaceState]
y__))
instance Data.ProtoLens.Field.HasField NamespaceInvalidStateFailure "vec'allowedStates" (Data.Vector.Vector Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'allowedStates"
-> (Vector NamespaceState -> f (Vector NamespaceState))
-> NamespaceInvalidStateFailure
-> f NamespaceInvalidStateFailure
fieldOf Proxy# "vec'allowedStates"
_
    = ((Vector NamespaceState -> f (Vector NamespaceState))
 -> NamespaceInvalidStateFailure -> f NamespaceInvalidStateFailure)
-> ((Vector NamespaceState -> f (Vector NamespaceState))
    -> Vector NamespaceState -> f (Vector NamespaceState))
-> (Vector NamespaceState -> f (Vector NamespaceState))
-> NamespaceInvalidStateFailure
-> f NamespaceInvalidStateFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInvalidStateFailure -> Vector NamespaceState)
-> (NamespaceInvalidStateFailure
    -> Vector NamespaceState -> NamespaceInvalidStateFailure)
-> Lens
     NamespaceInvalidStateFailure
     NamespaceInvalidStateFailure
     (Vector NamespaceState)
     (Vector NamespaceState)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInvalidStateFailure -> Vector NamespaceState
_NamespaceInvalidStateFailure'allowedStates
           (\ NamespaceInvalidStateFailure
x__ Vector NamespaceState
y__
              -> NamespaceInvalidStateFailure
x__ {_NamespaceInvalidStateFailure'allowedStates = y__}))
        (Vector NamespaceState -> f (Vector NamespaceState))
-> Vector NamespaceState -> f (Vector NamespaceState)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NamespaceInvalidStateFailure where
  messageName :: Proxy NamespaceInvalidStateFailure -> Text
messageName Proxy NamespaceInvalidStateFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.NamespaceInvalidStateFailure"
  packedMessageDescriptor :: Proxy NamespaceInvalidStateFailure -> ByteString
packedMessageDescriptor Proxy NamespaceInvalidStateFailure
_
    = ByteString
"\n\
      \\FSNamespaceInvalidStateFailure\DC2\FS\n\
      \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2;\n\
      \\ENQstate\CAN\STX \SOH(\SO2%.temporal.api.enums.v1.NamespaceStateR\ENQstate\DC2L\n\
      \\SOallowed_states\CAN\ETX \ETX(\SO2%.temporal.api.enums.v1.NamespaceStateR\rallowedStates"
  packedFileDescriptor :: Proxy NamespaceInvalidStateFailure -> ByteString
packedFileDescriptor Proxy NamespaceInvalidStateFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NamespaceInvalidStateFailure)
fieldsByTag
    = let
        namespace__field_descriptor :: FieldDescriptor NamespaceInvalidStateFailure
namespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceInvalidStateFailure Text
-> FieldDescriptor NamespaceInvalidStateFailure
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
     NamespaceInvalidStateFailure NamespaceInvalidStateFailure Text Text
-> FieldAccessor NamespaceInvalidStateFailure 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 NamespaceInvalidStateFailure
        state__field_descriptor :: FieldDescriptor NamespaceInvalidStateFailure
state__field_descriptor
          = String
-> FieldTypeDescriptor NamespaceState
-> FieldAccessor NamespaceInvalidStateFailure NamespaceState
-> FieldDescriptor NamespaceInvalidStateFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"state"
              (ScalarField NamespaceState -> FieldTypeDescriptor NamespaceState
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField NamespaceState
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState)
              (WireDefault NamespaceState
-> Lens
     NamespaceInvalidStateFailure
     NamespaceInvalidStateFailure
     NamespaceState
     NamespaceState
-> FieldAccessor NamespaceInvalidStateFailure NamespaceState
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault NamespaceState
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 @"state")) ::
              Data.ProtoLens.FieldDescriptor NamespaceInvalidStateFailure
        allowedStates__field_descriptor :: FieldDescriptor NamespaceInvalidStateFailure
allowedStates__field_descriptor
          = String
-> FieldTypeDescriptor NamespaceState
-> FieldAccessor NamespaceInvalidStateFailure NamespaceState
-> FieldDescriptor NamespaceInvalidStateFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"allowed_states"
              (ScalarField NamespaceState -> FieldTypeDescriptor NamespaceState
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField NamespaceState
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState)
              (Packing
-> Lens' NamespaceInvalidStateFailure [NamespaceState]
-> FieldAccessor NamespaceInvalidStateFailure NamespaceState
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allowedStates")) ::
              Data.ProtoLens.FieldDescriptor NamespaceInvalidStateFailure
      in
        [(Tag, FieldDescriptor NamespaceInvalidStateFailure)]
-> Map Tag (FieldDescriptor NamespaceInvalidStateFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NamespaceInvalidStateFailure
namespace__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NamespaceInvalidStateFailure
state__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor NamespaceInvalidStateFailure
allowedStates__field_descriptor)]
  unknownFields :: Lens' NamespaceInvalidStateFailure FieldSet
unknownFields
    = (NamespaceInvalidStateFailure -> FieldSet)
-> (NamespaceInvalidStateFailure
    -> FieldSet -> NamespaceInvalidStateFailure)
-> Lens' NamespaceInvalidStateFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NamespaceInvalidStateFailure -> FieldSet
_NamespaceInvalidStateFailure'_unknownFields
        (\ NamespaceInvalidStateFailure
x__ FieldSet
y__
           -> NamespaceInvalidStateFailure
x__ {_NamespaceInvalidStateFailure'_unknownFields = y__})
  defMessage :: NamespaceInvalidStateFailure
defMessage
    = NamespaceInvalidStateFailure'_constructor
        {_NamespaceInvalidStateFailure'namespace :: Text
_NamespaceInvalidStateFailure'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInvalidStateFailure'state :: NamespaceState
_NamespaceInvalidStateFailure'state = NamespaceState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInvalidStateFailure'allowedStates :: Vector NamespaceState
_NamespaceInvalidStateFailure'allowedStates = Vector NamespaceState
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _NamespaceInvalidStateFailure'_unknownFields :: FieldSet
_NamespaceInvalidStateFailure'_unknownFields = []}
  parseMessage :: Parser NamespaceInvalidStateFailure
parseMessage
    = let
        loop ::
          NamespaceInvalidStateFailure
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState
             -> Data.ProtoLens.Encoding.Bytes.Parser NamespaceInvalidStateFailure
        loop :: NamespaceInvalidStateFailure
-> Growing Vector RealWorld NamespaceState
-> Parser NamespaceInvalidStateFailure
loop NamespaceInvalidStateFailure
x Growing Vector RealWorld NamespaceState
mutable'allowedStates
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'allowedStates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                   mutable'allowedStates)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'allowedStates")
                              frozen'allowedStates 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)
                                  mutable'allowedStates
                        Word64
16
                          -> do y <- Parser NamespaceState -> String -> Parser NamespaceState
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> NamespaceState) -> Parser Int -> Parser NamespaceState
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> NamespaceState
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"state"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"state") y x)
                                  mutable'allowedStates
                        Word64
24
                          -> do !y <- Parser NamespaceState -> String -> Parser NamespaceState
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Int -> NamespaceState) -> Parser Int -> Parser NamespaceState
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Int -> NamespaceState
forall a. Enum a => Int -> a
Prelude.toEnum
                                           ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                              Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                              Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                        String
"allowed_states"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append
                                          mutable'allowedStates y)
                                loop x v
                        Word64
26
                          -> do y <- do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Data.ProtoLens.Encoding.Bytes.isolate
                                          (Prelude.fromIntegral len)
                                          ((let
                                              ploop Growing v RealWorld a
qs
                                                = do packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if packedEnd then
                                                         Prelude.return qs
                                                     else
                                                         do !q <- (Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    (Prelude.fmap
                                                                       Prelude.toEnum
                                                                       (Prelude.fmap
                                                                          Prelude.fromIntegral
                                                                          Data.ProtoLens.Encoding.Bytes.getVarInt))
                                                                    "allowed_states"
                                                            qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Data.ProtoLens.Encoding.Growing.append
                                                                        qs q)
                                                            ploop qs'
                                            in ploop)
                                             mutable'allowedStates)
                                loop x y
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'allowedStates
      in
        Parser NamespaceInvalidStateFailure
-> String -> Parser NamespaceInvalidStateFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'allowedStates <- IO (Growing Vector RealWorld NamespaceState)
-> Parser (Growing Vector RealWorld NamespaceState)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         IO (Growing Vector RealWorld NamespaceState)
IO (Growing Vector (PrimState IO) NamespaceState)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'allowedStates)
          String
"NamespaceInvalidStateFailure"
  buildMessage :: NamespaceInvalidStateFailure -> Builder
buildMessage
    = \ NamespaceInvalidStateFailure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike
  Text
  NamespaceInvalidStateFailure
  NamespaceInvalidStateFailure
  Text
  Text
-> NamespaceInvalidStateFailure -> 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") NamespaceInvalidStateFailure
_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 :: NamespaceState
_v = FoldLike
  NamespaceState
  NamespaceInvalidStateFailure
  NamespaceInvalidStateFailure
  NamespaceState
  NamespaceState
-> NamespaceInvalidStateFailure -> NamespaceState
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 @"state") NamespaceInvalidStateFailure
_x
                 in
                   if NamespaceState -> NamespaceState -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) NamespaceState
_v NamespaceState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         ((Int -> Builder)
-> (NamespaceState -> Int) -> NamespaceState -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                            NamespaceState -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum NamespaceState
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      p :: Vector NamespaceState
p = FoldLike
  (Vector NamespaceState)
  NamespaceInvalidStateFailure
  NamespaceInvalidStateFailure
  (Vector NamespaceState)
  (Vector NamespaceState)
-> NamespaceInvalidStateFailure -> Vector NamespaceState
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                            (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'allowedStates") NamespaceInvalidStateFailure
_x
                    in
                      if Vector NamespaceState -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector NamespaceState
p then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
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))
                               (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                                  ((NamespaceState -> Builder) -> Vector NamespaceState -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                     ((Int -> Builder)
-> (NamespaceState -> Int) -> NamespaceState -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                        ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                           Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                        NamespaceState -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum)
                                     Vector NamespaceState
p))))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  NamespaceInvalidStateFailure
  NamespaceInvalidStateFailure
  FieldSet
  FieldSet
-> NamespaceInvalidStateFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  NamespaceInvalidStateFailure
  NamespaceInvalidStateFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NamespaceInvalidStateFailure FieldSet
Data.ProtoLens.unknownFields NamespaceInvalidStateFailure
_x))))
instance Control.DeepSeq.NFData NamespaceInvalidStateFailure where
  rnf :: NamespaceInvalidStateFailure -> ()
rnf
    = \ NamespaceInvalidStateFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NamespaceInvalidStateFailure -> FieldSet
_NamespaceInvalidStateFailure'_unknownFields NamespaceInvalidStateFailure
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NamespaceInvalidStateFailure -> Text
_NamespaceInvalidStateFailure'namespace NamespaceInvalidStateFailure
x__)
                (NamespaceState -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (NamespaceInvalidStateFailure -> NamespaceState
_NamespaceInvalidStateFailure'state NamespaceInvalidStateFailure
x__)
                   (Vector NamespaceState -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (NamespaceInvalidStateFailure -> Vector NamespaceState
_NamespaceInvalidStateFailure'allowedStates NamespaceInvalidStateFailure
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.namespace' @:: Lens' NamespaceNotActiveFailure Data.Text.Text@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.currentCluster' @:: Lens' NamespaceNotActiveFailure Data.Text.Text@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.activeCluster' @:: Lens' NamespaceNotActiveFailure Data.Text.Text@ -}
data NamespaceNotActiveFailure
  = NamespaceNotActiveFailure'_constructor {NamespaceNotActiveFailure -> Text
_NamespaceNotActiveFailure'namespace :: !Data.Text.Text,
                                            NamespaceNotActiveFailure -> Text
_NamespaceNotActiveFailure'currentCluster :: !Data.Text.Text,
                                            NamespaceNotActiveFailure -> Text
_NamespaceNotActiveFailure'activeCluster :: !Data.Text.Text,
                                            NamespaceNotActiveFailure -> FieldSet
_NamespaceNotActiveFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
(NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool)
-> (NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool)
-> Eq NamespaceNotActiveFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
== :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
$c/= :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
/= :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
Prelude.Eq, Eq NamespaceNotActiveFailure
Eq NamespaceNotActiveFailure =>
(NamespaceNotActiveFailure
 -> NamespaceNotActiveFailure -> Ordering)
-> (NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool)
-> (NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool)
-> (NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool)
-> (NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool)
-> (NamespaceNotActiveFailure
    -> NamespaceNotActiveFailure -> NamespaceNotActiveFailure)
-> (NamespaceNotActiveFailure
    -> NamespaceNotActiveFailure -> NamespaceNotActiveFailure)
-> Ord NamespaceNotActiveFailure
NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Ordering
NamespaceNotActiveFailure
-> NamespaceNotActiveFailure -> NamespaceNotActiveFailure
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 :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Ordering
compare :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Ordering
$c< :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
< :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
$c<= :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
<= :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
$c> :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
> :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
$c>= :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
>= :: NamespaceNotActiveFailure -> NamespaceNotActiveFailure -> Bool
$cmax :: NamespaceNotActiveFailure
-> NamespaceNotActiveFailure -> NamespaceNotActiveFailure
max :: NamespaceNotActiveFailure
-> NamespaceNotActiveFailure -> NamespaceNotActiveFailure
$cmin :: NamespaceNotActiveFailure
-> NamespaceNotActiveFailure -> NamespaceNotActiveFailure
min :: NamespaceNotActiveFailure
-> NamespaceNotActiveFailure -> NamespaceNotActiveFailure
Prelude.Ord)
instance Prelude.Show NamespaceNotActiveFailure where
  showsPrec :: Int -> NamespaceNotActiveFailure -> ShowS
showsPrec Int
_ NamespaceNotActiveFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NamespaceNotActiveFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NamespaceNotActiveFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NamespaceNotActiveFailure "namespace" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespace"
-> (Text -> f Text)
-> NamespaceNotActiveFailure
-> f NamespaceNotActiveFailure
fieldOf Proxy# "namespace"
_
    = ((Text -> f Text)
 -> NamespaceNotActiveFailure -> f NamespaceNotActiveFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceNotActiveFailure
-> f NamespaceNotActiveFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceNotActiveFailure -> Text)
-> (NamespaceNotActiveFailure -> Text -> NamespaceNotActiveFailure)
-> Lens
     NamespaceNotActiveFailure NamespaceNotActiveFailure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceNotActiveFailure -> Text
_NamespaceNotActiveFailure'namespace
           (\ NamespaceNotActiveFailure
x__ Text
y__ -> NamespaceNotActiveFailure
x__ {_NamespaceNotActiveFailure'namespace = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceNotActiveFailure "currentCluster" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "currentCluster"
-> (Text -> f Text)
-> NamespaceNotActiveFailure
-> f NamespaceNotActiveFailure
fieldOf Proxy# "currentCluster"
_
    = ((Text -> f Text)
 -> NamespaceNotActiveFailure -> f NamespaceNotActiveFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceNotActiveFailure
-> f NamespaceNotActiveFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceNotActiveFailure -> Text)
-> (NamespaceNotActiveFailure -> Text -> NamespaceNotActiveFailure)
-> Lens
     NamespaceNotActiveFailure NamespaceNotActiveFailure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceNotActiveFailure -> Text
_NamespaceNotActiveFailure'currentCluster
           (\ NamespaceNotActiveFailure
x__ Text
y__
              -> NamespaceNotActiveFailure
x__ {_NamespaceNotActiveFailure'currentCluster = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceNotActiveFailure "activeCluster" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "activeCluster"
-> (Text -> f Text)
-> NamespaceNotActiveFailure
-> f NamespaceNotActiveFailure
fieldOf Proxy# "activeCluster"
_
    = ((Text -> f Text)
 -> NamespaceNotActiveFailure -> f NamespaceNotActiveFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceNotActiveFailure
-> f NamespaceNotActiveFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceNotActiveFailure -> Text)
-> (NamespaceNotActiveFailure -> Text -> NamespaceNotActiveFailure)
-> Lens
     NamespaceNotActiveFailure NamespaceNotActiveFailure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceNotActiveFailure -> Text
_NamespaceNotActiveFailure'activeCluster
           (\ NamespaceNotActiveFailure
x__ Text
y__
              -> NamespaceNotActiveFailure
x__ {_NamespaceNotActiveFailure'activeCluster = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NamespaceNotActiveFailure where
  messageName :: Proxy NamespaceNotActiveFailure -> Text
messageName Proxy NamespaceNotActiveFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.NamespaceNotActiveFailure"
  packedMessageDescriptor :: Proxy NamespaceNotActiveFailure -> ByteString
packedMessageDescriptor Proxy NamespaceNotActiveFailure
_
    = ByteString
"\n\
      \\EMNamespaceNotActiveFailure\DC2\FS\n\
      \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2'\n\
      \\SIcurrent_cluster\CAN\STX \SOH(\tR\SOcurrentCluster\DC2%\n\
      \\SOactive_cluster\CAN\ETX \SOH(\tR\ractiveCluster"
  packedFileDescriptor :: Proxy NamespaceNotActiveFailure -> ByteString
packedFileDescriptor Proxy NamespaceNotActiveFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NamespaceNotActiveFailure)
fieldsByTag
    = let
        namespace__field_descriptor :: FieldDescriptor NamespaceNotActiveFailure
namespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceNotActiveFailure Text
-> FieldDescriptor NamespaceNotActiveFailure
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
     NamespaceNotActiveFailure NamespaceNotActiveFailure Text Text
-> FieldAccessor NamespaceNotActiveFailure 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 NamespaceNotActiveFailure
        currentCluster__field_descriptor :: FieldDescriptor NamespaceNotActiveFailure
currentCluster__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceNotActiveFailure Text
-> FieldDescriptor NamespaceNotActiveFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"current_cluster"
              (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
     NamespaceNotActiveFailure NamespaceNotActiveFailure Text Text
-> FieldAccessor NamespaceNotActiveFailure 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 @"currentCluster")) ::
              Data.ProtoLens.FieldDescriptor NamespaceNotActiveFailure
        activeCluster__field_descriptor :: FieldDescriptor NamespaceNotActiveFailure
activeCluster__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceNotActiveFailure Text
-> FieldDescriptor NamespaceNotActiveFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"active_cluster"
              (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
     NamespaceNotActiveFailure NamespaceNotActiveFailure Text Text
-> FieldAccessor NamespaceNotActiveFailure 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 @"activeCluster")) ::
              Data.ProtoLens.FieldDescriptor NamespaceNotActiveFailure
      in
        [(Tag, FieldDescriptor NamespaceNotActiveFailure)]
-> Map Tag (FieldDescriptor NamespaceNotActiveFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NamespaceNotActiveFailure
namespace__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NamespaceNotActiveFailure
currentCluster__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor NamespaceNotActiveFailure
activeCluster__field_descriptor)]
  unknownFields :: Lens' NamespaceNotActiveFailure FieldSet
unknownFields
    = (NamespaceNotActiveFailure -> FieldSet)
-> (NamespaceNotActiveFailure
    -> FieldSet -> NamespaceNotActiveFailure)
-> Lens' NamespaceNotActiveFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NamespaceNotActiveFailure -> FieldSet
_NamespaceNotActiveFailure'_unknownFields
        (\ NamespaceNotActiveFailure
x__ FieldSet
y__
           -> NamespaceNotActiveFailure
x__ {_NamespaceNotActiveFailure'_unknownFields = y__})
  defMessage :: NamespaceNotActiveFailure
defMessage
    = NamespaceNotActiveFailure'_constructor
        {_NamespaceNotActiveFailure'namespace :: Text
_NamespaceNotActiveFailure'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceNotActiveFailure'currentCluster :: Text
_NamespaceNotActiveFailure'currentCluster = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceNotActiveFailure'activeCluster :: Text
_NamespaceNotActiveFailure'activeCluster = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceNotActiveFailure'_unknownFields :: FieldSet
_NamespaceNotActiveFailure'_unknownFields = []}
  parseMessage :: Parser NamespaceNotActiveFailure
parseMessage
    = let
        loop ::
          NamespaceNotActiveFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser NamespaceNotActiveFailure
        loop :: NamespaceNotActiveFailure -> Parser NamespaceNotActiveFailure
loop NamespaceNotActiveFailure
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
"current_cluster"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"currentCluster") 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
"active_cluster"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"activeCluster") 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 NamespaceNotActiveFailure
-> String -> Parser NamespaceNotActiveFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NamespaceNotActiveFailure -> Parser NamespaceNotActiveFailure
loop NamespaceNotActiveFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"NamespaceNotActiveFailure"
  buildMessage :: NamespaceNotActiveFailure -> Builder
buildMessage
    = \ NamespaceNotActiveFailure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike
  Text NamespaceNotActiveFailure NamespaceNotActiveFailure Text Text
-> NamespaceNotActiveFailure -> 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") NamespaceNotActiveFailure
_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 NamespaceNotActiveFailure NamespaceNotActiveFailure Text Text
-> NamespaceNotActiveFailure -> 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 @"currentCluster") NamespaceNotActiveFailure
_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 NamespaceNotActiveFailure NamespaceNotActiveFailure Text Text
-> NamespaceNotActiveFailure -> 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 @"activeCluster") NamespaceNotActiveFailure
_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
  NamespaceNotActiveFailure
  NamespaceNotActiveFailure
  FieldSet
  FieldSet
-> NamespaceNotActiveFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  NamespaceNotActiveFailure
  NamespaceNotActiveFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NamespaceNotActiveFailure FieldSet
Data.ProtoLens.unknownFields NamespaceNotActiveFailure
_x))))
instance Control.DeepSeq.NFData NamespaceNotActiveFailure where
  rnf :: NamespaceNotActiveFailure -> ()
rnf
    = \ NamespaceNotActiveFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NamespaceNotActiveFailure -> FieldSet
_NamespaceNotActiveFailure'_unknownFields NamespaceNotActiveFailure
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NamespaceNotActiveFailure -> Text
_NamespaceNotActiveFailure'namespace NamespaceNotActiveFailure
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (NamespaceNotActiveFailure -> Text
_NamespaceNotActiveFailure'currentCluster NamespaceNotActiveFailure
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (NamespaceNotActiveFailure -> Text
_NamespaceNotActiveFailure'activeCluster NamespaceNotActiveFailure
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.namespace' @:: Lens' NamespaceNotFoundFailure Data.Text.Text@ -}
data NamespaceNotFoundFailure
  = NamespaceNotFoundFailure'_constructor {NamespaceNotFoundFailure -> Text
_NamespaceNotFoundFailure'namespace :: !Data.Text.Text,
                                           NamespaceNotFoundFailure -> FieldSet
_NamespaceNotFoundFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
(NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool)
-> (NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool)
-> Eq NamespaceNotFoundFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
== :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
$c/= :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
/= :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
Prelude.Eq, Eq NamespaceNotFoundFailure
Eq NamespaceNotFoundFailure =>
(NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Ordering)
-> (NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool)
-> (NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool)
-> (NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool)
-> (NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool)
-> (NamespaceNotFoundFailure
    -> NamespaceNotFoundFailure -> NamespaceNotFoundFailure)
-> (NamespaceNotFoundFailure
    -> NamespaceNotFoundFailure -> NamespaceNotFoundFailure)
-> Ord NamespaceNotFoundFailure
NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Ordering
NamespaceNotFoundFailure
-> NamespaceNotFoundFailure -> NamespaceNotFoundFailure
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 :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Ordering
compare :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Ordering
$c< :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
< :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
$c<= :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
<= :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
$c> :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
> :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
$c>= :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
>= :: NamespaceNotFoundFailure -> NamespaceNotFoundFailure -> Bool
$cmax :: NamespaceNotFoundFailure
-> NamespaceNotFoundFailure -> NamespaceNotFoundFailure
max :: NamespaceNotFoundFailure
-> NamespaceNotFoundFailure -> NamespaceNotFoundFailure
$cmin :: NamespaceNotFoundFailure
-> NamespaceNotFoundFailure -> NamespaceNotFoundFailure
min :: NamespaceNotFoundFailure
-> NamespaceNotFoundFailure -> NamespaceNotFoundFailure
Prelude.Ord)
instance Prelude.Show NamespaceNotFoundFailure where
  showsPrec :: Int -> NamespaceNotFoundFailure -> ShowS
showsPrec Int
_ NamespaceNotFoundFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NamespaceNotFoundFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NamespaceNotFoundFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NamespaceNotFoundFailure "namespace" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespace"
-> (Text -> f Text)
-> NamespaceNotFoundFailure
-> f NamespaceNotFoundFailure
fieldOf Proxy# "namespace"
_
    = ((Text -> f Text)
 -> NamespaceNotFoundFailure -> f NamespaceNotFoundFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceNotFoundFailure
-> f NamespaceNotFoundFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceNotFoundFailure -> Text)
-> (NamespaceNotFoundFailure -> Text -> NamespaceNotFoundFailure)
-> Lens NamespaceNotFoundFailure NamespaceNotFoundFailure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceNotFoundFailure -> Text
_NamespaceNotFoundFailure'namespace
           (\ NamespaceNotFoundFailure
x__ Text
y__ -> NamespaceNotFoundFailure
x__ {_NamespaceNotFoundFailure'namespace = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NamespaceNotFoundFailure where
  messageName :: Proxy NamespaceNotFoundFailure -> Text
messageName Proxy NamespaceNotFoundFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.NamespaceNotFoundFailure"
  packedMessageDescriptor :: Proxy NamespaceNotFoundFailure -> ByteString
packedMessageDescriptor Proxy NamespaceNotFoundFailure
_
    = ByteString
"\n\
      \\CANNamespaceNotFoundFailure\DC2\FS\n\
      \\tnamespace\CAN\SOH \SOH(\tR\tnamespace"
  packedFileDescriptor :: Proxy NamespaceNotFoundFailure -> ByteString
packedFileDescriptor Proxy NamespaceNotFoundFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NamespaceNotFoundFailure)
fieldsByTag
    = let
        namespace__field_descriptor :: FieldDescriptor NamespaceNotFoundFailure
namespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceNotFoundFailure Text
-> FieldDescriptor NamespaceNotFoundFailure
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 NamespaceNotFoundFailure NamespaceNotFoundFailure Text Text
-> FieldAccessor NamespaceNotFoundFailure 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 NamespaceNotFoundFailure
      in
        [(Tag, FieldDescriptor NamespaceNotFoundFailure)]
-> Map Tag (FieldDescriptor NamespaceNotFoundFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NamespaceNotFoundFailure
namespace__field_descriptor)]
  unknownFields :: Lens' NamespaceNotFoundFailure FieldSet
unknownFields
    = (NamespaceNotFoundFailure -> FieldSet)
-> (NamespaceNotFoundFailure
    -> FieldSet -> NamespaceNotFoundFailure)
-> Lens' NamespaceNotFoundFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NamespaceNotFoundFailure -> FieldSet
_NamespaceNotFoundFailure'_unknownFields
        (\ NamespaceNotFoundFailure
x__ FieldSet
y__ -> NamespaceNotFoundFailure
x__ {_NamespaceNotFoundFailure'_unknownFields = y__})
  defMessage :: NamespaceNotFoundFailure
defMessage
    = NamespaceNotFoundFailure'_constructor
        {_NamespaceNotFoundFailure'namespace :: Text
_NamespaceNotFoundFailure'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceNotFoundFailure'_unknownFields :: FieldSet
_NamespaceNotFoundFailure'_unknownFields = []}
  parseMessage :: Parser NamespaceNotFoundFailure
parseMessage
    = let
        loop ::
          NamespaceNotFoundFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser NamespaceNotFoundFailure
        loop :: NamespaceNotFoundFailure -> Parser NamespaceNotFoundFailure
loop NamespaceNotFoundFailure
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
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 NamespaceNotFoundFailure
-> String -> Parser NamespaceNotFoundFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NamespaceNotFoundFailure -> Parser NamespaceNotFoundFailure
loop NamespaceNotFoundFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"NamespaceNotFoundFailure"
  buildMessage :: NamespaceNotFoundFailure -> Builder
buildMessage
    = \ NamespaceNotFoundFailure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike
  Text NamespaceNotFoundFailure NamespaceNotFoundFailure Text Text
-> NamespaceNotFoundFailure -> 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") NamespaceNotFoundFailure
_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
  NamespaceNotFoundFailure
  NamespaceNotFoundFailure
  FieldSet
  FieldSet
-> NamespaceNotFoundFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  NamespaceNotFoundFailure
  NamespaceNotFoundFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NamespaceNotFoundFailure FieldSet
Data.ProtoLens.unknownFields NamespaceNotFoundFailure
_x))
instance Control.DeepSeq.NFData NamespaceNotFoundFailure where
  rnf :: NamespaceNotFoundFailure -> ()
rnf
    = \ NamespaceNotFoundFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NamespaceNotFoundFailure -> FieldSet
_NamespaceNotFoundFailure'_unknownFields NamespaceNotFoundFailure
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NamespaceNotFoundFailure -> Text
_NamespaceNotFoundFailure'namespace NamespaceNotFoundFailure
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.defaultBuildId' @:: Lens' NewerBuildExistsFailure Data.Text.Text@ -}
data NewerBuildExistsFailure
  = NewerBuildExistsFailure'_constructor {NewerBuildExistsFailure -> Text
_NewerBuildExistsFailure'defaultBuildId :: !Data.Text.Text,
                                          NewerBuildExistsFailure -> FieldSet
_NewerBuildExistsFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
(NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool)
-> (NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool)
-> Eq NewerBuildExistsFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
== :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
$c/= :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
/= :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
Prelude.Eq, Eq NewerBuildExistsFailure
Eq NewerBuildExistsFailure =>
(NewerBuildExistsFailure -> NewerBuildExistsFailure -> Ordering)
-> (NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool)
-> (NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool)
-> (NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool)
-> (NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool)
-> (NewerBuildExistsFailure
    -> NewerBuildExistsFailure -> NewerBuildExistsFailure)
-> (NewerBuildExistsFailure
    -> NewerBuildExistsFailure -> NewerBuildExistsFailure)
-> Ord NewerBuildExistsFailure
NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
NewerBuildExistsFailure -> NewerBuildExistsFailure -> Ordering
NewerBuildExistsFailure
-> NewerBuildExistsFailure -> NewerBuildExistsFailure
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 :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Ordering
compare :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Ordering
$c< :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
< :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
$c<= :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
<= :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
$c> :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
> :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
$c>= :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
>= :: NewerBuildExistsFailure -> NewerBuildExistsFailure -> Bool
$cmax :: NewerBuildExistsFailure
-> NewerBuildExistsFailure -> NewerBuildExistsFailure
max :: NewerBuildExistsFailure
-> NewerBuildExistsFailure -> NewerBuildExistsFailure
$cmin :: NewerBuildExistsFailure
-> NewerBuildExistsFailure -> NewerBuildExistsFailure
min :: NewerBuildExistsFailure
-> NewerBuildExistsFailure -> NewerBuildExistsFailure
Prelude.Ord)
instance Prelude.Show NewerBuildExistsFailure where
  showsPrec :: Int -> NewerBuildExistsFailure -> ShowS
showsPrec Int
_ NewerBuildExistsFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NewerBuildExistsFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NewerBuildExistsFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NewerBuildExistsFailure "defaultBuildId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "defaultBuildId"
-> (Text -> f Text)
-> NewerBuildExistsFailure
-> f NewerBuildExistsFailure
fieldOf Proxy# "defaultBuildId"
_
    = ((Text -> f Text)
 -> NewerBuildExistsFailure -> f NewerBuildExistsFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NewerBuildExistsFailure
-> f NewerBuildExistsFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewerBuildExistsFailure -> Text)
-> (NewerBuildExistsFailure -> Text -> NewerBuildExistsFailure)
-> Lens NewerBuildExistsFailure NewerBuildExistsFailure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewerBuildExistsFailure -> Text
_NewerBuildExistsFailure'defaultBuildId
           (\ NewerBuildExistsFailure
x__ Text
y__ -> NewerBuildExistsFailure
x__ {_NewerBuildExistsFailure'defaultBuildId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NewerBuildExistsFailure where
  messageName :: Proxy NewerBuildExistsFailure -> Text
messageName Proxy NewerBuildExistsFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.NewerBuildExistsFailure"
  packedMessageDescriptor :: Proxy NewerBuildExistsFailure -> ByteString
packedMessageDescriptor Proxy NewerBuildExistsFailure
_
    = ByteString
"\n\
      \\ETBNewerBuildExistsFailure\DC2(\n\
      \\DLEdefault_build_id\CAN\SOH \SOH(\tR\SOdefaultBuildId"
  packedFileDescriptor :: Proxy NewerBuildExistsFailure -> ByteString
packedFileDescriptor Proxy NewerBuildExistsFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NewerBuildExistsFailure)
fieldsByTag
    = let
        defaultBuildId__field_descriptor :: FieldDescriptor NewerBuildExistsFailure
defaultBuildId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NewerBuildExistsFailure Text
-> FieldDescriptor NewerBuildExistsFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"default_build_id"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens NewerBuildExistsFailure NewerBuildExistsFailure Text Text
-> FieldAccessor NewerBuildExistsFailure 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 @"defaultBuildId")) ::
              Data.ProtoLens.FieldDescriptor NewerBuildExistsFailure
      in
        [(Tag, FieldDescriptor NewerBuildExistsFailure)]
-> Map Tag (FieldDescriptor NewerBuildExistsFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NewerBuildExistsFailure
defaultBuildId__field_descriptor)]
  unknownFields :: Lens' NewerBuildExistsFailure FieldSet
unknownFields
    = (NewerBuildExistsFailure -> FieldSet)
-> (NewerBuildExistsFailure -> FieldSet -> NewerBuildExistsFailure)
-> Lens' NewerBuildExistsFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NewerBuildExistsFailure -> FieldSet
_NewerBuildExistsFailure'_unknownFields
        (\ NewerBuildExistsFailure
x__ FieldSet
y__ -> NewerBuildExistsFailure
x__ {_NewerBuildExistsFailure'_unknownFields = y__})
  defMessage :: NewerBuildExistsFailure
defMessage
    = NewerBuildExistsFailure'_constructor
        {_NewerBuildExistsFailure'defaultBuildId :: Text
_NewerBuildExistsFailure'defaultBuildId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NewerBuildExistsFailure'_unknownFields :: FieldSet
_NewerBuildExistsFailure'_unknownFields = []}
  parseMessage :: Parser NewerBuildExistsFailure
parseMessage
    = let
        loop ::
          NewerBuildExistsFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser NewerBuildExistsFailure
        loop :: NewerBuildExistsFailure -> Parser NewerBuildExistsFailure
loop NewerBuildExistsFailure
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
"default_build_id"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"defaultBuildId") 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 NewerBuildExistsFailure
-> String -> Parser NewerBuildExistsFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NewerBuildExistsFailure -> Parser NewerBuildExistsFailure
loop NewerBuildExistsFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"NewerBuildExistsFailure"
  buildMessage :: NewerBuildExistsFailure -> Builder
buildMessage
    = \ NewerBuildExistsFailure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text NewerBuildExistsFailure NewerBuildExistsFailure Text Text
-> NewerBuildExistsFailure -> 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 @"defaultBuildId") NewerBuildExistsFailure
_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
  NewerBuildExistsFailure
  NewerBuildExistsFailure
  FieldSet
  FieldSet
-> NewerBuildExistsFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  NewerBuildExistsFailure
  NewerBuildExistsFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NewerBuildExistsFailure FieldSet
Data.ProtoLens.unknownFields NewerBuildExistsFailure
_x))
instance Control.DeepSeq.NFData NewerBuildExistsFailure where
  rnf :: NewerBuildExistsFailure -> ()
rnf
    = \ NewerBuildExistsFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NewerBuildExistsFailure -> FieldSet
_NewerBuildExistsFailure'_unknownFields NewerBuildExistsFailure
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NewerBuildExistsFailure -> Text
_NewerBuildExistsFailure'defaultBuildId NewerBuildExistsFailure
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.currentCluster' @:: Lens' NotFoundFailure Data.Text.Text@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.activeCluster' @:: Lens' NotFoundFailure Data.Text.Text@ -}
data NotFoundFailure
  = NotFoundFailure'_constructor {NotFoundFailure -> Text
_NotFoundFailure'currentCluster :: !Data.Text.Text,
                                  NotFoundFailure -> Text
_NotFoundFailure'activeCluster :: !Data.Text.Text,
                                  NotFoundFailure -> FieldSet
_NotFoundFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NotFoundFailure -> NotFoundFailure -> Bool
(NotFoundFailure -> NotFoundFailure -> Bool)
-> (NotFoundFailure -> NotFoundFailure -> Bool)
-> Eq NotFoundFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NotFoundFailure -> NotFoundFailure -> Bool
== :: NotFoundFailure -> NotFoundFailure -> Bool
$c/= :: NotFoundFailure -> NotFoundFailure -> Bool
/= :: NotFoundFailure -> NotFoundFailure -> Bool
Prelude.Eq, Eq NotFoundFailure
Eq NotFoundFailure =>
(NotFoundFailure -> NotFoundFailure -> Ordering)
-> (NotFoundFailure -> NotFoundFailure -> Bool)
-> (NotFoundFailure -> NotFoundFailure -> Bool)
-> (NotFoundFailure -> NotFoundFailure -> Bool)
-> (NotFoundFailure -> NotFoundFailure -> Bool)
-> (NotFoundFailure -> NotFoundFailure -> NotFoundFailure)
-> (NotFoundFailure -> NotFoundFailure -> NotFoundFailure)
-> Ord NotFoundFailure
NotFoundFailure -> NotFoundFailure -> Bool
NotFoundFailure -> NotFoundFailure -> Ordering
NotFoundFailure -> NotFoundFailure -> NotFoundFailure
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 :: NotFoundFailure -> NotFoundFailure -> Ordering
compare :: NotFoundFailure -> NotFoundFailure -> Ordering
$c< :: NotFoundFailure -> NotFoundFailure -> Bool
< :: NotFoundFailure -> NotFoundFailure -> Bool
$c<= :: NotFoundFailure -> NotFoundFailure -> Bool
<= :: NotFoundFailure -> NotFoundFailure -> Bool
$c> :: NotFoundFailure -> NotFoundFailure -> Bool
> :: NotFoundFailure -> NotFoundFailure -> Bool
$c>= :: NotFoundFailure -> NotFoundFailure -> Bool
>= :: NotFoundFailure -> NotFoundFailure -> Bool
$cmax :: NotFoundFailure -> NotFoundFailure -> NotFoundFailure
max :: NotFoundFailure -> NotFoundFailure -> NotFoundFailure
$cmin :: NotFoundFailure -> NotFoundFailure -> NotFoundFailure
min :: NotFoundFailure -> NotFoundFailure -> NotFoundFailure
Prelude.Ord)
instance Prelude.Show NotFoundFailure where
  showsPrec :: Int -> NotFoundFailure -> ShowS
showsPrec Int
_ NotFoundFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NotFoundFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NotFoundFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NotFoundFailure "currentCluster" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "currentCluster"
-> (Text -> f Text) -> NotFoundFailure -> f NotFoundFailure
fieldOf Proxy# "currentCluster"
_
    = ((Text -> f Text) -> NotFoundFailure -> f NotFoundFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NotFoundFailure
-> f NotFoundFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NotFoundFailure -> Text)
-> (NotFoundFailure -> Text -> NotFoundFailure)
-> Lens NotFoundFailure NotFoundFailure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NotFoundFailure -> Text
_NotFoundFailure'currentCluster
           (\ NotFoundFailure
x__ Text
y__ -> NotFoundFailure
x__ {_NotFoundFailure'currentCluster = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NotFoundFailure "activeCluster" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "activeCluster"
-> (Text -> f Text) -> NotFoundFailure -> f NotFoundFailure
fieldOf Proxy# "activeCluster"
_
    = ((Text -> f Text) -> NotFoundFailure -> f NotFoundFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NotFoundFailure
-> f NotFoundFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NotFoundFailure -> Text)
-> (NotFoundFailure -> Text -> NotFoundFailure)
-> Lens NotFoundFailure NotFoundFailure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NotFoundFailure -> Text
_NotFoundFailure'activeCluster
           (\ NotFoundFailure
x__ Text
y__ -> NotFoundFailure
x__ {_NotFoundFailure'activeCluster = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NotFoundFailure where
  messageName :: Proxy NotFoundFailure -> Text
messageName Proxy NotFoundFailure
_
    = String -> Text
Data.Text.pack String
"temporal.api.errordetails.v1.NotFoundFailure"
  packedMessageDescriptor :: Proxy NotFoundFailure -> ByteString
packedMessageDescriptor Proxy NotFoundFailure
_
    = ByteString
"\n\
      \\SINotFoundFailure\DC2'\n\
      \\SIcurrent_cluster\CAN\SOH \SOH(\tR\SOcurrentCluster\DC2%\n\
      \\SOactive_cluster\CAN\STX \SOH(\tR\ractiveCluster"
  packedFileDescriptor :: Proxy NotFoundFailure -> ByteString
packedFileDescriptor Proxy NotFoundFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NotFoundFailure)
fieldsByTag
    = let
        currentCluster__field_descriptor :: FieldDescriptor NotFoundFailure
currentCluster__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NotFoundFailure Text
-> FieldDescriptor NotFoundFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"current_cluster"
              (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 NotFoundFailure NotFoundFailure Text Text
-> FieldAccessor NotFoundFailure 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 @"currentCluster")) ::
              Data.ProtoLens.FieldDescriptor NotFoundFailure
        activeCluster__field_descriptor :: FieldDescriptor NotFoundFailure
activeCluster__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NotFoundFailure Text
-> FieldDescriptor NotFoundFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"active_cluster"
              (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 NotFoundFailure NotFoundFailure Text Text
-> FieldAccessor NotFoundFailure 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 @"activeCluster")) ::
              Data.ProtoLens.FieldDescriptor NotFoundFailure
      in
        [(Tag, FieldDescriptor NotFoundFailure)]
-> Map Tag (FieldDescriptor NotFoundFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NotFoundFailure
currentCluster__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NotFoundFailure
activeCluster__field_descriptor)]
  unknownFields :: Lens' NotFoundFailure FieldSet
unknownFields
    = (NotFoundFailure -> FieldSet)
-> (NotFoundFailure -> FieldSet -> NotFoundFailure)
-> Lens' NotFoundFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NotFoundFailure -> FieldSet
_NotFoundFailure'_unknownFields
        (\ NotFoundFailure
x__ FieldSet
y__ -> NotFoundFailure
x__ {_NotFoundFailure'_unknownFields = y__})
  defMessage :: NotFoundFailure
defMessage
    = NotFoundFailure'_constructor
        {_NotFoundFailure'currentCluster :: Text
_NotFoundFailure'currentCluster = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NotFoundFailure'activeCluster :: Text
_NotFoundFailure'activeCluster = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NotFoundFailure'_unknownFields :: FieldSet
_NotFoundFailure'_unknownFields = []}
  parseMessage :: Parser NotFoundFailure
parseMessage
    = let
        loop ::
          NotFoundFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser NotFoundFailure
        loop :: NotFoundFailure -> Parser NotFoundFailure
loop NotFoundFailure
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
"current_cluster"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"currentCluster") 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
"active_cluster"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"activeCluster") 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 NotFoundFailure -> String -> Parser NotFoundFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NotFoundFailure -> Parser NotFoundFailure
loop NotFoundFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"NotFoundFailure"
  buildMessage :: NotFoundFailure -> Builder
buildMessage
    = \ NotFoundFailure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike Text NotFoundFailure NotFoundFailure Text Text
-> NotFoundFailure -> 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 @"currentCluster") NotFoundFailure
_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 NotFoundFailure NotFoundFailure Text Text
-> NotFoundFailure -> 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 @"activeCluster") NotFoundFailure
_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 NotFoundFailure NotFoundFailure FieldSet FieldSet
-> NotFoundFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet NotFoundFailure NotFoundFailure FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NotFoundFailure FieldSet
Data.ProtoLens.unknownFields NotFoundFailure
_x)))
instance Control.DeepSeq.NFData NotFoundFailure where
  rnf :: NotFoundFailure -> ()
rnf
    = \ NotFoundFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NotFoundFailure -> FieldSet
_NotFoundFailure'_unknownFields NotFoundFailure
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NotFoundFailure -> Text
_NotFoundFailure'currentCluster NotFoundFailure
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (NotFoundFailure -> Text
_NotFoundFailure'activeCluster NotFoundFailure
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.reason' @:: Lens' PermissionDeniedFailure Data.Text.Text@ -}
data PermissionDeniedFailure
  = PermissionDeniedFailure'_constructor {PermissionDeniedFailure -> Text
_PermissionDeniedFailure'reason :: !Data.Text.Text,
                                          PermissionDeniedFailure -> FieldSet
_PermissionDeniedFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
(PermissionDeniedFailure -> PermissionDeniedFailure -> Bool)
-> (PermissionDeniedFailure -> PermissionDeniedFailure -> Bool)
-> Eq PermissionDeniedFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
== :: PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
$c/= :: PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
/= :: PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
Prelude.Eq, Eq PermissionDeniedFailure
Eq PermissionDeniedFailure =>
(PermissionDeniedFailure -> PermissionDeniedFailure -> Ordering)
-> (PermissionDeniedFailure -> PermissionDeniedFailure -> Bool)
-> (PermissionDeniedFailure -> PermissionDeniedFailure -> Bool)
-> (PermissionDeniedFailure -> PermissionDeniedFailure -> Bool)
-> (PermissionDeniedFailure -> PermissionDeniedFailure -> Bool)
-> (PermissionDeniedFailure
    -> PermissionDeniedFailure -> PermissionDeniedFailure)
-> (PermissionDeniedFailure
    -> PermissionDeniedFailure -> PermissionDeniedFailure)
-> Ord PermissionDeniedFailure
PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
PermissionDeniedFailure -> PermissionDeniedFailure -> Ordering
PermissionDeniedFailure
-> PermissionDeniedFailure -> PermissionDeniedFailure
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 :: PermissionDeniedFailure -> PermissionDeniedFailure -> Ordering
compare :: PermissionDeniedFailure -> PermissionDeniedFailure -> Ordering
$c< :: PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
< :: PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
$c<= :: PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
<= :: PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
$c> :: PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
> :: PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
$c>= :: PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
>= :: PermissionDeniedFailure -> PermissionDeniedFailure -> Bool
$cmax :: PermissionDeniedFailure
-> PermissionDeniedFailure -> PermissionDeniedFailure
max :: PermissionDeniedFailure
-> PermissionDeniedFailure -> PermissionDeniedFailure
$cmin :: PermissionDeniedFailure
-> PermissionDeniedFailure -> PermissionDeniedFailure
min :: PermissionDeniedFailure
-> PermissionDeniedFailure -> PermissionDeniedFailure
Prelude.Ord)
instance Prelude.Show PermissionDeniedFailure where
  showsPrec :: Int -> PermissionDeniedFailure -> ShowS
showsPrec Int
_ PermissionDeniedFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (PermissionDeniedFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PermissionDeniedFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField PermissionDeniedFailure "reason" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "reason"
-> (Text -> f Text)
-> PermissionDeniedFailure
-> f PermissionDeniedFailure
fieldOf Proxy# "reason"
_
    = ((Text -> f Text)
 -> PermissionDeniedFailure -> f PermissionDeniedFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> PermissionDeniedFailure
-> f PermissionDeniedFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PermissionDeniedFailure -> Text)
-> (PermissionDeniedFailure -> Text -> PermissionDeniedFailure)
-> Lens PermissionDeniedFailure PermissionDeniedFailure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PermissionDeniedFailure -> Text
_PermissionDeniedFailure'reason
           (\ PermissionDeniedFailure
x__ Text
y__ -> PermissionDeniedFailure
x__ {_PermissionDeniedFailure'reason = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PermissionDeniedFailure where
  messageName :: Proxy PermissionDeniedFailure -> Text
messageName Proxy PermissionDeniedFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.PermissionDeniedFailure"
  packedMessageDescriptor :: Proxy PermissionDeniedFailure -> ByteString
packedMessageDescriptor Proxy PermissionDeniedFailure
_
    = ByteString
"\n\
      \\ETBPermissionDeniedFailure\DC2\SYN\n\
      \\ACKreason\CAN\SOH \SOH(\tR\ACKreason"
  packedFileDescriptor :: Proxy PermissionDeniedFailure -> ByteString
packedFileDescriptor Proxy PermissionDeniedFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PermissionDeniedFailure)
fieldsByTag
    = let
        reason__field_descriptor :: FieldDescriptor PermissionDeniedFailure
reason__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor PermissionDeniedFailure Text
-> FieldDescriptor PermissionDeniedFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"reason"
              (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 PermissionDeniedFailure PermissionDeniedFailure Text Text
-> FieldAccessor PermissionDeniedFailure 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 @"reason")) ::
              Data.ProtoLens.FieldDescriptor PermissionDeniedFailure
      in
        [(Tag, FieldDescriptor PermissionDeniedFailure)]
-> Map Tag (FieldDescriptor PermissionDeniedFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor PermissionDeniedFailure
reason__field_descriptor)]
  unknownFields :: Lens' PermissionDeniedFailure FieldSet
unknownFields
    = (PermissionDeniedFailure -> FieldSet)
-> (PermissionDeniedFailure -> FieldSet -> PermissionDeniedFailure)
-> Lens' PermissionDeniedFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PermissionDeniedFailure -> FieldSet
_PermissionDeniedFailure'_unknownFields
        (\ PermissionDeniedFailure
x__ FieldSet
y__ -> PermissionDeniedFailure
x__ {_PermissionDeniedFailure'_unknownFields = y__})
  defMessage :: PermissionDeniedFailure
defMessage
    = PermissionDeniedFailure'_constructor
        {_PermissionDeniedFailure'reason :: Text
_PermissionDeniedFailure'reason = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PermissionDeniedFailure'_unknownFields :: FieldSet
_PermissionDeniedFailure'_unknownFields = []}
  parseMessage :: Parser PermissionDeniedFailure
parseMessage
    = let
        loop ::
          PermissionDeniedFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser PermissionDeniedFailure
        loop :: PermissionDeniedFailure -> Parser PermissionDeniedFailure
loop PermissionDeniedFailure
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
"reason"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"reason") 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 PermissionDeniedFailure
-> String -> Parser PermissionDeniedFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do PermissionDeniedFailure -> Parser PermissionDeniedFailure
loop PermissionDeniedFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"PermissionDeniedFailure"
  buildMessage :: PermissionDeniedFailure -> Builder
buildMessage
    = \ PermissionDeniedFailure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike
  Text PermissionDeniedFailure PermissionDeniedFailure Text Text
-> PermissionDeniedFailure -> 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 @"reason") PermissionDeniedFailure
_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
  PermissionDeniedFailure
  PermissionDeniedFailure
  FieldSet
  FieldSet
-> PermissionDeniedFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  PermissionDeniedFailure
  PermissionDeniedFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PermissionDeniedFailure FieldSet
Data.ProtoLens.unknownFields PermissionDeniedFailure
_x))
instance Control.DeepSeq.NFData PermissionDeniedFailure where
  rnf :: PermissionDeniedFailure -> ()
rnf
    = \ PermissionDeniedFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PermissionDeniedFailure -> FieldSet
_PermissionDeniedFailure'_unknownFields PermissionDeniedFailure
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (PermissionDeniedFailure -> Text
_PermissionDeniedFailure'reason PermissionDeniedFailure
x__) ())
{- | Fields :
      -}
data QueryFailedFailure
  = QueryFailedFailure'_constructor {QueryFailedFailure -> FieldSet
_QueryFailedFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (QueryFailedFailure -> QueryFailedFailure -> Bool
(QueryFailedFailure -> QueryFailedFailure -> Bool)
-> (QueryFailedFailure -> QueryFailedFailure -> Bool)
-> Eq QueryFailedFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: QueryFailedFailure -> QueryFailedFailure -> Bool
== :: QueryFailedFailure -> QueryFailedFailure -> Bool
$c/= :: QueryFailedFailure -> QueryFailedFailure -> Bool
/= :: QueryFailedFailure -> QueryFailedFailure -> Bool
Prelude.Eq, Eq QueryFailedFailure
Eq QueryFailedFailure =>
(QueryFailedFailure -> QueryFailedFailure -> Ordering)
-> (QueryFailedFailure -> QueryFailedFailure -> Bool)
-> (QueryFailedFailure -> QueryFailedFailure -> Bool)
-> (QueryFailedFailure -> QueryFailedFailure -> Bool)
-> (QueryFailedFailure -> QueryFailedFailure -> Bool)
-> (QueryFailedFailure -> QueryFailedFailure -> QueryFailedFailure)
-> (QueryFailedFailure -> QueryFailedFailure -> QueryFailedFailure)
-> Ord QueryFailedFailure
QueryFailedFailure -> QueryFailedFailure -> Bool
QueryFailedFailure -> QueryFailedFailure -> Ordering
QueryFailedFailure -> QueryFailedFailure -> QueryFailedFailure
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 :: QueryFailedFailure -> QueryFailedFailure -> Ordering
compare :: QueryFailedFailure -> QueryFailedFailure -> Ordering
$c< :: QueryFailedFailure -> QueryFailedFailure -> Bool
< :: QueryFailedFailure -> QueryFailedFailure -> Bool
$c<= :: QueryFailedFailure -> QueryFailedFailure -> Bool
<= :: QueryFailedFailure -> QueryFailedFailure -> Bool
$c> :: QueryFailedFailure -> QueryFailedFailure -> Bool
> :: QueryFailedFailure -> QueryFailedFailure -> Bool
$c>= :: QueryFailedFailure -> QueryFailedFailure -> Bool
>= :: QueryFailedFailure -> QueryFailedFailure -> Bool
$cmax :: QueryFailedFailure -> QueryFailedFailure -> QueryFailedFailure
max :: QueryFailedFailure -> QueryFailedFailure -> QueryFailedFailure
$cmin :: QueryFailedFailure -> QueryFailedFailure -> QueryFailedFailure
min :: QueryFailedFailure -> QueryFailedFailure -> QueryFailedFailure
Prelude.Ord)
instance Prelude.Show QueryFailedFailure where
  showsPrec :: Int -> QueryFailedFailure -> ShowS
showsPrec Int
_ QueryFailedFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (QueryFailedFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort QueryFailedFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message QueryFailedFailure where
  messageName :: Proxy QueryFailedFailure -> Text
messageName Proxy QueryFailedFailure
_
    = String -> Text
Data.Text.pack String
"temporal.api.errordetails.v1.QueryFailedFailure"
  packedMessageDescriptor :: Proxy QueryFailedFailure -> ByteString
packedMessageDescriptor Proxy QueryFailedFailure
_
    = ByteString
"\n\
      \\DC2QueryFailedFailure"
  packedFileDescriptor :: Proxy QueryFailedFailure -> ByteString
packedFileDescriptor Proxy QueryFailedFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor QueryFailedFailure)
fieldsByTag = let in [(Tag, FieldDescriptor QueryFailedFailure)]
-> Map Tag (FieldDescriptor QueryFailedFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' QueryFailedFailure FieldSet
unknownFields
    = (QueryFailedFailure -> FieldSet)
-> (QueryFailedFailure -> FieldSet -> QueryFailedFailure)
-> Lens' QueryFailedFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        QueryFailedFailure -> FieldSet
_QueryFailedFailure'_unknownFields
        (\ QueryFailedFailure
x__ FieldSet
y__ -> QueryFailedFailure
x__ {_QueryFailedFailure'_unknownFields = y__})
  defMessage :: QueryFailedFailure
defMessage
    = QueryFailedFailure'_constructor
        {_QueryFailedFailure'_unknownFields :: FieldSet
_QueryFailedFailure'_unknownFields = []}
  parseMessage :: Parser QueryFailedFailure
parseMessage
    = let
        loop ::
          QueryFailedFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser QueryFailedFailure
        loop :: QueryFailedFailure -> Parser QueryFailedFailure
loop QueryFailedFailure
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 QueryFailedFailure -> String -> Parser QueryFailedFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do QueryFailedFailure -> Parser QueryFailedFailure
loop QueryFailedFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"QueryFailedFailure"
  buildMessage :: QueryFailedFailure -> Builder
buildMessage
    = \ QueryFailedFailure
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet QueryFailedFailure QueryFailedFailure FieldSet FieldSet
-> QueryFailedFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet QueryFailedFailure QueryFailedFailure FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' QueryFailedFailure FieldSet
Data.ProtoLens.unknownFields QueryFailedFailure
_x)
instance Control.DeepSeq.NFData QueryFailedFailure where
  rnf :: QueryFailedFailure -> ()
rnf
    = \ QueryFailedFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (QueryFailedFailure -> FieldSet
_QueryFailedFailure'_unknownFields QueryFailedFailure
x__) ()
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.cause' @:: Lens' ResourceExhaustedFailure Proto.Temporal.Api.Enums.V1.FailedCause.ResourceExhaustedCause@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.scope' @:: Lens' ResourceExhaustedFailure Proto.Temporal.Api.Enums.V1.FailedCause.ResourceExhaustedScope@ -}
data ResourceExhaustedFailure
  = ResourceExhaustedFailure'_constructor {ResourceExhaustedFailure -> ResourceExhaustedCause
_ResourceExhaustedFailure'cause :: !Proto.Temporal.Api.Enums.V1.FailedCause.ResourceExhaustedCause,
                                           ResourceExhaustedFailure -> ResourceExhaustedScope
_ResourceExhaustedFailure'scope :: !Proto.Temporal.Api.Enums.V1.FailedCause.ResourceExhaustedScope,
                                           ResourceExhaustedFailure -> FieldSet
_ResourceExhaustedFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
(ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool)
-> (ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool)
-> Eq ResourceExhaustedFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
== :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
$c/= :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
/= :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
Prelude.Eq, Eq ResourceExhaustedFailure
Eq ResourceExhaustedFailure =>
(ResourceExhaustedFailure -> ResourceExhaustedFailure -> Ordering)
-> (ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool)
-> (ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool)
-> (ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool)
-> (ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool)
-> (ResourceExhaustedFailure
    -> ResourceExhaustedFailure -> ResourceExhaustedFailure)
-> (ResourceExhaustedFailure
    -> ResourceExhaustedFailure -> ResourceExhaustedFailure)
-> Ord ResourceExhaustedFailure
ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
ResourceExhaustedFailure -> ResourceExhaustedFailure -> Ordering
ResourceExhaustedFailure
-> ResourceExhaustedFailure -> ResourceExhaustedFailure
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 :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Ordering
compare :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Ordering
$c< :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
< :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
$c<= :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
<= :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
$c> :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
> :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
$c>= :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
>= :: ResourceExhaustedFailure -> ResourceExhaustedFailure -> Bool
$cmax :: ResourceExhaustedFailure
-> ResourceExhaustedFailure -> ResourceExhaustedFailure
max :: ResourceExhaustedFailure
-> ResourceExhaustedFailure -> ResourceExhaustedFailure
$cmin :: ResourceExhaustedFailure
-> ResourceExhaustedFailure -> ResourceExhaustedFailure
min :: ResourceExhaustedFailure
-> ResourceExhaustedFailure -> ResourceExhaustedFailure
Prelude.Ord)
instance Prelude.Show ResourceExhaustedFailure where
  showsPrec :: Int -> ResourceExhaustedFailure -> ShowS
showsPrec Int
_ ResourceExhaustedFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ResourceExhaustedFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ResourceExhaustedFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ResourceExhaustedFailure "cause" Proto.Temporal.Api.Enums.V1.FailedCause.ResourceExhaustedCause where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cause"
-> (ResourceExhaustedCause -> f ResourceExhaustedCause)
-> ResourceExhaustedFailure
-> f ResourceExhaustedFailure
fieldOf Proxy# "cause"
_
    = ((ResourceExhaustedCause -> f ResourceExhaustedCause)
 -> ResourceExhaustedFailure -> f ResourceExhaustedFailure)
-> ((ResourceExhaustedCause -> f ResourceExhaustedCause)
    -> ResourceExhaustedCause -> f ResourceExhaustedCause)
-> (ResourceExhaustedCause -> f ResourceExhaustedCause)
-> ResourceExhaustedFailure
-> f ResourceExhaustedFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResourceExhaustedFailure -> ResourceExhaustedCause)
-> (ResourceExhaustedFailure
    -> ResourceExhaustedCause -> ResourceExhaustedFailure)
-> Lens
     ResourceExhaustedFailure
     ResourceExhaustedFailure
     ResourceExhaustedCause
     ResourceExhaustedCause
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResourceExhaustedFailure -> ResourceExhaustedCause
_ResourceExhaustedFailure'cause
           (\ ResourceExhaustedFailure
x__ ResourceExhaustedCause
y__ -> ResourceExhaustedFailure
x__ {_ResourceExhaustedFailure'cause = y__}))
        (ResourceExhaustedCause -> f ResourceExhaustedCause)
-> ResourceExhaustedCause -> f ResourceExhaustedCause
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ResourceExhaustedFailure "scope" Proto.Temporal.Api.Enums.V1.FailedCause.ResourceExhaustedScope where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scope"
-> (ResourceExhaustedScope -> f ResourceExhaustedScope)
-> ResourceExhaustedFailure
-> f ResourceExhaustedFailure
fieldOf Proxy# "scope"
_
    = ((ResourceExhaustedScope -> f ResourceExhaustedScope)
 -> ResourceExhaustedFailure -> f ResourceExhaustedFailure)
-> ((ResourceExhaustedScope -> f ResourceExhaustedScope)
    -> ResourceExhaustedScope -> f ResourceExhaustedScope)
-> (ResourceExhaustedScope -> f ResourceExhaustedScope)
-> ResourceExhaustedFailure
-> f ResourceExhaustedFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResourceExhaustedFailure -> ResourceExhaustedScope)
-> (ResourceExhaustedFailure
    -> ResourceExhaustedScope -> ResourceExhaustedFailure)
-> Lens
     ResourceExhaustedFailure
     ResourceExhaustedFailure
     ResourceExhaustedScope
     ResourceExhaustedScope
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResourceExhaustedFailure -> ResourceExhaustedScope
_ResourceExhaustedFailure'scope
           (\ ResourceExhaustedFailure
x__ ResourceExhaustedScope
y__ -> ResourceExhaustedFailure
x__ {_ResourceExhaustedFailure'scope = y__}))
        (ResourceExhaustedScope -> f ResourceExhaustedScope)
-> ResourceExhaustedScope -> f ResourceExhaustedScope
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ResourceExhaustedFailure where
  messageName :: Proxy ResourceExhaustedFailure -> Text
messageName Proxy ResourceExhaustedFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.ResourceExhaustedFailure"
  packedMessageDescriptor :: Proxy ResourceExhaustedFailure -> ByteString
packedMessageDescriptor Proxy ResourceExhaustedFailure
_
    = ByteString
"\n\
      \\CANResourceExhaustedFailure\DC2C\n\
      \\ENQcause\CAN\SOH \SOH(\SO2-.temporal.api.enums.v1.ResourceExhaustedCauseR\ENQcause\DC2C\n\
      \\ENQscope\CAN\STX \SOH(\SO2-.temporal.api.enums.v1.ResourceExhaustedScopeR\ENQscope"
  packedFileDescriptor :: Proxy ResourceExhaustedFailure -> ByteString
packedFileDescriptor Proxy ResourceExhaustedFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ResourceExhaustedFailure)
fieldsByTag
    = let
        cause__field_descriptor :: FieldDescriptor ResourceExhaustedFailure
cause__field_descriptor
          = String
-> FieldTypeDescriptor ResourceExhaustedCause
-> FieldAccessor ResourceExhaustedFailure ResourceExhaustedCause
-> FieldDescriptor ResourceExhaustedFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cause"
              (ScalarField ResourceExhaustedCause
-> FieldTypeDescriptor ResourceExhaustedCause
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ResourceExhaustedCause
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.FailedCause.ResourceExhaustedCause)
              (WireDefault ResourceExhaustedCause
-> Lens
     ResourceExhaustedFailure
     ResourceExhaustedFailure
     ResourceExhaustedCause
     ResourceExhaustedCause
-> FieldAccessor ResourceExhaustedFailure ResourceExhaustedCause
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ResourceExhaustedCause
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 @"cause")) ::
              Data.ProtoLens.FieldDescriptor ResourceExhaustedFailure
        scope__field_descriptor :: FieldDescriptor ResourceExhaustedFailure
scope__field_descriptor
          = String
-> FieldTypeDescriptor ResourceExhaustedScope
-> FieldAccessor ResourceExhaustedFailure ResourceExhaustedScope
-> FieldDescriptor ResourceExhaustedFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"scope"
              (ScalarField ResourceExhaustedScope
-> FieldTypeDescriptor ResourceExhaustedScope
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ResourceExhaustedScope
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.FailedCause.ResourceExhaustedScope)
              (WireDefault ResourceExhaustedScope
-> Lens
     ResourceExhaustedFailure
     ResourceExhaustedFailure
     ResourceExhaustedScope
     ResourceExhaustedScope
-> FieldAccessor ResourceExhaustedFailure ResourceExhaustedScope
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ResourceExhaustedScope
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 @"scope")) ::
              Data.ProtoLens.FieldDescriptor ResourceExhaustedFailure
      in
        [(Tag, FieldDescriptor ResourceExhaustedFailure)]
-> Map Tag (FieldDescriptor ResourceExhaustedFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ResourceExhaustedFailure
cause__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ResourceExhaustedFailure
scope__field_descriptor)]
  unknownFields :: Lens' ResourceExhaustedFailure FieldSet
unknownFields
    = (ResourceExhaustedFailure -> FieldSet)
-> (ResourceExhaustedFailure
    -> FieldSet -> ResourceExhaustedFailure)
-> Lens' ResourceExhaustedFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ResourceExhaustedFailure -> FieldSet
_ResourceExhaustedFailure'_unknownFields
        (\ ResourceExhaustedFailure
x__ FieldSet
y__ -> ResourceExhaustedFailure
x__ {_ResourceExhaustedFailure'_unknownFields = y__})
  defMessage :: ResourceExhaustedFailure
defMessage
    = ResourceExhaustedFailure'_constructor
        {_ResourceExhaustedFailure'cause :: ResourceExhaustedCause
_ResourceExhaustedFailure'cause = ResourceExhaustedCause
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ResourceExhaustedFailure'scope :: ResourceExhaustedScope
_ResourceExhaustedFailure'scope = ResourceExhaustedScope
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ResourceExhaustedFailure'_unknownFields :: FieldSet
_ResourceExhaustedFailure'_unknownFields = []}
  parseMessage :: Parser ResourceExhaustedFailure
parseMessage
    = let
        loop ::
          ResourceExhaustedFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser ResourceExhaustedFailure
        loop :: ResourceExhaustedFailure -> Parser ResourceExhaustedFailure
loop ResourceExhaustedFailure
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 ResourceExhaustedCause
-> String -> Parser ResourceExhaustedCause
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> ResourceExhaustedCause)
-> Parser Int -> Parser ResourceExhaustedCause
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> ResourceExhaustedCause
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"cause"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cause") y x)
                        Word64
16
                          -> do y <- Parser ResourceExhaustedScope
-> String -> Parser ResourceExhaustedScope
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> ResourceExhaustedScope)
-> Parser Int -> Parser ResourceExhaustedScope
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> ResourceExhaustedScope
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"scope"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"scope") 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 ResourceExhaustedFailure
-> String -> Parser ResourceExhaustedFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ResourceExhaustedFailure -> Parser ResourceExhaustedFailure
loop ResourceExhaustedFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ResourceExhaustedFailure"
  buildMessage :: ResourceExhaustedFailure -> Builder
buildMessage
    = \ ResourceExhaustedFailure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ResourceExhaustedCause
_v = FoldLike
  ResourceExhaustedCause
  ResourceExhaustedFailure
  ResourceExhaustedFailure
  ResourceExhaustedCause
  ResourceExhaustedCause
-> ResourceExhaustedFailure -> ResourceExhaustedCause
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 @"cause") ResourceExhaustedFailure
_x
              in
                if ResourceExhaustedCause -> ResourceExhaustedCause -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ResourceExhaustedCause
_v ResourceExhaustedCause
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Int -> Builder)
-> (ResourceExhaustedCause -> Int)
-> ResourceExhaustedCause
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                         ResourceExhaustedCause -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum ResourceExhaustedCause
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: ResourceExhaustedScope
_v = FoldLike
  ResourceExhaustedScope
  ResourceExhaustedFailure
  ResourceExhaustedFailure
  ResourceExhaustedScope
  ResourceExhaustedScope
-> ResourceExhaustedFailure -> ResourceExhaustedScope
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 @"scope") ResourceExhaustedFailure
_x
                 in
                   if ResourceExhaustedScope -> ResourceExhaustedScope -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ResourceExhaustedScope
_v ResourceExhaustedScope
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         ((Int -> Builder)
-> (ResourceExhaustedScope -> Int)
-> ResourceExhaustedScope
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                            ResourceExhaustedScope -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum ResourceExhaustedScope
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  ResourceExhaustedFailure
  ResourceExhaustedFailure
  FieldSet
  FieldSet
-> ResourceExhaustedFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ResourceExhaustedFailure
  ResourceExhaustedFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ResourceExhaustedFailure FieldSet
Data.ProtoLens.unknownFields ResourceExhaustedFailure
_x)))
instance Control.DeepSeq.NFData ResourceExhaustedFailure where
  rnf :: ResourceExhaustedFailure -> ()
rnf
    = \ ResourceExhaustedFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ResourceExhaustedFailure -> FieldSet
_ResourceExhaustedFailure'_unknownFields ResourceExhaustedFailure
x__)
             (ResourceExhaustedCause -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ResourceExhaustedFailure -> ResourceExhaustedCause
_ResourceExhaustedFailure'cause ResourceExhaustedFailure
x__)
                (ResourceExhaustedScope -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ResourceExhaustedFailure -> ResourceExhaustedScope
_ResourceExhaustedFailure'scope ResourceExhaustedFailure
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.serverVersion' @:: Lens' ServerVersionNotSupportedFailure Data.Text.Text@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.clientSupportedServerVersions' @:: Lens' ServerVersionNotSupportedFailure Data.Text.Text@ -}
data ServerVersionNotSupportedFailure
  = ServerVersionNotSupportedFailure'_constructor {ServerVersionNotSupportedFailure -> Text
_ServerVersionNotSupportedFailure'serverVersion :: !Data.Text.Text,
                                                   ServerVersionNotSupportedFailure -> Text
_ServerVersionNotSupportedFailure'clientSupportedServerVersions :: !Data.Text.Text,
                                                   ServerVersionNotSupportedFailure -> FieldSet
_ServerVersionNotSupportedFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
(ServerVersionNotSupportedFailure
 -> ServerVersionNotSupportedFailure -> Bool)
-> (ServerVersionNotSupportedFailure
    -> ServerVersionNotSupportedFailure -> Bool)
-> Eq ServerVersionNotSupportedFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
== :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
$c/= :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
/= :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
Prelude.Eq, Eq ServerVersionNotSupportedFailure
Eq ServerVersionNotSupportedFailure =>
(ServerVersionNotSupportedFailure
 -> ServerVersionNotSupportedFailure -> Ordering)
-> (ServerVersionNotSupportedFailure
    -> ServerVersionNotSupportedFailure -> Bool)
-> (ServerVersionNotSupportedFailure
    -> ServerVersionNotSupportedFailure -> Bool)
-> (ServerVersionNotSupportedFailure
    -> ServerVersionNotSupportedFailure -> Bool)
-> (ServerVersionNotSupportedFailure
    -> ServerVersionNotSupportedFailure -> Bool)
-> (ServerVersionNotSupportedFailure
    -> ServerVersionNotSupportedFailure
    -> ServerVersionNotSupportedFailure)
-> (ServerVersionNotSupportedFailure
    -> ServerVersionNotSupportedFailure
    -> ServerVersionNotSupportedFailure)
-> Ord ServerVersionNotSupportedFailure
ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Ordering
ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure
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 :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Ordering
compare :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Ordering
$c< :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
< :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
$c<= :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
<= :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
$c> :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
> :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
$c>= :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
>= :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure -> Bool
$cmax :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure
max :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure
$cmin :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure
min :: ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure
-> ServerVersionNotSupportedFailure
Prelude.Ord)
instance Prelude.Show ServerVersionNotSupportedFailure where
  showsPrec :: Int -> ServerVersionNotSupportedFailure -> ShowS
showsPrec Int
_ ServerVersionNotSupportedFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ServerVersionNotSupportedFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ServerVersionNotSupportedFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ServerVersionNotSupportedFailure "serverVersion" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "serverVersion"
-> (Text -> f Text)
-> ServerVersionNotSupportedFailure
-> f ServerVersionNotSupportedFailure
fieldOf Proxy# "serverVersion"
_
    = ((Text -> f Text)
 -> ServerVersionNotSupportedFailure
 -> f ServerVersionNotSupportedFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ServerVersionNotSupportedFailure
-> f ServerVersionNotSupportedFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerVersionNotSupportedFailure -> Text)
-> (ServerVersionNotSupportedFailure
    -> Text -> ServerVersionNotSupportedFailure)
-> Lens
     ServerVersionNotSupportedFailure
     ServerVersionNotSupportedFailure
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerVersionNotSupportedFailure -> Text
_ServerVersionNotSupportedFailure'serverVersion
           (\ ServerVersionNotSupportedFailure
x__ Text
y__
              -> ServerVersionNotSupportedFailure
x__ {_ServerVersionNotSupportedFailure'serverVersion = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ServerVersionNotSupportedFailure "clientSupportedServerVersions" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "clientSupportedServerVersions"
-> (Text -> f Text)
-> ServerVersionNotSupportedFailure
-> f ServerVersionNotSupportedFailure
fieldOf Proxy# "clientSupportedServerVersions"
_
    = ((Text -> f Text)
 -> ServerVersionNotSupportedFailure
 -> f ServerVersionNotSupportedFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ServerVersionNotSupportedFailure
-> f ServerVersionNotSupportedFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerVersionNotSupportedFailure -> Text)
-> (ServerVersionNotSupportedFailure
    -> Text -> ServerVersionNotSupportedFailure)
-> Lens
     ServerVersionNotSupportedFailure
     ServerVersionNotSupportedFailure
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerVersionNotSupportedFailure -> Text
_ServerVersionNotSupportedFailure'clientSupportedServerVersions
           (\ ServerVersionNotSupportedFailure
x__ Text
y__
              -> ServerVersionNotSupportedFailure
x__
                   {_ServerVersionNotSupportedFailure'clientSupportedServerVersions = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ServerVersionNotSupportedFailure where
  messageName :: Proxy ServerVersionNotSupportedFailure -> Text
messageName Proxy ServerVersionNotSupportedFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.ServerVersionNotSupportedFailure"
  packedMessageDescriptor :: Proxy ServerVersionNotSupportedFailure -> ByteString
packedMessageDescriptor Proxy ServerVersionNotSupportedFailure
_
    = ByteString
"\n\
      \ ServerVersionNotSupportedFailure\DC2%\n\
      \\SOserver_version\CAN\SOH \SOH(\tR\rserverVersion\DC2G\n\
      \ client_supported_server_versions\CAN\STX \SOH(\tR\GSclientSupportedServerVersions"
  packedFileDescriptor :: Proxy ServerVersionNotSupportedFailure -> ByteString
packedFileDescriptor Proxy ServerVersionNotSupportedFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ServerVersionNotSupportedFailure)
fieldsByTag
    = let
        serverVersion__field_descriptor :: FieldDescriptor ServerVersionNotSupportedFailure
serverVersion__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ServerVersionNotSupportedFailure Text
-> FieldDescriptor ServerVersionNotSupportedFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"server_version"
              (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
     ServerVersionNotSupportedFailure
     ServerVersionNotSupportedFailure
     Text
     Text
-> FieldAccessor ServerVersionNotSupportedFailure 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 @"serverVersion")) ::
              Data.ProtoLens.FieldDescriptor ServerVersionNotSupportedFailure
        clientSupportedServerVersions__field_descriptor :: FieldDescriptor ServerVersionNotSupportedFailure
clientSupportedServerVersions__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ServerVersionNotSupportedFailure Text
-> FieldDescriptor ServerVersionNotSupportedFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"client_supported_server_versions"
              (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
     ServerVersionNotSupportedFailure
     ServerVersionNotSupportedFailure
     Text
     Text
-> FieldAccessor ServerVersionNotSupportedFailure 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 @"clientSupportedServerVersions")) ::
              Data.ProtoLens.FieldDescriptor ServerVersionNotSupportedFailure
      in
        [(Tag, FieldDescriptor ServerVersionNotSupportedFailure)]
-> Map Tag (FieldDescriptor ServerVersionNotSupportedFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ServerVersionNotSupportedFailure
serverVersion__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, 
            FieldDescriptor ServerVersionNotSupportedFailure
clientSupportedServerVersions__field_descriptor)]
  unknownFields :: Lens' ServerVersionNotSupportedFailure FieldSet
unknownFields
    = (ServerVersionNotSupportedFailure -> FieldSet)
-> (ServerVersionNotSupportedFailure
    -> FieldSet -> ServerVersionNotSupportedFailure)
-> Lens' ServerVersionNotSupportedFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ServerVersionNotSupportedFailure -> FieldSet
_ServerVersionNotSupportedFailure'_unknownFields
        (\ ServerVersionNotSupportedFailure
x__ FieldSet
y__
           -> ServerVersionNotSupportedFailure
x__ {_ServerVersionNotSupportedFailure'_unknownFields = y__})
  defMessage :: ServerVersionNotSupportedFailure
defMessage
    = ServerVersionNotSupportedFailure'_constructor
        {_ServerVersionNotSupportedFailure'serverVersion :: Text
_ServerVersionNotSupportedFailure'serverVersion = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ServerVersionNotSupportedFailure'clientSupportedServerVersions :: Text
_ServerVersionNotSupportedFailure'clientSupportedServerVersions = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ServerVersionNotSupportedFailure'_unknownFields :: FieldSet
_ServerVersionNotSupportedFailure'_unknownFields = []}
  parseMessage :: Parser ServerVersionNotSupportedFailure
parseMessage
    = let
        loop ::
          ServerVersionNotSupportedFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser ServerVersionNotSupportedFailure
        loop :: ServerVersionNotSupportedFailure
-> Parser ServerVersionNotSupportedFailure
loop ServerVersionNotSupportedFailure
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
"server_version"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"serverVersion") 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
"client_supported_server_versions"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"clientSupportedServerVersions") 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 ServerVersionNotSupportedFailure
-> String -> Parser ServerVersionNotSupportedFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ServerVersionNotSupportedFailure
-> Parser ServerVersionNotSupportedFailure
loop ServerVersionNotSupportedFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"ServerVersionNotSupportedFailure"
  buildMessage :: ServerVersionNotSupportedFailure -> Builder
buildMessage
    = \ ServerVersionNotSupportedFailure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text
  ServerVersionNotSupportedFailure
  ServerVersionNotSupportedFailure
  Text
  Text
-> ServerVersionNotSupportedFailure -> 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 @"serverVersion") ServerVersionNotSupportedFailure
_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
  ServerVersionNotSupportedFailure
  ServerVersionNotSupportedFailure
  Text
  Text
-> ServerVersionNotSupportedFailure -> 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 @"clientSupportedServerVersions") ServerVersionNotSupportedFailure
_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
  ServerVersionNotSupportedFailure
  ServerVersionNotSupportedFailure
  FieldSet
  FieldSet
-> ServerVersionNotSupportedFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ServerVersionNotSupportedFailure
  ServerVersionNotSupportedFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ServerVersionNotSupportedFailure FieldSet
Data.ProtoLens.unknownFields ServerVersionNotSupportedFailure
_x)))
instance Control.DeepSeq.NFData ServerVersionNotSupportedFailure where
  rnf :: ServerVersionNotSupportedFailure -> ()
rnf
    = \ ServerVersionNotSupportedFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ServerVersionNotSupportedFailure -> FieldSet
_ServerVersionNotSupportedFailure'_unknownFields ServerVersionNotSupportedFailure
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ServerVersionNotSupportedFailure -> Text
_ServerVersionNotSupportedFailure'serverVersion ServerVersionNotSupportedFailure
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ServerVersionNotSupportedFailure -> Text
_ServerVersionNotSupportedFailure'clientSupportedServerVersions
                      ServerVersionNotSupportedFailure
x__)
                   ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.workflowExecution' @:: Lens' SystemWorkflowFailure Proto.Temporal.Api.Common.V1.Message.WorkflowExecution@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.maybe'workflowExecution' @:: Lens' SystemWorkflowFailure (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution)@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.workflowError' @:: Lens' SystemWorkflowFailure Data.Text.Text@ -}
data SystemWorkflowFailure
  = SystemWorkflowFailure'_constructor {SystemWorkflowFailure -> Maybe WorkflowExecution
_SystemWorkflowFailure'workflowExecution :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution),
                                        SystemWorkflowFailure -> Text
_SystemWorkflowFailure'workflowError :: !Data.Text.Text,
                                        SystemWorkflowFailure -> FieldSet
_SystemWorkflowFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
(SystemWorkflowFailure -> SystemWorkflowFailure -> Bool)
-> (SystemWorkflowFailure -> SystemWorkflowFailure -> Bool)
-> Eq SystemWorkflowFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
== :: SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
$c/= :: SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
/= :: SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
Prelude.Eq, Eq SystemWorkflowFailure
Eq SystemWorkflowFailure =>
(SystemWorkflowFailure -> SystemWorkflowFailure -> Ordering)
-> (SystemWorkflowFailure -> SystemWorkflowFailure -> Bool)
-> (SystemWorkflowFailure -> SystemWorkflowFailure -> Bool)
-> (SystemWorkflowFailure -> SystemWorkflowFailure -> Bool)
-> (SystemWorkflowFailure -> SystemWorkflowFailure -> Bool)
-> (SystemWorkflowFailure
    -> SystemWorkflowFailure -> SystemWorkflowFailure)
-> (SystemWorkflowFailure
    -> SystemWorkflowFailure -> SystemWorkflowFailure)
-> Ord SystemWorkflowFailure
SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
SystemWorkflowFailure -> SystemWorkflowFailure -> Ordering
SystemWorkflowFailure
-> SystemWorkflowFailure -> SystemWorkflowFailure
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 :: SystemWorkflowFailure -> SystemWorkflowFailure -> Ordering
compare :: SystemWorkflowFailure -> SystemWorkflowFailure -> Ordering
$c< :: SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
< :: SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
$c<= :: SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
<= :: SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
$c> :: SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
> :: SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
$c>= :: SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
>= :: SystemWorkflowFailure -> SystemWorkflowFailure -> Bool
$cmax :: SystemWorkflowFailure
-> SystemWorkflowFailure -> SystemWorkflowFailure
max :: SystemWorkflowFailure
-> SystemWorkflowFailure -> SystemWorkflowFailure
$cmin :: SystemWorkflowFailure
-> SystemWorkflowFailure -> SystemWorkflowFailure
min :: SystemWorkflowFailure
-> SystemWorkflowFailure -> SystemWorkflowFailure
Prelude.Ord)
instance Prelude.Show SystemWorkflowFailure where
  showsPrec :: Int -> SystemWorkflowFailure -> ShowS
showsPrec Int
_ SystemWorkflowFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (SystemWorkflowFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SystemWorkflowFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SystemWorkflowFailure "workflowExecution" Proto.Temporal.Api.Common.V1.Message.WorkflowExecution where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowExecution"
-> (WorkflowExecution -> f WorkflowExecution)
-> SystemWorkflowFailure
-> f SystemWorkflowFailure
fieldOf Proxy# "workflowExecution"
_
    = ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
 -> SystemWorkflowFailure -> f SystemWorkflowFailure)
-> ((WorkflowExecution -> f WorkflowExecution)
    -> Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> (WorkflowExecution -> f WorkflowExecution)
-> SystemWorkflowFailure
-> f SystemWorkflowFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SystemWorkflowFailure -> Maybe WorkflowExecution)
-> (SystemWorkflowFailure
    -> Maybe WorkflowExecution -> SystemWorkflowFailure)
-> Lens
     SystemWorkflowFailure
     SystemWorkflowFailure
     (Maybe WorkflowExecution)
     (Maybe WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SystemWorkflowFailure -> Maybe WorkflowExecution
_SystemWorkflowFailure'workflowExecution
           (\ SystemWorkflowFailure
x__ Maybe WorkflowExecution
y__
              -> SystemWorkflowFailure
x__ {_SystemWorkflowFailure'workflowExecution = y__}))
        (WorkflowExecution
-> Lens' (Maybe WorkflowExecution) WorkflowExecution
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WorkflowExecution
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SystemWorkflowFailure "maybe'workflowExecution" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowExecution"
-> (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> SystemWorkflowFailure
-> f SystemWorkflowFailure
fieldOf Proxy# "maybe'workflowExecution"
_
    = ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
 -> SystemWorkflowFailure -> f SystemWorkflowFailure)
-> ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
    -> Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> SystemWorkflowFailure
-> f SystemWorkflowFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SystemWorkflowFailure -> Maybe WorkflowExecution)
-> (SystemWorkflowFailure
    -> Maybe WorkflowExecution -> SystemWorkflowFailure)
-> Lens
     SystemWorkflowFailure
     SystemWorkflowFailure
     (Maybe WorkflowExecution)
     (Maybe WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SystemWorkflowFailure -> Maybe WorkflowExecution
_SystemWorkflowFailure'workflowExecution
           (\ SystemWorkflowFailure
x__ Maybe WorkflowExecution
y__
              -> SystemWorkflowFailure
x__ {_SystemWorkflowFailure'workflowExecution = y__}))
        (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> Maybe WorkflowExecution -> f (Maybe WorkflowExecution)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SystemWorkflowFailure "workflowError" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowError"
-> (Text -> f Text)
-> SystemWorkflowFailure
-> f SystemWorkflowFailure
fieldOf Proxy# "workflowError"
_
    = ((Text -> f Text)
 -> SystemWorkflowFailure -> f SystemWorkflowFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SystemWorkflowFailure
-> f SystemWorkflowFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SystemWorkflowFailure -> Text)
-> (SystemWorkflowFailure -> Text -> SystemWorkflowFailure)
-> Lens SystemWorkflowFailure SystemWorkflowFailure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SystemWorkflowFailure -> Text
_SystemWorkflowFailure'workflowError
           (\ SystemWorkflowFailure
x__ Text
y__ -> SystemWorkflowFailure
x__ {_SystemWorkflowFailure'workflowError = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SystemWorkflowFailure where
  messageName :: Proxy SystemWorkflowFailure -> Text
messageName Proxy SystemWorkflowFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.SystemWorkflowFailure"
  packedMessageDescriptor :: Proxy SystemWorkflowFailure -> ByteString
packedMessageDescriptor Proxy SystemWorkflowFailure
_
    = ByteString
"\n\
      \\NAKSystemWorkflowFailure\DC2X\n\
      \\DC2workflow_execution\CAN\SOH \SOH(\v2).temporal.api.common.v1.WorkflowExecutionR\DC1workflowExecution\DC2%\n\
      \\SOworkflow_error\CAN\STX \SOH(\tR\rworkflowError"
  packedFileDescriptor :: Proxy SystemWorkflowFailure -> ByteString
packedFileDescriptor Proxy SystemWorkflowFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor SystemWorkflowFailure)
fieldsByTag
    = let
        workflowExecution__field_descriptor :: FieldDescriptor SystemWorkflowFailure
workflowExecution__field_descriptor
          = String
-> FieldTypeDescriptor WorkflowExecution
-> FieldAccessor SystemWorkflowFailure WorkflowExecution
-> FieldDescriptor SystemWorkflowFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"workflow_execution"
              (MessageOrGroup -> FieldTypeDescriptor WorkflowExecution
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.WorkflowExecution)
              (Lens
  SystemWorkflowFailure
  SystemWorkflowFailure
  (Maybe WorkflowExecution)
  (Maybe WorkflowExecution)
-> FieldAccessor SystemWorkflowFailure WorkflowExecution
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'workflowExecution")) ::
              Data.ProtoLens.FieldDescriptor SystemWorkflowFailure
        workflowError__field_descriptor :: FieldDescriptor SystemWorkflowFailure
workflowError__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor SystemWorkflowFailure Text
-> FieldDescriptor SystemWorkflowFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"workflow_error"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens SystemWorkflowFailure SystemWorkflowFailure Text Text
-> FieldAccessor SystemWorkflowFailure 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 @"workflowError")) ::
              Data.ProtoLens.FieldDescriptor SystemWorkflowFailure
      in
        [(Tag, FieldDescriptor SystemWorkflowFailure)]
-> Map Tag (FieldDescriptor SystemWorkflowFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SystemWorkflowFailure
workflowExecution__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor SystemWorkflowFailure
workflowError__field_descriptor)]
  unknownFields :: Lens' SystemWorkflowFailure FieldSet
unknownFields
    = (SystemWorkflowFailure -> FieldSet)
-> (SystemWorkflowFailure -> FieldSet -> SystemWorkflowFailure)
-> Lens' SystemWorkflowFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        SystemWorkflowFailure -> FieldSet
_SystemWorkflowFailure'_unknownFields
        (\ SystemWorkflowFailure
x__ FieldSet
y__ -> SystemWorkflowFailure
x__ {_SystemWorkflowFailure'_unknownFields = y__})
  defMessage :: SystemWorkflowFailure
defMessage
    = SystemWorkflowFailure'_constructor
        {_SystemWorkflowFailure'workflowExecution :: Maybe WorkflowExecution
_SystemWorkflowFailure'workflowExecution = Maybe WorkflowExecution
forall a. Maybe a
Prelude.Nothing,
         _SystemWorkflowFailure'workflowError :: Text
_SystemWorkflowFailure'workflowError = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _SystemWorkflowFailure'_unknownFields :: FieldSet
_SystemWorkflowFailure'_unknownFields = []}
  parseMessage :: Parser SystemWorkflowFailure
parseMessage
    = let
        loop ::
          SystemWorkflowFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser SystemWorkflowFailure
        loop :: SystemWorkflowFailure -> Parser SystemWorkflowFailure
loop SystemWorkflowFailure
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser WorkflowExecution -> String -> Parser WorkflowExecution
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"workflow_execution"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"workflowExecution") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"workflow_error"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"workflowError") 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 SystemWorkflowFailure
-> String -> Parser SystemWorkflowFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do SystemWorkflowFailure -> Parser SystemWorkflowFailure
loop SystemWorkflowFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"SystemWorkflowFailure"
  buildMessage :: SystemWorkflowFailure -> Builder
buildMessage
    = \ SystemWorkflowFailure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe WorkflowExecution)
  SystemWorkflowFailure
  SystemWorkflowFailure
  (Maybe WorkflowExecution)
  (Maybe WorkflowExecution)
-> SystemWorkflowFailure -> Maybe WorkflowExecution
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'workflowExecution") SystemWorkflowFailure
_x
              of
                Maybe WorkflowExecution
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just WorkflowExecution
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (WorkflowExecution -> ByteString)
-> WorkflowExecution
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          WorkflowExecution -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WorkflowExecution
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v
                     = FoldLike Text SystemWorkflowFailure SystemWorkflowFailure Text Text
-> SystemWorkflowFailure -> 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 @"workflowError") SystemWorkflowFailure
_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
  SystemWorkflowFailure
  SystemWorkflowFailure
  FieldSet
  FieldSet
-> SystemWorkflowFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  SystemWorkflowFailure
  SystemWorkflowFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SystemWorkflowFailure FieldSet
Data.ProtoLens.unknownFields SystemWorkflowFailure
_x)))
instance Control.DeepSeq.NFData SystemWorkflowFailure where
  rnf :: SystemWorkflowFailure -> ()
rnf
    = \ SystemWorkflowFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (SystemWorkflowFailure -> FieldSet
_SystemWorkflowFailure'_unknownFields SystemWorkflowFailure
x__)
             (Maybe WorkflowExecution -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (SystemWorkflowFailure -> Maybe WorkflowExecution
_SystemWorkflowFailure'workflowExecution SystemWorkflowFailure
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (SystemWorkflowFailure -> Text
_SystemWorkflowFailure'workflowError SystemWorkflowFailure
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.startRequestId' @:: Lens' WorkflowExecutionAlreadyStartedFailure Data.Text.Text@
         * 'Proto.Temporal.Api.Errordetails.V1.Message_Fields.runId' @:: Lens' WorkflowExecutionAlreadyStartedFailure Data.Text.Text@ -}
data WorkflowExecutionAlreadyStartedFailure
  = WorkflowExecutionAlreadyStartedFailure'_constructor {WorkflowExecutionAlreadyStartedFailure -> Text
_WorkflowExecutionAlreadyStartedFailure'startRequestId :: !Data.Text.Text,
                                                         WorkflowExecutionAlreadyStartedFailure -> Text
_WorkflowExecutionAlreadyStartedFailure'runId :: !Data.Text.Text,
                                                         WorkflowExecutionAlreadyStartedFailure -> FieldSet
_WorkflowExecutionAlreadyStartedFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
(WorkflowExecutionAlreadyStartedFailure
 -> WorkflowExecutionAlreadyStartedFailure -> Bool)
-> (WorkflowExecutionAlreadyStartedFailure
    -> WorkflowExecutionAlreadyStartedFailure -> Bool)
-> Eq WorkflowExecutionAlreadyStartedFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
== :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
$c/= :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
/= :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
Prelude.Eq, Eq WorkflowExecutionAlreadyStartedFailure
Eq WorkflowExecutionAlreadyStartedFailure =>
(WorkflowExecutionAlreadyStartedFailure
 -> WorkflowExecutionAlreadyStartedFailure -> Ordering)
-> (WorkflowExecutionAlreadyStartedFailure
    -> WorkflowExecutionAlreadyStartedFailure -> Bool)
-> (WorkflowExecutionAlreadyStartedFailure
    -> WorkflowExecutionAlreadyStartedFailure -> Bool)
-> (WorkflowExecutionAlreadyStartedFailure
    -> WorkflowExecutionAlreadyStartedFailure -> Bool)
-> (WorkflowExecutionAlreadyStartedFailure
    -> WorkflowExecutionAlreadyStartedFailure -> Bool)
-> (WorkflowExecutionAlreadyStartedFailure
    -> WorkflowExecutionAlreadyStartedFailure
    -> WorkflowExecutionAlreadyStartedFailure)
-> (WorkflowExecutionAlreadyStartedFailure
    -> WorkflowExecutionAlreadyStartedFailure
    -> WorkflowExecutionAlreadyStartedFailure)
-> Ord WorkflowExecutionAlreadyStartedFailure
WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Ordering
WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure
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 :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Ordering
compare :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Ordering
$c< :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
< :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
$c<= :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
<= :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
$c> :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
> :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
$c>= :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
>= :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure -> Bool
$cmax :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure
max :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure
$cmin :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure
min :: WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure
-> WorkflowExecutionAlreadyStartedFailure
Prelude.Ord)
instance Prelude.Show WorkflowExecutionAlreadyStartedFailure where
  showsPrec :: Int -> WorkflowExecutionAlreadyStartedFailure -> ShowS
showsPrec Int
_ WorkflowExecutionAlreadyStartedFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WorkflowExecutionAlreadyStartedFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkflowExecutionAlreadyStartedFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WorkflowExecutionAlreadyStartedFailure "startRequestId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startRequestId"
-> (Text -> f Text)
-> WorkflowExecutionAlreadyStartedFailure
-> f WorkflowExecutionAlreadyStartedFailure
fieldOf Proxy# "startRequestId"
_
    = ((Text -> f Text)
 -> WorkflowExecutionAlreadyStartedFailure
 -> f WorkflowExecutionAlreadyStartedFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkflowExecutionAlreadyStartedFailure
-> f WorkflowExecutionAlreadyStartedFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowExecutionAlreadyStartedFailure -> Text)
-> (WorkflowExecutionAlreadyStartedFailure
    -> Text -> WorkflowExecutionAlreadyStartedFailure)
-> Lens
     WorkflowExecutionAlreadyStartedFailure
     WorkflowExecutionAlreadyStartedFailure
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowExecutionAlreadyStartedFailure -> Text
_WorkflowExecutionAlreadyStartedFailure'startRequestId
           (\ WorkflowExecutionAlreadyStartedFailure
x__ Text
y__
              -> WorkflowExecutionAlreadyStartedFailure
x__
                   {_WorkflowExecutionAlreadyStartedFailure'startRequestId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkflowExecutionAlreadyStartedFailure "runId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "runId"
-> (Text -> f Text)
-> WorkflowExecutionAlreadyStartedFailure
-> f WorkflowExecutionAlreadyStartedFailure
fieldOf Proxy# "runId"
_
    = ((Text -> f Text)
 -> WorkflowExecutionAlreadyStartedFailure
 -> f WorkflowExecutionAlreadyStartedFailure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkflowExecutionAlreadyStartedFailure
-> f WorkflowExecutionAlreadyStartedFailure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowExecutionAlreadyStartedFailure -> Text)
-> (WorkflowExecutionAlreadyStartedFailure
    -> Text -> WorkflowExecutionAlreadyStartedFailure)
-> Lens
     WorkflowExecutionAlreadyStartedFailure
     WorkflowExecutionAlreadyStartedFailure
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowExecutionAlreadyStartedFailure -> Text
_WorkflowExecutionAlreadyStartedFailure'runId
           (\ WorkflowExecutionAlreadyStartedFailure
x__ Text
y__
              -> WorkflowExecutionAlreadyStartedFailure
x__ {_WorkflowExecutionAlreadyStartedFailure'runId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkflowExecutionAlreadyStartedFailure where
  messageName :: Proxy WorkflowExecutionAlreadyStartedFailure -> Text
messageName Proxy WorkflowExecutionAlreadyStartedFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.WorkflowExecutionAlreadyStartedFailure"
  packedMessageDescriptor :: Proxy WorkflowExecutionAlreadyStartedFailure -> ByteString
packedMessageDescriptor Proxy WorkflowExecutionAlreadyStartedFailure
_
    = ByteString
"\n\
      \&WorkflowExecutionAlreadyStartedFailure\DC2(\n\
      \\DLEstart_request_id\CAN\SOH \SOH(\tR\SOstartRequestId\DC2\NAK\n\
      \\ACKrun_id\CAN\STX \SOH(\tR\ENQrunId"
  packedFileDescriptor :: Proxy WorkflowExecutionAlreadyStartedFailure -> ByteString
packedFileDescriptor Proxy WorkflowExecutionAlreadyStartedFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WorkflowExecutionAlreadyStartedFailure)
fieldsByTag
    = let
        startRequestId__field_descriptor :: FieldDescriptor WorkflowExecutionAlreadyStartedFailure
startRequestId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkflowExecutionAlreadyStartedFailure Text
-> FieldDescriptor WorkflowExecutionAlreadyStartedFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"start_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
     WorkflowExecutionAlreadyStartedFailure
     WorkflowExecutionAlreadyStartedFailure
     Text
     Text
-> FieldAccessor WorkflowExecutionAlreadyStartedFailure 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 @"startRequestId")) ::
              Data.ProtoLens.FieldDescriptor WorkflowExecutionAlreadyStartedFailure
        runId__field_descriptor :: FieldDescriptor WorkflowExecutionAlreadyStartedFailure
runId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkflowExecutionAlreadyStartedFailure Text
-> FieldDescriptor WorkflowExecutionAlreadyStartedFailure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"run_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
     WorkflowExecutionAlreadyStartedFailure
     WorkflowExecutionAlreadyStartedFailure
     Text
     Text
-> FieldAccessor WorkflowExecutionAlreadyStartedFailure 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 @"runId")) ::
              Data.ProtoLens.FieldDescriptor WorkflowExecutionAlreadyStartedFailure
      in
        [(Tag, FieldDescriptor WorkflowExecutionAlreadyStartedFailure)]
-> Map Tag (FieldDescriptor WorkflowExecutionAlreadyStartedFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WorkflowExecutionAlreadyStartedFailure
startRequestId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WorkflowExecutionAlreadyStartedFailure
runId__field_descriptor)]
  unknownFields :: Lens' WorkflowExecutionAlreadyStartedFailure FieldSet
unknownFields
    = (WorkflowExecutionAlreadyStartedFailure -> FieldSet)
-> (WorkflowExecutionAlreadyStartedFailure
    -> FieldSet -> WorkflowExecutionAlreadyStartedFailure)
-> Lens' WorkflowExecutionAlreadyStartedFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WorkflowExecutionAlreadyStartedFailure -> FieldSet
_WorkflowExecutionAlreadyStartedFailure'_unknownFields
        (\ WorkflowExecutionAlreadyStartedFailure
x__ FieldSet
y__
           -> WorkflowExecutionAlreadyStartedFailure
x__
                {_WorkflowExecutionAlreadyStartedFailure'_unknownFields = y__})
  defMessage :: WorkflowExecutionAlreadyStartedFailure
defMessage
    = WorkflowExecutionAlreadyStartedFailure'_constructor
        {_WorkflowExecutionAlreadyStartedFailure'startRequestId :: Text
_WorkflowExecutionAlreadyStartedFailure'startRequestId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WorkflowExecutionAlreadyStartedFailure'runId :: Text
_WorkflowExecutionAlreadyStartedFailure'runId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WorkflowExecutionAlreadyStartedFailure'_unknownFields :: FieldSet
_WorkflowExecutionAlreadyStartedFailure'_unknownFields = []}
  parseMessage :: Parser WorkflowExecutionAlreadyStartedFailure
parseMessage
    = let
        loop ::
          WorkflowExecutionAlreadyStartedFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser WorkflowExecutionAlreadyStartedFailure
        loop :: WorkflowExecutionAlreadyStartedFailure
-> Parser WorkflowExecutionAlreadyStartedFailure
loop WorkflowExecutionAlreadyStartedFailure
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
"start_request_id"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"startRequestId") 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
"run_id"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"runId") 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 WorkflowExecutionAlreadyStartedFailure
-> String -> Parser WorkflowExecutionAlreadyStartedFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WorkflowExecutionAlreadyStartedFailure
-> Parser WorkflowExecutionAlreadyStartedFailure
loop WorkflowExecutionAlreadyStartedFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"WorkflowExecutionAlreadyStartedFailure"
  buildMessage :: WorkflowExecutionAlreadyStartedFailure -> Builder
buildMessage
    = \ WorkflowExecutionAlreadyStartedFailure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text
  WorkflowExecutionAlreadyStartedFailure
  WorkflowExecutionAlreadyStartedFailure
  Text
  Text
-> WorkflowExecutionAlreadyStartedFailure -> 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 @"startRequestId") WorkflowExecutionAlreadyStartedFailure
_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
  WorkflowExecutionAlreadyStartedFailure
  WorkflowExecutionAlreadyStartedFailure
  Text
  Text
-> WorkflowExecutionAlreadyStartedFailure -> 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 @"runId") WorkflowExecutionAlreadyStartedFailure
_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
  WorkflowExecutionAlreadyStartedFailure
  WorkflowExecutionAlreadyStartedFailure
  FieldSet
  FieldSet
-> WorkflowExecutionAlreadyStartedFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  WorkflowExecutionAlreadyStartedFailure
  WorkflowExecutionAlreadyStartedFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkflowExecutionAlreadyStartedFailure FieldSet
Data.ProtoLens.unknownFields WorkflowExecutionAlreadyStartedFailure
_x)))
instance Control.DeepSeq.NFData WorkflowExecutionAlreadyStartedFailure where
  rnf :: WorkflowExecutionAlreadyStartedFailure -> ()
rnf
    = \ WorkflowExecutionAlreadyStartedFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WorkflowExecutionAlreadyStartedFailure -> FieldSet
_WorkflowExecutionAlreadyStartedFailure'_unknownFields WorkflowExecutionAlreadyStartedFailure
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (WorkflowExecutionAlreadyStartedFailure -> Text
_WorkflowExecutionAlreadyStartedFailure'startRequestId WorkflowExecutionAlreadyStartedFailure
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (WorkflowExecutionAlreadyStartedFailure -> Text
_WorkflowExecutionAlreadyStartedFailure'runId WorkflowExecutionAlreadyStartedFailure
x__) ()))
{- | Fields :
      -}
data WorkflowNotReadyFailure
  = WorkflowNotReadyFailure'_constructor {WorkflowNotReadyFailure -> FieldSet
_WorkflowNotReadyFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
(WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool)
-> (WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool)
-> Eq WorkflowNotReadyFailure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
== :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
$c/= :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
/= :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
Prelude.Eq, Eq WorkflowNotReadyFailure
Eq WorkflowNotReadyFailure =>
(WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Ordering)
-> (WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool)
-> (WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool)
-> (WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool)
-> (WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool)
-> (WorkflowNotReadyFailure
    -> WorkflowNotReadyFailure -> WorkflowNotReadyFailure)
-> (WorkflowNotReadyFailure
    -> WorkflowNotReadyFailure -> WorkflowNotReadyFailure)
-> Ord WorkflowNotReadyFailure
WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Ordering
WorkflowNotReadyFailure
-> WorkflowNotReadyFailure -> WorkflowNotReadyFailure
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 :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Ordering
compare :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Ordering
$c< :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
< :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
$c<= :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
<= :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
$c> :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
> :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
$c>= :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
>= :: WorkflowNotReadyFailure -> WorkflowNotReadyFailure -> Bool
$cmax :: WorkflowNotReadyFailure
-> WorkflowNotReadyFailure -> WorkflowNotReadyFailure
max :: WorkflowNotReadyFailure
-> WorkflowNotReadyFailure -> WorkflowNotReadyFailure
$cmin :: WorkflowNotReadyFailure
-> WorkflowNotReadyFailure -> WorkflowNotReadyFailure
min :: WorkflowNotReadyFailure
-> WorkflowNotReadyFailure -> WorkflowNotReadyFailure
Prelude.Ord)
instance Prelude.Show WorkflowNotReadyFailure where
  showsPrec :: Int -> WorkflowNotReadyFailure -> ShowS
showsPrec Int
_ WorkflowNotReadyFailure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WorkflowNotReadyFailure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkflowNotReadyFailure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message WorkflowNotReadyFailure where
  messageName :: Proxy WorkflowNotReadyFailure -> Text
messageName Proxy WorkflowNotReadyFailure
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.errordetails.v1.WorkflowNotReadyFailure"
  packedMessageDescriptor :: Proxy WorkflowNotReadyFailure -> ByteString
packedMessageDescriptor Proxy WorkflowNotReadyFailure
_
    = ByteString
"\n\
      \\ETBWorkflowNotReadyFailure"
  packedFileDescriptor :: Proxy WorkflowNotReadyFailure -> ByteString
packedFileDescriptor Proxy WorkflowNotReadyFailure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WorkflowNotReadyFailure)
fieldsByTag = let in [(Tag, FieldDescriptor WorkflowNotReadyFailure)]
-> Map Tag (FieldDescriptor WorkflowNotReadyFailure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' WorkflowNotReadyFailure FieldSet
unknownFields
    = (WorkflowNotReadyFailure -> FieldSet)
-> (WorkflowNotReadyFailure -> FieldSet -> WorkflowNotReadyFailure)
-> Lens' WorkflowNotReadyFailure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WorkflowNotReadyFailure -> FieldSet
_WorkflowNotReadyFailure'_unknownFields
        (\ WorkflowNotReadyFailure
x__ FieldSet
y__ -> WorkflowNotReadyFailure
x__ {_WorkflowNotReadyFailure'_unknownFields = y__})
  defMessage :: WorkflowNotReadyFailure
defMessage
    = WorkflowNotReadyFailure'_constructor
        {_WorkflowNotReadyFailure'_unknownFields :: FieldSet
_WorkflowNotReadyFailure'_unknownFields = []}
  parseMessage :: Parser WorkflowNotReadyFailure
parseMessage
    = let
        loop ::
          WorkflowNotReadyFailure
          -> Data.ProtoLens.Encoding.Bytes.Parser WorkflowNotReadyFailure
        loop :: WorkflowNotReadyFailure -> Parser WorkflowNotReadyFailure
loop WorkflowNotReadyFailure
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 WorkflowNotReadyFailure
-> String -> Parser WorkflowNotReadyFailure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WorkflowNotReadyFailure -> Parser WorkflowNotReadyFailure
loop WorkflowNotReadyFailure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WorkflowNotReadyFailure"
  buildMessage :: WorkflowNotReadyFailure -> Builder
buildMessage
    = \ WorkflowNotReadyFailure
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  WorkflowNotReadyFailure
  WorkflowNotReadyFailure
  FieldSet
  FieldSet
-> WorkflowNotReadyFailure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  WorkflowNotReadyFailure
  WorkflowNotReadyFailure
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkflowNotReadyFailure FieldSet
Data.ProtoLens.unknownFields WorkflowNotReadyFailure
_x)
instance Control.DeepSeq.NFData WorkflowNotReadyFailure where
  rnf :: WorkflowNotReadyFailure -> ()
rnf
    = \ WorkflowNotReadyFailure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WorkflowNotReadyFailure -> FieldSet
_WorkflowNotReadyFailure'_unknownFields WorkflowNotReadyFailure
x__) ()
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \*temporal/api/errordetails/v1/message.proto\DC2\FStemporal.api.errordetails.v1\SUB\EMgoogle/protobuf/any.proto\SUB$temporal/api/common/v1/message.proto\SUB(temporal/api/enums/v1/failed_cause.proto\SUB%temporal/api/enums/v1/namespace.proto\"a\n\
    \\SINotFoundFailure\DC2'\n\
    \\SIcurrent_cluster\CAN\SOH \SOH(\tR\SOcurrentCluster\DC2%\n\
    \\SOactive_cluster\CAN\STX \SOH(\tR\ractiveCluster\"i\n\
    \&WorkflowExecutionAlreadyStartedFailure\DC2(\n\
    \\DLEstart_request_id\CAN\SOH \SOH(\tR\SOstartRequestId\DC2\NAK\n\
    \\ACKrun_id\CAN\STX \SOH(\tR\ENQrunId\"\137\SOH\n\
    \\EMNamespaceNotActiveFailure\DC2\FS\n\
    \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2'\n\
    \\SIcurrent_cluster\CAN\STX \SOH(\tR\SOcurrentCluster\DC2%\n\
    \\SOactive_cluster\CAN\ETX \SOH(\tR\ractiveCluster\"\199\SOH\n\
    \\FSNamespaceInvalidStateFailure\DC2\FS\n\
    \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2;\n\
    \\ENQstate\CAN\STX \SOH(\SO2%.temporal.api.enums.v1.NamespaceStateR\ENQstate\DC2L\n\
    \\SOallowed_states\CAN\ETX \ETX(\SO2%.temporal.api.enums.v1.NamespaceStateR\rallowedStates\"8\n\
    \\CANNamespaceNotFoundFailure\DC2\FS\n\
    \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\"\US\n\
    \\GSNamespaceAlreadyExistsFailure\"\153\SOH\n\
    \ ClientVersionNotSupportedFailure\DC2%\n\
    \\SOclient_version\CAN\SOH \SOH(\tR\rclientVersion\DC2\US\n\
    \\vclient_name\CAN\STX \SOH(\tR\n\
    \clientName\DC2-\n\
    \\DC2supported_versions\CAN\ETX \SOH(\tR\DC1supportedVersions\"\146\SOH\n\
    \ ServerVersionNotSupportedFailure\DC2%\n\
    \\SOserver_version\CAN\SOH \SOH(\tR\rserverVersion\DC2G\n\
    \ client_supported_server_versions\CAN\STX \SOH(\tR\GSclientSupportedServerVersions\"%\n\
    \#CancellationAlreadyRequestedFailure\"\DC4\n\
    \\DC2QueryFailedFailure\"1\n\
    \\ETBPermissionDeniedFailure\DC2\SYN\n\
    \\ACKreason\CAN\SOH \SOH(\tR\ACKreason\"\164\SOH\n\
    \\CANResourceExhaustedFailure\DC2C\n\
    \\ENQcause\CAN\SOH \SOH(\SO2-.temporal.api.enums.v1.ResourceExhaustedCauseR\ENQcause\DC2C\n\
    \\ENQscope\CAN\STX \SOH(\SO2-.temporal.api.enums.v1.ResourceExhaustedScopeR\ENQscope\"\152\SOH\n\
    \\NAKSystemWorkflowFailure\DC2X\n\
    \\DC2workflow_execution\CAN\SOH \SOH(\v2).temporal.api.common.v1.WorkflowExecutionR\DC1workflowExecution\DC2%\n\
    \\SOworkflow_error\CAN\STX \SOH(\tR\rworkflowError\"\EM\n\
    \\ETBWorkflowNotReadyFailure\"C\n\
    \\ETBNewerBuildExistsFailure\DC2(\n\
    \\DLEdefault_build_id\CAN\SOH \SOH(\tR\SOdefaultBuildId\"\251\SOH\n\
    \\RSMultiOperationExecutionFailure\DC2h\n\
    \\bstatuses\CAN\SOH \ETX(\v2L.temporal.api.errordetails.v1.MultiOperationExecutionFailure.OperationStatusR\bstatuses\SUBo\n\
    \\SIOperationStatus\DC2\DC2\n\
    \\EOTcode\CAN\SOH \SOH(\ENQR\EOTcode\DC2\CAN\n\
    \\amessage\CAN\STX \SOH(\tR\amessage\DC2.\n\
    \\adetails\CAN\ETX \ETX(\v2\DC4.google.protobuf.AnyR\adetailsB\167\SOH\n\
    \\USio.temporal.api.errordetails.v1B\fMessageProtoP\SOHZ/go.temporal.io/api/errordetails/v1;errordetails\170\STX\RSTemporalio.Api.ErrorDetails.V1\234\STX!Temporalio::Api::ErrorDetails::V1J\181$\n\
    \\a\DC2\ENQ\SYN\NUL\132\SOH\SOH\n\
    \\241\b\n\
    \\SOH\f\DC2\ETX\SYN\NUL\DC22\230\b The MIT License\n\
    \\n\
    \ Copyright (c) 2020 Temporal Technologies Inc.  All rights reserved.\n\
    \\n\
    \ Permission is hereby granted, free of charge, to any person obtaining a copy\n\
    \ of this software and associated documentation files (the \"Software\"), to deal\n\
    \ in the Software without restriction, including without limitation the rights\n\
    \ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell\n\
    \ copies of the Software, and to permit persons to whom the Software is\n\
    \ furnished to do so, subject to the following conditions:\n\
    \\n\
    \ The above copyright notice and this permission notice shall be included in\n\
    \ all copies or substantial portions of the Software.\n\
    \\n\
    \ THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\n\
    \ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\n\
    \ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\n\
    \ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\n\
    \ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,\n\
    \ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN\n\
    \ THE SOFTWARE.\n\
    \\n\
    \\177\STX\n\
    \\SOH\STX\DC2\ETX\ESC\NUL%2\166\STX These error details are supplied in google.rpc.Status#details as described in \"Google APIs, Error Model\" (https://cloud.google.com/apis/design/errors#error_model)\n\
    \ and extend standard Error Details defined in https://github.com/googleapis/googleapis/blob/master/google/rpc/error_details.proto\n\
    \\n\
    \\b\n\
    \\SOH\b\DC2\ETX\GS\NULF\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\GS\NULF\n\
    \\b\n\
    \\SOH\b\DC2\ETX\RS\NUL8\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\RS\NUL8\n\
    \\b\n\
    \\SOH\b\DC2\ETX\US\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\US\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX \NUL-\n\
    \\t\n\
    \\STX\b\b\DC2\ETX \NUL-\n\
    \\b\n\
    \\SOH\b\DC2\ETX!\NUL:\n\
    \\t\n\
    \\STX\b-\DC2\ETX!\NUL:\n\
    \\b\n\
    \\SOH\b\DC2\ETX\"\NUL;\n\
    \\t\n\
    \\STX\b%\DC2\ETX\"\NUL;\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX$\NUL#\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX%\NUL.\n\
    \\t\n\
    \\STX\ETX\STX\DC2\ETX'\NUL2\n\
    \\t\n\
    \\STX\ETX\ETX\DC2\ETX(\NUL/\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT*\NUL-\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX*\b\ETB\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX+\EOT\US\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\SUB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX+\GS\RS\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX,\EOT\RS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX,\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX,\v\EM\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX,\FS\GS\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT/\NUL2\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX/\b.\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX0\EOT \n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX0\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX0\v\ESC\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX0\RS\US\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX1\EOT\SYN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX1\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX1\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX1\DC4\NAK\n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOT4\NUL8\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX4\b!\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX5\EOT\EM\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX5\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX5\v\DC4\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX5\ETB\CAN\n\
    \\v\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETX6\EOT\US\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX6\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX6\v\SUB\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX6\GS\RS\n\
    \\v\n\
    \\EOT\EOT\STX\STX\STX\DC2\ETX7\EOT\RS\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETX7\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX7\v\EM\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX7\FS\GS\n\
    \\n\
    \\n\
    \\STX\EOT\ETX\DC2\EOT:\NULA\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX:\b$\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX;\EOT\EM\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX;\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX;\v\DC4\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX;\ETB\CAN\n\
    \8\n\
    \\EOT\EOT\ETX\STX\SOH\DC2\ETX=\EOT3\SUB+ Current state of the requested namespace.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ACK\DC2\ETX=\EOT(\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX=).\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX=12\n\
    \\170\SOH\n\
    \\EOT\EOT\ETX\STX\STX\DC2\ETX@\EOTE\SUB\156\SOH Allowed namespace states for requested operation.\n\
    \ For example NAMESPACE_STATE_DELETED is forbidden for most operations but allowed for DescribeNamespace.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\EOT\DC2\ETX@\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\ACK\DC2\ETX@\r1\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX@2@\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX@CD\n\
    \\n\
    \\n\
    \\STX\EOT\EOT\DC2\EOTC\NULE\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\EOT\SOH\DC2\ETXC\b \n\
    \\v\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\ETXD\EOT\EM\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETXD\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXD\v\DC4\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXD\ETB\CAN\n\
    \\n\
    \\n\
    \\STX\EOT\ENQ\DC2\EOTG\NULH\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETXG\b%\n\
    \\n\
    \\n\
    \\STX\EOT\ACK\DC2\EOTJ\NULN\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETXJ\b(\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETXK\EOT\RS\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETXK\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXK\v\EM\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXK\FS\GS\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\SOH\DC2\ETXL\EOT\ESC\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETXL\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETXL\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETXL\EM\SUB\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\STX\DC2\ETXM\EOT\"\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ENQ\DC2\ETXM\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETXM\v\GS\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETXM !\n\
    \\n\
    \\n\
    \\STX\EOT\a\DC2\EOTP\NULS\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\a\SOH\DC2\ETXP\b(\n\
    \\v\n\
    \\EOT\EOT\a\STX\NUL\DC2\ETXQ\EOT\RS\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETXQ\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXQ\v\EM\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXQ\FS\GS\n\
    \\v\n\
    \\EOT\EOT\a\STX\SOH\DC2\ETXR\EOT0\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETXR\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXR\v+\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXR./\n\
    \\n\
    \\n\
    \\STX\EOT\b\DC2\EOTU\NULV\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\b\SOH\DC2\ETXU\b+\n\
    \\n\
    \\n\
    \\STX\EOT\t\DC2\EOTX\NULY\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\t\SOH\DC2\ETXX\b\SUB\n\
    \\n\
    \\n\
    \\STX\EOT\n\
    \\DC2\EOT[\NUL]\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\n\
    \\SOH\DC2\ETX[\b\US\n\
    \\v\n\
    \\EOT\EOT\n\
    \\STX\NUL\DC2\ETX\\\EOT\SYN\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ENQ\DC2\ETX\\\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\SOH\DC2\ETX\\\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ETX\DC2\ETX\\\DC4\NAK\n\
    \\n\
    \\n\
    \\STX\EOT\v\DC2\EOT_\NULb\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\v\SOH\DC2\ETX_\b \n\
    \\v\n\
    \\EOT\EOT\v\STX\NUL\DC2\ETX`\EOT;\n\
    \\f\n\
    \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETX`\EOT0\n\
    \\f\n\
    \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETX`16\n\
    \\f\n\
    \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETX`9:\n\
    \\v\n\
    \\EOT\EOT\v\STX\SOH\DC2\ETXa\EOT;\n\
    \\f\n\
    \\ENQ\EOT\v\STX\SOH\ACK\DC2\ETXa\EOT0\n\
    \\f\n\
    \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXa16\n\
    \\f\n\
    \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXa9:\n\
    \\n\
    \\n\
    \\STX\EOT\f\DC2\EOTd\NULj\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\f\SOH\DC2\ETXd\b\GS\n\
    \\202\SOH\n\
    \\EOT\EOT\f\STX\NUL\DC2\ETXg\EOTD\SUB\188\SOH WorkflowId and RunId of the Temporal system workflow performing the underlying operation.\n\
    \ Looking up the info of the system workflow run may help identify the issue causing the failure.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\ACK\DC2\ETXg\EOT,\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXg-?\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXgBC\n\
    \d\n\
    \\EOT\EOT\f\STX\SOH\DC2\ETXi\EOT\RS\SUBW Serialized error returned by the system workflow performing the underlying operation.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\SOH\ENQ\DC2\ETXi\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\SOH\SOH\DC2\ETXi\v\EM\n\
    \\f\n\
    \\ENQ\EOT\f\STX\SOH\ETX\DC2\ETXi\FS\GS\n\
    \\n\
    \\n\
    \\STX\EOT\r\DC2\EOTl\NULm\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\r\SOH\DC2\ETXl\b\US\n\
    \\n\
    \\n\
    \\STX\EOT\SO\DC2\EOTo\NULr\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SO\SOH\DC2\ETXo\b\US\n\
    \O\n\
    \\EOT\EOT\SO\STX\NUL\DC2\ETXq\EOT \SUBB The current default compatible build ID which will receive tasks\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\ENQ\DC2\ETXq\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXq\v\ESC\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXq\RS\US\n\
    \\v\n\
    \\STX\EOT\SI\DC2\ENQt\NUL\132\SOH\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SI\SOH\DC2\ETXt\b&\n\
    \\167\STX\n\
    \\EOT\EOT\SI\STX\NUL\DC2\ETXx\EOT*\SUB\153\STX One status for each requested operation from the failed MultiOperation. The failed\n\
    \ operation(s) have the same error details as if it was executed separately. All other operations have the\n\
    \ status code `Aborted` and `MultiOperationExecutionAborted` is added to the details field.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\NUL\EOT\DC2\ETXx\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\NUL\ACK\DC2\ETXx\r\FS\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\NUL\SOH\DC2\ETXx\GS%\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\NUL\ETX\DC2\ETXx()\n\
    \\154\STX\n\
    \\EOT\EOT\SI\ETX\NUL\DC2\ENQ\DEL\EOT\131\SOH\ENQ\SUB\138\STX NOTE: `OperationStatus` is modelled after\n\
    \ [`google.rpc.Status`](https://github.com/googleapis/googleapis/blob/master/google/rpc/status.proto).\n\
    \\n\
    \ (-- api-linter: core::0146::any=disabled\n\
    \     aip.dev/not-precedent: details are meant to hold arbitrary payloads. --)\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SI\ETX\NUL\SOH\DC2\ETX\DEL\f\ESC\n\
    \\SO\n\
    \\ACK\EOT\SI\ETX\NUL\STX\NUL\DC2\EOT\128\SOH\b\ETB\n\
    \\SI\n\
    \\a\EOT\SI\ETX\NUL\STX\NUL\ENQ\DC2\EOT\128\SOH\b\r\n\
    \\SI\n\
    \\a\EOT\SI\ETX\NUL\STX\NUL\SOH\DC2\EOT\128\SOH\SO\DC2\n\
    \\SI\n\
    \\a\EOT\SI\ETX\NUL\STX\NUL\ETX\DC2\EOT\128\SOH\NAK\SYN\n\
    \\SO\n\
    \\ACK\EOT\SI\ETX\NUL\STX\SOH\DC2\EOT\129\SOH\b\ESC\n\
    \\SI\n\
    \\a\EOT\SI\ETX\NUL\STX\SOH\ENQ\DC2\EOT\129\SOH\b\SO\n\
    \\SI\n\
    \\a\EOT\SI\ETX\NUL\STX\SOH\SOH\DC2\EOT\129\SOH\SI\SYN\n\
    \\SI\n\
    \\a\EOT\SI\ETX\NUL\STX\SOH\ETX\DC2\EOT\129\SOH\EM\SUB\n\
    \\SO\n\
    \\ACK\EOT\SI\ETX\NUL\STX\STX\DC2\EOT\130\SOH\b1\n\
    \\SI\n\
    \\a\EOT\SI\ETX\NUL\STX\STX\EOT\DC2\EOT\130\SOH\b\DLE\n\
    \\SI\n\
    \\a\EOT\SI\ETX\NUL\STX\STX\ACK\DC2\EOT\130\SOH\DC1$\n\
    \\SI\n\
    \\a\EOT\SI\ETX\NUL\STX\STX\SOH\DC2\EOT\130\SOH%,\n\
    \\SI\n\
    \\a\EOT\SI\ETX\NUL\STX\STX\ETX\DC2\EOT\130\SOH/0b\ACKproto3"