{- This file was auto-generated from temporal/api/operatorservice/v1/request_response.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.Operatorservice.V1.RequestResponse (
        AddOrUpdateRemoteClusterRequest(),
        AddOrUpdateRemoteClusterResponse(), AddSearchAttributesRequest(),
        AddSearchAttributesRequest'SearchAttributesEntry(),
        AddSearchAttributesResponse(), ClusterMetadata(),
        CreateNexusEndpointRequest(), CreateNexusEndpointResponse(),
        DeleteNamespaceRequest(), DeleteNamespaceResponse(),
        DeleteNexusEndpointRequest(), DeleteNexusEndpointResponse(),
        GetNexusEndpointRequest(), GetNexusEndpointResponse(),
        ListClustersRequest(), ListClustersResponse(),
        ListNexusEndpointsRequest(), ListNexusEndpointsResponse(),
        ListSearchAttributesRequest(), ListSearchAttributesResponse(),
        ListSearchAttributesResponse'CustomAttributesEntry(),
        ListSearchAttributesResponse'StorageSchemaEntry(),
        ListSearchAttributesResponse'SystemAttributesEntry(),
        RemoveRemoteClusterRequest(), RemoveRemoteClusterResponse(),
        RemoveSearchAttributesRequest(), RemoveSearchAttributesResponse(),
        UpdateNexusEndpointRequest(), UpdateNexusEndpointResponse()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.Duration
import qualified Proto.Temporal.Api.Enums.V1.Common
import qualified Proto.Temporal.Api.Nexus.V1.Message
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.frontendAddress' @:: Lens' AddOrUpdateRemoteClusterRequest Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.enableRemoteClusterConnection' @:: Lens' AddOrUpdateRemoteClusterRequest Prelude.Bool@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.frontendHttpAddress' @:: Lens' AddOrUpdateRemoteClusterRequest Data.Text.Text@ -}
data AddOrUpdateRemoteClusterRequest
  = AddOrUpdateRemoteClusterRequest'_constructor {AddOrUpdateRemoteClusterRequest -> Text
_AddOrUpdateRemoteClusterRequest'frontendAddress :: !Data.Text.Text,
                                                  AddOrUpdateRemoteClusterRequest -> Bool
_AddOrUpdateRemoteClusterRequest'enableRemoteClusterConnection :: !Prelude.Bool,
                                                  AddOrUpdateRemoteClusterRequest -> Text
_AddOrUpdateRemoteClusterRequest'frontendHttpAddress :: !Data.Text.Text,
                                                  AddOrUpdateRemoteClusterRequest -> FieldSet
_AddOrUpdateRemoteClusterRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
(AddOrUpdateRemoteClusterRequest
 -> AddOrUpdateRemoteClusterRequest -> Bool)
-> (AddOrUpdateRemoteClusterRequest
    -> AddOrUpdateRemoteClusterRequest -> Bool)
-> Eq AddOrUpdateRemoteClusterRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
== :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
$c/= :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
/= :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
Prelude.Eq, Eq AddOrUpdateRemoteClusterRequest
Eq AddOrUpdateRemoteClusterRequest =>
(AddOrUpdateRemoteClusterRequest
 -> AddOrUpdateRemoteClusterRequest -> Ordering)
-> (AddOrUpdateRemoteClusterRequest
    -> AddOrUpdateRemoteClusterRequest -> Bool)
-> (AddOrUpdateRemoteClusterRequest
    -> AddOrUpdateRemoteClusterRequest -> Bool)
-> (AddOrUpdateRemoteClusterRequest
    -> AddOrUpdateRemoteClusterRequest -> Bool)
-> (AddOrUpdateRemoteClusterRequest
    -> AddOrUpdateRemoteClusterRequest -> Bool)
-> (AddOrUpdateRemoteClusterRequest
    -> AddOrUpdateRemoteClusterRequest
    -> AddOrUpdateRemoteClusterRequest)
-> (AddOrUpdateRemoteClusterRequest
    -> AddOrUpdateRemoteClusterRequest
    -> AddOrUpdateRemoteClusterRequest)
-> Ord AddOrUpdateRemoteClusterRequest
AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Ordering
AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest
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 :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Ordering
compare :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Ordering
$c< :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
< :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
$c<= :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
<= :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
$c> :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
> :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
$c>= :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
>= :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest -> Bool
$cmax :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest
max :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest
$cmin :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest
min :: AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest
-> AddOrUpdateRemoteClusterRequest
Prelude.Ord)
instance Prelude.Show AddOrUpdateRemoteClusterRequest where
  showsPrec :: Int -> AddOrUpdateRemoteClusterRequest -> ShowS
showsPrec Int
_ AddOrUpdateRemoteClusterRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AddOrUpdateRemoteClusterRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AddOrUpdateRemoteClusterRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AddOrUpdateRemoteClusterRequest "frontendAddress" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "frontendAddress"
-> (Text -> f Text)
-> AddOrUpdateRemoteClusterRequest
-> f AddOrUpdateRemoteClusterRequest
fieldOf Proxy# "frontendAddress"
_
    = ((Text -> f Text)
 -> AddOrUpdateRemoteClusterRequest
 -> f AddOrUpdateRemoteClusterRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AddOrUpdateRemoteClusterRequest
-> f AddOrUpdateRemoteClusterRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddOrUpdateRemoteClusterRequest -> Text)
-> (AddOrUpdateRemoteClusterRequest
    -> Text -> AddOrUpdateRemoteClusterRequest)
-> Lens
     AddOrUpdateRemoteClusterRequest
     AddOrUpdateRemoteClusterRequest
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddOrUpdateRemoteClusterRequest -> Text
_AddOrUpdateRemoteClusterRequest'frontendAddress
           (\ AddOrUpdateRemoteClusterRequest
x__ Text
y__
              -> AddOrUpdateRemoteClusterRequest
x__ {_AddOrUpdateRemoteClusterRequest'frontendAddress = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AddOrUpdateRemoteClusterRequest "enableRemoteClusterConnection" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "enableRemoteClusterConnection"
-> (Bool -> f Bool)
-> AddOrUpdateRemoteClusterRequest
-> f AddOrUpdateRemoteClusterRequest
fieldOf Proxy# "enableRemoteClusterConnection"
_
    = ((Bool -> f Bool)
 -> AddOrUpdateRemoteClusterRequest
 -> f AddOrUpdateRemoteClusterRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> AddOrUpdateRemoteClusterRequest
-> f AddOrUpdateRemoteClusterRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddOrUpdateRemoteClusterRequest -> Bool)
-> (AddOrUpdateRemoteClusterRequest
    -> Bool -> AddOrUpdateRemoteClusterRequest)
-> Lens
     AddOrUpdateRemoteClusterRequest
     AddOrUpdateRemoteClusterRequest
     Bool
     Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddOrUpdateRemoteClusterRequest -> Bool
_AddOrUpdateRemoteClusterRequest'enableRemoteClusterConnection
           (\ AddOrUpdateRemoteClusterRequest
x__ Bool
y__
              -> AddOrUpdateRemoteClusterRequest
x__
                   {_AddOrUpdateRemoteClusterRequest'enableRemoteClusterConnection = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AddOrUpdateRemoteClusterRequest "frontendHttpAddress" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "frontendHttpAddress"
-> (Text -> f Text)
-> AddOrUpdateRemoteClusterRequest
-> f AddOrUpdateRemoteClusterRequest
fieldOf Proxy# "frontendHttpAddress"
_
    = ((Text -> f Text)
 -> AddOrUpdateRemoteClusterRequest
 -> f AddOrUpdateRemoteClusterRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AddOrUpdateRemoteClusterRequest
-> f AddOrUpdateRemoteClusterRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddOrUpdateRemoteClusterRequest -> Text)
-> (AddOrUpdateRemoteClusterRequest
    -> Text -> AddOrUpdateRemoteClusterRequest)
-> Lens
     AddOrUpdateRemoteClusterRequest
     AddOrUpdateRemoteClusterRequest
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddOrUpdateRemoteClusterRequest -> Text
_AddOrUpdateRemoteClusterRequest'frontendHttpAddress
           (\ AddOrUpdateRemoteClusterRequest
x__ Text
y__
              -> AddOrUpdateRemoteClusterRequest
x__
                   {_AddOrUpdateRemoteClusterRequest'frontendHttpAddress = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AddOrUpdateRemoteClusterRequest where
  messageName :: Proxy AddOrUpdateRemoteClusterRequest -> Text
messageName Proxy AddOrUpdateRemoteClusterRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.AddOrUpdateRemoteClusterRequest"
  packedMessageDescriptor :: Proxy AddOrUpdateRemoteClusterRequest -> ByteString
packedMessageDescriptor Proxy AddOrUpdateRemoteClusterRequest
_
    = ByteString
"\n\
      \\USAddOrUpdateRemoteClusterRequest\DC2)\n\
      \\DLEfrontend_address\CAN\SOH \SOH(\tR\SIfrontendAddress\DC2G\n\
      \ enable_remote_cluster_connection\CAN\STX \SOH(\bR\GSenableRemoteClusterConnection\DC22\n\
      \\NAKfrontend_http_address\CAN\ETX \SOH(\tR\DC3frontendHttpAddress"
  packedFileDescriptor :: Proxy AddOrUpdateRemoteClusterRequest -> ByteString
packedFileDescriptor Proxy AddOrUpdateRemoteClusterRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AddOrUpdateRemoteClusterRequest)
fieldsByTag
    = let
        frontendAddress__field_descriptor :: FieldDescriptor AddOrUpdateRemoteClusterRequest
frontendAddress__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AddOrUpdateRemoteClusterRequest Text
-> FieldDescriptor AddOrUpdateRemoteClusterRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"frontend_address"
              (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
     AddOrUpdateRemoteClusterRequest
     AddOrUpdateRemoteClusterRequest
     Text
     Text
-> FieldAccessor AddOrUpdateRemoteClusterRequest 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 @"frontendAddress")) ::
              Data.ProtoLens.FieldDescriptor AddOrUpdateRemoteClusterRequest
        enableRemoteClusterConnection__field_descriptor :: FieldDescriptor AddOrUpdateRemoteClusterRequest
enableRemoteClusterConnection__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor AddOrUpdateRemoteClusterRequest Bool
-> FieldDescriptor AddOrUpdateRemoteClusterRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"enable_remote_cluster_connection"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens
     AddOrUpdateRemoteClusterRequest
     AddOrUpdateRemoteClusterRequest
     Bool
     Bool
-> FieldAccessor AddOrUpdateRemoteClusterRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enableRemoteClusterConnection")) ::
              Data.ProtoLens.FieldDescriptor AddOrUpdateRemoteClusterRequest
        frontendHttpAddress__field_descriptor :: FieldDescriptor AddOrUpdateRemoteClusterRequest
frontendHttpAddress__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AddOrUpdateRemoteClusterRequest Text
-> FieldDescriptor AddOrUpdateRemoteClusterRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"frontend_http_address"
              (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
     AddOrUpdateRemoteClusterRequest
     AddOrUpdateRemoteClusterRequest
     Text
     Text
-> FieldAccessor AddOrUpdateRemoteClusterRequest 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 @"frontendHttpAddress")) ::
              Data.ProtoLens.FieldDescriptor AddOrUpdateRemoteClusterRequest
      in
        [(Tag, FieldDescriptor AddOrUpdateRemoteClusterRequest)]
-> Map Tag (FieldDescriptor AddOrUpdateRemoteClusterRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AddOrUpdateRemoteClusterRequest
frontendAddress__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, 
            FieldDescriptor AddOrUpdateRemoteClusterRequest
enableRemoteClusterConnection__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor AddOrUpdateRemoteClusterRequest
frontendHttpAddress__field_descriptor)]
  unknownFields :: Lens' AddOrUpdateRemoteClusterRequest FieldSet
unknownFields
    = (AddOrUpdateRemoteClusterRequest -> FieldSet)
-> (AddOrUpdateRemoteClusterRequest
    -> FieldSet -> AddOrUpdateRemoteClusterRequest)
-> Lens' AddOrUpdateRemoteClusterRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AddOrUpdateRemoteClusterRequest -> FieldSet
_AddOrUpdateRemoteClusterRequest'_unknownFields
        (\ AddOrUpdateRemoteClusterRequest
x__ FieldSet
y__
           -> AddOrUpdateRemoteClusterRequest
x__ {_AddOrUpdateRemoteClusterRequest'_unknownFields = y__})
  defMessage :: AddOrUpdateRemoteClusterRequest
defMessage
    = AddOrUpdateRemoteClusterRequest'_constructor
        {_AddOrUpdateRemoteClusterRequest'frontendAddress :: Text
_AddOrUpdateRemoteClusterRequest'frontendAddress = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AddOrUpdateRemoteClusterRequest'enableRemoteClusterConnection :: Bool
_AddOrUpdateRemoteClusterRequest'enableRemoteClusterConnection = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AddOrUpdateRemoteClusterRequest'frontendHttpAddress :: Text
_AddOrUpdateRemoteClusterRequest'frontendHttpAddress = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AddOrUpdateRemoteClusterRequest'_unknownFields :: FieldSet
_AddOrUpdateRemoteClusterRequest'_unknownFields = []}
  parseMessage :: Parser AddOrUpdateRemoteClusterRequest
parseMessage
    = let
        loop ::
          AddOrUpdateRemoteClusterRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AddOrUpdateRemoteClusterRequest
        loop :: AddOrUpdateRemoteClusterRequest
-> Parser AddOrUpdateRemoteClusterRequest
loop AddOrUpdateRemoteClusterRequest
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
"frontend_address"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"frontendAddress") y x)
                        Word64
16
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"enable_remote_cluster_connection"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"enableRemoteClusterConnection") 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
"frontend_http_address"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"frontendHttpAddress") 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 AddOrUpdateRemoteClusterRequest
-> String -> Parser AddOrUpdateRemoteClusterRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AddOrUpdateRemoteClusterRequest
-> Parser AddOrUpdateRemoteClusterRequest
loop AddOrUpdateRemoteClusterRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"AddOrUpdateRemoteClusterRequest"
  buildMessage :: AddOrUpdateRemoteClusterRequest -> Builder
buildMessage
    = \ AddOrUpdateRemoteClusterRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text
  AddOrUpdateRemoteClusterRequest
  AddOrUpdateRemoteClusterRequest
  Text
  Text
-> AddOrUpdateRemoteClusterRequest -> 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 @"frontendAddress") AddOrUpdateRemoteClusterRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Bool
_v
                     = FoldLike
  Bool
  AddOrUpdateRemoteClusterRequest
  AddOrUpdateRemoteClusterRequest
  Bool
  Bool
-> AddOrUpdateRemoteClusterRequest -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enableRemoteClusterConnection") AddOrUpdateRemoteClusterRequest
_x
                 in
                   if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                            Bool
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Text
_v
                        = FoldLike
  Text
  AddOrUpdateRemoteClusterRequest
  AddOrUpdateRemoteClusterRequest
  Text
  Text
-> AddOrUpdateRemoteClusterRequest -> 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 @"frontendHttpAddress") AddOrUpdateRemoteClusterRequest
_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
  AddOrUpdateRemoteClusterRequest
  AddOrUpdateRemoteClusterRequest
  FieldSet
  FieldSet
-> AddOrUpdateRemoteClusterRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AddOrUpdateRemoteClusterRequest
  AddOrUpdateRemoteClusterRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AddOrUpdateRemoteClusterRequest FieldSet
Data.ProtoLens.unknownFields AddOrUpdateRemoteClusterRequest
_x))))
instance Control.DeepSeq.NFData AddOrUpdateRemoteClusterRequest where
  rnf :: AddOrUpdateRemoteClusterRequest -> ()
rnf
    = \ AddOrUpdateRemoteClusterRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AddOrUpdateRemoteClusterRequest -> FieldSet
_AddOrUpdateRemoteClusterRequest'_unknownFields AddOrUpdateRemoteClusterRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AddOrUpdateRemoteClusterRequest -> Text
_AddOrUpdateRemoteClusterRequest'frontendAddress AddOrUpdateRemoteClusterRequest
x__)
                (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AddOrUpdateRemoteClusterRequest -> Bool
_AddOrUpdateRemoteClusterRequest'enableRemoteClusterConnection
                      AddOrUpdateRemoteClusterRequest
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (AddOrUpdateRemoteClusterRequest -> Text
_AddOrUpdateRemoteClusterRequest'frontendHttpAddress AddOrUpdateRemoteClusterRequest
x__) ())))
{- | Fields :
      -}
data AddOrUpdateRemoteClusterResponse
  = AddOrUpdateRemoteClusterResponse'_constructor {AddOrUpdateRemoteClusterResponse -> FieldSet
_AddOrUpdateRemoteClusterResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
(AddOrUpdateRemoteClusterResponse
 -> AddOrUpdateRemoteClusterResponse -> Bool)
-> (AddOrUpdateRemoteClusterResponse
    -> AddOrUpdateRemoteClusterResponse -> Bool)
-> Eq AddOrUpdateRemoteClusterResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
== :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
$c/= :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
/= :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
Prelude.Eq, Eq AddOrUpdateRemoteClusterResponse
Eq AddOrUpdateRemoteClusterResponse =>
(AddOrUpdateRemoteClusterResponse
 -> AddOrUpdateRemoteClusterResponse -> Ordering)
-> (AddOrUpdateRemoteClusterResponse
    -> AddOrUpdateRemoteClusterResponse -> Bool)
-> (AddOrUpdateRemoteClusterResponse
    -> AddOrUpdateRemoteClusterResponse -> Bool)
-> (AddOrUpdateRemoteClusterResponse
    -> AddOrUpdateRemoteClusterResponse -> Bool)
-> (AddOrUpdateRemoteClusterResponse
    -> AddOrUpdateRemoteClusterResponse -> Bool)
-> (AddOrUpdateRemoteClusterResponse
    -> AddOrUpdateRemoteClusterResponse
    -> AddOrUpdateRemoteClusterResponse)
-> (AddOrUpdateRemoteClusterResponse
    -> AddOrUpdateRemoteClusterResponse
    -> AddOrUpdateRemoteClusterResponse)
-> Ord AddOrUpdateRemoteClusterResponse
AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Ordering
AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse
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 :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Ordering
compare :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Ordering
$c< :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
< :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
$c<= :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
<= :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
$c> :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
> :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
$c>= :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
>= :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse -> Bool
$cmax :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse
max :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse
$cmin :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse
min :: AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse
-> AddOrUpdateRemoteClusterResponse
Prelude.Ord)
instance Prelude.Show AddOrUpdateRemoteClusterResponse where
  showsPrec :: Int -> AddOrUpdateRemoteClusterResponse -> ShowS
showsPrec Int
_ AddOrUpdateRemoteClusterResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AddOrUpdateRemoteClusterResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AddOrUpdateRemoteClusterResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message AddOrUpdateRemoteClusterResponse where
  messageName :: Proxy AddOrUpdateRemoteClusterResponse -> Text
messageName Proxy AddOrUpdateRemoteClusterResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.AddOrUpdateRemoteClusterResponse"
  packedMessageDescriptor :: Proxy AddOrUpdateRemoteClusterResponse -> ByteString
packedMessageDescriptor Proxy AddOrUpdateRemoteClusterResponse
_
    = ByteString
"\n\
      \ AddOrUpdateRemoteClusterResponse"
  packedFileDescriptor :: Proxy AddOrUpdateRemoteClusterResponse -> ByteString
packedFileDescriptor Proxy AddOrUpdateRemoteClusterResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AddOrUpdateRemoteClusterResponse)
fieldsByTag = let in [(Tag, FieldDescriptor AddOrUpdateRemoteClusterResponse)]
-> Map Tag (FieldDescriptor AddOrUpdateRemoteClusterResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' AddOrUpdateRemoteClusterResponse FieldSet
unknownFields
    = (AddOrUpdateRemoteClusterResponse -> FieldSet)
-> (AddOrUpdateRemoteClusterResponse
    -> FieldSet -> AddOrUpdateRemoteClusterResponse)
-> Lens' AddOrUpdateRemoteClusterResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AddOrUpdateRemoteClusterResponse -> FieldSet
_AddOrUpdateRemoteClusterResponse'_unknownFields
        (\ AddOrUpdateRemoteClusterResponse
x__ FieldSet
y__
           -> AddOrUpdateRemoteClusterResponse
x__ {_AddOrUpdateRemoteClusterResponse'_unknownFields = y__})
  defMessage :: AddOrUpdateRemoteClusterResponse
defMessage
    = AddOrUpdateRemoteClusterResponse'_constructor
        {_AddOrUpdateRemoteClusterResponse'_unknownFields :: FieldSet
_AddOrUpdateRemoteClusterResponse'_unknownFields = []}
  parseMessage :: Parser AddOrUpdateRemoteClusterResponse
parseMessage
    = let
        loop ::
          AddOrUpdateRemoteClusterResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AddOrUpdateRemoteClusterResponse
        loop :: AddOrUpdateRemoteClusterResponse
-> Parser AddOrUpdateRemoteClusterResponse
loop AddOrUpdateRemoteClusterResponse
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 AddOrUpdateRemoteClusterResponse
-> String -> Parser AddOrUpdateRemoteClusterResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AddOrUpdateRemoteClusterResponse
-> Parser AddOrUpdateRemoteClusterResponse
loop AddOrUpdateRemoteClusterResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"AddOrUpdateRemoteClusterResponse"
  buildMessage :: AddOrUpdateRemoteClusterResponse -> Builder
buildMessage
    = \ AddOrUpdateRemoteClusterResponse
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  AddOrUpdateRemoteClusterResponse
  AddOrUpdateRemoteClusterResponse
  FieldSet
  FieldSet
-> AddOrUpdateRemoteClusterResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AddOrUpdateRemoteClusterResponse
  AddOrUpdateRemoteClusterResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AddOrUpdateRemoteClusterResponse FieldSet
Data.ProtoLens.unknownFields AddOrUpdateRemoteClusterResponse
_x)
instance Control.DeepSeq.NFData AddOrUpdateRemoteClusterResponse where
  rnf :: AddOrUpdateRemoteClusterResponse -> ()
rnf
    = \ AddOrUpdateRemoteClusterResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AddOrUpdateRemoteClusterResponse -> FieldSet
_AddOrUpdateRemoteClusterResponse'_unknownFields AddOrUpdateRemoteClusterResponse
x__) ()
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.searchAttributes' @:: Lens' AddSearchAttributesRequest (Data.Map.Map Data.Text.Text Proto.Temporal.Api.Enums.V1.Common.IndexedValueType)@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.namespace' @:: Lens' AddSearchAttributesRequest Data.Text.Text@ -}
data AddSearchAttributesRequest
  = AddSearchAttributesRequest'_constructor {AddSearchAttributesRequest -> Map Text IndexedValueType
_AddSearchAttributesRequest'searchAttributes :: !(Data.Map.Map Data.Text.Text Proto.Temporal.Api.Enums.V1.Common.IndexedValueType),
                                             AddSearchAttributesRequest -> Text
_AddSearchAttributesRequest'namespace :: !Data.Text.Text,
                                             AddSearchAttributesRequest -> FieldSet
_AddSearchAttributesRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
(AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool)
-> (AddSearchAttributesRequest
    -> AddSearchAttributesRequest -> Bool)
-> Eq AddSearchAttributesRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
== :: AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
$c/= :: AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
/= :: AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
Prelude.Eq, Eq AddSearchAttributesRequest
Eq AddSearchAttributesRequest =>
(AddSearchAttributesRequest
 -> AddSearchAttributesRequest -> Ordering)
-> (AddSearchAttributesRequest
    -> AddSearchAttributesRequest -> Bool)
-> (AddSearchAttributesRequest
    -> AddSearchAttributesRequest -> Bool)
-> (AddSearchAttributesRequest
    -> AddSearchAttributesRequest -> Bool)
-> (AddSearchAttributesRequest
    -> AddSearchAttributesRequest -> Bool)
-> (AddSearchAttributesRequest
    -> AddSearchAttributesRequest -> AddSearchAttributesRequest)
-> (AddSearchAttributesRequest
    -> AddSearchAttributesRequest -> AddSearchAttributesRequest)
-> Ord AddSearchAttributesRequest
AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
AddSearchAttributesRequest
-> AddSearchAttributesRequest -> Ordering
AddSearchAttributesRequest
-> AddSearchAttributesRequest -> AddSearchAttributesRequest
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 :: AddSearchAttributesRequest
-> AddSearchAttributesRequest -> Ordering
compare :: AddSearchAttributesRequest
-> AddSearchAttributesRequest -> Ordering
$c< :: AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
< :: AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
$c<= :: AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
<= :: AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
$c> :: AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
> :: AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
$c>= :: AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
>= :: AddSearchAttributesRequest -> AddSearchAttributesRequest -> Bool
$cmax :: AddSearchAttributesRequest
-> AddSearchAttributesRequest -> AddSearchAttributesRequest
max :: AddSearchAttributesRequest
-> AddSearchAttributesRequest -> AddSearchAttributesRequest
$cmin :: AddSearchAttributesRequest
-> AddSearchAttributesRequest -> AddSearchAttributesRequest
min :: AddSearchAttributesRequest
-> AddSearchAttributesRequest -> AddSearchAttributesRequest
Prelude.Ord)
instance Prelude.Show AddSearchAttributesRequest where
  showsPrec :: Int -> AddSearchAttributesRequest -> ShowS
showsPrec Int
_ AddSearchAttributesRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AddSearchAttributesRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AddSearchAttributesRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AddSearchAttributesRequest "searchAttributes" (Data.Map.Map Data.Text.Text Proto.Temporal.Api.Enums.V1.Common.IndexedValueType) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "searchAttributes"
-> (Map Text IndexedValueType -> f (Map Text IndexedValueType))
-> AddSearchAttributesRequest
-> f AddSearchAttributesRequest
fieldOf Proxy# "searchAttributes"
_
    = ((Map Text IndexedValueType -> f (Map Text IndexedValueType))
 -> AddSearchAttributesRequest -> f AddSearchAttributesRequest)
-> ((Map Text IndexedValueType -> f (Map Text IndexedValueType))
    -> Map Text IndexedValueType -> f (Map Text IndexedValueType))
-> (Map Text IndexedValueType -> f (Map Text IndexedValueType))
-> AddSearchAttributesRequest
-> f AddSearchAttributesRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddSearchAttributesRequest -> Map Text IndexedValueType)
-> (AddSearchAttributesRequest
    -> Map Text IndexedValueType -> AddSearchAttributesRequest)
-> Lens
     AddSearchAttributesRequest
     AddSearchAttributesRequest
     (Map Text IndexedValueType)
     (Map Text IndexedValueType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddSearchAttributesRequest -> Map Text IndexedValueType
_AddSearchAttributesRequest'searchAttributes
           (\ AddSearchAttributesRequest
x__ Map Text IndexedValueType
y__
              -> AddSearchAttributesRequest
x__ {_AddSearchAttributesRequest'searchAttributes = y__}))
        (Map Text IndexedValueType -> f (Map Text IndexedValueType))
-> Map Text IndexedValueType -> f (Map Text IndexedValueType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AddSearchAttributesRequest "namespace" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespace"
-> (Text -> f Text)
-> AddSearchAttributesRequest
-> f AddSearchAttributesRequest
fieldOf Proxy# "namespace"
_
    = ((Text -> f Text)
 -> AddSearchAttributesRequest -> f AddSearchAttributesRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AddSearchAttributesRequest
-> f AddSearchAttributesRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddSearchAttributesRequest -> Text)
-> (AddSearchAttributesRequest
    -> Text -> AddSearchAttributesRequest)
-> Lens
     AddSearchAttributesRequest AddSearchAttributesRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddSearchAttributesRequest -> Text
_AddSearchAttributesRequest'namespace
           (\ AddSearchAttributesRequest
x__ Text
y__ -> AddSearchAttributesRequest
x__ {_AddSearchAttributesRequest'namespace = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AddSearchAttributesRequest where
  messageName :: Proxy AddSearchAttributesRequest -> Text
messageName Proxy AddSearchAttributesRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.AddSearchAttributesRequest"
  packedMessageDescriptor :: Proxy AddSearchAttributesRequest -> ByteString
packedMessageDescriptor Proxy AddSearchAttributesRequest
_
    = ByteString
"\n\
      \\SUBAddSearchAttributesRequest\DC2~\n\
      \\DC1search_attributes\CAN\SOH \ETX(\v2Q.temporal.api.operatorservice.v1.AddSearchAttributesRequest.SearchAttributesEntryR\DLEsearchAttributes\DC2\FS\n\
      \\tnamespace\CAN\STX \SOH(\tR\tnamespace\SUBl\n\
      \\NAKSearchAttributesEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2=\n\
      \\ENQvalue\CAN\STX \SOH(\SO2'.temporal.api.enums.v1.IndexedValueTypeR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy AddSearchAttributesRequest -> ByteString
packedFileDescriptor Proxy AddSearchAttributesRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AddSearchAttributesRequest)
fieldsByTag
    = let
        searchAttributes__field_descriptor :: FieldDescriptor AddSearchAttributesRequest
searchAttributes__field_descriptor
          = String
-> FieldTypeDescriptor
     AddSearchAttributesRequest'SearchAttributesEntry
-> FieldAccessor
     AddSearchAttributesRequest
     AddSearchAttributesRequest'SearchAttributesEntry
-> FieldDescriptor AddSearchAttributesRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"search_attributes"
              (MessageOrGroup
-> FieldTypeDescriptor
     AddSearchAttributesRequest'SearchAttributesEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AddSearchAttributesRequest'SearchAttributesEntry)
              (Lens' AddSearchAttributesRequest'SearchAttributesEntry Text
-> Lens'
     AddSearchAttributesRequest'SearchAttributesEntry IndexedValueType
-> Lens
     AddSearchAttributesRequest
     AddSearchAttributesRequest
     (Map Text IndexedValueType)
     (Map Text IndexedValueType)
-> FieldAccessor
     AddSearchAttributesRequest
     AddSearchAttributesRequest'SearchAttributesEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"searchAttributes")) ::
              Data.ProtoLens.FieldDescriptor AddSearchAttributesRequest
        namespace__field_descriptor :: FieldDescriptor AddSearchAttributesRequest
namespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AddSearchAttributesRequest Text
-> FieldDescriptor AddSearchAttributesRequest
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
     AddSearchAttributesRequest AddSearchAttributesRequest Text Text
-> FieldAccessor AddSearchAttributesRequest 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 AddSearchAttributesRequest
      in
        [(Tag, FieldDescriptor AddSearchAttributesRequest)]
-> Map Tag (FieldDescriptor AddSearchAttributesRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AddSearchAttributesRequest
searchAttributes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AddSearchAttributesRequest
namespace__field_descriptor)]
  unknownFields :: Lens' AddSearchAttributesRequest FieldSet
unknownFields
    = (AddSearchAttributesRequest -> FieldSet)
-> (AddSearchAttributesRequest
    -> FieldSet -> AddSearchAttributesRequest)
-> Lens' AddSearchAttributesRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AddSearchAttributesRequest -> FieldSet
_AddSearchAttributesRequest'_unknownFields
        (\ AddSearchAttributesRequest
x__ FieldSet
y__
           -> AddSearchAttributesRequest
x__ {_AddSearchAttributesRequest'_unknownFields = y__})
  defMessage :: AddSearchAttributesRequest
defMessage
    = AddSearchAttributesRequest'_constructor
        {_AddSearchAttributesRequest'searchAttributes :: Map Text IndexedValueType
_AddSearchAttributesRequest'searchAttributes = Map Text IndexedValueType
forall k a. Map k a
Data.Map.empty,
         _AddSearchAttributesRequest'namespace :: Text
_AddSearchAttributesRequest'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AddSearchAttributesRequest'_unknownFields :: FieldSet
_AddSearchAttributesRequest'_unknownFields = []}
  parseMessage :: Parser AddSearchAttributesRequest
parseMessage
    = let
        loop ::
          AddSearchAttributesRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AddSearchAttributesRequest
        loop :: AddSearchAttributesRequest -> Parser AddSearchAttributesRequest
loop AddSearchAttributesRequest
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !(entry :: AddSearchAttributesRequest'SearchAttributesEntry) <- Parser AddSearchAttributesRequest'SearchAttributesEntry
-> String
-> Parser AddSearchAttributesRequest'SearchAttributesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                                                  (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                                                      Data.ProtoLens.Encoding.Bytes.isolate
                                                                                                        (Prelude.fromIntegral
                                                                                                           len)
                                                                                                        Data.ProtoLens.parseMessage)
                                                                                                  String
"search_attributes"
                                (let
                                   key = FoldLike
  Text
  AddSearchAttributesRequest'SearchAttributesEntry
  AddSearchAttributesRequest'SearchAttributesEntry
  Text
  Text
-> AddSearchAttributesRequest'SearchAttributesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") AddSearchAttributesRequest'SearchAttributesEntry
entry
                                   value
                                     = FoldLike
  IndexedValueType
  AddSearchAttributesRequest'SearchAttributesEntry
  AddSearchAttributesRequest'SearchAttributesEntry
  IndexedValueType
  IndexedValueType
-> AddSearchAttributesRequest'SearchAttributesEntry
-> IndexedValueType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") AddSearchAttributesRequest'SearchAttributesEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"searchAttributes")
                                        (\ !Map Text IndexedValueType
t -> Text
-> IndexedValueType
-> Map Text IndexedValueType
-> Map Text IndexedValueType
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key IndexedValueType
value Map Text IndexedValueType
t) 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
"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 AddSearchAttributesRequest
-> String -> Parser AddSearchAttributesRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AddSearchAttributesRequest -> Parser AddSearchAttributesRequest
loop AddSearchAttributesRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AddSearchAttributesRequest"
  buildMessage :: AddSearchAttributesRequest -> Builder
buildMessage
    = \ AddSearchAttributesRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                (((Text, IndexedValueType) -> Builder)
-> [(Text, IndexedValueType)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                   (\ (Text, IndexedValueType)
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                           ((ByteString -> Builder)
-> (AddSearchAttributesRequest'SearchAttributesEntry -> ByteString)
-> AddSearchAttributesRequest'SearchAttributesEntry
-> 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))
                              AddSearchAttributesRequest'SearchAttributesEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              (Setter
  AddSearchAttributesRequest'SearchAttributesEntry
  AddSearchAttributesRequest'SearchAttributesEntry
  Text
  Text
-> Text
-> AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, IndexedValueType) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, IndexedValueType)
_v)
                                 (Setter
  AddSearchAttributesRequest'SearchAttributesEntry
  AddSearchAttributesRequest'SearchAttributesEntry
  IndexedValueType
  IndexedValueType
-> IndexedValueType
-> AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ((Text, IndexedValueType) -> IndexedValueType
forall a b. (a, b) -> b
Prelude.snd (Text, IndexedValueType)
_v)
                                    (AddSearchAttributesRequest'SearchAttributesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                       AddSearchAttributesRequest'SearchAttributesEntry)))))
                   (Map Text IndexedValueType -> [(Text, IndexedValueType)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                      (FoldLike
  (Map Text IndexedValueType)
  AddSearchAttributesRequest
  AddSearchAttributesRequest
  (Map Text IndexedValueType)
  (Map Text IndexedValueType)
-> AddSearchAttributesRequest -> Map Text IndexedValueType
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 @"searchAttributes") AddSearchAttributesRequest
_x))))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike
  Text
  AddSearchAttributesRequest
  AddSearchAttributesRequest
  Text
  Text
-> AddSearchAttributesRequest -> 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") AddSearchAttributesRequest
_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
  AddSearchAttributesRequest
  AddSearchAttributesRequest
  FieldSet
  FieldSet
-> AddSearchAttributesRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AddSearchAttributesRequest
  AddSearchAttributesRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AddSearchAttributesRequest FieldSet
Data.ProtoLens.unknownFields AddSearchAttributesRequest
_x)))
instance Control.DeepSeq.NFData AddSearchAttributesRequest where
  rnf :: AddSearchAttributesRequest -> ()
rnf
    = \ AddSearchAttributesRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AddSearchAttributesRequest -> FieldSet
_AddSearchAttributesRequest'_unknownFields AddSearchAttributesRequest
x__)
             (Map Text IndexedValueType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AddSearchAttributesRequest -> Map Text IndexedValueType
_AddSearchAttributesRequest'searchAttributes AddSearchAttributesRequest
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AddSearchAttributesRequest -> Text
_AddSearchAttributesRequest'namespace AddSearchAttributesRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.key' @:: Lens' AddSearchAttributesRequest'SearchAttributesEntry Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.value' @:: Lens' AddSearchAttributesRequest'SearchAttributesEntry Proto.Temporal.Api.Enums.V1.Common.IndexedValueType@ -}
data AddSearchAttributesRequest'SearchAttributesEntry
  = AddSearchAttributesRequest'SearchAttributesEntry'_constructor {AddSearchAttributesRequest'SearchAttributesEntry -> Text
_AddSearchAttributesRequest'SearchAttributesEntry'key :: !Data.Text.Text,
                                                                   AddSearchAttributesRequest'SearchAttributesEntry
-> IndexedValueType
_AddSearchAttributesRequest'SearchAttributesEntry'value :: !Proto.Temporal.Api.Enums.V1.Common.IndexedValueType,
                                                                   AddSearchAttributesRequest'SearchAttributesEntry -> FieldSet
_AddSearchAttributesRequest'SearchAttributesEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
(AddSearchAttributesRequest'SearchAttributesEntry
 -> AddSearchAttributesRequest'SearchAttributesEntry -> Bool)
-> (AddSearchAttributesRequest'SearchAttributesEntry
    -> AddSearchAttributesRequest'SearchAttributesEntry -> Bool)
-> Eq AddSearchAttributesRequest'SearchAttributesEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
== :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
$c/= :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
/= :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
Prelude.Eq, Eq AddSearchAttributesRequest'SearchAttributesEntry
Eq AddSearchAttributesRequest'SearchAttributesEntry =>
(AddSearchAttributesRequest'SearchAttributesEntry
 -> AddSearchAttributesRequest'SearchAttributesEntry -> Ordering)
-> (AddSearchAttributesRequest'SearchAttributesEntry
    -> AddSearchAttributesRequest'SearchAttributesEntry -> Bool)
-> (AddSearchAttributesRequest'SearchAttributesEntry
    -> AddSearchAttributesRequest'SearchAttributesEntry -> Bool)
-> (AddSearchAttributesRequest'SearchAttributesEntry
    -> AddSearchAttributesRequest'SearchAttributesEntry -> Bool)
-> (AddSearchAttributesRequest'SearchAttributesEntry
    -> AddSearchAttributesRequest'SearchAttributesEntry -> Bool)
-> (AddSearchAttributesRequest'SearchAttributesEntry
    -> AddSearchAttributesRequest'SearchAttributesEntry
    -> AddSearchAttributesRequest'SearchAttributesEntry)
-> (AddSearchAttributesRequest'SearchAttributesEntry
    -> AddSearchAttributesRequest'SearchAttributesEntry
    -> AddSearchAttributesRequest'SearchAttributesEntry)
-> Ord AddSearchAttributesRequest'SearchAttributesEntry
AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Ordering
AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry
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 :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Ordering
compare :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Ordering
$c< :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
< :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
$c<= :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
<= :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
$c> :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
> :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
$c>= :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
>= :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry -> Bool
$cmax :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry
max :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry
$cmin :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry
min :: AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry
-> AddSearchAttributesRequest'SearchAttributesEntry
Prelude.Ord)
instance Prelude.Show AddSearchAttributesRequest'SearchAttributesEntry where
  showsPrec :: Int -> AddSearchAttributesRequest'SearchAttributesEntry -> ShowS
showsPrec Int
_ AddSearchAttributesRequest'SearchAttributesEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AddSearchAttributesRequest'SearchAttributesEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AddSearchAttributesRequest'SearchAttributesEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AddSearchAttributesRequest'SearchAttributesEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> AddSearchAttributesRequest'SearchAttributesEntry
-> f AddSearchAttributesRequest'SearchAttributesEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> AddSearchAttributesRequest'SearchAttributesEntry
 -> f AddSearchAttributesRequest'SearchAttributesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AddSearchAttributesRequest'SearchAttributesEntry
-> f AddSearchAttributesRequest'SearchAttributesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddSearchAttributesRequest'SearchAttributesEntry -> Text)
-> (AddSearchAttributesRequest'SearchAttributesEntry
    -> Text -> AddSearchAttributesRequest'SearchAttributesEntry)
-> Lens' AddSearchAttributesRequest'SearchAttributesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddSearchAttributesRequest'SearchAttributesEntry -> Text
_AddSearchAttributesRequest'SearchAttributesEntry'key
           (\ AddSearchAttributesRequest'SearchAttributesEntry
x__ Text
y__
              -> AddSearchAttributesRequest'SearchAttributesEntry
x__
                   {_AddSearchAttributesRequest'SearchAttributesEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AddSearchAttributesRequest'SearchAttributesEntry "value" Proto.Temporal.Api.Enums.V1.Common.IndexedValueType where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (IndexedValueType -> f IndexedValueType)
-> AddSearchAttributesRequest'SearchAttributesEntry
-> f AddSearchAttributesRequest'SearchAttributesEntry
fieldOf Proxy# "value"
_
    = ((IndexedValueType -> f IndexedValueType)
 -> AddSearchAttributesRequest'SearchAttributesEntry
 -> f AddSearchAttributesRequest'SearchAttributesEntry)
-> ((IndexedValueType -> f IndexedValueType)
    -> IndexedValueType -> f IndexedValueType)
-> (IndexedValueType -> f IndexedValueType)
-> AddSearchAttributesRequest'SearchAttributesEntry
-> f AddSearchAttributesRequest'SearchAttributesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddSearchAttributesRequest'SearchAttributesEntry
 -> IndexedValueType)
-> (AddSearchAttributesRequest'SearchAttributesEntry
    -> IndexedValueType
    -> AddSearchAttributesRequest'SearchAttributesEntry)
-> Lens'
     AddSearchAttributesRequest'SearchAttributesEntry IndexedValueType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddSearchAttributesRequest'SearchAttributesEntry
-> IndexedValueType
_AddSearchAttributesRequest'SearchAttributesEntry'value
           (\ AddSearchAttributesRequest'SearchAttributesEntry
x__ IndexedValueType
y__
              -> AddSearchAttributesRequest'SearchAttributesEntry
x__
                   {_AddSearchAttributesRequest'SearchAttributesEntry'value = y__}))
        (IndexedValueType -> f IndexedValueType)
-> IndexedValueType -> f IndexedValueType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AddSearchAttributesRequest'SearchAttributesEntry where
  messageName :: Proxy AddSearchAttributesRequest'SearchAttributesEntry -> Text
messageName Proxy AddSearchAttributesRequest'SearchAttributesEntry
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.AddSearchAttributesRequest.SearchAttributesEntry"
  packedMessageDescriptor :: Proxy AddSearchAttributesRequest'SearchAttributesEntry
-> ByteString
packedMessageDescriptor Proxy AddSearchAttributesRequest'SearchAttributesEntry
_
    = ByteString
"\n\
      \\NAKSearchAttributesEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2=\n\
      \\ENQvalue\CAN\STX \SOH(\SO2'.temporal.api.enums.v1.IndexedValueTypeR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy AddSearchAttributesRequest'SearchAttributesEntry
-> ByteString
packedFileDescriptor Proxy AddSearchAttributesRequest'SearchAttributesEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map
  Tag
  (FieldDescriptor AddSearchAttributesRequest'SearchAttributesEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor AddSearchAttributesRequest'SearchAttributesEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor
     AddSearchAttributesRequest'SearchAttributesEntry Text
-> FieldDescriptor AddSearchAttributesRequest'SearchAttributesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' AddSearchAttributesRequest'SearchAttributesEntry Text
-> FieldAccessor
     AddSearchAttributesRequest'SearchAttributesEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor AddSearchAttributesRequest'SearchAttributesEntry
        value__field_descriptor :: FieldDescriptor AddSearchAttributesRequest'SearchAttributesEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor IndexedValueType
-> FieldAccessor
     AddSearchAttributesRequest'SearchAttributesEntry IndexedValueType
-> FieldDescriptor AddSearchAttributesRequest'SearchAttributesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (ScalarField IndexedValueType
-> FieldTypeDescriptor IndexedValueType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField IndexedValueType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Common.IndexedValueType)
              (WireDefault IndexedValueType
-> Lens'
     AddSearchAttributesRequest'SearchAttributesEntry IndexedValueType
-> FieldAccessor
     AddSearchAttributesRequest'SearchAttributesEntry IndexedValueType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault IndexedValueType
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor AddSearchAttributesRequest'SearchAttributesEntry
      in
        [(Tag,
  FieldDescriptor AddSearchAttributesRequest'SearchAttributesEntry)]
-> Map
     Tag
     (FieldDescriptor AddSearchAttributesRequest'SearchAttributesEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AddSearchAttributesRequest'SearchAttributesEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AddSearchAttributesRequest'SearchAttributesEntry
value__field_descriptor)]
  unknownFields :: Lens' AddSearchAttributesRequest'SearchAttributesEntry FieldSet
unknownFields
    = (AddSearchAttributesRequest'SearchAttributesEntry -> FieldSet)
-> (AddSearchAttributesRequest'SearchAttributesEntry
    -> FieldSet -> AddSearchAttributesRequest'SearchAttributesEntry)
-> Lens' AddSearchAttributesRequest'SearchAttributesEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AddSearchAttributesRequest'SearchAttributesEntry -> FieldSet
_AddSearchAttributesRequest'SearchAttributesEntry'_unknownFields
        (\ AddSearchAttributesRequest'SearchAttributesEntry
x__ FieldSet
y__
           -> AddSearchAttributesRequest'SearchAttributesEntry
x__
                {_AddSearchAttributesRequest'SearchAttributesEntry'_unknownFields = y__})
  defMessage :: AddSearchAttributesRequest'SearchAttributesEntry
defMessage
    = AddSearchAttributesRequest'SearchAttributesEntry'_constructor
        {_AddSearchAttributesRequest'SearchAttributesEntry'key :: Text
_AddSearchAttributesRequest'SearchAttributesEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AddSearchAttributesRequest'SearchAttributesEntry'value :: IndexedValueType
_AddSearchAttributesRequest'SearchAttributesEntry'value = IndexedValueType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AddSearchAttributesRequest'SearchAttributesEntry'_unknownFields :: FieldSet
_AddSearchAttributesRequest'SearchAttributesEntry'_unknownFields = []}
  parseMessage :: Parser AddSearchAttributesRequest'SearchAttributesEntry
parseMessage
    = let
        loop ::
          AddSearchAttributesRequest'SearchAttributesEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser AddSearchAttributesRequest'SearchAttributesEntry
        loop :: AddSearchAttributesRequest'SearchAttributesEntry
-> Parser AddSearchAttributesRequest'SearchAttributesEntry
loop AddSearchAttributesRequest'SearchAttributesEntry
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
16
                          -> do y <- Parser IndexedValueType -> String -> Parser IndexedValueType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> IndexedValueType) -> Parser Int -> Parser IndexedValueType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> IndexedValueType
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
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser AddSearchAttributesRequest'SearchAttributesEntry
-> String
-> Parser AddSearchAttributesRequest'SearchAttributesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AddSearchAttributesRequest'SearchAttributesEntry
-> Parser AddSearchAttributesRequest'SearchAttributesEntry
loop AddSearchAttributesRequest'SearchAttributesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"SearchAttributesEntry"
  buildMessage :: AddSearchAttributesRequest'SearchAttributesEntry -> Builder
buildMessage
    = \ AddSearchAttributesRequest'SearchAttributesEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  AddSearchAttributesRequest'SearchAttributesEntry
  AddSearchAttributesRequest'SearchAttributesEntry
  Text
  Text
-> AddSearchAttributesRequest'SearchAttributesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") AddSearchAttributesRequest'SearchAttributesEntry
_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 :: IndexedValueType
_v = FoldLike
  IndexedValueType
  AddSearchAttributesRequest'SearchAttributesEntry
  AddSearchAttributesRequest'SearchAttributesEntry
  IndexedValueType
  IndexedValueType
-> AddSearchAttributesRequest'SearchAttributesEntry
-> IndexedValueType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") AddSearchAttributesRequest'SearchAttributesEntry
_x
                 in
                   if IndexedValueType -> IndexedValueType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) IndexedValueType
_v IndexedValueType
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)
-> (IndexedValueType -> Int) -> IndexedValueType -> 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)
                            IndexedValueType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum IndexedValueType
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  AddSearchAttributesRequest'SearchAttributesEntry
  AddSearchAttributesRequest'SearchAttributesEntry
  FieldSet
  FieldSet
-> AddSearchAttributesRequest'SearchAttributesEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AddSearchAttributesRequest'SearchAttributesEntry
  AddSearchAttributesRequest'SearchAttributesEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AddSearchAttributesRequest'SearchAttributesEntry FieldSet
Data.ProtoLens.unknownFields AddSearchAttributesRequest'SearchAttributesEntry
_x)))
instance Control.DeepSeq.NFData AddSearchAttributesRequest'SearchAttributesEntry where
  rnf :: AddSearchAttributesRequest'SearchAttributesEntry -> ()
rnf
    = \ AddSearchAttributesRequest'SearchAttributesEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AddSearchAttributesRequest'SearchAttributesEntry -> FieldSet
_AddSearchAttributesRequest'SearchAttributesEntry'_unknownFields
                AddSearchAttributesRequest'SearchAttributesEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AddSearchAttributesRequest'SearchAttributesEntry -> Text
_AddSearchAttributesRequest'SearchAttributesEntry'key AddSearchAttributesRequest'SearchAttributesEntry
x__)
                (IndexedValueType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AddSearchAttributesRequest'SearchAttributesEntry
-> IndexedValueType
_AddSearchAttributesRequest'SearchAttributesEntry'value AddSearchAttributesRequest'SearchAttributesEntry
x__) ()))
{- | Fields :
      -}
data AddSearchAttributesResponse
  = AddSearchAttributesResponse'_constructor {AddSearchAttributesResponse -> FieldSet
_AddSearchAttributesResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
(AddSearchAttributesResponse
 -> AddSearchAttributesResponse -> Bool)
-> (AddSearchAttributesResponse
    -> AddSearchAttributesResponse -> Bool)
-> Eq AddSearchAttributesResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
== :: AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
$c/= :: AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
/= :: AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
Prelude.Eq, Eq AddSearchAttributesResponse
Eq AddSearchAttributesResponse =>
(AddSearchAttributesResponse
 -> AddSearchAttributesResponse -> Ordering)
-> (AddSearchAttributesResponse
    -> AddSearchAttributesResponse -> Bool)
-> (AddSearchAttributesResponse
    -> AddSearchAttributesResponse -> Bool)
-> (AddSearchAttributesResponse
    -> AddSearchAttributesResponse -> Bool)
-> (AddSearchAttributesResponse
    -> AddSearchAttributesResponse -> Bool)
-> (AddSearchAttributesResponse
    -> AddSearchAttributesResponse -> AddSearchAttributesResponse)
-> (AddSearchAttributesResponse
    -> AddSearchAttributesResponse -> AddSearchAttributesResponse)
-> Ord AddSearchAttributesResponse
AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
AddSearchAttributesResponse
-> AddSearchAttributesResponse -> Ordering
AddSearchAttributesResponse
-> AddSearchAttributesResponse -> AddSearchAttributesResponse
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 :: AddSearchAttributesResponse
-> AddSearchAttributesResponse -> Ordering
compare :: AddSearchAttributesResponse
-> AddSearchAttributesResponse -> Ordering
$c< :: AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
< :: AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
$c<= :: AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
<= :: AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
$c> :: AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
> :: AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
$c>= :: AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
>= :: AddSearchAttributesResponse -> AddSearchAttributesResponse -> Bool
$cmax :: AddSearchAttributesResponse
-> AddSearchAttributesResponse -> AddSearchAttributesResponse
max :: AddSearchAttributesResponse
-> AddSearchAttributesResponse -> AddSearchAttributesResponse
$cmin :: AddSearchAttributesResponse
-> AddSearchAttributesResponse -> AddSearchAttributesResponse
min :: AddSearchAttributesResponse
-> AddSearchAttributesResponse -> AddSearchAttributesResponse
Prelude.Ord)
instance Prelude.Show AddSearchAttributesResponse where
  showsPrec :: Int -> AddSearchAttributesResponse -> ShowS
showsPrec Int
_ AddSearchAttributesResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AddSearchAttributesResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AddSearchAttributesResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message AddSearchAttributesResponse where
  messageName :: Proxy AddSearchAttributesResponse -> Text
messageName Proxy AddSearchAttributesResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.AddSearchAttributesResponse"
  packedMessageDescriptor :: Proxy AddSearchAttributesResponse -> ByteString
packedMessageDescriptor Proxy AddSearchAttributesResponse
_
    = ByteString
"\n\
      \\ESCAddSearchAttributesResponse"
  packedFileDescriptor :: Proxy AddSearchAttributesResponse -> ByteString
packedFileDescriptor Proxy AddSearchAttributesResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AddSearchAttributesResponse)
fieldsByTag = let in [(Tag, FieldDescriptor AddSearchAttributesResponse)]
-> Map Tag (FieldDescriptor AddSearchAttributesResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' AddSearchAttributesResponse FieldSet
unknownFields
    = (AddSearchAttributesResponse -> FieldSet)
-> (AddSearchAttributesResponse
    -> FieldSet -> AddSearchAttributesResponse)
-> Lens' AddSearchAttributesResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AddSearchAttributesResponse -> FieldSet
_AddSearchAttributesResponse'_unknownFields
        (\ AddSearchAttributesResponse
x__ FieldSet
y__
           -> AddSearchAttributesResponse
x__ {_AddSearchAttributesResponse'_unknownFields = y__})
  defMessage :: AddSearchAttributesResponse
defMessage
    = AddSearchAttributesResponse'_constructor
        {_AddSearchAttributesResponse'_unknownFields :: FieldSet
_AddSearchAttributesResponse'_unknownFields = []}
  parseMessage :: Parser AddSearchAttributesResponse
parseMessage
    = let
        loop ::
          AddSearchAttributesResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AddSearchAttributesResponse
        loop :: AddSearchAttributesResponse -> Parser AddSearchAttributesResponse
loop AddSearchAttributesResponse
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 AddSearchAttributesResponse
-> String -> Parser AddSearchAttributesResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AddSearchAttributesResponse -> Parser AddSearchAttributesResponse
loop AddSearchAttributesResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AddSearchAttributesResponse"
  buildMessage :: AddSearchAttributesResponse -> Builder
buildMessage
    = \ AddSearchAttributesResponse
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  AddSearchAttributesResponse
  AddSearchAttributesResponse
  FieldSet
  FieldSet
-> AddSearchAttributesResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AddSearchAttributesResponse
  AddSearchAttributesResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AddSearchAttributesResponse FieldSet
Data.ProtoLens.unknownFields AddSearchAttributesResponse
_x)
instance Control.DeepSeq.NFData AddSearchAttributesResponse where
  rnf :: AddSearchAttributesResponse -> ()
rnf
    = \ AddSearchAttributesResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AddSearchAttributesResponse -> FieldSet
_AddSearchAttributesResponse'_unknownFields AddSearchAttributesResponse
x__) ()
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.clusterName' @:: Lens' ClusterMetadata Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.clusterId' @:: Lens' ClusterMetadata Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.address' @:: Lens' ClusterMetadata Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.httpAddress' @:: Lens' ClusterMetadata Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.initialFailoverVersion' @:: Lens' ClusterMetadata Data.Int.Int64@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.historyShardCount' @:: Lens' ClusterMetadata Data.Int.Int32@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.isConnectionEnabled' @:: Lens' ClusterMetadata Prelude.Bool@ -}
data ClusterMetadata
  = ClusterMetadata'_constructor {ClusterMetadata -> Text
_ClusterMetadata'clusterName :: !Data.Text.Text,
                                  ClusterMetadata -> Text
_ClusterMetadata'clusterId :: !Data.Text.Text,
                                  ClusterMetadata -> Text
_ClusterMetadata'address :: !Data.Text.Text,
                                  ClusterMetadata -> Text
_ClusterMetadata'httpAddress :: !Data.Text.Text,
                                  ClusterMetadata -> Int64
_ClusterMetadata'initialFailoverVersion :: !Data.Int.Int64,
                                  ClusterMetadata -> Int32
_ClusterMetadata'historyShardCount :: !Data.Int.Int32,
                                  ClusterMetadata -> Bool
_ClusterMetadata'isConnectionEnabled :: !Prelude.Bool,
                                  ClusterMetadata -> FieldSet
_ClusterMetadata'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ClusterMetadata -> ClusterMetadata -> Bool
(ClusterMetadata -> ClusterMetadata -> Bool)
-> (ClusterMetadata -> ClusterMetadata -> Bool)
-> Eq ClusterMetadata
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ClusterMetadata -> ClusterMetadata -> Bool
== :: ClusterMetadata -> ClusterMetadata -> Bool
$c/= :: ClusterMetadata -> ClusterMetadata -> Bool
/= :: ClusterMetadata -> ClusterMetadata -> Bool
Prelude.Eq, Eq ClusterMetadata
Eq ClusterMetadata =>
(ClusterMetadata -> ClusterMetadata -> Ordering)
-> (ClusterMetadata -> ClusterMetadata -> Bool)
-> (ClusterMetadata -> ClusterMetadata -> Bool)
-> (ClusterMetadata -> ClusterMetadata -> Bool)
-> (ClusterMetadata -> ClusterMetadata -> Bool)
-> (ClusterMetadata -> ClusterMetadata -> ClusterMetadata)
-> (ClusterMetadata -> ClusterMetadata -> ClusterMetadata)
-> Ord ClusterMetadata
ClusterMetadata -> ClusterMetadata -> Bool
ClusterMetadata -> ClusterMetadata -> Ordering
ClusterMetadata -> ClusterMetadata -> ClusterMetadata
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 :: ClusterMetadata -> ClusterMetadata -> Ordering
compare :: ClusterMetadata -> ClusterMetadata -> Ordering
$c< :: ClusterMetadata -> ClusterMetadata -> Bool
< :: ClusterMetadata -> ClusterMetadata -> Bool
$c<= :: ClusterMetadata -> ClusterMetadata -> Bool
<= :: ClusterMetadata -> ClusterMetadata -> Bool
$c> :: ClusterMetadata -> ClusterMetadata -> Bool
> :: ClusterMetadata -> ClusterMetadata -> Bool
$c>= :: ClusterMetadata -> ClusterMetadata -> Bool
>= :: ClusterMetadata -> ClusterMetadata -> Bool
$cmax :: ClusterMetadata -> ClusterMetadata -> ClusterMetadata
max :: ClusterMetadata -> ClusterMetadata -> ClusterMetadata
$cmin :: ClusterMetadata -> ClusterMetadata -> ClusterMetadata
min :: ClusterMetadata -> ClusterMetadata -> ClusterMetadata
Prelude.Ord)
instance Prelude.Show ClusterMetadata where
  showsPrec :: Int -> ClusterMetadata -> ShowS
showsPrec Int
_ ClusterMetadata
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ClusterMetadata -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ClusterMetadata
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ClusterMetadata "clusterName" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "clusterName"
-> (Text -> f Text) -> ClusterMetadata -> f ClusterMetadata
fieldOf Proxy# "clusterName"
_
    = ((Text -> f Text) -> ClusterMetadata -> f ClusterMetadata)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ClusterMetadata
-> f ClusterMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClusterMetadata -> Text)
-> (ClusterMetadata -> Text -> ClusterMetadata)
-> Lens ClusterMetadata ClusterMetadata Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClusterMetadata -> Text
_ClusterMetadata'clusterName
           (\ ClusterMetadata
x__ Text
y__ -> ClusterMetadata
x__ {_ClusterMetadata'clusterName = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ClusterMetadata "clusterId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "clusterId"
-> (Text -> f Text) -> ClusterMetadata -> f ClusterMetadata
fieldOf Proxy# "clusterId"
_
    = ((Text -> f Text) -> ClusterMetadata -> f ClusterMetadata)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ClusterMetadata
-> f ClusterMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClusterMetadata -> Text)
-> (ClusterMetadata -> Text -> ClusterMetadata)
-> Lens ClusterMetadata ClusterMetadata Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClusterMetadata -> Text
_ClusterMetadata'clusterId
           (\ ClusterMetadata
x__ Text
y__ -> ClusterMetadata
x__ {_ClusterMetadata'clusterId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ClusterMetadata "address" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "address"
-> (Text -> f Text) -> ClusterMetadata -> f ClusterMetadata
fieldOf Proxy# "address"
_
    = ((Text -> f Text) -> ClusterMetadata -> f ClusterMetadata)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ClusterMetadata
-> f ClusterMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClusterMetadata -> Text)
-> (ClusterMetadata -> Text -> ClusterMetadata)
-> Lens ClusterMetadata ClusterMetadata Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClusterMetadata -> Text
_ClusterMetadata'address
           (\ ClusterMetadata
x__ Text
y__ -> ClusterMetadata
x__ {_ClusterMetadata'address = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ClusterMetadata "httpAddress" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "httpAddress"
-> (Text -> f Text) -> ClusterMetadata -> f ClusterMetadata
fieldOf Proxy# "httpAddress"
_
    = ((Text -> f Text) -> ClusterMetadata -> f ClusterMetadata)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ClusterMetadata
-> f ClusterMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClusterMetadata -> Text)
-> (ClusterMetadata -> Text -> ClusterMetadata)
-> Lens ClusterMetadata ClusterMetadata Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClusterMetadata -> Text
_ClusterMetadata'httpAddress
           (\ ClusterMetadata
x__ Text
y__ -> ClusterMetadata
x__ {_ClusterMetadata'httpAddress = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ClusterMetadata "initialFailoverVersion" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "initialFailoverVersion"
-> (Int64 -> f Int64) -> ClusterMetadata -> f ClusterMetadata
fieldOf Proxy# "initialFailoverVersion"
_
    = ((Int64 -> f Int64) -> ClusterMetadata -> f ClusterMetadata)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ClusterMetadata
-> f ClusterMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClusterMetadata -> Int64)
-> (ClusterMetadata -> Int64 -> ClusterMetadata)
-> Lens ClusterMetadata ClusterMetadata Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClusterMetadata -> Int64
_ClusterMetadata'initialFailoverVersion
           (\ ClusterMetadata
x__ Int64
y__ -> ClusterMetadata
x__ {_ClusterMetadata'initialFailoverVersion = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ClusterMetadata "historyShardCount" Data.Int.Int32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "historyShardCount"
-> (Int32 -> f Int32) -> ClusterMetadata -> f ClusterMetadata
fieldOf Proxy# "historyShardCount"
_
    = ((Int32 -> f Int32) -> ClusterMetadata -> f ClusterMetadata)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ClusterMetadata
-> f ClusterMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClusterMetadata -> Int32)
-> (ClusterMetadata -> Int32 -> ClusterMetadata)
-> Lens ClusterMetadata ClusterMetadata Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClusterMetadata -> Int32
_ClusterMetadata'historyShardCount
           (\ ClusterMetadata
x__ Int32
y__ -> ClusterMetadata
x__ {_ClusterMetadata'historyShardCount = y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ClusterMetadata "isConnectionEnabled" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "isConnectionEnabled"
-> (Bool -> f Bool) -> ClusterMetadata -> f ClusterMetadata
fieldOf Proxy# "isConnectionEnabled"
_
    = ((Bool -> f Bool) -> ClusterMetadata -> f ClusterMetadata)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ClusterMetadata
-> f ClusterMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClusterMetadata -> Bool)
-> (ClusterMetadata -> Bool -> ClusterMetadata)
-> Lens ClusterMetadata ClusterMetadata Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClusterMetadata -> Bool
_ClusterMetadata'isConnectionEnabled
           (\ ClusterMetadata
x__ Bool
y__ -> ClusterMetadata
x__ {_ClusterMetadata'isConnectionEnabled = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ClusterMetadata where
  messageName :: Proxy ClusterMetadata -> Text
messageName Proxy ClusterMetadata
_
    = String -> Text
Data.Text.pack String
"temporal.api.operatorservice.v1.ClusterMetadata"
  packedMessageDescriptor :: Proxy ClusterMetadata -> ByteString
packedMessageDescriptor Proxy ClusterMetadata
_
    = ByteString
"\n\
      \\SIClusterMetadata\DC2!\n\
      \\fcluster_name\CAN\SOH \SOH(\tR\vclusterName\DC2\GS\n\
      \\n\
      \cluster_id\CAN\STX \SOH(\tR\tclusterId\DC2\CAN\n\
      \\aaddress\CAN\ETX \SOH(\tR\aaddress\DC2!\n\
      \\fhttp_address\CAN\a \SOH(\tR\vhttpAddress\DC28\n\
      \\CANinitial_failover_version\CAN\EOT \SOH(\ETXR\SYNinitialFailoverVersion\DC2.\n\
      \\DC3history_shard_count\CAN\ENQ \SOH(\ENQR\DC1historyShardCount\DC22\n\
      \\NAKis_connection_enabled\CAN\ACK \SOH(\bR\DC3isConnectionEnabled"
  packedFileDescriptor :: Proxy ClusterMetadata -> ByteString
packedFileDescriptor Proxy ClusterMetadata
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ClusterMetadata)
fieldsByTag
    = let
        clusterName__field_descriptor :: FieldDescriptor ClusterMetadata
clusterName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ClusterMetadata Text
-> FieldDescriptor ClusterMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cluster_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 ClusterMetadata ClusterMetadata Text Text
-> FieldAccessor ClusterMetadata 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 @"clusterName")) ::
              Data.ProtoLens.FieldDescriptor ClusterMetadata
        clusterId__field_descriptor :: FieldDescriptor ClusterMetadata
clusterId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ClusterMetadata Text
-> FieldDescriptor ClusterMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cluster_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 ClusterMetadata ClusterMetadata Text Text
-> FieldAccessor ClusterMetadata 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 @"clusterId")) ::
              Data.ProtoLens.FieldDescriptor ClusterMetadata
        address__field_descriptor :: FieldDescriptor ClusterMetadata
address__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ClusterMetadata Text
-> FieldDescriptor ClusterMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"address"
              (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 ClusterMetadata ClusterMetadata Text Text
-> FieldAccessor ClusterMetadata 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 @"address")) ::
              Data.ProtoLens.FieldDescriptor ClusterMetadata
        httpAddress__field_descriptor :: FieldDescriptor ClusterMetadata
httpAddress__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ClusterMetadata Text
-> FieldDescriptor ClusterMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"http_address"
              (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 ClusterMetadata ClusterMetadata Text Text
-> FieldAccessor ClusterMetadata 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 @"httpAddress")) ::
              Data.ProtoLens.FieldDescriptor ClusterMetadata
        initialFailoverVersion__field_descriptor :: FieldDescriptor ClusterMetadata
initialFailoverVersion__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor ClusterMetadata Int64
-> FieldDescriptor ClusterMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"initial_failover_version"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens ClusterMetadata ClusterMetadata Int64 Int64
-> FieldAccessor ClusterMetadata Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"initialFailoverVersion")) ::
              Data.ProtoLens.FieldDescriptor ClusterMetadata
        historyShardCount__field_descriptor :: FieldDescriptor ClusterMetadata
historyShardCount__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor ClusterMetadata Int32
-> FieldDescriptor ClusterMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"history_shard_count"
              (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 ClusterMetadata ClusterMetadata Int32 Int32
-> FieldAccessor ClusterMetadata 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 @"historyShardCount")) ::
              Data.ProtoLens.FieldDescriptor ClusterMetadata
        isConnectionEnabled__field_descriptor :: FieldDescriptor ClusterMetadata
isConnectionEnabled__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor ClusterMetadata Bool
-> FieldDescriptor ClusterMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"is_connection_enabled"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens ClusterMetadata ClusterMetadata Bool Bool
-> FieldAccessor ClusterMetadata Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isConnectionEnabled")) ::
              Data.ProtoLens.FieldDescriptor ClusterMetadata
      in
        [(Tag, FieldDescriptor ClusterMetadata)]
-> Map Tag (FieldDescriptor ClusterMetadata)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ClusterMetadata
clusterName__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ClusterMetadata
clusterId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ClusterMetadata
address__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor ClusterMetadata
httpAddress__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ClusterMetadata
initialFailoverVersion__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor ClusterMetadata
historyShardCount__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor ClusterMetadata
isConnectionEnabled__field_descriptor)]
  unknownFields :: Lens' ClusterMetadata FieldSet
unknownFields
    = (ClusterMetadata -> FieldSet)
-> (ClusterMetadata -> FieldSet -> ClusterMetadata)
-> Lens' ClusterMetadata FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ClusterMetadata -> FieldSet
_ClusterMetadata'_unknownFields
        (\ ClusterMetadata
x__ FieldSet
y__ -> ClusterMetadata
x__ {_ClusterMetadata'_unknownFields = y__})
  defMessage :: ClusterMetadata
defMessage
    = ClusterMetadata'_constructor
        {_ClusterMetadata'clusterName :: Text
_ClusterMetadata'clusterName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ClusterMetadata'clusterId :: Text
_ClusterMetadata'clusterId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ClusterMetadata'address :: Text
_ClusterMetadata'address = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ClusterMetadata'httpAddress :: Text
_ClusterMetadata'httpAddress = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ClusterMetadata'initialFailoverVersion :: Int64
_ClusterMetadata'initialFailoverVersion = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ClusterMetadata'historyShardCount :: Int32
_ClusterMetadata'historyShardCount = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ClusterMetadata'isConnectionEnabled :: Bool
_ClusterMetadata'isConnectionEnabled = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ClusterMetadata'_unknownFields :: FieldSet
_ClusterMetadata'_unknownFields = []}
  parseMessage :: Parser ClusterMetadata
parseMessage
    = let
        loop ::
          ClusterMetadata
          -> Data.ProtoLens.Encoding.Bytes.Parser ClusterMetadata
        loop :: ClusterMetadata -> Parser ClusterMetadata
loop ClusterMetadata
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
"cluster_name"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"clusterName") 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
"cluster_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"clusterId") 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
"address"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"address") y x)
                        Word64
58
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"http_address"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"httpAddress") y x)
                        Word64
32
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"initial_failover_version"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"initialFailoverVersion") y x)
                        Word64
40
                          -> 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
"history_shard_count"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"historyShardCount") y x)
                        Word64
48
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"is_connection_enabled"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"isConnectionEnabled") 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 ClusterMetadata -> String -> Parser ClusterMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ClusterMetadata -> Parser ClusterMetadata
loop ClusterMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ClusterMetadata"
  buildMessage :: ClusterMetadata -> Builder
buildMessage
    = \ ClusterMetadata
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike Text ClusterMetadata ClusterMetadata Text Text
-> ClusterMetadata -> 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 @"clusterName") ClusterMetadata
_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 ClusterMetadata ClusterMetadata Text Text
-> ClusterMetadata -> 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 @"clusterId") ClusterMetadata
_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 ClusterMetadata ClusterMetadata Text Text
-> ClusterMetadata -> 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 @"address") ClusterMetadata
_x
                    in
                      if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                            ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               (\ ByteString
bs
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                          (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                       (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                               Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: Text
_v
                           = FoldLike Text ClusterMetadata ClusterMetadata Text Text
-> ClusterMetadata -> 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 @"httpAddress") ClusterMetadata
_x
                       in
                         if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                             Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         else
                             Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                               ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  (\ ByteString
bs
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                             (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                          (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                  Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: Int64
_v
                              = FoldLike Int64 ClusterMetadata ClusterMetadata Int64 Int64
-> ClusterMetadata -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                  (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"initialFailoverVersion") ClusterMetadata
_x
                          in
                            if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            else
                                Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
32)
                                  ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                     Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                     Int64
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: Int32
_v
                                 = FoldLike Int32 ClusterMetadata ClusterMetadata Int32 Int32
-> ClusterMetadata -> 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 @"historyShardCount") ClusterMetadata
_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
40)
                                     ((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 :: Bool
_v
                                    = FoldLike Bool ClusterMetadata ClusterMetadata Bool Bool
-> ClusterMetadata -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                        (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isConnectionEnabled") ClusterMetadata
_x
                                in
                                  if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                      Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  else
                                      Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
48)
                                        ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                           Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                               (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                  (FoldLike FieldSet ClusterMetadata ClusterMetadata FieldSet FieldSet
-> ClusterMetadata -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ClusterMetadata ClusterMetadata FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClusterMetadata FieldSet
Data.ProtoLens.unknownFields ClusterMetadata
_x))))))))
instance Control.DeepSeq.NFData ClusterMetadata where
  rnf :: ClusterMetadata -> ()
rnf
    = \ ClusterMetadata
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ClusterMetadata -> FieldSet
_ClusterMetadata'_unknownFields ClusterMetadata
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ClusterMetadata -> Text
_ClusterMetadata'clusterName ClusterMetadata
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ClusterMetadata -> Text
_ClusterMetadata'clusterId ClusterMetadata
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (ClusterMetadata -> Text
_ClusterMetadata'address ClusterMetadata
x__)
                      (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (ClusterMetadata -> Text
_ClusterMetadata'httpAddress ClusterMetadata
x__)
                         (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (ClusterMetadata -> Int64
_ClusterMetadata'initialFailoverVersion ClusterMetadata
x__)
                            (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (ClusterMetadata -> Int32
_ClusterMetadata'historyShardCount ClusterMetadata
x__)
                               (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (ClusterMetadata -> Bool
_ClusterMetadata'isConnectionEnabled ClusterMetadata
x__) ())))))))
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.spec' @:: Lens' CreateNexusEndpointRequest Proto.Temporal.Api.Nexus.V1.Message.EndpointSpec@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.maybe'spec' @:: Lens' CreateNexusEndpointRequest (Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.EndpointSpec)@ -}
data CreateNexusEndpointRequest
  = CreateNexusEndpointRequest'_constructor {CreateNexusEndpointRequest -> Maybe EndpointSpec
_CreateNexusEndpointRequest'spec :: !(Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.EndpointSpec),
                                             CreateNexusEndpointRequest -> FieldSet
_CreateNexusEndpointRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
(CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool)
-> (CreateNexusEndpointRequest
    -> CreateNexusEndpointRequest -> Bool)
-> Eq CreateNexusEndpointRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
== :: CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
$c/= :: CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
/= :: CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
Prelude.Eq, Eq CreateNexusEndpointRequest
Eq CreateNexusEndpointRequest =>
(CreateNexusEndpointRequest
 -> CreateNexusEndpointRequest -> Ordering)
-> (CreateNexusEndpointRequest
    -> CreateNexusEndpointRequest -> Bool)
-> (CreateNexusEndpointRequest
    -> CreateNexusEndpointRequest -> Bool)
-> (CreateNexusEndpointRequest
    -> CreateNexusEndpointRequest -> Bool)
-> (CreateNexusEndpointRequest
    -> CreateNexusEndpointRequest -> Bool)
-> (CreateNexusEndpointRequest
    -> CreateNexusEndpointRequest -> CreateNexusEndpointRequest)
-> (CreateNexusEndpointRequest
    -> CreateNexusEndpointRequest -> CreateNexusEndpointRequest)
-> Ord CreateNexusEndpointRequest
CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
CreateNexusEndpointRequest
-> CreateNexusEndpointRequest -> Ordering
CreateNexusEndpointRequest
-> CreateNexusEndpointRequest -> CreateNexusEndpointRequest
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 :: CreateNexusEndpointRequest
-> CreateNexusEndpointRequest -> Ordering
compare :: CreateNexusEndpointRequest
-> CreateNexusEndpointRequest -> Ordering
$c< :: CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
< :: CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
$c<= :: CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
<= :: CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
$c> :: CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
> :: CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
$c>= :: CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
>= :: CreateNexusEndpointRequest -> CreateNexusEndpointRequest -> Bool
$cmax :: CreateNexusEndpointRequest
-> CreateNexusEndpointRequest -> CreateNexusEndpointRequest
max :: CreateNexusEndpointRequest
-> CreateNexusEndpointRequest -> CreateNexusEndpointRequest
$cmin :: CreateNexusEndpointRequest
-> CreateNexusEndpointRequest -> CreateNexusEndpointRequest
min :: CreateNexusEndpointRequest
-> CreateNexusEndpointRequest -> CreateNexusEndpointRequest
Prelude.Ord)
instance Prelude.Show CreateNexusEndpointRequest where
  showsPrec :: Int -> CreateNexusEndpointRequest -> ShowS
showsPrec Int
_ CreateNexusEndpointRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CreateNexusEndpointRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CreateNexusEndpointRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CreateNexusEndpointRequest "spec" Proto.Temporal.Api.Nexus.V1.Message.EndpointSpec where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "spec"
-> (EndpointSpec -> f EndpointSpec)
-> CreateNexusEndpointRequest
-> f CreateNexusEndpointRequest
fieldOf Proxy# "spec"
_
    = ((Maybe EndpointSpec -> f (Maybe EndpointSpec))
 -> CreateNexusEndpointRequest -> f CreateNexusEndpointRequest)
-> ((EndpointSpec -> f EndpointSpec)
    -> Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> (EndpointSpec -> f EndpointSpec)
-> CreateNexusEndpointRequest
-> f CreateNexusEndpointRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CreateNexusEndpointRequest -> Maybe EndpointSpec)
-> (CreateNexusEndpointRequest
    -> Maybe EndpointSpec -> CreateNexusEndpointRequest)
-> Lens
     CreateNexusEndpointRequest
     CreateNexusEndpointRequest
     (Maybe EndpointSpec)
     (Maybe EndpointSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CreateNexusEndpointRequest -> Maybe EndpointSpec
_CreateNexusEndpointRequest'spec
           (\ CreateNexusEndpointRequest
x__ Maybe EndpointSpec
y__ -> CreateNexusEndpointRequest
x__ {_CreateNexusEndpointRequest'spec = y__}))
        (EndpointSpec -> Lens' (Maybe EndpointSpec) EndpointSpec
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens EndpointSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CreateNexusEndpointRequest "maybe'spec" (Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.EndpointSpec) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'spec"
-> (Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> CreateNexusEndpointRequest
-> f CreateNexusEndpointRequest
fieldOf Proxy# "maybe'spec"
_
    = ((Maybe EndpointSpec -> f (Maybe EndpointSpec))
 -> CreateNexusEndpointRequest -> f CreateNexusEndpointRequest)
-> ((Maybe EndpointSpec -> f (Maybe EndpointSpec))
    -> Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> (Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> CreateNexusEndpointRequest
-> f CreateNexusEndpointRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CreateNexusEndpointRequest -> Maybe EndpointSpec)
-> (CreateNexusEndpointRequest
    -> Maybe EndpointSpec -> CreateNexusEndpointRequest)
-> Lens
     CreateNexusEndpointRequest
     CreateNexusEndpointRequest
     (Maybe EndpointSpec)
     (Maybe EndpointSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CreateNexusEndpointRequest -> Maybe EndpointSpec
_CreateNexusEndpointRequest'spec
           (\ CreateNexusEndpointRequest
x__ Maybe EndpointSpec
y__ -> CreateNexusEndpointRequest
x__ {_CreateNexusEndpointRequest'spec = y__}))
        (Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> Maybe EndpointSpec -> f (Maybe EndpointSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CreateNexusEndpointRequest where
  messageName :: Proxy CreateNexusEndpointRequest -> Text
messageName Proxy CreateNexusEndpointRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.CreateNexusEndpointRequest"
  packedMessageDescriptor :: Proxy CreateNexusEndpointRequest -> ByteString
packedMessageDescriptor Proxy CreateNexusEndpointRequest
_
    = ByteString
"\n\
      \\SUBCreateNexusEndpointRequest\DC27\n\
      \\EOTspec\CAN\SOH \SOH(\v2#.temporal.api.nexus.v1.EndpointSpecR\EOTspec"
  packedFileDescriptor :: Proxy CreateNexusEndpointRequest -> ByteString
packedFileDescriptor Proxy CreateNexusEndpointRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CreateNexusEndpointRequest)
fieldsByTag
    = let
        spec__field_descriptor :: FieldDescriptor CreateNexusEndpointRequest
spec__field_descriptor
          = String
-> FieldTypeDescriptor EndpointSpec
-> FieldAccessor CreateNexusEndpointRequest EndpointSpec
-> FieldDescriptor CreateNexusEndpointRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"spec"
              (MessageOrGroup -> FieldTypeDescriptor EndpointSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Nexus.V1.Message.EndpointSpec)
              (Lens
  CreateNexusEndpointRequest
  CreateNexusEndpointRequest
  (Maybe EndpointSpec)
  (Maybe EndpointSpec)
-> FieldAccessor CreateNexusEndpointRequest EndpointSpec
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'spec")) ::
              Data.ProtoLens.FieldDescriptor CreateNexusEndpointRequest
      in
        [(Tag, FieldDescriptor CreateNexusEndpointRequest)]
-> Map Tag (FieldDescriptor CreateNexusEndpointRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CreateNexusEndpointRequest
spec__field_descriptor)]
  unknownFields :: Lens' CreateNexusEndpointRequest FieldSet
unknownFields
    = (CreateNexusEndpointRequest -> FieldSet)
-> (CreateNexusEndpointRequest
    -> FieldSet -> CreateNexusEndpointRequest)
-> Lens' CreateNexusEndpointRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CreateNexusEndpointRequest -> FieldSet
_CreateNexusEndpointRequest'_unknownFields
        (\ CreateNexusEndpointRequest
x__ FieldSet
y__
           -> CreateNexusEndpointRequest
x__ {_CreateNexusEndpointRequest'_unknownFields = y__})
  defMessage :: CreateNexusEndpointRequest
defMessage
    = CreateNexusEndpointRequest'_constructor
        {_CreateNexusEndpointRequest'spec :: Maybe EndpointSpec
_CreateNexusEndpointRequest'spec = Maybe EndpointSpec
forall a. Maybe a
Prelude.Nothing,
         _CreateNexusEndpointRequest'_unknownFields :: FieldSet
_CreateNexusEndpointRequest'_unknownFields = []}
  parseMessage :: Parser CreateNexusEndpointRequest
parseMessage
    = let
        loop ::
          CreateNexusEndpointRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser CreateNexusEndpointRequest
        loop :: CreateNexusEndpointRequest -> Parser CreateNexusEndpointRequest
loop CreateNexusEndpointRequest
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 EndpointSpec -> String -> Parser EndpointSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"spec"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"spec") y x)
                        Word64
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 CreateNexusEndpointRequest
-> String -> Parser CreateNexusEndpointRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CreateNexusEndpointRequest -> Parser CreateNexusEndpointRequest
loop CreateNexusEndpointRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CreateNexusEndpointRequest"
  buildMessage :: CreateNexusEndpointRequest -> Builder
buildMessage
    = \ CreateNexusEndpointRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe EndpointSpec)
  CreateNexusEndpointRequest
  CreateNexusEndpointRequest
  (Maybe EndpointSpec)
  (Maybe EndpointSpec)
-> CreateNexusEndpointRequest -> Maybe EndpointSpec
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'spec") CreateNexusEndpointRequest
_x
              of
                Maybe EndpointSpec
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just EndpointSpec
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (EndpointSpec -> ByteString) -> EndpointSpec -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          EndpointSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage EndpointSpec
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  CreateNexusEndpointRequest
  CreateNexusEndpointRequest
  FieldSet
  FieldSet
-> CreateNexusEndpointRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  CreateNexusEndpointRequest
  CreateNexusEndpointRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CreateNexusEndpointRequest FieldSet
Data.ProtoLens.unknownFields CreateNexusEndpointRequest
_x))
instance Control.DeepSeq.NFData CreateNexusEndpointRequest where
  rnf :: CreateNexusEndpointRequest -> ()
rnf
    = \ CreateNexusEndpointRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CreateNexusEndpointRequest -> FieldSet
_CreateNexusEndpointRequest'_unknownFields CreateNexusEndpointRequest
x__)
             (Maybe EndpointSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CreateNexusEndpointRequest -> Maybe EndpointSpec
_CreateNexusEndpointRequest'spec CreateNexusEndpointRequest
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.endpoint' @:: Lens' CreateNexusEndpointResponse Proto.Temporal.Api.Nexus.V1.Message.Endpoint@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.maybe'endpoint' @:: Lens' CreateNexusEndpointResponse (Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.Endpoint)@ -}
data CreateNexusEndpointResponse
  = CreateNexusEndpointResponse'_constructor {CreateNexusEndpointResponse -> Maybe Endpoint
_CreateNexusEndpointResponse'endpoint :: !(Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.Endpoint),
                                              CreateNexusEndpointResponse -> FieldSet
_CreateNexusEndpointResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
(CreateNexusEndpointResponse
 -> CreateNexusEndpointResponse -> Bool)
-> (CreateNexusEndpointResponse
    -> CreateNexusEndpointResponse -> Bool)
-> Eq CreateNexusEndpointResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
== :: CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
$c/= :: CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
/= :: CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
Prelude.Eq, Eq CreateNexusEndpointResponse
Eq CreateNexusEndpointResponse =>
(CreateNexusEndpointResponse
 -> CreateNexusEndpointResponse -> Ordering)
-> (CreateNexusEndpointResponse
    -> CreateNexusEndpointResponse -> Bool)
-> (CreateNexusEndpointResponse
    -> CreateNexusEndpointResponse -> Bool)
-> (CreateNexusEndpointResponse
    -> CreateNexusEndpointResponse -> Bool)
-> (CreateNexusEndpointResponse
    -> CreateNexusEndpointResponse -> Bool)
-> (CreateNexusEndpointResponse
    -> CreateNexusEndpointResponse -> CreateNexusEndpointResponse)
-> (CreateNexusEndpointResponse
    -> CreateNexusEndpointResponse -> CreateNexusEndpointResponse)
-> Ord CreateNexusEndpointResponse
CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
CreateNexusEndpointResponse
-> CreateNexusEndpointResponse -> Ordering
CreateNexusEndpointResponse
-> CreateNexusEndpointResponse -> CreateNexusEndpointResponse
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 :: CreateNexusEndpointResponse
-> CreateNexusEndpointResponse -> Ordering
compare :: CreateNexusEndpointResponse
-> CreateNexusEndpointResponse -> Ordering
$c< :: CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
< :: CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
$c<= :: CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
<= :: CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
$c> :: CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
> :: CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
$c>= :: CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
>= :: CreateNexusEndpointResponse -> CreateNexusEndpointResponse -> Bool
$cmax :: CreateNexusEndpointResponse
-> CreateNexusEndpointResponse -> CreateNexusEndpointResponse
max :: CreateNexusEndpointResponse
-> CreateNexusEndpointResponse -> CreateNexusEndpointResponse
$cmin :: CreateNexusEndpointResponse
-> CreateNexusEndpointResponse -> CreateNexusEndpointResponse
min :: CreateNexusEndpointResponse
-> CreateNexusEndpointResponse -> CreateNexusEndpointResponse
Prelude.Ord)
instance Prelude.Show CreateNexusEndpointResponse where
  showsPrec :: Int -> CreateNexusEndpointResponse -> ShowS
showsPrec Int
_ CreateNexusEndpointResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CreateNexusEndpointResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CreateNexusEndpointResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CreateNexusEndpointResponse "endpoint" Proto.Temporal.Api.Nexus.V1.Message.Endpoint where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "endpoint"
-> (Endpoint -> f Endpoint)
-> CreateNexusEndpointResponse
-> f CreateNexusEndpointResponse
fieldOf Proxy# "endpoint"
_
    = ((Maybe Endpoint -> f (Maybe Endpoint))
 -> CreateNexusEndpointResponse -> f CreateNexusEndpointResponse)
-> ((Endpoint -> f Endpoint)
    -> Maybe Endpoint -> f (Maybe Endpoint))
-> (Endpoint -> f Endpoint)
-> CreateNexusEndpointResponse
-> f CreateNexusEndpointResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CreateNexusEndpointResponse -> Maybe Endpoint)
-> (CreateNexusEndpointResponse
    -> Maybe Endpoint -> CreateNexusEndpointResponse)
-> Lens
     CreateNexusEndpointResponse
     CreateNexusEndpointResponse
     (Maybe Endpoint)
     (Maybe Endpoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CreateNexusEndpointResponse -> Maybe Endpoint
_CreateNexusEndpointResponse'endpoint
           (\ CreateNexusEndpointResponse
x__ Maybe Endpoint
y__ -> CreateNexusEndpointResponse
x__ {_CreateNexusEndpointResponse'endpoint = y__}))
        (Endpoint -> Lens' (Maybe Endpoint) Endpoint
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Endpoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CreateNexusEndpointResponse "maybe'endpoint" (Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.Endpoint) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'endpoint"
-> (Maybe Endpoint -> f (Maybe Endpoint))
-> CreateNexusEndpointResponse
-> f CreateNexusEndpointResponse
fieldOf Proxy# "maybe'endpoint"
_
    = ((Maybe Endpoint -> f (Maybe Endpoint))
 -> CreateNexusEndpointResponse -> f CreateNexusEndpointResponse)
-> ((Maybe Endpoint -> f (Maybe Endpoint))
    -> Maybe Endpoint -> f (Maybe Endpoint))
-> (Maybe Endpoint -> f (Maybe Endpoint))
-> CreateNexusEndpointResponse
-> f CreateNexusEndpointResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CreateNexusEndpointResponse -> Maybe Endpoint)
-> (CreateNexusEndpointResponse
    -> Maybe Endpoint -> CreateNexusEndpointResponse)
-> Lens
     CreateNexusEndpointResponse
     CreateNexusEndpointResponse
     (Maybe Endpoint)
     (Maybe Endpoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CreateNexusEndpointResponse -> Maybe Endpoint
_CreateNexusEndpointResponse'endpoint
           (\ CreateNexusEndpointResponse
x__ Maybe Endpoint
y__ -> CreateNexusEndpointResponse
x__ {_CreateNexusEndpointResponse'endpoint = y__}))
        (Maybe Endpoint -> f (Maybe Endpoint))
-> Maybe Endpoint -> f (Maybe Endpoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CreateNexusEndpointResponse where
  messageName :: Proxy CreateNexusEndpointResponse -> Text
messageName Proxy CreateNexusEndpointResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.CreateNexusEndpointResponse"
  packedMessageDescriptor :: Proxy CreateNexusEndpointResponse -> ByteString
packedMessageDescriptor Proxy CreateNexusEndpointResponse
_
    = ByteString
"\n\
      \\ESCCreateNexusEndpointResponse\DC2;\n\
      \\bendpoint\CAN\SOH \SOH(\v2\US.temporal.api.nexus.v1.EndpointR\bendpoint"
  packedFileDescriptor :: Proxy CreateNexusEndpointResponse -> ByteString
packedFileDescriptor Proxy CreateNexusEndpointResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CreateNexusEndpointResponse)
fieldsByTag
    = let
        endpoint__field_descriptor :: FieldDescriptor CreateNexusEndpointResponse
endpoint__field_descriptor
          = String
-> FieldTypeDescriptor Endpoint
-> FieldAccessor CreateNexusEndpointResponse Endpoint
-> FieldDescriptor CreateNexusEndpointResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"endpoint"
              (MessageOrGroup -> FieldTypeDescriptor Endpoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Nexus.V1.Message.Endpoint)
              (Lens
  CreateNexusEndpointResponse
  CreateNexusEndpointResponse
  (Maybe Endpoint)
  (Maybe Endpoint)
-> FieldAccessor CreateNexusEndpointResponse Endpoint
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'endpoint")) ::
              Data.ProtoLens.FieldDescriptor CreateNexusEndpointResponse
      in
        [(Tag, FieldDescriptor CreateNexusEndpointResponse)]
-> Map Tag (FieldDescriptor CreateNexusEndpointResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CreateNexusEndpointResponse
endpoint__field_descriptor)]
  unknownFields :: Lens' CreateNexusEndpointResponse FieldSet
unknownFields
    = (CreateNexusEndpointResponse -> FieldSet)
-> (CreateNexusEndpointResponse
    -> FieldSet -> CreateNexusEndpointResponse)
-> Lens' CreateNexusEndpointResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CreateNexusEndpointResponse -> FieldSet
_CreateNexusEndpointResponse'_unknownFields
        (\ CreateNexusEndpointResponse
x__ FieldSet
y__
           -> CreateNexusEndpointResponse
x__ {_CreateNexusEndpointResponse'_unknownFields = y__})
  defMessage :: CreateNexusEndpointResponse
defMessage
    = CreateNexusEndpointResponse'_constructor
        {_CreateNexusEndpointResponse'endpoint :: Maybe Endpoint
_CreateNexusEndpointResponse'endpoint = Maybe Endpoint
forall a. Maybe a
Prelude.Nothing,
         _CreateNexusEndpointResponse'_unknownFields :: FieldSet
_CreateNexusEndpointResponse'_unknownFields = []}
  parseMessage :: Parser CreateNexusEndpointResponse
parseMessage
    = let
        loop ::
          CreateNexusEndpointResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser CreateNexusEndpointResponse
        loop :: CreateNexusEndpointResponse -> Parser CreateNexusEndpointResponse
loop CreateNexusEndpointResponse
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 Endpoint -> String -> Parser Endpoint
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
"endpoint"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"endpoint") 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 CreateNexusEndpointResponse
-> String -> Parser CreateNexusEndpointResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CreateNexusEndpointResponse -> Parser CreateNexusEndpointResponse
loop CreateNexusEndpointResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CreateNexusEndpointResponse"
  buildMessage :: CreateNexusEndpointResponse -> Builder
buildMessage
    = \ CreateNexusEndpointResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Endpoint)
  CreateNexusEndpointResponse
  CreateNexusEndpointResponse
  (Maybe Endpoint)
  (Maybe Endpoint)
-> CreateNexusEndpointResponse -> Maybe Endpoint
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'endpoint") CreateNexusEndpointResponse
_x
              of
                Maybe Endpoint
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Endpoint
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Endpoint -> ByteString) -> Endpoint -> 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))
                          Endpoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Endpoint
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  CreateNexusEndpointResponse
  CreateNexusEndpointResponse
  FieldSet
  FieldSet
-> CreateNexusEndpointResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  CreateNexusEndpointResponse
  CreateNexusEndpointResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CreateNexusEndpointResponse FieldSet
Data.ProtoLens.unknownFields CreateNexusEndpointResponse
_x))
instance Control.DeepSeq.NFData CreateNexusEndpointResponse where
  rnf :: CreateNexusEndpointResponse -> ()
rnf
    = \ CreateNexusEndpointResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CreateNexusEndpointResponse -> FieldSet
_CreateNexusEndpointResponse'_unknownFields CreateNexusEndpointResponse
x__)
             (Maybe Endpoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (CreateNexusEndpointResponse -> Maybe Endpoint
_CreateNexusEndpointResponse'endpoint CreateNexusEndpointResponse
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.namespace' @:: Lens' DeleteNamespaceRequest Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.namespaceId' @:: Lens' DeleteNamespaceRequest Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.namespaceDeleteDelay' @:: Lens' DeleteNamespaceRequest Proto.Google.Protobuf.Duration.Duration@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.maybe'namespaceDeleteDelay' @:: Lens' DeleteNamespaceRequest (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration)@ -}
data DeleteNamespaceRequest
  = DeleteNamespaceRequest'_constructor {DeleteNamespaceRequest -> Text
_DeleteNamespaceRequest'namespace :: !Data.Text.Text,
                                         DeleteNamespaceRequest -> Text
_DeleteNamespaceRequest'namespaceId :: !Data.Text.Text,
                                         DeleteNamespaceRequest -> Maybe Duration
_DeleteNamespaceRequest'namespaceDeleteDelay :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
                                         DeleteNamespaceRequest -> FieldSet
_DeleteNamespaceRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
(DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool)
-> (DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool)
-> Eq DeleteNamespaceRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
== :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
$c/= :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
/= :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
Prelude.Eq, Eq DeleteNamespaceRequest
Eq DeleteNamespaceRequest =>
(DeleteNamespaceRequest -> DeleteNamespaceRequest -> Ordering)
-> (DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool)
-> (DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool)
-> (DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool)
-> (DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool)
-> (DeleteNamespaceRequest
    -> DeleteNamespaceRequest -> DeleteNamespaceRequest)
-> (DeleteNamespaceRequest
    -> DeleteNamespaceRequest -> DeleteNamespaceRequest)
-> Ord DeleteNamespaceRequest
DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
DeleteNamespaceRequest -> DeleteNamespaceRequest -> Ordering
DeleteNamespaceRequest
-> DeleteNamespaceRequest -> DeleteNamespaceRequest
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 :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Ordering
compare :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Ordering
$c< :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
< :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
$c<= :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
<= :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
$c> :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
> :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
$c>= :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
>= :: DeleteNamespaceRequest -> DeleteNamespaceRequest -> Bool
$cmax :: DeleteNamespaceRequest
-> DeleteNamespaceRequest -> DeleteNamespaceRequest
max :: DeleteNamespaceRequest
-> DeleteNamespaceRequest -> DeleteNamespaceRequest
$cmin :: DeleteNamespaceRequest
-> DeleteNamespaceRequest -> DeleteNamespaceRequest
min :: DeleteNamespaceRequest
-> DeleteNamespaceRequest -> DeleteNamespaceRequest
Prelude.Ord)
instance Prelude.Show DeleteNamespaceRequest where
  showsPrec :: Int -> DeleteNamespaceRequest -> ShowS
showsPrec Int
_ DeleteNamespaceRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DeleteNamespaceRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DeleteNamespaceRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField DeleteNamespaceRequest "namespace" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespace"
-> (Text -> f Text)
-> DeleteNamespaceRequest
-> f DeleteNamespaceRequest
fieldOf Proxy# "namespace"
_
    = ((Text -> f Text)
 -> DeleteNamespaceRequest -> f DeleteNamespaceRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DeleteNamespaceRequest
-> f DeleteNamespaceRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteNamespaceRequest -> Text)
-> (DeleteNamespaceRequest -> Text -> DeleteNamespaceRequest)
-> Lens DeleteNamespaceRequest DeleteNamespaceRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteNamespaceRequest -> Text
_DeleteNamespaceRequest'namespace
           (\ DeleteNamespaceRequest
x__ Text
y__ -> DeleteNamespaceRequest
x__ {_DeleteNamespaceRequest'namespace = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeleteNamespaceRequest "namespaceId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespaceId"
-> (Text -> f Text)
-> DeleteNamespaceRequest
-> f DeleteNamespaceRequest
fieldOf Proxy# "namespaceId"
_
    = ((Text -> f Text)
 -> DeleteNamespaceRequest -> f DeleteNamespaceRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DeleteNamespaceRequest
-> f DeleteNamespaceRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteNamespaceRequest -> Text)
-> (DeleteNamespaceRequest -> Text -> DeleteNamespaceRequest)
-> Lens DeleteNamespaceRequest DeleteNamespaceRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteNamespaceRequest -> Text
_DeleteNamespaceRequest'namespaceId
           (\ DeleteNamespaceRequest
x__ Text
y__ -> DeleteNamespaceRequest
x__ {_DeleteNamespaceRequest'namespaceId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeleteNamespaceRequest "namespaceDeleteDelay" Proto.Google.Protobuf.Duration.Duration where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespaceDeleteDelay"
-> (Duration -> f Duration)
-> DeleteNamespaceRequest
-> f DeleteNamespaceRequest
fieldOf Proxy# "namespaceDeleteDelay"
_
    = ((Maybe Duration -> f (Maybe Duration))
 -> DeleteNamespaceRequest -> f DeleteNamespaceRequest)
-> ((Duration -> f Duration)
    -> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> DeleteNamespaceRequest
-> f DeleteNamespaceRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteNamespaceRequest -> Maybe Duration)
-> (DeleteNamespaceRequest
    -> Maybe Duration -> DeleteNamespaceRequest)
-> Lens
     DeleteNamespaceRequest
     DeleteNamespaceRequest
     (Maybe Duration)
     (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteNamespaceRequest -> Maybe Duration
_DeleteNamespaceRequest'namespaceDeleteDelay
           (\ DeleteNamespaceRequest
x__ Maybe Duration
y__
              -> DeleteNamespaceRequest
x__ {_DeleteNamespaceRequest'namespaceDeleteDelay = y__}))
        (Duration -> Lens' (Maybe Duration) Duration
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Duration
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DeleteNamespaceRequest "maybe'namespaceDeleteDelay" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'namespaceDeleteDelay"
-> (Maybe Duration -> f (Maybe Duration))
-> DeleteNamespaceRequest
-> f DeleteNamespaceRequest
fieldOf Proxy# "maybe'namespaceDeleteDelay"
_
    = ((Maybe Duration -> f (Maybe Duration))
 -> DeleteNamespaceRequest -> f DeleteNamespaceRequest)
-> ((Maybe Duration -> f (Maybe Duration))
    -> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> DeleteNamespaceRequest
-> f DeleteNamespaceRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteNamespaceRequest -> Maybe Duration)
-> (DeleteNamespaceRequest
    -> Maybe Duration -> DeleteNamespaceRequest)
-> Lens
     DeleteNamespaceRequest
     DeleteNamespaceRequest
     (Maybe Duration)
     (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteNamespaceRequest -> Maybe Duration
_DeleteNamespaceRequest'namespaceDeleteDelay
           (\ DeleteNamespaceRequest
x__ Maybe Duration
y__
              -> DeleteNamespaceRequest
x__ {_DeleteNamespaceRequest'namespaceDeleteDelay = y__}))
        (Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DeleteNamespaceRequest where
  messageName :: Proxy DeleteNamespaceRequest -> Text
messageName Proxy DeleteNamespaceRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.DeleteNamespaceRequest"
  packedMessageDescriptor :: Proxy DeleteNamespaceRequest -> ByteString
packedMessageDescriptor Proxy DeleteNamespaceRequest
_
    = ByteString
"\n\
      \\SYNDeleteNamespaceRequest\DC2\FS\n\
      \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2!\n\
      \\fnamespace_id\CAN\STX \SOH(\tR\vnamespaceId\DC2O\n\
      \\SYNnamespace_delete_delay\CAN\ETX \SOH(\v2\EM.google.protobuf.DurationR\DC4namespaceDeleteDelay"
  packedFileDescriptor :: Proxy DeleteNamespaceRequest -> ByteString
packedFileDescriptor Proxy DeleteNamespaceRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DeleteNamespaceRequest)
fieldsByTag
    = let
        namespace__field_descriptor :: FieldDescriptor DeleteNamespaceRequest
namespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DeleteNamespaceRequest Text
-> FieldDescriptor DeleteNamespaceRequest
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 DeleteNamespaceRequest DeleteNamespaceRequest Text Text
-> FieldAccessor DeleteNamespaceRequest 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 DeleteNamespaceRequest
        namespaceId__field_descriptor :: FieldDescriptor DeleteNamespaceRequest
namespaceId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DeleteNamespaceRequest Text
-> FieldDescriptor DeleteNamespaceRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"namespace_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 DeleteNamespaceRequest DeleteNamespaceRequest Text Text
-> FieldAccessor DeleteNamespaceRequest 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 @"namespaceId")) ::
              Data.ProtoLens.FieldDescriptor DeleteNamespaceRequest
        namespaceDeleteDelay__field_descriptor :: FieldDescriptor DeleteNamespaceRequest
namespaceDeleteDelay__field_descriptor
          = String
-> FieldTypeDescriptor Duration
-> FieldAccessor DeleteNamespaceRequest Duration
-> FieldDescriptor DeleteNamespaceRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"namespace_delete_delay"
              (MessageOrGroup -> FieldTypeDescriptor Duration
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Duration.Duration)
              (Lens
  DeleteNamespaceRequest
  DeleteNamespaceRequest
  (Maybe Duration)
  (Maybe Duration)
-> FieldAccessor DeleteNamespaceRequest Duration
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'namespaceDeleteDelay")) ::
              Data.ProtoLens.FieldDescriptor DeleteNamespaceRequest
      in
        [(Tag, FieldDescriptor DeleteNamespaceRequest)]
-> Map Tag (FieldDescriptor DeleteNamespaceRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DeleteNamespaceRequest
namespace__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor DeleteNamespaceRequest
namespaceId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor DeleteNamespaceRequest
namespaceDeleteDelay__field_descriptor)]
  unknownFields :: Lens' DeleteNamespaceRequest FieldSet
unknownFields
    = (DeleteNamespaceRequest -> FieldSet)
-> (DeleteNamespaceRequest -> FieldSet -> DeleteNamespaceRequest)
-> Lens' DeleteNamespaceRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DeleteNamespaceRequest -> FieldSet
_DeleteNamespaceRequest'_unknownFields
        (\ DeleteNamespaceRequest
x__ FieldSet
y__ -> DeleteNamespaceRequest
x__ {_DeleteNamespaceRequest'_unknownFields = y__})
  defMessage :: DeleteNamespaceRequest
defMessage
    = DeleteNamespaceRequest'_constructor
        {_DeleteNamespaceRequest'namespace :: Text
_DeleteNamespaceRequest'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeleteNamespaceRequest'namespaceId :: Text
_DeleteNamespaceRequest'namespaceId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeleteNamespaceRequest'namespaceDeleteDelay :: Maybe Duration
_DeleteNamespaceRequest'namespaceDeleteDelay = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
         _DeleteNamespaceRequest'_unknownFields :: FieldSet
_DeleteNamespaceRequest'_unknownFields = []}
  parseMessage :: Parser DeleteNamespaceRequest
parseMessage
    = let
        loop ::
          DeleteNamespaceRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser DeleteNamespaceRequest
        loop :: DeleteNamespaceRequest -> Parser DeleteNamespaceRequest
loop DeleteNamespaceRequest
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
"namespace_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"namespaceId") y x)
                        Word64
26
                          -> do y <- Parser Duration -> String -> Parser Duration
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"namespace_delete_delay"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"namespaceDeleteDelay") 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 DeleteNamespaceRequest
-> String -> Parser DeleteNamespaceRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DeleteNamespaceRequest -> Parser DeleteNamespaceRequest
loop DeleteNamespaceRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DeleteNamespaceRequest"
  buildMessage :: DeleteNamespaceRequest -> Builder
buildMessage
    = \ DeleteNamespaceRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike
  Text DeleteNamespaceRequest DeleteNamespaceRequest Text Text
-> DeleteNamespaceRequest -> 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") DeleteNamespaceRequest
_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 DeleteNamespaceRequest DeleteNamespaceRequest Text Text
-> DeleteNamespaceRequest -> 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 @"namespaceId") DeleteNamespaceRequest
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Duration)
  DeleteNamespaceRequest
  DeleteNamespaceRequest
  (Maybe Duration)
  (Maybe Duration)
-> DeleteNamespaceRequest -> Maybe Duration
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'namespaceDeleteDelay") DeleteNamespaceRequest
_x
                    of
                      Maybe Duration
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just Duration
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (Duration -> ByteString) -> Duration -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                Duration -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Duration
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  DeleteNamespaceRequest
  DeleteNamespaceRequest
  FieldSet
  FieldSet
-> DeleteNamespaceRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  DeleteNamespaceRequest
  DeleteNamespaceRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DeleteNamespaceRequest FieldSet
Data.ProtoLens.unknownFields DeleteNamespaceRequest
_x))))
instance Control.DeepSeq.NFData DeleteNamespaceRequest where
  rnf :: DeleteNamespaceRequest -> ()
rnf
    = \ DeleteNamespaceRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DeleteNamespaceRequest -> FieldSet
_DeleteNamespaceRequest'_unknownFields DeleteNamespaceRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DeleteNamespaceRequest -> Text
_DeleteNamespaceRequest'namespace DeleteNamespaceRequest
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (DeleteNamespaceRequest -> Text
_DeleteNamespaceRequest'namespaceId DeleteNamespaceRequest
x__)
                   (Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (DeleteNamespaceRequest -> Maybe Duration
_DeleteNamespaceRequest'namespaceDeleteDelay DeleteNamespaceRequest
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.deletedNamespace' @:: Lens' DeleteNamespaceResponse Data.Text.Text@ -}
data DeleteNamespaceResponse
  = DeleteNamespaceResponse'_constructor {DeleteNamespaceResponse -> Text
_DeleteNamespaceResponse'deletedNamespace :: !Data.Text.Text,
                                          DeleteNamespaceResponse -> FieldSet
_DeleteNamespaceResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
(DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool)
-> (DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool)
-> Eq DeleteNamespaceResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
== :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
$c/= :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
/= :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
Prelude.Eq, Eq DeleteNamespaceResponse
Eq DeleteNamespaceResponse =>
(DeleteNamespaceResponse -> DeleteNamespaceResponse -> Ordering)
-> (DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool)
-> (DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool)
-> (DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool)
-> (DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool)
-> (DeleteNamespaceResponse
    -> DeleteNamespaceResponse -> DeleteNamespaceResponse)
-> (DeleteNamespaceResponse
    -> DeleteNamespaceResponse -> DeleteNamespaceResponse)
-> Ord DeleteNamespaceResponse
DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
DeleteNamespaceResponse -> DeleteNamespaceResponse -> Ordering
DeleteNamespaceResponse
-> DeleteNamespaceResponse -> DeleteNamespaceResponse
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 :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Ordering
compare :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Ordering
$c< :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
< :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
$c<= :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
<= :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
$c> :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
> :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
$c>= :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
>= :: DeleteNamespaceResponse -> DeleteNamespaceResponse -> Bool
$cmax :: DeleteNamespaceResponse
-> DeleteNamespaceResponse -> DeleteNamespaceResponse
max :: DeleteNamespaceResponse
-> DeleteNamespaceResponse -> DeleteNamespaceResponse
$cmin :: DeleteNamespaceResponse
-> DeleteNamespaceResponse -> DeleteNamespaceResponse
min :: DeleteNamespaceResponse
-> DeleteNamespaceResponse -> DeleteNamespaceResponse
Prelude.Ord)
instance Prelude.Show DeleteNamespaceResponse where
  showsPrec :: Int -> DeleteNamespaceResponse -> ShowS
showsPrec Int
_ DeleteNamespaceResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DeleteNamespaceResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DeleteNamespaceResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField DeleteNamespaceResponse "deletedNamespace" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "deletedNamespace"
-> (Text -> f Text)
-> DeleteNamespaceResponse
-> f DeleteNamespaceResponse
fieldOf Proxy# "deletedNamespace"
_
    = ((Text -> f Text)
 -> DeleteNamespaceResponse -> f DeleteNamespaceResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DeleteNamespaceResponse
-> f DeleteNamespaceResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteNamespaceResponse -> Text)
-> (DeleteNamespaceResponse -> Text -> DeleteNamespaceResponse)
-> Lens DeleteNamespaceResponse DeleteNamespaceResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteNamespaceResponse -> Text
_DeleteNamespaceResponse'deletedNamespace
           (\ DeleteNamespaceResponse
x__ Text
y__
              -> DeleteNamespaceResponse
x__ {_DeleteNamespaceResponse'deletedNamespace = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DeleteNamespaceResponse where
  messageName :: Proxy DeleteNamespaceResponse -> Text
messageName Proxy DeleteNamespaceResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.DeleteNamespaceResponse"
  packedMessageDescriptor :: Proxy DeleteNamespaceResponse -> ByteString
packedMessageDescriptor Proxy DeleteNamespaceResponse
_
    = ByteString
"\n\
      \\ETBDeleteNamespaceResponse\DC2+\n\
      \\DC1deleted_namespace\CAN\SOH \SOH(\tR\DLEdeletedNamespace"
  packedFileDescriptor :: Proxy DeleteNamespaceResponse -> ByteString
packedFileDescriptor Proxy DeleteNamespaceResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DeleteNamespaceResponse)
fieldsByTag
    = let
        deletedNamespace__field_descriptor :: FieldDescriptor DeleteNamespaceResponse
deletedNamespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DeleteNamespaceResponse Text
-> FieldDescriptor DeleteNamespaceResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"deleted_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 DeleteNamespaceResponse DeleteNamespaceResponse Text Text
-> FieldAccessor DeleteNamespaceResponse 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 @"deletedNamespace")) ::
              Data.ProtoLens.FieldDescriptor DeleteNamespaceResponse
      in
        [(Tag, FieldDescriptor DeleteNamespaceResponse)]
-> Map Tag (FieldDescriptor DeleteNamespaceResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DeleteNamespaceResponse
deletedNamespace__field_descriptor)]
  unknownFields :: Lens' DeleteNamespaceResponse FieldSet
unknownFields
    = (DeleteNamespaceResponse -> FieldSet)
-> (DeleteNamespaceResponse -> FieldSet -> DeleteNamespaceResponse)
-> Lens' DeleteNamespaceResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DeleteNamespaceResponse -> FieldSet
_DeleteNamespaceResponse'_unknownFields
        (\ DeleteNamespaceResponse
x__ FieldSet
y__ -> DeleteNamespaceResponse
x__ {_DeleteNamespaceResponse'_unknownFields = y__})
  defMessage :: DeleteNamespaceResponse
defMessage
    = DeleteNamespaceResponse'_constructor
        {_DeleteNamespaceResponse'deletedNamespace :: Text
_DeleteNamespaceResponse'deletedNamespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeleteNamespaceResponse'_unknownFields :: FieldSet
_DeleteNamespaceResponse'_unknownFields = []}
  parseMessage :: Parser DeleteNamespaceResponse
parseMessage
    = let
        loop ::
          DeleteNamespaceResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser DeleteNamespaceResponse
        loop :: DeleteNamespaceResponse -> Parser DeleteNamespaceResponse
loop DeleteNamespaceResponse
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
"deleted_namespace"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"deletedNamespace") 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 DeleteNamespaceResponse
-> String -> Parser DeleteNamespaceResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DeleteNamespaceResponse -> Parser DeleteNamespaceResponse
loop DeleteNamespaceResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DeleteNamespaceResponse"
  buildMessage :: DeleteNamespaceResponse -> Builder
buildMessage
    = \ DeleteNamespaceResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text DeleteNamespaceResponse DeleteNamespaceResponse Text Text
-> DeleteNamespaceResponse -> 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 @"deletedNamespace") DeleteNamespaceResponse
_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
  DeleteNamespaceResponse
  DeleteNamespaceResponse
  FieldSet
  FieldSet
-> DeleteNamespaceResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  DeleteNamespaceResponse
  DeleteNamespaceResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DeleteNamespaceResponse FieldSet
Data.ProtoLens.unknownFields DeleteNamespaceResponse
_x))
instance Control.DeepSeq.NFData DeleteNamespaceResponse where
  rnf :: DeleteNamespaceResponse -> ()
rnf
    = \ DeleteNamespaceResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DeleteNamespaceResponse -> FieldSet
_DeleteNamespaceResponse'_unknownFields DeleteNamespaceResponse
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DeleteNamespaceResponse -> Text
_DeleteNamespaceResponse'deletedNamespace DeleteNamespaceResponse
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.id' @:: Lens' DeleteNexusEndpointRequest Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.version' @:: Lens' DeleteNexusEndpointRequest Data.Int.Int64@ -}
data DeleteNexusEndpointRequest
  = DeleteNexusEndpointRequest'_constructor {DeleteNexusEndpointRequest -> Text
_DeleteNexusEndpointRequest'id :: !Data.Text.Text,
                                             DeleteNexusEndpointRequest -> Int64
_DeleteNexusEndpointRequest'version :: !Data.Int.Int64,
                                             DeleteNexusEndpointRequest -> FieldSet
_DeleteNexusEndpointRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
(DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool)
-> (DeleteNexusEndpointRequest
    -> DeleteNexusEndpointRequest -> Bool)
-> Eq DeleteNexusEndpointRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
== :: DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
$c/= :: DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
/= :: DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
Prelude.Eq, Eq DeleteNexusEndpointRequest
Eq DeleteNexusEndpointRequest =>
(DeleteNexusEndpointRequest
 -> DeleteNexusEndpointRequest -> Ordering)
-> (DeleteNexusEndpointRequest
    -> DeleteNexusEndpointRequest -> Bool)
-> (DeleteNexusEndpointRequest
    -> DeleteNexusEndpointRequest -> Bool)
-> (DeleteNexusEndpointRequest
    -> DeleteNexusEndpointRequest -> Bool)
-> (DeleteNexusEndpointRequest
    -> DeleteNexusEndpointRequest -> Bool)
-> (DeleteNexusEndpointRequest
    -> DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest)
-> (DeleteNexusEndpointRequest
    -> DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest)
-> Ord DeleteNexusEndpointRequest
DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
DeleteNexusEndpointRequest
-> DeleteNexusEndpointRequest -> Ordering
DeleteNexusEndpointRequest
-> DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest
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 :: DeleteNexusEndpointRequest
-> DeleteNexusEndpointRequest -> Ordering
compare :: DeleteNexusEndpointRequest
-> DeleteNexusEndpointRequest -> Ordering
$c< :: DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
< :: DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
$c<= :: DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
<= :: DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
$c> :: DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
> :: DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
$c>= :: DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
>= :: DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest -> Bool
$cmax :: DeleteNexusEndpointRequest
-> DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest
max :: DeleteNexusEndpointRequest
-> DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest
$cmin :: DeleteNexusEndpointRequest
-> DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest
min :: DeleteNexusEndpointRequest
-> DeleteNexusEndpointRequest -> DeleteNexusEndpointRequest
Prelude.Ord)
instance Prelude.Show DeleteNexusEndpointRequest where
  showsPrec :: Int -> DeleteNexusEndpointRequest -> ShowS
showsPrec Int
_ DeleteNexusEndpointRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DeleteNexusEndpointRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DeleteNexusEndpointRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField DeleteNexusEndpointRequest "id" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Text -> f Text)
-> DeleteNexusEndpointRequest
-> f DeleteNexusEndpointRequest
fieldOf Proxy# "id"
_
    = ((Text -> f Text)
 -> DeleteNexusEndpointRequest -> f DeleteNexusEndpointRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DeleteNexusEndpointRequest
-> f DeleteNexusEndpointRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteNexusEndpointRequest -> Text)
-> (DeleteNexusEndpointRequest
    -> Text -> DeleteNexusEndpointRequest)
-> Lens
     DeleteNexusEndpointRequest DeleteNexusEndpointRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteNexusEndpointRequest -> Text
_DeleteNexusEndpointRequest'id
           (\ DeleteNexusEndpointRequest
x__ Text
y__ -> DeleteNexusEndpointRequest
x__ {_DeleteNexusEndpointRequest'id = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeleteNexusEndpointRequest "version" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "version"
-> (Int64 -> f Int64)
-> DeleteNexusEndpointRequest
-> f DeleteNexusEndpointRequest
fieldOf Proxy# "version"
_
    = ((Int64 -> f Int64)
 -> DeleteNexusEndpointRequest -> f DeleteNexusEndpointRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> DeleteNexusEndpointRequest
-> f DeleteNexusEndpointRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteNexusEndpointRequest -> Int64)
-> (DeleteNexusEndpointRequest
    -> Int64 -> DeleteNexusEndpointRequest)
-> Lens
     DeleteNexusEndpointRequest DeleteNexusEndpointRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteNexusEndpointRequest -> Int64
_DeleteNexusEndpointRequest'version
           (\ DeleteNexusEndpointRequest
x__ Int64
y__ -> DeleteNexusEndpointRequest
x__ {_DeleteNexusEndpointRequest'version = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DeleteNexusEndpointRequest where
  messageName :: Proxy DeleteNexusEndpointRequest -> Text
messageName Proxy DeleteNexusEndpointRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.DeleteNexusEndpointRequest"
  packedMessageDescriptor :: Proxy DeleteNexusEndpointRequest -> ByteString
packedMessageDescriptor Proxy DeleteNexusEndpointRequest
_
    = ByteString
"\n\
      \\SUBDeleteNexusEndpointRequest\DC2\SO\n\
      \\STXid\CAN\SOH \SOH(\tR\STXid\DC2\CAN\n\
      \\aversion\CAN\STX \SOH(\ETXR\aversion"
  packedFileDescriptor :: Proxy DeleteNexusEndpointRequest -> ByteString
packedFileDescriptor Proxy DeleteNexusEndpointRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DeleteNexusEndpointRequest)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor DeleteNexusEndpointRequest
id__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DeleteNexusEndpointRequest Text
-> FieldDescriptor DeleteNexusEndpointRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"id"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     DeleteNexusEndpointRequest DeleteNexusEndpointRequest Text Text
-> FieldAccessor DeleteNexusEndpointRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id")) ::
              Data.ProtoLens.FieldDescriptor DeleteNexusEndpointRequest
        version__field_descriptor :: FieldDescriptor DeleteNexusEndpointRequest
version__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor DeleteNexusEndpointRequest Int64
-> FieldDescriptor DeleteNexusEndpointRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"version"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens
     DeleteNexusEndpointRequest DeleteNexusEndpointRequest Int64 Int64
-> FieldAccessor DeleteNexusEndpointRequest Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"version")) ::
              Data.ProtoLens.FieldDescriptor DeleteNexusEndpointRequest
      in
        [(Tag, FieldDescriptor DeleteNexusEndpointRequest)]
-> Map Tag (FieldDescriptor DeleteNexusEndpointRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DeleteNexusEndpointRequest
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor DeleteNexusEndpointRequest
version__field_descriptor)]
  unknownFields :: Lens' DeleteNexusEndpointRequest FieldSet
unknownFields
    = (DeleteNexusEndpointRequest -> FieldSet)
-> (DeleteNexusEndpointRequest
    -> FieldSet -> DeleteNexusEndpointRequest)
-> Lens' DeleteNexusEndpointRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DeleteNexusEndpointRequest -> FieldSet
_DeleteNexusEndpointRequest'_unknownFields
        (\ DeleteNexusEndpointRequest
x__ FieldSet
y__
           -> DeleteNexusEndpointRequest
x__ {_DeleteNexusEndpointRequest'_unknownFields = y__})
  defMessage :: DeleteNexusEndpointRequest
defMessage
    = DeleteNexusEndpointRequest'_constructor
        {_DeleteNexusEndpointRequest'id :: Text
_DeleteNexusEndpointRequest'id = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeleteNexusEndpointRequest'version :: Int64
_DeleteNexusEndpointRequest'version = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeleteNexusEndpointRequest'_unknownFields :: FieldSet
_DeleteNexusEndpointRequest'_unknownFields = []}
  parseMessage :: Parser DeleteNexusEndpointRequest
parseMessage
    = let
        loop ::
          DeleteNexusEndpointRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser DeleteNexusEndpointRequest
        loop :: DeleteNexusEndpointRequest -> Parser DeleteNexusEndpointRequest
loop DeleteNexusEndpointRequest
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
"id"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x)
                        Word64
16
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"version"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"version") 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 DeleteNexusEndpointRequest
-> String -> Parser DeleteNexusEndpointRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DeleteNexusEndpointRequest -> Parser DeleteNexusEndpointRequest
loop DeleteNexusEndpointRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DeleteNexusEndpointRequest"
  buildMessage :: DeleteNexusEndpointRequest -> Builder
buildMessage
    = \ DeleteNexusEndpointRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  DeleteNexusEndpointRequest
  DeleteNexusEndpointRequest
  Text
  Text
-> DeleteNexusEndpointRequest -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id") DeleteNexusEndpointRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v = FoldLike
  Int64
  DeleteNexusEndpointRequest
  DeleteNexusEndpointRequest
  Int64
  Int64
-> DeleteNexusEndpointRequest -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"version") DeleteNexusEndpointRequest
_x
                 in
                   if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  DeleteNexusEndpointRequest
  DeleteNexusEndpointRequest
  FieldSet
  FieldSet
-> DeleteNexusEndpointRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  DeleteNexusEndpointRequest
  DeleteNexusEndpointRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DeleteNexusEndpointRequest FieldSet
Data.ProtoLens.unknownFields DeleteNexusEndpointRequest
_x)))
instance Control.DeepSeq.NFData DeleteNexusEndpointRequest where
  rnf :: DeleteNexusEndpointRequest -> ()
rnf
    = \ DeleteNexusEndpointRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DeleteNexusEndpointRequest -> FieldSet
_DeleteNexusEndpointRequest'_unknownFields DeleteNexusEndpointRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DeleteNexusEndpointRequest -> Text
_DeleteNexusEndpointRequest'id DeleteNexusEndpointRequest
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (DeleteNexusEndpointRequest -> Int64
_DeleteNexusEndpointRequest'version DeleteNexusEndpointRequest
x__) ()))
{- | Fields :
      -}
data DeleteNexusEndpointResponse
  = DeleteNexusEndpointResponse'_constructor {DeleteNexusEndpointResponse -> FieldSet
_DeleteNexusEndpointResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
(DeleteNexusEndpointResponse
 -> DeleteNexusEndpointResponse -> Bool)
-> (DeleteNexusEndpointResponse
    -> DeleteNexusEndpointResponse -> Bool)
-> Eq DeleteNexusEndpointResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
== :: DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
$c/= :: DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
/= :: DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
Prelude.Eq, Eq DeleteNexusEndpointResponse
Eq DeleteNexusEndpointResponse =>
(DeleteNexusEndpointResponse
 -> DeleteNexusEndpointResponse -> Ordering)
-> (DeleteNexusEndpointResponse
    -> DeleteNexusEndpointResponse -> Bool)
-> (DeleteNexusEndpointResponse
    -> DeleteNexusEndpointResponse -> Bool)
-> (DeleteNexusEndpointResponse
    -> DeleteNexusEndpointResponse -> Bool)
-> (DeleteNexusEndpointResponse
    -> DeleteNexusEndpointResponse -> Bool)
-> (DeleteNexusEndpointResponse
    -> DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse)
-> (DeleteNexusEndpointResponse
    -> DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse)
-> Ord DeleteNexusEndpointResponse
DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
DeleteNexusEndpointResponse
-> DeleteNexusEndpointResponse -> Ordering
DeleteNexusEndpointResponse
-> DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse
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 :: DeleteNexusEndpointResponse
-> DeleteNexusEndpointResponse -> Ordering
compare :: DeleteNexusEndpointResponse
-> DeleteNexusEndpointResponse -> Ordering
$c< :: DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
< :: DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
$c<= :: DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
<= :: DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
$c> :: DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
> :: DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
$c>= :: DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
>= :: DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse -> Bool
$cmax :: DeleteNexusEndpointResponse
-> DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse
max :: DeleteNexusEndpointResponse
-> DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse
$cmin :: DeleteNexusEndpointResponse
-> DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse
min :: DeleteNexusEndpointResponse
-> DeleteNexusEndpointResponse -> DeleteNexusEndpointResponse
Prelude.Ord)
instance Prelude.Show DeleteNexusEndpointResponse where
  showsPrec :: Int -> DeleteNexusEndpointResponse -> ShowS
showsPrec Int
_ DeleteNexusEndpointResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DeleteNexusEndpointResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DeleteNexusEndpointResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message DeleteNexusEndpointResponse where
  messageName :: Proxy DeleteNexusEndpointResponse -> Text
messageName Proxy DeleteNexusEndpointResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.DeleteNexusEndpointResponse"
  packedMessageDescriptor :: Proxy DeleteNexusEndpointResponse -> ByteString
packedMessageDescriptor Proxy DeleteNexusEndpointResponse
_
    = ByteString
"\n\
      \\ESCDeleteNexusEndpointResponse"
  packedFileDescriptor :: Proxy DeleteNexusEndpointResponse -> ByteString
packedFileDescriptor Proxy DeleteNexusEndpointResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DeleteNexusEndpointResponse)
fieldsByTag = let in [(Tag, FieldDescriptor DeleteNexusEndpointResponse)]
-> Map Tag (FieldDescriptor DeleteNexusEndpointResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' DeleteNexusEndpointResponse FieldSet
unknownFields
    = (DeleteNexusEndpointResponse -> FieldSet)
-> (DeleteNexusEndpointResponse
    -> FieldSet -> DeleteNexusEndpointResponse)
-> Lens' DeleteNexusEndpointResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DeleteNexusEndpointResponse -> FieldSet
_DeleteNexusEndpointResponse'_unknownFields
        (\ DeleteNexusEndpointResponse
x__ FieldSet
y__
           -> DeleteNexusEndpointResponse
x__ {_DeleteNexusEndpointResponse'_unknownFields = y__})
  defMessage :: DeleteNexusEndpointResponse
defMessage
    = DeleteNexusEndpointResponse'_constructor
        {_DeleteNexusEndpointResponse'_unknownFields :: FieldSet
_DeleteNexusEndpointResponse'_unknownFields = []}
  parseMessage :: Parser DeleteNexusEndpointResponse
parseMessage
    = let
        loop ::
          DeleteNexusEndpointResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser DeleteNexusEndpointResponse
        loop :: DeleteNexusEndpointResponse -> Parser DeleteNexusEndpointResponse
loop DeleteNexusEndpointResponse
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 DeleteNexusEndpointResponse
-> String -> Parser DeleteNexusEndpointResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DeleteNexusEndpointResponse -> Parser DeleteNexusEndpointResponse
loop DeleteNexusEndpointResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DeleteNexusEndpointResponse"
  buildMessage :: DeleteNexusEndpointResponse -> Builder
buildMessage
    = \ DeleteNexusEndpointResponse
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  DeleteNexusEndpointResponse
  DeleteNexusEndpointResponse
  FieldSet
  FieldSet
-> DeleteNexusEndpointResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  DeleteNexusEndpointResponse
  DeleteNexusEndpointResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DeleteNexusEndpointResponse FieldSet
Data.ProtoLens.unknownFields DeleteNexusEndpointResponse
_x)
instance Control.DeepSeq.NFData DeleteNexusEndpointResponse where
  rnf :: DeleteNexusEndpointResponse -> ()
rnf
    = \ DeleteNexusEndpointResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DeleteNexusEndpointResponse -> FieldSet
_DeleteNexusEndpointResponse'_unknownFields DeleteNexusEndpointResponse
x__) ()
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.id' @:: Lens' GetNexusEndpointRequest Data.Text.Text@ -}
data GetNexusEndpointRequest
  = GetNexusEndpointRequest'_constructor {GetNexusEndpointRequest -> Text
_GetNexusEndpointRequest'id :: !Data.Text.Text,
                                          GetNexusEndpointRequest -> FieldSet
_GetNexusEndpointRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
(GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool)
-> (GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool)
-> Eq GetNexusEndpointRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
== :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
$c/= :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
/= :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
Prelude.Eq, Eq GetNexusEndpointRequest
Eq GetNexusEndpointRequest =>
(GetNexusEndpointRequest -> GetNexusEndpointRequest -> Ordering)
-> (GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool)
-> (GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool)
-> (GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool)
-> (GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool)
-> (GetNexusEndpointRequest
    -> GetNexusEndpointRequest -> GetNexusEndpointRequest)
-> (GetNexusEndpointRequest
    -> GetNexusEndpointRequest -> GetNexusEndpointRequest)
-> Ord GetNexusEndpointRequest
GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
GetNexusEndpointRequest -> GetNexusEndpointRequest -> Ordering
GetNexusEndpointRequest
-> GetNexusEndpointRequest -> GetNexusEndpointRequest
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 :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Ordering
compare :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Ordering
$c< :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
< :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
$c<= :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
<= :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
$c> :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
> :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
$c>= :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
>= :: GetNexusEndpointRequest -> GetNexusEndpointRequest -> Bool
$cmax :: GetNexusEndpointRequest
-> GetNexusEndpointRequest -> GetNexusEndpointRequest
max :: GetNexusEndpointRequest
-> GetNexusEndpointRequest -> GetNexusEndpointRequest
$cmin :: GetNexusEndpointRequest
-> GetNexusEndpointRequest -> GetNexusEndpointRequest
min :: GetNexusEndpointRequest
-> GetNexusEndpointRequest -> GetNexusEndpointRequest
Prelude.Ord)
instance Prelude.Show GetNexusEndpointRequest where
  showsPrec :: Int -> GetNexusEndpointRequest -> ShowS
showsPrec Int
_ GetNexusEndpointRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (GetNexusEndpointRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort GetNexusEndpointRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField GetNexusEndpointRequest "id" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Text -> f Text)
-> GetNexusEndpointRequest
-> f GetNexusEndpointRequest
fieldOf Proxy# "id"
_
    = ((Text -> f Text)
 -> GetNexusEndpointRequest -> f GetNexusEndpointRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> GetNexusEndpointRequest
-> f GetNexusEndpointRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GetNexusEndpointRequest -> Text)
-> (GetNexusEndpointRequest -> Text -> GetNexusEndpointRequest)
-> Lens GetNexusEndpointRequest GetNexusEndpointRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GetNexusEndpointRequest -> Text
_GetNexusEndpointRequest'id
           (\ GetNexusEndpointRequest
x__ Text
y__ -> GetNexusEndpointRequest
x__ {_GetNexusEndpointRequest'id = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message GetNexusEndpointRequest where
  messageName :: Proxy GetNexusEndpointRequest -> Text
messageName Proxy GetNexusEndpointRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.GetNexusEndpointRequest"
  packedMessageDescriptor :: Proxy GetNexusEndpointRequest -> ByteString
packedMessageDescriptor Proxy GetNexusEndpointRequest
_
    = ByteString
"\n\
      \\ETBGetNexusEndpointRequest\DC2\SO\n\
      \\STXid\CAN\SOH \SOH(\tR\STXid"
  packedFileDescriptor :: Proxy GetNexusEndpointRequest -> ByteString
packedFileDescriptor Proxy GetNexusEndpointRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor GetNexusEndpointRequest)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor GetNexusEndpointRequest
id__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor GetNexusEndpointRequest Text
-> FieldDescriptor GetNexusEndpointRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"id"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens GetNexusEndpointRequest GetNexusEndpointRequest Text Text
-> FieldAccessor GetNexusEndpointRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id")) ::
              Data.ProtoLens.FieldDescriptor GetNexusEndpointRequest
      in [(Tag, FieldDescriptor GetNexusEndpointRequest)]
-> Map Tag (FieldDescriptor GetNexusEndpointRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor GetNexusEndpointRequest
id__field_descriptor)]
  unknownFields :: Lens' GetNexusEndpointRequest FieldSet
unknownFields
    = (GetNexusEndpointRequest -> FieldSet)
-> (GetNexusEndpointRequest -> FieldSet -> GetNexusEndpointRequest)
-> Lens' GetNexusEndpointRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        GetNexusEndpointRequest -> FieldSet
_GetNexusEndpointRequest'_unknownFields
        (\ GetNexusEndpointRequest
x__ FieldSet
y__ -> GetNexusEndpointRequest
x__ {_GetNexusEndpointRequest'_unknownFields = y__})
  defMessage :: GetNexusEndpointRequest
defMessage
    = GetNexusEndpointRequest'_constructor
        {_GetNexusEndpointRequest'id :: Text
_GetNexusEndpointRequest'id = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _GetNexusEndpointRequest'_unknownFields :: FieldSet
_GetNexusEndpointRequest'_unknownFields = []}
  parseMessage :: Parser GetNexusEndpointRequest
parseMessage
    = let
        loop ::
          GetNexusEndpointRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser GetNexusEndpointRequest
        loop :: GetNexusEndpointRequest -> Parser GetNexusEndpointRequest
loop GetNexusEndpointRequest
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
"id"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") 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 GetNexusEndpointRequest
-> String -> Parser GetNexusEndpointRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do GetNexusEndpointRequest -> Parser GetNexusEndpointRequest
loop GetNexusEndpointRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"GetNexusEndpointRequest"
  buildMessage :: GetNexusEndpointRequest -> Builder
buildMessage
    = \ GetNexusEndpointRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text GetNexusEndpointRequest GetNexusEndpointRequest Text Text
-> GetNexusEndpointRequest -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id") GetNexusEndpointRequest
_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
  GetNexusEndpointRequest
  GetNexusEndpointRequest
  FieldSet
  FieldSet
-> GetNexusEndpointRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  GetNexusEndpointRequest
  GetNexusEndpointRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' GetNexusEndpointRequest FieldSet
Data.ProtoLens.unknownFields GetNexusEndpointRequest
_x))
instance Control.DeepSeq.NFData GetNexusEndpointRequest where
  rnf :: GetNexusEndpointRequest -> ()
rnf
    = \ GetNexusEndpointRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (GetNexusEndpointRequest -> FieldSet
_GetNexusEndpointRequest'_unknownFields GetNexusEndpointRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (GetNexusEndpointRequest -> Text
_GetNexusEndpointRequest'id GetNexusEndpointRequest
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.endpoint' @:: Lens' GetNexusEndpointResponse Proto.Temporal.Api.Nexus.V1.Message.Endpoint@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.maybe'endpoint' @:: Lens' GetNexusEndpointResponse (Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.Endpoint)@ -}
data GetNexusEndpointResponse
  = GetNexusEndpointResponse'_constructor {GetNexusEndpointResponse -> Maybe Endpoint
_GetNexusEndpointResponse'endpoint :: !(Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.Endpoint),
                                           GetNexusEndpointResponse -> FieldSet
_GetNexusEndpointResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
(GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool)
-> (GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool)
-> Eq GetNexusEndpointResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
== :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
$c/= :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
/= :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
Prelude.Eq, Eq GetNexusEndpointResponse
Eq GetNexusEndpointResponse =>
(GetNexusEndpointResponse -> GetNexusEndpointResponse -> Ordering)
-> (GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool)
-> (GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool)
-> (GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool)
-> (GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool)
-> (GetNexusEndpointResponse
    -> GetNexusEndpointResponse -> GetNexusEndpointResponse)
-> (GetNexusEndpointResponse
    -> GetNexusEndpointResponse -> GetNexusEndpointResponse)
-> Ord GetNexusEndpointResponse
GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
GetNexusEndpointResponse -> GetNexusEndpointResponse -> Ordering
GetNexusEndpointResponse
-> GetNexusEndpointResponse -> GetNexusEndpointResponse
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 :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Ordering
compare :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Ordering
$c< :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
< :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
$c<= :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
<= :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
$c> :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
> :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
$c>= :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
>= :: GetNexusEndpointResponse -> GetNexusEndpointResponse -> Bool
$cmax :: GetNexusEndpointResponse
-> GetNexusEndpointResponse -> GetNexusEndpointResponse
max :: GetNexusEndpointResponse
-> GetNexusEndpointResponse -> GetNexusEndpointResponse
$cmin :: GetNexusEndpointResponse
-> GetNexusEndpointResponse -> GetNexusEndpointResponse
min :: GetNexusEndpointResponse
-> GetNexusEndpointResponse -> GetNexusEndpointResponse
Prelude.Ord)
instance Prelude.Show GetNexusEndpointResponse where
  showsPrec :: Int -> GetNexusEndpointResponse -> ShowS
showsPrec Int
_ GetNexusEndpointResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (GetNexusEndpointResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort GetNexusEndpointResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField GetNexusEndpointResponse "endpoint" Proto.Temporal.Api.Nexus.V1.Message.Endpoint where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "endpoint"
-> (Endpoint -> f Endpoint)
-> GetNexusEndpointResponse
-> f GetNexusEndpointResponse
fieldOf Proxy# "endpoint"
_
    = ((Maybe Endpoint -> f (Maybe Endpoint))
 -> GetNexusEndpointResponse -> f GetNexusEndpointResponse)
-> ((Endpoint -> f Endpoint)
    -> Maybe Endpoint -> f (Maybe Endpoint))
-> (Endpoint -> f Endpoint)
-> GetNexusEndpointResponse
-> f GetNexusEndpointResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GetNexusEndpointResponse -> Maybe Endpoint)
-> (GetNexusEndpointResponse
    -> Maybe Endpoint -> GetNexusEndpointResponse)
-> Lens
     GetNexusEndpointResponse
     GetNexusEndpointResponse
     (Maybe Endpoint)
     (Maybe Endpoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GetNexusEndpointResponse -> Maybe Endpoint
_GetNexusEndpointResponse'endpoint
           (\ GetNexusEndpointResponse
x__ Maybe Endpoint
y__ -> GetNexusEndpointResponse
x__ {_GetNexusEndpointResponse'endpoint = y__}))
        (Endpoint -> Lens' (Maybe Endpoint) Endpoint
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Endpoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField GetNexusEndpointResponse "maybe'endpoint" (Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.Endpoint) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'endpoint"
-> (Maybe Endpoint -> f (Maybe Endpoint))
-> GetNexusEndpointResponse
-> f GetNexusEndpointResponse
fieldOf Proxy# "maybe'endpoint"
_
    = ((Maybe Endpoint -> f (Maybe Endpoint))
 -> GetNexusEndpointResponse -> f GetNexusEndpointResponse)
-> ((Maybe Endpoint -> f (Maybe Endpoint))
    -> Maybe Endpoint -> f (Maybe Endpoint))
-> (Maybe Endpoint -> f (Maybe Endpoint))
-> GetNexusEndpointResponse
-> f GetNexusEndpointResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GetNexusEndpointResponse -> Maybe Endpoint)
-> (GetNexusEndpointResponse
    -> Maybe Endpoint -> GetNexusEndpointResponse)
-> Lens
     GetNexusEndpointResponse
     GetNexusEndpointResponse
     (Maybe Endpoint)
     (Maybe Endpoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GetNexusEndpointResponse -> Maybe Endpoint
_GetNexusEndpointResponse'endpoint
           (\ GetNexusEndpointResponse
x__ Maybe Endpoint
y__ -> GetNexusEndpointResponse
x__ {_GetNexusEndpointResponse'endpoint = y__}))
        (Maybe Endpoint -> f (Maybe Endpoint))
-> Maybe Endpoint -> f (Maybe Endpoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message GetNexusEndpointResponse where
  messageName :: Proxy GetNexusEndpointResponse -> Text
messageName Proxy GetNexusEndpointResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.GetNexusEndpointResponse"
  packedMessageDescriptor :: Proxy GetNexusEndpointResponse -> ByteString
packedMessageDescriptor Proxy GetNexusEndpointResponse
_
    = ByteString
"\n\
      \\CANGetNexusEndpointResponse\DC2;\n\
      \\bendpoint\CAN\SOH \SOH(\v2\US.temporal.api.nexus.v1.EndpointR\bendpoint"
  packedFileDescriptor :: Proxy GetNexusEndpointResponse -> ByteString
packedFileDescriptor Proxy GetNexusEndpointResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor GetNexusEndpointResponse)
fieldsByTag
    = let
        endpoint__field_descriptor :: FieldDescriptor GetNexusEndpointResponse
endpoint__field_descriptor
          = String
-> FieldTypeDescriptor Endpoint
-> FieldAccessor GetNexusEndpointResponse Endpoint
-> FieldDescriptor GetNexusEndpointResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"endpoint"
              (MessageOrGroup -> FieldTypeDescriptor Endpoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Nexus.V1.Message.Endpoint)
              (Lens
  GetNexusEndpointResponse
  GetNexusEndpointResponse
  (Maybe Endpoint)
  (Maybe Endpoint)
-> FieldAccessor GetNexusEndpointResponse Endpoint
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'endpoint")) ::
              Data.ProtoLens.FieldDescriptor GetNexusEndpointResponse
      in
        [(Tag, FieldDescriptor GetNexusEndpointResponse)]
-> Map Tag (FieldDescriptor GetNexusEndpointResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor GetNexusEndpointResponse
endpoint__field_descriptor)]
  unknownFields :: Lens' GetNexusEndpointResponse FieldSet
unknownFields
    = (GetNexusEndpointResponse -> FieldSet)
-> (GetNexusEndpointResponse
    -> FieldSet -> GetNexusEndpointResponse)
-> Lens' GetNexusEndpointResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        GetNexusEndpointResponse -> FieldSet
_GetNexusEndpointResponse'_unknownFields
        (\ GetNexusEndpointResponse
x__ FieldSet
y__ -> GetNexusEndpointResponse
x__ {_GetNexusEndpointResponse'_unknownFields = y__})
  defMessage :: GetNexusEndpointResponse
defMessage
    = GetNexusEndpointResponse'_constructor
        {_GetNexusEndpointResponse'endpoint :: Maybe Endpoint
_GetNexusEndpointResponse'endpoint = Maybe Endpoint
forall a. Maybe a
Prelude.Nothing,
         _GetNexusEndpointResponse'_unknownFields :: FieldSet
_GetNexusEndpointResponse'_unknownFields = []}
  parseMessage :: Parser GetNexusEndpointResponse
parseMessage
    = let
        loop ::
          GetNexusEndpointResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser GetNexusEndpointResponse
        loop :: GetNexusEndpointResponse -> Parser GetNexusEndpointResponse
loop GetNexusEndpointResponse
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 Endpoint -> String -> Parser Endpoint
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
"endpoint"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"endpoint") 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 GetNexusEndpointResponse
-> String -> Parser GetNexusEndpointResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do GetNexusEndpointResponse -> Parser GetNexusEndpointResponse
loop GetNexusEndpointResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"GetNexusEndpointResponse"
  buildMessage :: GetNexusEndpointResponse -> Builder
buildMessage
    = \ GetNexusEndpointResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Endpoint)
  GetNexusEndpointResponse
  GetNexusEndpointResponse
  (Maybe Endpoint)
  (Maybe Endpoint)
-> GetNexusEndpointResponse -> Maybe Endpoint
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'endpoint") GetNexusEndpointResponse
_x
              of
                Maybe Endpoint
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Endpoint
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Endpoint -> ByteString) -> Endpoint -> 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))
                          Endpoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Endpoint
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  GetNexusEndpointResponse
  GetNexusEndpointResponse
  FieldSet
  FieldSet
-> GetNexusEndpointResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  GetNexusEndpointResponse
  GetNexusEndpointResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' GetNexusEndpointResponse FieldSet
Data.ProtoLens.unknownFields GetNexusEndpointResponse
_x))
instance Control.DeepSeq.NFData GetNexusEndpointResponse where
  rnf :: GetNexusEndpointResponse -> ()
rnf
    = \ GetNexusEndpointResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (GetNexusEndpointResponse -> FieldSet
_GetNexusEndpointResponse'_unknownFields GetNexusEndpointResponse
x__)
             (Maybe Endpoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (GetNexusEndpointResponse -> Maybe Endpoint
_GetNexusEndpointResponse'endpoint GetNexusEndpointResponse
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.pageSize' @:: Lens' ListClustersRequest Data.Int.Int32@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.nextPageToken' @:: Lens' ListClustersRequest Data.ByteString.ByteString@ -}
data ListClustersRequest
  = ListClustersRequest'_constructor {ListClustersRequest -> Int32
_ListClustersRequest'pageSize :: !Data.Int.Int32,
                                      ListClustersRequest -> ByteString
_ListClustersRequest'nextPageToken :: !Data.ByteString.ByteString,
                                      ListClustersRequest -> FieldSet
_ListClustersRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ListClustersRequest -> ListClustersRequest -> Bool
(ListClustersRequest -> ListClustersRequest -> Bool)
-> (ListClustersRequest -> ListClustersRequest -> Bool)
-> Eq ListClustersRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListClustersRequest -> ListClustersRequest -> Bool
== :: ListClustersRequest -> ListClustersRequest -> Bool
$c/= :: ListClustersRequest -> ListClustersRequest -> Bool
/= :: ListClustersRequest -> ListClustersRequest -> Bool
Prelude.Eq, Eq ListClustersRequest
Eq ListClustersRequest =>
(ListClustersRequest -> ListClustersRequest -> Ordering)
-> (ListClustersRequest -> ListClustersRequest -> Bool)
-> (ListClustersRequest -> ListClustersRequest -> Bool)
-> (ListClustersRequest -> ListClustersRequest -> Bool)
-> (ListClustersRequest -> ListClustersRequest -> Bool)
-> (ListClustersRequest
    -> ListClustersRequest -> ListClustersRequest)
-> (ListClustersRequest
    -> ListClustersRequest -> ListClustersRequest)
-> Ord ListClustersRequest
ListClustersRequest -> ListClustersRequest -> Bool
ListClustersRequest -> ListClustersRequest -> Ordering
ListClustersRequest -> ListClustersRequest -> ListClustersRequest
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 :: ListClustersRequest -> ListClustersRequest -> Ordering
compare :: ListClustersRequest -> ListClustersRequest -> Ordering
$c< :: ListClustersRequest -> ListClustersRequest -> Bool
< :: ListClustersRequest -> ListClustersRequest -> Bool
$c<= :: ListClustersRequest -> ListClustersRequest -> Bool
<= :: ListClustersRequest -> ListClustersRequest -> Bool
$c> :: ListClustersRequest -> ListClustersRequest -> Bool
> :: ListClustersRequest -> ListClustersRequest -> Bool
$c>= :: ListClustersRequest -> ListClustersRequest -> Bool
>= :: ListClustersRequest -> ListClustersRequest -> Bool
$cmax :: ListClustersRequest -> ListClustersRequest -> ListClustersRequest
max :: ListClustersRequest -> ListClustersRequest -> ListClustersRequest
$cmin :: ListClustersRequest -> ListClustersRequest -> ListClustersRequest
min :: ListClustersRequest -> ListClustersRequest -> ListClustersRequest
Prelude.Ord)
instance Prelude.Show ListClustersRequest where
  showsPrec :: Int -> ListClustersRequest -> ShowS
showsPrec Int
_ ListClustersRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ListClustersRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ListClustersRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ListClustersRequest "pageSize" Data.Int.Int32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "pageSize"
-> (Int32 -> f Int32)
-> ListClustersRequest
-> f ListClustersRequest
fieldOf Proxy# "pageSize"
_
    = ((Int32 -> f Int32)
 -> ListClustersRequest -> f ListClustersRequest)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ListClustersRequest
-> f ListClustersRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListClustersRequest -> Int32)
-> (ListClustersRequest -> Int32 -> ListClustersRequest)
-> Lens ListClustersRequest ListClustersRequest Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListClustersRequest -> Int32
_ListClustersRequest'pageSize
           (\ ListClustersRequest
x__ Int32
y__ -> ListClustersRequest
x__ {_ListClustersRequest'pageSize = y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ListClustersRequest "nextPageToken" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nextPageToken"
-> (ByteString -> f ByteString)
-> ListClustersRequest
-> f ListClustersRequest
fieldOf Proxy# "nextPageToken"
_
    = ((ByteString -> f ByteString)
 -> ListClustersRequest -> f ListClustersRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> ListClustersRequest
-> f ListClustersRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListClustersRequest -> ByteString)
-> (ListClustersRequest -> ByteString -> ListClustersRequest)
-> Lens
     ListClustersRequest ListClustersRequest ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListClustersRequest -> ByteString
_ListClustersRequest'nextPageToken
           (\ ListClustersRequest
x__ ByteString
y__ -> ListClustersRequest
x__ {_ListClustersRequest'nextPageToken = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ListClustersRequest where
  messageName :: Proxy ListClustersRequest -> Text
messageName Proxy ListClustersRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.ListClustersRequest"
  packedMessageDescriptor :: Proxy ListClustersRequest -> ByteString
packedMessageDescriptor Proxy ListClustersRequest
_
    = ByteString
"\n\
      \\DC3ListClustersRequest\DC2\ESC\n\
      \\tpage_size\CAN\SOH \SOH(\ENQR\bpageSize\DC2&\n\
      \\SInext_page_token\CAN\STX \SOH(\fR\rnextPageToken"
  packedFileDescriptor :: Proxy ListClustersRequest -> ByteString
packedFileDescriptor Proxy ListClustersRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ListClustersRequest)
fieldsByTag
    = let
        pageSize__field_descriptor :: FieldDescriptor ListClustersRequest
pageSize__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor ListClustersRequest Int32
-> FieldDescriptor ListClustersRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"page_size"
              (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 ListClustersRequest ListClustersRequest Int32 Int32
-> FieldAccessor ListClustersRequest 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 @"pageSize")) ::
              Data.ProtoLens.FieldDescriptor ListClustersRequest
        nextPageToken__field_descriptor :: FieldDescriptor ListClustersRequest
nextPageToken__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor ListClustersRequest ByteString
-> FieldDescriptor ListClustersRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"next_page_token"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens
     ListClustersRequest ListClustersRequest ByteString ByteString
-> FieldAccessor ListClustersRequest ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nextPageToken")) ::
              Data.ProtoLens.FieldDescriptor ListClustersRequest
      in
        [(Tag, FieldDescriptor ListClustersRequest)]
-> Map Tag (FieldDescriptor ListClustersRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ListClustersRequest
pageSize__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ListClustersRequest
nextPageToken__field_descriptor)]
  unknownFields :: Lens' ListClustersRequest FieldSet
unknownFields
    = (ListClustersRequest -> FieldSet)
-> (ListClustersRequest -> FieldSet -> ListClustersRequest)
-> Lens' ListClustersRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ListClustersRequest -> FieldSet
_ListClustersRequest'_unknownFields
        (\ ListClustersRequest
x__ FieldSet
y__ -> ListClustersRequest
x__ {_ListClustersRequest'_unknownFields = y__})
  defMessage :: ListClustersRequest
defMessage
    = ListClustersRequest'_constructor
        {_ListClustersRequest'pageSize :: Int32
_ListClustersRequest'pageSize = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListClustersRequest'nextPageToken :: ByteString
_ListClustersRequest'nextPageToken = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListClustersRequest'_unknownFields :: FieldSet
_ListClustersRequest'_unknownFields = []}
  parseMessage :: Parser ListClustersRequest
parseMessage
    = let
        loop ::
          ListClustersRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser ListClustersRequest
        loop :: ListClustersRequest -> Parser ListClustersRequest
loop ListClustersRequest
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"page_size"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"pageSize") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"next_page_token"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"nextPageToken") 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 ListClustersRequest -> String -> Parser ListClustersRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ListClustersRequest -> Parser ListClustersRequest
loop ListClustersRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ListClustersRequest"
  buildMessage :: ListClustersRequest -> Builder
buildMessage
    = \ ListClustersRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int32
_v = FoldLike Int32 ListClustersRequest ListClustersRequest Int32 Int32
-> ListClustersRequest -> 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 @"pageSize") ListClustersRequest
_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 :: ByteString
_v
                     = FoldLike
  ByteString
  ListClustersRequest
  ListClustersRequest
  ByteString
  ByteString
-> ListClustersRequest -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nextPageToken") ListClustersRequest
_x
                 in
                   if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            ByteString
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet ListClustersRequest ListClustersRequest FieldSet FieldSet
-> ListClustersRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet ListClustersRequest ListClustersRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ListClustersRequest FieldSet
Data.ProtoLens.unknownFields ListClustersRequest
_x)))
instance Control.DeepSeq.NFData ListClustersRequest where
  rnf :: ListClustersRequest -> ()
rnf
    = \ ListClustersRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ListClustersRequest -> FieldSet
_ListClustersRequest'_unknownFields ListClustersRequest
x__)
             (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ListClustersRequest -> Int32
_ListClustersRequest'pageSize ListClustersRequest
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ListClustersRequest -> ByteString
_ListClustersRequest'nextPageToken ListClustersRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.clusters' @:: Lens' ListClustersResponse [ClusterMetadata]@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.vec'clusters' @:: Lens' ListClustersResponse (Data.Vector.Vector ClusterMetadata)@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.nextPageToken' @:: Lens' ListClustersResponse Data.ByteString.ByteString@ -}
data ListClustersResponse
  = ListClustersResponse'_constructor {ListClustersResponse -> Vector ClusterMetadata
_ListClustersResponse'clusters :: !(Data.Vector.Vector ClusterMetadata),
                                       ListClustersResponse -> ByteString
_ListClustersResponse'nextPageToken :: !Data.ByteString.ByteString,
                                       ListClustersResponse -> FieldSet
_ListClustersResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ListClustersResponse -> ListClustersResponse -> Bool
(ListClustersResponse -> ListClustersResponse -> Bool)
-> (ListClustersResponse -> ListClustersResponse -> Bool)
-> Eq ListClustersResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListClustersResponse -> ListClustersResponse -> Bool
== :: ListClustersResponse -> ListClustersResponse -> Bool
$c/= :: ListClustersResponse -> ListClustersResponse -> Bool
/= :: ListClustersResponse -> ListClustersResponse -> Bool
Prelude.Eq, Eq ListClustersResponse
Eq ListClustersResponse =>
(ListClustersResponse -> ListClustersResponse -> Ordering)
-> (ListClustersResponse -> ListClustersResponse -> Bool)
-> (ListClustersResponse -> ListClustersResponse -> Bool)
-> (ListClustersResponse -> ListClustersResponse -> Bool)
-> (ListClustersResponse -> ListClustersResponse -> Bool)
-> (ListClustersResponse
    -> ListClustersResponse -> ListClustersResponse)
-> (ListClustersResponse
    -> ListClustersResponse -> ListClustersResponse)
-> Ord ListClustersResponse
ListClustersResponse -> ListClustersResponse -> Bool
ListClustersResponse -> ListClustersResponse -> Ordering
ListClustersResponse
-> ListClustersResponse -> ListClustersResponse
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 :: ListClustersResponse -> ListClustersResponse -> Ordering
compare :: ListClustersResponse -> ListClustersResponse -> Ordering
$c< :: ListClustersResponse -> ListClustersResponse -> Bool
< :: ListClustersResponse -> ListClustersResponse -> Bool
$c<= :: ListClustersResponse -> ListClustersResponse -> Bool
<= :: ListClustersResponse -> ListClustersResponse -> Bool
$c> :: ListClustersResponse -> ListClustersResponse -> Bool
> :: ListClustersResponse -> ListClustersResponse -> Bool
$c>= :: ListClustersResponse -> ListClustersResponse -> Bool
>= :: ListClustersResponse -> ListClustersResponse -> Bool
$cmax :: ListClustersResponse
-> ListClustersResponse -> ListClustersResponse
max :: ListClustersResponse
-> ListClustersResponse -> ListClustersResponse
$cmin :: ListClustersResponse
-> ListClustersResponse -> ListClustersResponse
min :: ListClustersResponse
-> ListClustersResponse -> ListClustersResponse
Prelude.Ord)
instance Prelude.Show ListClustersResponse where
  showsPrec :: Int -> ListClustersResponse -> ShowS
showsPrec Int
_ ListClustersResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ListClustersResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ListClustersResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ListClustersResponse "clusters" [ClusterMetadata] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "clusters"
-> ([ClusterMetadata] -> f [ClusterMetadata])
-> ListClustersResponse
-> f ListClustersResponse
fieldOf Proxy# "clusters"
_
    = ((Vector ClusterMetadata -> f (Vector ClusterMetadata))
 -> ListClustersResponse -> f ListClustersResponse)
-> (([ClusterMetadata] -> f [ClusterMetadata])
    -> Vector ClusterMetadata -> f (Vector ClusterMetadata))
-> ([ClusterMetadata] -> f [ClusterMetadata])
-> ListClustersResponse
-> f ListClustersResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListClustersResponse -> Vector ClusterMetadata)
-> (ListClustersResponse
    -> Vector ClusterMetadata -> ListClustersResponse)
-> Lens
     ListClustersResponse
     ListClustersResponse
     (Vector ClusterMetadata)
     (Vector ClusterMetadata)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListClustersResponse -> Vector ClusterMetadata
_ListClustersResponse'clusters
           (\ ListClustersResponse
x__ Vector ClusterMetadata
y__ -> ListClustersResponse
x__ {_ListClustersResponse'clusters = y__}))
        ((Vector ClusterMetadata -> [ClusterMetadata])
-> (Vector ClusterMetadata
    -> [ClusterMetadata] -> Vector ClusterMetadata)
-> Lens
     (Vector ClusterMetadata)
     (Vector ClusterMetadata)
     [ClusterMetadata]
     [ClusterMetadata]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ClusterMetadata -> [ClusterMetadata]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector ClusterMetadata
_ [ClusterMetadata]
y__ -> [ClusterMetadata] -> Vector ClusterMetadata
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ClusterMetadata]
y__))
instance Data.ProtoLens.Field.HasField ListClustersResponse "vec'clusters" (Data.Vector.Vector ClusterMetadata) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'clusters"
-> (Vector ClusterMetadata -> f (Vector ClusterMetadata))
-> ListClustersResponse
-> f ListClustersResponse
fieldOf Proxy# "vec'clusters"
_
    = ((Vector ClusterMetadata -> f (Vector ClusterMetadata))
 -> ListClustersResponse -> f ListClustersResponse)
-> ((Vector ClusterMetadata -> f (Vector ClusterMetadata))
    -> Vector ClusterMetadata -> f (Vector ClusterMetadata))
-> (Vector ClusterMetadata -> f (Vector ClusterMetadata))
-> ListClustersResponse
-> f ListClustersResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListClustersResponse -> Vector ClusterMetadata)
-> (ListClustersResponse
    -> Vector ClusterMetadata -> ListClustersResponse)
-> Lens
     ListClustersResponse
     ListClustersResponse
     (Vector ClusterMetadata)
     (Vector ClusterMetadata)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListClustersResponse -> Vector ClusterMetadata
_ListClustersResponse'clusters
           (\ ListClustersResponse
x__ Vector ClusterMetadata
y__ -> ListClustersResponse
x__ {_ListClustersResponse'clusters = y__}))
        (Vector ClusterMetadata -> f (Vector ClusterMetadata))
-> Vector ClusterMetadata -> f (Vector ClusterMetadata)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ListClustersResponse "nextPageToken" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nextPageToken"
-> (ByteString -> f ByteString)
-> ListClustersResponse
-> f ListClustersResponse
fieldOf Proxy# "nextPageToken"
_
    = ((ByteString -> f ByteString)
 -> ListClustersResponse -> f ListClustersResponse)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> ListClustersResponse
-> f ListClustersResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListClustersResponse -> ByteString)
-> (ListClustersResponse -> ByteString -> ListClustersResponse)
-> Lens
     ListClustersResponse ListClustersResponse ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListClustersResponse -> ByteString
_ListClustersResponse'nextPageToken
           (\ ListClustersResponse
x__ ByteString
y__ -> ListClustersResponse
x__ {_ListClustersResponse'nextPageToken = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ListClustersResponse where
  messageName :: Proxy ListClustersResponse -> Text
messageName Proxy ListClustersResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.ListClustersResponse"
  packedMessageDescriptor :: Proxy ListClustersResponse -> ByteString
packedMessageDescriptor Proxy ListClustersResponse
_
    = ByteString
"\n\
      \\DC4ListClustersResponse\DC2L\n\
      \\bclusters\CAN\SOH \ETX(\v20.temporal.api.operatorservice.v1.ClusterMetadataR\bclusters\DC2&\n\
      \\SInext_page_token\CAN\EOT \SOH(\fR\rnextPageToken"
  packedFileDescriptor :: Proxy ListClustersResponse -> ByteString
packedFileDescriptor Proxy ListClustersResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ListClustersResponse)
fieldsByTag
    = let
        clusters__field_descriptor :: FieldDescriptor ListClustersResponse
clusters__field_descriptor
          = String
-> FieldTypeDescriptor ClusterMetadata
-> FieldAccessor ListClustersResponse ClusterMetadata
-> FieldDescriptor ListClustersResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"clusters"
              (MessageOrGroup -> FieldTypeDescriptor ClusterMetadata
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ClusterMetadata)
              (Packing
-> Lens' ListClustersResponse [ClusterMetadata]
-> FieldAccessor ListClustersResponse ClusterMetadata
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 @"clusters")) ::
              Data.ProtoLens.FieldDescriptor ListClustersResponse
        nextPageToken__field_descriptor :: FieldDescriptor ListClustersResponse
nextPageToken__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor ListClustersResponse ByteString
-> FieldDescriptor ListClustersResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"next_page_token"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens
     ListClustersResponse ListClustersResponse ByteString ByteString
-> FieldAccessor ListClustersResponse ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nextPageToken")) ::
              Data.ProtoLens.FieldDescriptor ListClustersResponse
      in
        [(Tag, FieldDescriptor ListClustersResponse)]
-> Map Tag (FieldDescriptor ListClustersResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ListClustersResponse
clusters__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ListClustersResponse
nextPageToken__field_descriptor)]
  unknownFields :: Lens' ListClustersResponse FieldSet
unknownFields
    = (ListClustersResponse -> FieldSet)
-> (ListClustersResponse -> FieldSet -> ListClustersResponse)
-> Lens' ListClustersResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ListClustersResponse -> FieldSet
_ListClustersResponse'_unknownFields
        (\ ListClustersResponse
x__ FieldSet
y__ -> ListClustersResponse
x__ {_ListClustersResponse'_unknownFields = y__})
  defMessage :: ListClustersResponse
defMessage
    = ListClustersResponse'_constructor
        {_ListClustersResponse'clusters :: Vector ClusterMetadata
_ListClustersResponse'clusters = Vector ClusterMetadata
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ListClustersResponse'nextPageToken :: ByteString
_ListClustersResponse'nextPageToken = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListClustersResponse'_unknownFields :: FieldSet
_ListClustersResponse'_unknownFields = []}
  parseMessage :: Parser ListClustersResponse
parseMessage
    = let
        loop ::
          ListClustersResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ClusterMetadata
             -> Data.ProtoLens.Encoding.Bytes.Parser ListClustersResponse
        loop :: ListClustersResponse
-> Growing Vector RealWorld ClusterMetadata
-> Parser ListClustersResponse
loop ListClustersResponse
x Growing Vector RealWorld ClusterMetadata
mutable'clusters
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'clusters <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              mutable'clusters)
                      (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'clusters") frozen'clusters x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser ClusterMetadata -> String -> Parser ClusterMetadata
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
"clusters"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'clusters y)
                                loop x v
                        Word64
34
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"next_page_token"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"nextPageToken") y x)
                                  mutable'clusters
                        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'clusters
      in
        Parser ListClustersResponse
-> String -> Parser ListClustersResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'clusters <- IO (Growing Vector RealWorld ClusterMetadata)
-> Parser (Growing Vector RealWorld ClusterMetadata)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    IO (Growing Vector RealWorld ClusterMetadata)
IO (Growing Vector (PrimState IO) ClusterMetadata)
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'clusters)
          String
"ListClustersResponse"
  buildMessage :: ListClustersResponse -> Builder
buildMessage
    = \ ListClustersResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((ClusterMetadata -> Builder) -> Vector ClusterMetadata -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ ClusterMetadata
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (ClusterMetadata -> ByteString) -> ClusterMetadata -> 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))
                           ClusterMetadata -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ClusterMetadata
_v))
                (FoldLike
  (Vector ClusterMetadata)
  ListClustersResponse
  ListClustersResponse
  (Vector ClusterMetadata)
  (Vector ClusterMetadata)
-> ListClustersResponse -> Vector ClusterMetadata
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'clusters") ListClustersResponse
_x))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: ByteString
_v
                     = FoldLike
  ByteString
  ListClustersResponse
  ListClustersResponse
  ByteString
  ByteString
-> ListClustersResponse -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nextPageToken") ListClustersResponse
_x
                 in
                   if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                         ((\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            ByteString
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  ListClustersResponse
  ListClustersResponse
  FieldSet
  FieldSet
-> ListClustersResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ListClustersResponse
  ListClustersResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ListClustersResponse FieldSet
Data.ProtoLens.unknownFields ListClustersResponse
_x)))
instance Control.DeepSeq.NFData ListClustersResponse where
  rnf :: ListClustersResponse -> ()
rnf
    = \ ListClustersResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ListClustersResponse -> FieldSet
_ListClustersResponse'_unknownFields ListClustersResponse
x__)
             (Vector ClusterMetadata -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ListClustersResponse -> Vector ClusterMetadata
_ListClustersResponse'clusters ListClustersResponse
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ListClustersResponse -> ByteString
_ListClustersResponse'nextPageToken ListClustersResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.pageSize' @:: Lens' ListNexusEndpointsRequest Data.Int.Int32@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.nextPageToken' @:: Lens' ListNexusEndpointsRequest Data.ByteString.ByteString@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.name' @:: Lens' ListNexusEndpointsRequest Data.Text.Text@ -}
data ListNexusEndpointsRequest
  = ListNexusEndpointsRequest'_constructor {ListNexusEndpointsRequest -> Int32
_ListNexusEndpointsRequest'pageSize :: !Data.Int.Int32,
                                            ListNexusEndpointsRequest -> ByteString
_ListNexusEndpointsRequest'nextPageToken :: !Data.ByteString.ByteString,
                                            ListNexusEndpointsRequest -> Text
_ListNexusEndpointsRequest'name :: !Data.Text.Text,
                                            ListNexusEndpointsRequest -> FieldSet
_ListNexusEndpointsRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
(ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool)
-> (ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool)
-> Eq ListNexusEndpointsRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
== :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
$c/= :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
/= :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
Prelude.Eq, Eq ListNexusEndpointsRequest
Eq ListNexusEndpointsRequest =>
(ListNexusEndpointsRequest
 -> ListNexusEndpointsRequest -> Ordering)
-> (ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool)
-> (ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool)
-> (ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool)
-> (ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool)
-> (ListNexusEndpointsRequest
    -> ListNexusEndpointsRequest -> ListNexusEndpointsRequest)
-> (ListNexusEndpointsRequest
    -> ListNexusEndpointsRequest -> ListNexusEndpointsRequest)
-> Ord ListNexusEndpointsRequest
ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Ordering
ListNexusEndpointsRequest
-> ListNexusEndpointsRequest -> ListNexusEndpointsRequest
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 :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Ordering
compare :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Ordering
$c< :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
< :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
$c<= :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
<= :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
$c> :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
> :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
$c>= :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
>= :: ListNexusEndpointsRequest -> ListNexusEndpointsRequest -> Bool
$cmax :: ListNexusEndpointsRequest
-> ListNexusEndpointsRequest -> ListNexusEndpointsRequest
max :: ListNexusEndpointsRequest
-> ListNexusEndpointsRequest -> ListNexusEndpointsRequest
$cmin :: ListNexusEndpointsRequest
-> ListNexusEndpointsRequest -> ListNexusEndpointsRequest
min :: ListNexusEndpointsRequest
-> ListNexusEndpointsRequest -> ListNexusEndpointsRequest
Prelude.Ord)
instance Prelude.Show ListNexusEndpointsRequest where
  showsPrec :: Int -> ListNexusEndpointsRequest -> ShowS
showsPrec Int
_ ListNexusEndpointsRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ListNexusEndpointsRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ListNexusEndpointsRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ListNexusEndpointsRequest "pageSize" Data.Int.Int32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "pageSize"
-> (Int32 -> f Int32)
-> ListNexusEndpointsRequest
-> f ListNexusEndpointsRequest
fieldOf Proxy# "pageSize"
_
    = ((Int32 -> f Int32)
 -> ListNexusEndpointsRequest -> f ListNexusEndpointsRequest)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ListNexusEndpointsRequest
-> f ListNexusEndpointsRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListNexusEndpointsRequest -> Int32)
-> (ListNexusEndpointsRequest
    -> Int32 -> ListNexusEndpointsRequest)
-> Lens
     ListNexusEndpointsRequest ListNexusEndpointsRequest Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListNexusEndpointsRequest -> Int32
_ListNexusEndpointsRequest'pageSize
           (\ ListNexusEndpointsRequest
x__ Int32
y__ -> ListNexusEndpointsRequest
x__ {_ListNexusEndpointsRequest'pageSize = y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ListNexusEndpointsRequest "nextPageToken" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nextPageToken"
-> (ByteString -> f ByteString)
-> ListNexusEndpointsRequest
-> f ListNexusEndpointsRequest
fieldOf Proxy# "nextPageToken"
_
    = ((ByteString -> f ByteString)
 -> ListNexusEndpointsRequest -> f ListNexusEndpointsRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> ListNexusEndpointsRequest
-> f ListNexusEndpointsRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListNexusEndpointsRequest -> ByteString)
-> (ListNexusEndpointsRequest
    -> ByteString -> ListNexusEndpointsRequest)
-> Lens
     ListNexusEndpointsRequest
     ListNexusEndpointsRequest
     ByteString
     ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListNexusEndpointsRequest -> ByteString
_ListNexusEndpointsRequest'nextPageToken
           (\ ListNexusEndpointsRequest
x__ ByteString
y__
              -> ListNexusEndpointsRequest
x__ {_ListNexusEndpointsRequest'nextPageToken = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ListNexusEndpointsRequest "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name"
-> (Text -> f Text)
-> ListNexusEndpointsRequest
-> f ListNexusEndpointsRequest
fieldOf Proxy# "name"
_
    = ((Text -> f Text)
 -> ListNexusEndpointsRequest -> f ListNexusEndpointsRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ListNexusEndpointsRequest
-> f ListNexusEndpointsRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListNexusEndpointsRequest -> Text)
-> (ListNexusEndpointsRequest -> Text -> ListNexusEndpointsRequest)
-> Lens
     ListNexusEndpointsRequest ListNexusEndpointsRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListNexusEndpointsRequest -> Text
_ListNexusEndpointsRequest'name
           (\ ListNexusEndpointsRequest
x__ Text
y__ -> ListNexusEndpointsRequest
x__ {_ListNexusEndpointsRequest'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ListNexusEndpointsRequest where
  messageName :: Proxy ListNexusEndpointsRequest -> Text
messageName Proxy ListNexusEndpointsRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.ListNexusEndpointsRequest"
  packedMessageDescriptor :: Proxy ListNexusEndpointsRequest -> ByteString
packedMessageDescriptor Proxy ListNexusEndpointsRequest
_
    = ByteString
"\n\
      \\EMListNexusEndpointsRequest\DC2\ESC\n\
      \\tpage_size\CAN\SOH \SOH(\ENQR\bpageSize\DC2&\n\
      \\SInext_page_token\CAN\STX \SOH(\fR\rnextPageToken\DC2\DC2\n\
      \\EOTname\CAN\ETX \SOH(\tR\EOTname"
  packedFileDescriptor :: Proxy ListNexusEndpointsRequest -> ByteString
packedFileDescriptor Proxy ListNexusEndpointsRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ListNexusEndpointsRequest)
fieldsByTag
    = let
        pageSize__field_descriptor :: FieldDescriptor ListNexusEndpointsRequest
pageSize__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor ListNexusEndpointsRequest Int32
-> FieldDescriptor ListNexusEndpointsRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"page_size"
              (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
     ListNexusEndpointsRequest ListNexusEndpointsRequest Int32 Int32
-> FieldAccessor ListNexusEndpointsRequest 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 @"pageSize")) ::
              Data.ProtoLens.FieldDescriptor ListNexusEndpointsRequest
        nextPageToken__field_descriptor :: FieldDescriptor ListNexusEndpointsRequest
nextPageToken__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor ListNexusEndpointsRequest ByteString
-> FieldDescriptor ListNexusEndpointsRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"next_page_token"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens
     ListNexusEndpointsRequest
     ListNexusEndpointsRequest
     ByteString
     ByteString
-> FieldAccessor ListNexusEndpointsRequest ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nextPageToken")) ::
              Data.ProtoLens.FieldDescriptor ListNexusEndpointsRequest
        name__field_descriptor :: FieldDescriptor ListNexusEndpointsRequest
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ListNexusEndpointsRequest Text
-> FieldDescriptor ListNexusEndpointsRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     ListNexusEndpointsRequest ListNexusEndpointsRequest Text Text
-> FieldAccessor ListNexusEndpointsRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor ListNexusEndpointsRequest
      in
        [(Tag, FieldDescriptor ListNexusEndpointsRequest)]
-> Map Tag (FieldDescriptor ListNexusEndpointsRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ListNexusEndpointsRequest
pageSize__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ListNexusEndpointsRequest
nextPageToken__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ListNexusEndpointsRequest
name__field_descriptor)]
  unknownFields :: Lens' ListNexusEndpointsRequest FieldSet
unknownFields
    = (ListNexusEndpointsRequest -> FieldSet)
-> (ListNexusEndpointsRequest
    -> FieldSet -> ListNexusEndpointsRequest)
-> Lens' ListNexusEndpointsRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ListNexusEndpointsRequest -> FieldSet
_ListNexusEndpointsRequest'_unknownFields
        (\ ListNexusEndpointsRequest
x__ FieldSet
y__
           -> ListNexusEndpointsRequest
x__ {_ListNexusEndpointsRequest'_unknownFields = y__})
  defMessage :: ListNexusEndpointsRequest
defMessage
    = ListNexusEndpointsRequest'_constructor
        {_ListNexusEndpointsRequest'pageSize :: Int32
_ListNexusEndpointsRequest'pageSize = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListNexusEndpointsRequest'nextPageToken :: ByteString
_ListNexusEndpointsRequest'nextPageToken = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListNexusEndpointsRequest'name :: Text
_ListNexusEndpointsRequest'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListNexusEndpointsRequest'_unknownFields :: FieldSet
_ListNexusEndpointsRequest'_unknownFields = []}
  parseMessage :: Parser ListNexusEndpointsRequest
parseMessage
    = let
        loop ::
          ListNexusEndpointsRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser ListNexusEndpointsRequest
        loop :: ListNexusEndpointsRequest -> Parser ListNexusEndpointsRequest
loop ListNexusEndpointsRequest
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"page_size"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"pageSize") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"next_page_token"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"nextPageToken") 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
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") 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 ListNexusEndpointsRequest
-> String -> Parser ListNexusEndpointsRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ListNexusEndpointsRequest -> Parser ListNexusEndpointsRequest
loop ListNexusEndpointsRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ListNexusEndpointsRequest"
  buildMessage :: ListNexusEndpointsRequest -> Builder
buildMessage
    = \ ListNexusEndpointsRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int32
_v = FoldLike
  Int32
  ListNexusEndpointsRequest
  ListNexusEndpointsRequest
  Int32
  Int32
-> ListNexusEndpointsRequest -> 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 @"pageSize") ListNexusEndpointsRequest
_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 :: ByteString
_v
                     = FoldLike
  ByteString
  ListNexusEndpointsRequest
  ListNexusEndpointsRequest
  ByteString
  ByteString
-> ListNexusEndpointsRequest -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nextPageToken") ListNexusEndpointsRequest
_x
                 in
                   if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            ByteString
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let _v :: Text
_v = FoldLike
  Text ListNexusEndpointsRequest ListNexusEndpointsRequest Text Text
-> ListNexusEndpointsRequest -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") ListNexusEndpointsRequest
_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
  ListNexusEndpointsRequest
  ListNexusEndpointsRequest
  FieldSet
  FieldSet
-> ListNexusEndpointsRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ListNexusEndpointsRequest
  ListNexusEndpointsRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ListNexusEndpointsRequest FieldSet
Data.ProtoLens.unknownFields ListNexusEndpointsRequest
_x))))
instance Control.DeepSeq.NFData ListNexusEndpointsRequest where
  rnf :: ListNexusEndpointsRequest -> ()
rnf
    = \ ListNexusEndpointsRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ListNexusEndpointsRequest -> FieldSet
_ListNexusEndpointsRequest'_unknownFields ListNexusEndpointsRequest
x__)
             (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ListNexusEndpointsRequest -> Int32
_ListNexusEndpointsRequest'pageSize ListNexusEndpointsRequest
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ListNexusEndpointsRequest -> ByteString
_ListNexusEndpointsRequest'nextPageToken ListNexusEndpointsRequest
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (ListNexusEndpointsRequest -> Text
_ListNexusEndpointsRequest'name ListNexusEndpointsRequest
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.nextPageToken' @:: Lens' ListNexusEndpointsResponse Data.ByteString.ByteString@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.endpoints' @:: Lens' ListNexusEndpointsResponse [Proto.Temporal.Api.Nexus.V1.Message.Endpoint]@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.vec'endpoints' @:: Lens' ListNexusEndpointsResponse (Data.Vector.Vector Proto.Temporal.Api.Nexus.V1.Message.Endpoint)@ -}
data ListNexusEndpointsResponse
  = ListNexusEndpointsResponse'_constructor {ListNexusEndpointsResponse -> ByteString
_ListNexusEndpointsResponse'nextPageToken :: !Data.ByteString.ByteString,
                                             ListNexusEndpointsResponse -> Vector Endpoint
_ListNexusEndpointsResponse'endpoints :: !(Data.Vector.Vector Proto.Temporal.Api.Nexus.V1.Message.Endpoint),
                                             ListNexusEndpointsResponse -> FieldSet
_ListNexusEndpointsResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
(ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool)
-> (ListNexusEndpointsResponse
    -> ListNexusEndpointsResponse -> Bool)
-> Eq ListNexusEndpointsResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
== :: ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
$c/= :: ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
/= :: ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
Prelude.Eq, Eq ListNexusEndpointsResponse
Eq ListNexusEndpointsResponse =>
(ListNexusEndpointsResponse
 -> ListNexusEndpointsResponse -> Ordering)
-> (ListNexusEndpointsResponse
    -> ListNexusEndpointsResponse -> Bool)
-> (ListNexusEndpointsResponse
    -> ListNexusEndpointsResponse -> Bool)
-> (ListNexusEndpointsResponse
    -> ListNexusEndpointsResponse -> Bool)
-> (ListNexusEndpointsResponse
    -> ListNexusEndpointsResponse -> Bool)
-> (ListNexusEndpointsResponse
    -> ListNexusEndpointsResponse -> ListNexusEndpointsResponse)
-> (ListNexusEndpointsResponse
    -> ListNexusEndpointsResponse -> ListNexusEndpointsResponse)
-> Ord ListNexusEndpointsResponse
ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
ListNexusEndpointsResponse
-> ListNexusEndpointsResponse -> Ordering
ListNexusEndpointsResponse
-> ListNexusEndpointsResponse -> ListNexusEndpointsResponse
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 :: ListNexusEndpointsResponse
-> ListNexusEndpointsResponse -> Ordering
compare :: ListNexusEndpointsResponse
-> ListNexusEndpointsResponse -> Ordering
$c< :: ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
< :: ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
$c<= :: ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
<= :: ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
$c> :: ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
> :: ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
$c>= :: ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
>= :: ListNexusEndpointsResponse -> ListNexusEndpointsResponse -> Bool
$cmax :: ListNexusEndpointsResponse
-> ListNexusEndpointsResponse -> ListNexusEndpointsResponse
max :: ListNexusEndpointsResponse
-> ListNexusEndpointsResponse -> ListNexusEndpointsResponse
$cmin :: ListNexusEndpointsResponse
-> ListNexusEndpointsResponse -> ListNexusEndpointsResponse
min :: ListNexusEndpointsResponse
-> ListNexusEndpointsResponse -> ListNexusEndpointsResponse
Prelude.Ord)
instance Prelude.Show ListNexusEndpointsResponse where
  showsPrec :: Int -> ListNexusEndpointsResponse -> ShowS
showsPrec Int
_ ListNexusEndpointsResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ListNexusEndpointsResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ListNexusEndpointsResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ListNexusEndpointsResponse "nextPageToken" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nextPageToken"
-> (ByteString -> f ByteString)
-> ListNexusEndpointsResponse
-> f ListNexusEndpointsResponse
fieldOf Proxy# "nextPageToken"
_
    = ((ByteString -> f ByteString)
 -> ListNexusEndpointsResponse -> f ListNexusEndpointsResponse)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> ListNexusEndpointsResponse
-> f ListNexusEndpointsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListNexusEndpointsResponse -> ByteString)
-> (ListNexusEndpointsResponse
    -> ByteString -> ListNexusEndpointsResponse)
-> Lens
     ListNexusEndpointsResponse
     ListNexusEndpointsResponse
     ByteString
     ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListNexusEndpointsResponse -> ByteString
_ListNexusEndpointsResponse'nextPageToken
           (\ ListNexusEndpointsResponse
x__ ByteString
y__
              -> ListNexusEndpointsResponse
x__ {_ListNexusEndpointsResponse'nextPageToken = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ListNexusEndpointsResponse "endpoints" [Proto.Temporal.Api.Nexus.V1.Message.Endpoint] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "endpoints"
-> ([Endpoint] -> f [Endpoint])
-> ListNexusEndpointsResponse
-> f ListNexusEndpointsResponse
fieldOf Proxy# "endpoints"
_
    = ((Vector Endpoint -> f (Vector Endpoint))
 -> ListNexusEndpointsResponse -> f ListNexusEndpointsResponse)
-> (([Endpoint] -> f [Endpoint])
    -> Vector Endpoint -> f (Vector Endpoint))
-> ([Endpoint] -> f [Endpoint])
-> ListNexusEndpointsResponse
-> f ListNexusEndpointsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListNexusEndpointsResponse -> Vector Endpoint)
-> (ListNexusEndpointsResponse
    -> Vector Endpoint -> ListNexusEndpointsResponse)
-> Lens
     ListNexusEndpointsResponse
     ListNexusEndpointsResponse
     (Vector Endpoint)
     (Vector Endpoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListNexusEndpointsResponse -> Vector Endpoint
_ListNexusEndpointsResponse'endpoints
           (\ ListNexusEndpointsResponse
x__ Vector Endpoint
y__ -> ListNexusEndpointsResponse
x__ {_ListNexusEndpointsResponse'endpoints = y__}))
        ((Vector Endpoint -> [Endpoint])
-> (Vector Endpoint -> [Endpoint] -> Vector Endpoint)
-> Lens (Vector Endpoint) (Vector Endpoint) [Endpoint] [Endpoint]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Endpoint -> [Endpoint]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Endpoint
_ [Endpoint]
y__ -> [Endpoint] -> Vector Endpoint
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Endpoint]
y__))
instance Data.ProtoLens.Field.HasField ListNexusEndpointsResponse "vec'endpoints" (Data.Vector.Vector Proto.Temporal.Api.Nexus.V1.Message.Endpoint) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'endpoints"
-> (Vector Endpoint -> f (Vector Endpoint))
-> ListNexusEndpointsResponse
-> f ListNexusEndpointsResponse
fieldOf Proxy# "vec'endpoints"
_
    = ((Vector Endpoint -> f (Vector Endpoint))
 -> ListNexusEndpointsResponse -> f ListNexusEndpointsResponse)
-> ((Vector Endpoint -> f (Vector Endpoint))
    -> Vector Endpoint -> f (Vector Endpoint))
-> (Vector Endpoint -> f (Vector Endpoint))
-> ListNexusEndpointsResponse
-> f ListNexusEndpointsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListNexusEndpointsResponse -> Vector Endpoint)
-> (ListNexusEndpointsResponse
    -> Vector Endpoint -> ListNexusEndpointsResponse)
-> Lens
     ListNexusEndpointsResponse
     ListNexusEndpointsResponse
     (Vector Endpoint)
     (Vector Endpoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListNexusEndpointsResponse -> Vector Endpoint
_ListNexusEndpointsResponse'endpoints
           (\ ListNexusEndpointsResponse
x__ Vector Endpoint
y__ -> ListNexusEndpointsResponse
x__ {_ListNexusEndpointsResponse'endpoints = y__}))
        (Vector Endpoint -> f (Vector Endpoint))
-> Vector Endpoint -> f (Vector Endpoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ListNexusEndpointsResponse where
  messageName :: Proxy ListNexusEndpointsResponse -> Text
messageName Proxy ListNexusEndpointsResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.ListNexusEndpointsResponse"
  packedMessageDescriptor :: Proxy ListNexusEndpointsResponse -> ByteString
packedMessageDescriptor Proxy ListNexusEndpointsResponse
_
    = ByteString
"\n\
      \\SUBListNexusEndpointsResponse\DC2&\n\
      \\SInext_page_token\CAN\SOH \SOH(\fR\rnextPageToken\DC2=\n\
      \\tendpoints\CAN\STX \ETX(\v2\US.temporal.api.nexus.v1.EndpointR\tendpoints"
  packedFileDescriptor :: Proxy ListNexusEndpointsResponse -> ByteString
packedFileDescriptor Proxy ListNexusEndpointsResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ListNexusEndpointsResponse)
fieldsByTag
    = let
        nextPageToken__field_descriptor :: FieldDescriptor ListNexusEndpointsResponse
nextPageToken__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor ListNexusEndpointsResponse ByteString
-> FieldDescriptor ListNexusEndpointsResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"next_page_token"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens
     ListNexusEndpointsResponse
     ListNexusEndpointsResponse
     ByteString
     ByteString
-> FieldAccessor ListNexusEndpointsResponse ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nextPageToken")) ::
              Data.ProtoLens.FieldDescriptor ListNexusEndpointsResponse
        endpoints__field_descriptor :: FieldDescriptor ListNexusEndpointsResponse
endpoints__field_descriptor
          = String
-> FieldTypeDescriptor Endpoint
-> FieldAccessor ListNexusEndpointsResponse Endpoint
-> FieldDescriptor ListNexusEndpointsResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"endpoints"
              (MessageOrGroup -> FieldTypeDescriptor Endpoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Nexus.V1.Message.Endpoint)
              (Packing
-> Lens' ListNexusEndpointsResponse [Endpoint]
-> FieldAccessor ListNexusEndpointsResponse Endpoint
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 @"endpoints")) ::
              Data.ProtoLens.FieldDescriptor ListNexusEndpointsResponse
      in
        [(Tag, FieldDescriptor ListNexusEndpointsResponse)]
-> Map Tag (FieldDescriptor ListNexusEndpointsResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ListNexusEndpointsResponse
nextPageToken__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ListNexusEndpointsResponse
endpoints__field_descriptor)]
  unknownFields :: Lens' ListNexusEndpointsResponse FieldSet
unknownFields
    = (ListNexusEndpointsResponse -> FieldSet)
-> (ListNexusEndpointsResponse
    -> FieldSet -> ListNexusEndpointsResponse)
-> Lens' ListNexusEndpointsResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ListNexusEndpointsResponse -> FieldSet
_ListNexusEndpointsResponse'_unknownFields
        (\ ListNexusEndpointsResponse
x__ FieldSet
y__
           -> ListNexusEndpointsResponse
x__ {_ListNexusEndpointsResponse'_unknownFields = y__})
  defMessage :: ListNexusEndpointsResponse
defMessage
    = ListNexusEndpointsResponse'_constructor
        {_ListNexusEndpointsResponse'nextPageToken :: ByteString
_ListNexusEndpointsResponse'nextPageToken = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListNexusEndpointsResponse'endpoints :: Vector Endpoint
_ListNexusEndpointsResponse'endpoints = Vector Endpoint
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ListNexusEndpointsResponse'_unknownFields :: FieldSet
_ListNexusEndpointsResponse'_unknownFields = []}
  parseMessage :: Parser ListNexusEndpointsResponse
parseMessage
    = let
        loop ::
          ListNexusEndpointsResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Temporal.Api.Nexus.V1.Message.Endpoint
             -> Data.ProtoLens.Encoding.Bytes.Parser ListNexusEndpointsResponse
        loop :: ListNexusEndpointsResponse
-> Growing Vector RealWorld Endpoint
-> Parser ListNexusEndpointsResponse
loop ListNexusEndpointsResponse
x Growing Vector RealWorld Endpoint
mutable'endpoints
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'endpoints <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                            (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                               mutable'endpoints)
                      (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'endpoints") frozen'endpoints x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"next_page_token"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"nextPageToken") y x)
                                  mutable'endpoints
                        Word64
18
                          -> do !y <- Parser Endpoint -> String -> Parser Endpoint
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
"endpoints"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'endpoints 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'endpoints
      in
        Parser ListNexusEndpointsResponse
-> String -> Parser ListNexusEndpointsResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'endpoints <- IO (Growing Vector RealWorld Endpoint)
-> Parser (Growing Vector RealWorld Endpoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                     IO (Growing Vector RealWorld Endpoint)
IO (Growing Vector (PrimState IO) Endpoint)
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'endpoints)
          String
"ListNexusEndpointsResponse"
  buildMessage :: ListNexusEndpointsResponse -> Builder
buildMessage
    = \ ListNexusEndpointsResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ByteString
_v
                  = FoldLike
  ByteString
  ListNexusEndpointsResponse
  ListNexusEndpointsResponse
  ByteString
  ByteString
-> ListNexusEndpointsResponse -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nextPageToken") ListNexusEndpointsResponse
_x
              in
                if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((\ ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         ByteString
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Endpoint -> Builder) -> Vector Endpoint -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Endpoint
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (Endpoint -> ByteString) -> Endpoint -> 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))
                              Endpoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Endpoint
_v))
                   (FoldLike
  (Vector Endpoint)
  ListNexusEndpointsResponse
  ListNexusEndpointsResponse
  (Vector Endpoint)
  (Vector Endpoint)
-> ListNexusEndpointsResponse -> Vector Endpoint
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'endpoints") ListNexusEndpointsResponse
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  ListNexusEndpointsResponse
  ListNexusEndpointsResponse
  FieldSet
  FieldSet
-> ListNexusEndpointsResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ListNexusEndpointsResponse
  ListNexusEndpointsResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ListNexusEndpointsResponse FieldSet
Data.ProtoLens.unknownFields ListNexusEndpointsResponse
_x)))
instance Control.DeepSeq.NFData ListNexusEndpointsResponse where
  rnf :: ListNexusEndpointsResponse -> ()
rnf
    = \ ListNexusEndpointsResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ListNexusEndpointsResponse -> FieldSet
_ListNexusEndpointsResponse'_unknownFields ListNexusEndpointsResponse
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ListNexusEndpointsResponse -> ByteString
_ListNexusEndpointsResponse'nextPageToken ListNexusEndpointsResponse
x__)
                (Vector Endpoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ListNexusEndpointsResponse -> Vector Endpoint
_ListNexusEndpointsResponse'endpoints ListNexusEndpointsResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.namespace' @:: Lens' ListSearchAttributesRequest Data.Text.Text@ -}
data ListSearchAttributesRequest
  = ListSearchAttributesRequest'_constructor {ListSearchAttributesRequest -> Text
_ListSearchAttributesRequest'namespace :: !Data.Text.Text,
                                              ListSearchAttributesRequest -> FieldSet
_ListSearchAttributesRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
(ListSearchAttributesRequest
 -> ListSearchAttributesRequest -> Bool)
-> (ListSearchAttributesRequest
    -> ListSearchAttributesRequest -> Bool)
-> Eq ListSearchAttributesRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
== :: ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
$c/= :: ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
/= :: ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
Prelude.Eq, Eq ListSearchAttributesRequest
Eq ListSearchAttributesRequest =>
(ListSearchAttributesRequest
 -> ListSearchAttributesRequest -> Ordering)
-> (ListSearchAttributesRequest
    -> ListSearchAttributesRequest -> Bool)
-> (ListSearchAttributesRequest
    -> ListSearchAttributesRequest -> Bool)
-> (ListSearchAttributesRequest
    -> ListSearchAttributesRequest -> Bool)
-> (ListSearchAttributesRequest
    -> ListSearchAttributesRequest -> Bool)
-> (ListSearchAttributesRequest
    -> ListSearchAttributesRequest -> ListSearchAttributesRequest)
-> (ListSearchAttributesRequest
    -> ListSearchAttributesRequest -> ListSearchAttributesRequest)
-> Ord ListSearchAttributesRequest
ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
ListSearchAttributesRequest
-> ListSearchAttributesRequest -> Ordering
ListSearchAttributesRequest
-> ListSearchAttributesRequest -> ListSearchAttributesRequest
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 :: ListSearchAttributesRequest
-> ListSearchAttributesRequest -> Ordering
compare :: ListSearchAttributesRequest
-> ListSearchAttributesRequest -> Ordering
$c< :: ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
< :: ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
$c<= :: ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
<= :: ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
$c> :: ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
> :: ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
$c>= :: ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
>= :: ListSearchAttributesRequest -> ListSearchAttributesRequest -> Bool
$cmax :: ListSearchAttributesRequest
-> ListSearchAttributesRequest -> ListSearchAttributesRequest
max :: ListSearchAttributesRequest
-> ListSearchAttributesRequest -> ListSearchAttributesRequest
$cmin :: ListSearchAttributesRequest
-> ListSearchAttributesRequest -> ListSearchAttributesRequest
min :: ListSearchAttributesRequest
-> ListSearchAttributesRequest -> ListSearchAttributesRequest
Prelude.Ord)
instance Prelude.Show ListSearchAttributesRequest where
  showsPrec :: Int -> ListSearchAttributesRequest -> ShowS
showsPrec Int
_ ListSearchAttributesRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ListSearchAttributesRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ListSearchAttributesRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ListSearchAttributesRequest "namespace" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespace"
-> (Text -> f Text)
-> ListSearchAttributesRequest
-> f ListSearchAttributesRequest
fieldOf Proxy# "namespace"
_
    = ((Text -> f Text)
 -> ListSearchAttributesRequest -> f ListSearchAttributesRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ListSearchAttributesRequest
-> f ListSearchAttributesRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListSearchAttributesRequest -> Text)
-> (ListSearchAttributesRequest
    -> Text -> ListSearchAttributesRequest)
-> Lens
     ListSearchAttributesRequest ListSearchAttributesRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListSearchAttributesRequest -> Text
_ListSearchAttributesRequest'namespace
           (\ ListSearchAttributesRequest
x__ Text
y__ -> ListSearchAttributesRequest
x__ {_ListSearchAttributesRequest'namespace = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ListSearchAttributesRequest where
  messageName :: Proxy ListSearchAttributesRequest -> Text
messageName Proxy ListSearchAttributesRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.ListSearchAttributesRequest"
  packedMessageDescriptor :: Proxy ListSearchAttributesRequest -> ByteString
packedMessageDescriptor Proxy ListSearchAttributesRequest
_
    = ByteString
"\n\
      \\ESCListSearchAttributesRequest\DC2\FS\n\
      \\tnamespace\CAN\SOH \SOH(\tR\tnamespace"
  packedFileDescriptor :: Proxy ListSearchAttributesRequest -> ByteString
packedFileDescriptor Proxy ListSearchAttributesRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ListSearchAttributesRequest)
fieldsByTag
    = let
        namespace__field_descriptor :: FieldDescriptor ListSearchAttributesRequest
namespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ListSearchAttributesRequest Text
-> FieldDescriptor ListSearchAttributesRequest
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
     ListSearchAttributesRequest ListSearchAttributesRequest Text Text
-> FieldAccessor ListSearchAttributesRequest 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 ListSearchAttributesRequest
      in
        [(Tag, FieldDescriptor ListSearchAttributesRequest)]
-> Map Tag (FieldDescriptor ListSearchAttributesRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ListSearchAttributesRequest
namespace__field_descriptor)]
  unknownFields :: Lens' ListSearchAttributesRequest FieldSet
unknownFields
    = (ListSearchAttributesRequest -> FieldSet)
-> (ListSearchAttributesRequest
    -> FieldSet -> ListSearchAttributesRequest)
-> Lens' ListSearchAttributesRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ListSearchAttributesRequest -> FieldSet
_ListSearchAttributesRequest'_unknownFields
        (\ ListSearchAttributesRequest
x__ FieldSet
y__
           -> ListSearchAttributesRequest
x__ {_ListSearchAttributesRequest'_unknownFields = y__})
  defMessage :: ListSearchAttributesRequest
defMessage
    = ListSearchAttributesRequest'_constructor
        {_ListSearchAttributesRequest'namespace :: Text
_ListSearchAttributesRequest'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListSearchAttributesRequest'_unknownFields :: FieldSet
_ListSearchAttributesRequest'_unknownFields = []}
  parseMessage :: Parser ListSearchAttributesRequest
parseMessage
    = let
        loop ::
          ListSearchAttributesRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser ListSearchAttributesRequest
        loop :: ListSearchAttributesRequest -> Parser ListSearchAttributesRequest
loop ListSearchAttributesRequest
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 ListSearchAttributesRequest
-> String -> Parser ListSearchAttributesRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ListSearchAttributesRequest -> Parser ListSearchAttributesRequest
loop ListSearchAttributesRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ListSearchAttributesRequest"
  buildMessage :: ListSearchAttributesRequest -> Builder
buildMessage
    = \ ListSearchAttributesRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike
  Text
  ListSearchAttributesRequest
  ListSearchAttributesRequest
  Text
  Text
-> ListSearchAttributesRequest -> 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") ListSearchAttributesRequest
_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
  ListSearchAttributesRequest
  ListSearchAttributesRequest
  FieldSet
  FieldSet
-> ListSearchAttributesRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ListSearchAttributesRequest
  ListSearchAttributesRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ListSearchAttributesRequest FieldSet
Data.ProtoLens.unknownFields ListSearchAttributesRequest
_x))
instance Control.DeepSeq.NFData ListSearchAttributesRequest where
  rnf :: ListSearchAttributesRequest -> ()
rnf
    = \ ListSearchAttributesRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ListSearchAttributesRequest -> FieldSet
_ListSearchAttributesRequest'_unknownFields ListSearchAttributesRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ListSearchAttributesRequest -> Text
_ListSearchAttributesRequest'namespace ListSearchAttributesRequest
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.customAttributes' @:: Lens' ListSearchAttributesResponse (Data.Map.Map Data.Text.Text Proto.Temporal.Api.Enums.V1.Common.IndexedValueType)@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.systemAttributes' @:: Lens' ListSearchAttributesResponse (Data.Map.Map Data.Text.Text Proto.Temporal.Api.Enums.V1.Common.IndexedValueType)@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.storageSchema' @:: Lens' ListSearchAttributesResponse (Data.Map.Map Data.Text.Text Data.Text.Text)@ -}
data ListSearchAttributesResponse
  = ListSearchAttributesResponse'_constructor {ListSearchAttributesResponse -> Map Text IndexedValueType
_ListSearchAttributesResponse'customAttributes :: !(Data.Map.Map Data.Text.Text Proto.Temporal.Api.Enums.V1.Common.IndexedValueType),
                                               ListSearchAttributesResponse -> Map Text IndexedValueType
_ListSearchAttributesResponse'systemAttributes :: !(Data.Map.Map Data.Text.Text Proto.Temporal.Api.Enums.V1.Common.IndexedValueType),
                                               ListSearchAttributesResponse -> Map Text Text
_ListSearchAttributesResponse'storageSchema :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
                                               ListSearchAttributesResponse -> FieldSet
_ListSearchAttributesResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
(ListSearchAttributesResponse
 -> ListSearchAttributesResponse -> Bool)
-> (ListSearchAttributesResponse
    -> ListSearchAttributesResponse -> Bool)
-> Eq ListSearchAttributesResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
== :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
$c/= :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
/= :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
Prelude.Eq, Eq ListSearchAttributesResponse
Eq ListSearchAttributesResponse =>
(ListSearchAttributesResponse
 -> ListSearchAttributesResponse -> Ordering)
-> (ListSearchAttributesResponse
    -> ListSearchAttributesResponse -> Bool)
-> (ListSearchAttributesResponse
    -> ListSearchAttributesResponse -> Bool)
-> (ListSearchAttributesResponse
    -> ListSearchAttributesResponse -> Bool)
-> (ListSearchAttributesResponse
    -> ListSearchAttributesResponse -> Bool)
-> (ListSearchAttributesResponse
    -> ListSearchAttributesResponse -> ListSearchAttributesResponse)
-> (ListSearchAttributesResponse
    -> ListSearchAttributesResponse -> ListSearchAttributesResponse)
-> Ord ListSearchAttributesResponse
ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Ordering
ListSearchAttributesResponse
-> ListSearchAttributesResponse -> ListSearchAttributesResponse
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 :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Ordering
compare :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Ordering
$c< :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
< :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
$c<= :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
<= :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
$c> :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
> :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
$c>= :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
>= :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> Bool
$cmax :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> ListSearchAttributesResponse
max :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> ListSearchAttributesResponse
$cmin :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> ListSearchAttributesResponse
min :: ListSearchAttributesResponse
-> ListSearchAttributesResponse -> ListSearchAttributesResponse
Prelude.Ord)
instance Prelude.Show ListSearchAttributesResponse where
  showsPrec :: Int -> ListSearchAttributesResponse -> ShowS
showsPrec Int
_ ListSearchAttributesResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ListSearchAttributesResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ListSearchAttributesResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ListSearchAttributesResponse "customAttributes" (Data.Map.Map Data.Text.Text Proto.Temporal.Api.Enums.V1.Common.IndexedValueType) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "customAttributes"
-> (Map Text IndexedValueType -> f (Map Text IndexedValueType))
-> ListSearchAttributesResponse
-> f ListSearchAttributesResponse
fieldOf Proxy# "customAttributes"
_
    = ((Map Text IndexedValueType -> f (Map Text IndexedValueType))
 -> ListSearchAttributesResponse -> f ListSearchAttributesResponse)
-> ((Map Text IndexedValueType -> f (Map Text IndexedValueType))
    -> Map Text IndexedValueType -> f (Map Text IndexedValueType))
-> (Map Text IndexedValueType -> f (Map Text IndexedValueType))
-> ListSearchAttributesResponse
-> f ListSearchAttributesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListSearchAttributesResponse -> Map Text IndexedValueType)
-> (ListSearchAttributesResponse
    -> Map Text IndexedValueType -> ListSearchAttributesResponse)
-> Lens
     ListSearchAttributesResponse
     ListSearchAttributesResponse
     (Map Text IndexedValueType)
     (Map Text IndexedValueType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListSearchAttributesResponse -> Map Text IndexedValueType
_ListSearchAttributesResponse'customAttributes
           (\ ListSearchAttributesResponse
x__ Map Text IndexedValueType
y__
              -> ListSearchAttributesResponse
x__ {_ListSearchAttributesResponse'customAttributes = y__}))
        (Map Text IndexedValueType -> f (Map Text IndexedValueType))
-> Map Text IndexedValueType -> f (Map Text IndexedValueType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ListSearchAttributesResponse "systemAttributes" (Data.Map.Map Data.Text.Text Proto.Temporal.Api.Enums.V1.Common.IndexedValueType) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "systemAttributes"
-> (Map Text IndexedValueType -> f (Map Text IndexedValueType))
-> ListSearchAttributesResponse
-> f ListSearchAttributesResponse
fieldOf Proxy# "systemAttributes"
_
    = ((Map Text IndexedValueType -> f (Map Text IndexedValueType))
 -> ListSearchAttributesResponse -> f ListSearchAttributesResponse)
-> ((Map Text IndexedValueType -> f (Map Text IndexedValueType))
    -> Map Text IndexedValueType -> f (Map Text IndexedValueType))
-> (Map Text IndexedValueType -> f (Map Text IndexedValueType))
-> ListSearchAttributesResponse
-> f ListSearchAttributesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListSearchAttributesResponse -> Map Text IndexedValueType)
-> (ListSearchAttributesResponse
    -> Map Text IndexedValueType -> ListSearchAttributesResponse)
-> Lens
     ListSearchAttributesResponse
     ListSearchAttributesResponse
     (Map Text IndexedValueType)
     (Map Text IndexedValueType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListSearchAttributesResponse -> Map Text IndexedValueType
_ListSearchAttributesResponse'systemAttributes
           (\ ListSearchAttributesResponse
x__ Map Text IndexedValueType
y__
              -> ListSearchAttributesResponse
x__ {_ListSearchAttributesResponse'systemAttributes = y__}))
        (Map Text IndexedValueType -> f (Map Text IndexedValueType))
-> Map Text IndexedValueType -> f (Map Text IndexedValueType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ListSearchAttributesResponse "storageSchema" (Data.Map.Map Data.Text.Text Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "storageSchema"
-> (Map Text Text -> f (Map Text Text))
-> ListSearchAttributesResponse
-> f ListSearchAttributesResponse
fieldOf Proxy# "storageSchema"
_
    = ((Map Text Text -> f (Map Text Text))
 -> ListSearchAttributesResponse -> f ListSearchAttributesResponse)
-> ((Map Text Text -> f (Map Text Text))
    -> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> ListSearchAttributesResponse
-> f ListSearchAttributesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListSearchAttributesResponse -> Map Text Text)
-> (ListSearchAttributesResponse
    -> Map Text Text -> ListSearchAttributesResponse)
-> Lens
     ListSearchAttributesResponse
     ListSearchAttributesResponse
     (Map Text Text)
     (Map Text Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListSearchAttributesResponse -> Map Text Text
_ListSearchAttributesResponse'storageSchema
           (\ ListSearchAttributesResponse
x__ Map Text Text
y__
              -> ListSearchAttributesResponse
x__ {_ListSearchAttributesResponse'storageSchema = y__}))
        (Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ListSearchAttributesResponse where
  messageName :: Proxy ListSearchAttributesResponse -> Text
messageName Proxy ListSearchAttributesResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.ListSearchAttributesResponse"
  packedMessageDescriptor :: Proxy ListSearchAttributesResponse -> ByteString
packedMessageDescriptor Proxy ListSearchAttributesResponse
_
    = ByteString
"\n\
      \\FSListSearchAttributesResponse\DC2\128\SOH\n\
      \\DC1custom_attributes\CAN\SOH \ETX(\v2S.temporal.api.operatorservice.v1.ListSearchAttributesResponse.CustomAttributesEntryR\DLEcustomAttributes\DC2\128\SOH\n\
      \\DC1system_attributes\CAN\STX \ETX(\v2S.temporal.api.operatorservice.v1.ListSearchAttributesResponse.SystemAttributesEntryR\DLEsystemAttributes\DC2w\n\
      \\SOstorage_schema\CAN\ETX \ETX(\v2P.temporal.api.operatorservice.v1.ListSearchAttributesResponse.StorageSchemaEntryR\rstorageSchema\SUBl\n\
      \\NAKCustomAttributesEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2=\n\
      \\ENQvalue\CAN\STX \SOH(\SO2'.temporal.api.enums.v1.IndexedValueTypeR\ENQvalue:\STX8\SOH\SUBl\n\
      \\NAKSystemAttributesEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2=\n\
      \\ENQvalue\CAN\STX \SOH(\SO2'.temporal.api.enums.v1.IndexedValueTypeR\ENQvalue:\STX8\SOH\SUB@\n\
      \\DC2StorageSchemaEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy ListSearchAttributesResponse -> ByteString
packedFileDescriptor Proxy ListSearchAttributesResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ListSearchAttributesResponse)
fieldsByTag
    = let
        customAttributes__field_descriptor :: FieldDescriptor ListSearchAttributesResponse
customAttributes__field_descriptor
          = String
-> FieldTypeDescriptor
     ListSearchAttributesResponse'CustomAttributesEntry
-> FieldAccessor
     ListSearchAttributesResponse
     ListSearchAttributesResponse'CustomAttributesEntry
-> FieldDescriptor ListSearchAttributesResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"custom_attributes"
              (MessageOrGroup
-> FieldTypeDescriptor
     ListSearchAttributesResponse'CustomAttributesEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ListSearchAttributesResponse'CustomAttributesEntry)
              (Lens' ListSearchAttributesResponse'CustomAttributesEntry Text
-> Lens'
     ListSearchAttributesResponse'CustomAttributesEntry IndexedValueType
-> Lens
     ListSearchAttributesResponse
     ListSearchAttributesResponse
     (Map Text IndexedValueType)
     (Map Text IndexedValueType)
-> FieldAccessor
     ListSearchAttributesResponse
     ListSearchAttributesResponse'CustomAttributesEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"customAttributes")) ::
              Data.ProtoLens.FieldDescriptor ListSearchAttributesResponse
        systemAttributes__field_descriptor :: FieldDescriptor ListSearchAttributesResponse
systemAttributes__field_descriptor
          = String
-> FieldTypeDescriptor
     ListSearchAttributesResponse'SystemAttributesEntry
-> FieldAccessor
     ListSearchAttributesResponse
     ListSearchAttributesResponse'SystemAttributesEntry
-> FieldDescriptor ListSearchAttributesResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"system_attributes"
              (MessageOrGroup
-> FieldTypeDescriptor
     ListSearchAttributesResponse'SystemAttributesEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ListSearchAttributesResponse'SystemAttributesEntry)
              (Lens' ListSearchAttributesResponse'SystemAttributesEntry Text
-> Lens'
     ListSearchAttributesResponse'SystemAttributesEntry IndexedValueType
-> Lens
     ListSearchAttributesResponse
     ListSearchAttributesResponse
     (Map Text IndexedValueType)
     (Map Text IndexedValueType)
-> FieldAccessor
     ListSearchAttributesResponse
     ListSearchAttributesResponse'SystemAttributesEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"systemAttributes")) ::
              Data.ProtoLens.FieldDescriptor ListSearchAttributesResponse
        storageSchema__field_descriptor :: FieldDescriptor ListSearchAttributesResponse
storageSchema__field_descriptor
          = String
-> FieldTypeDescriptor
     ListSearchAttributesResponse'StorageSchemaEntry
-> FieldAccessor
     ListSearchAttributesResponse
     ListSearchAttributesResponse'StorageSchemaEntry
-> FieldDescriptor ListSearchAttributesResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"storage_schema"
              (MessageOrGroup
-> FieldTypeDescriptor
     ListSearchAttributesResponse'StorageSchemaEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ListSearchAttributesResponse'StorageSchemaEntry)
              (Lens' ListSearchAttributesResponse'StorageSchemaEntry Text
-> Lens' ListSearchAttributesResponse'StorageSchemaEntry Text
-> Lens
     ListSearchAttributesResponse
     ListSearchAttributesResponse
     (Map Text Text)
     (Map Text Text)
-> FieldAccessor
     ListSearchAttributesResponse
     ListSearchAttributesResponse'StorageSchemaEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"storageSchema")) ::
              Data.ProtoLens.FieldDescriptor ListSearchAttributesResponse
      in
        [(Tag, FieldDescriptor ListSearchAttributesResponse)]
-> Map Tag (FieldDescriptor ListSearchAttributesResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ListSearchAttributesResponse
customAttributes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ListSearchAttributesResponse
systemAttributes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ListSearchAttributesResponse
storageSchema__field_descriptor)]
  unknownFields :: Lens' ListSearchAttributesResponse FieldSet
unknownFields
    = (ListSearchAttributesResponse -> FieldSet)
-> (ListSearchAttributesResponse
    -> FieldSet -> ListSearchAttributesResponse)
-> Lens' ListSearchAttributesResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ListSearchAttributesResponse -> FieldSet
_ListSearchAttributesResponse'_unknownFields
        (\ ListSearchAttributesResponse
x__ FieldSet
y__
           -> ListSearchAttributesResponse
x__ {_ListSearchAttributesResponse'_unknownFields = y__})
  defMessage :: ListSearchAttributesResponse
defMessage
    = ListSearchAttributesResponse'_constructor
        {_ListSearchAttributesResponse'customAttributes :: Map Text IndexedValueType
_ListSearchAttributesResponse'customAttributes = Map Text IndexedValueType
forall k a. Map k a
Data.Map.empty,
         _ListSearchAttributesResponse'systemAttributes :: Map Text IndexedValueType
_ListSearchAttributesResponse'systemAttributes = Map Text IndexedValueType
forall k a. Map k a
Data.Map.empty,
         _ListSearchAttributesResponse'storageSchema :: Map Text Text
_ListSearchAttributesResponse'storageSchema = Map Text Text
forall k a. Map k a
Data.Map.empty,
         _ListSearchAttributesResponse'_unknownFields :: FieldSet
_ListSearchAttributesResponse'_unknownFields = []}
  parseMessage :: Parser ListSearchAttributesResponse
parseMessage
    = let
        loop ::
          ListSearchAttributesResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser ListSearchAttributesResponse
        loop :: ListSearchAttributesResponse -> Parser ListSearchAttributesResponse
loop ListSearchAttributesResponse
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !(entry :: ListSearchAttributesResponse'CustomAttributesEntry) <- Parser ListSearchAttributesResponse'CustomAttributesEntry
-> String
-> Parser ListSearchAttributesResponse'CustomAttributesEntry
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
"custom_attributes"
                                (let
                                   key = FoldLike
  Text
  ListSearchAttributesResponse'CustomAttributesEntry
  ListSearchAttributesResponse'CustomAttributesEntry
  Text
  Text
-> ListSearchAttributesResponse'CustomAttributesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ListSearchAttributesResponse'CustomAttributesEntry
entry
                                   value
                                     = FoldLike
  IndexedValueType
  ListSearchAttributesResponse'CustomAttributesEntry
  ListSearchAttributesResponse'CustomAttributesEntry
  IndexedValueType
  IndexedValueType
-> ListSearchAttributesResponse'CustomAttributesEntry
-> IndexedValueType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ListSearchAttributesResponse'CustomAttributesEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"customAttributes")
                                        (\ !Map Text IndexedValueType
t -> Text
-> IndexedValueType
-> Map Text IndexedValueType
-> Map Text IndexedValueType
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key IndexedValueType
value Map Text IndexedValueType
t) x))
                        Word64
18
                          -> do !(entry :: ListSearchAttributesResponse'SystemAttributesEntry) <- Parser ListSearchAttributesResponse'SystemAttributesEntry
-> String
-> Parser ListSearchAttributesResponse'SystemAttributesEntry
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
"system_attributes"
                                (let
                                   key = FoldLike
  Text
  ListSearchAttributesResponse'SystemAttributesEntry
  ListSearchAttributesResponse'SystemAttributesEntry
  Text
  Text
-> ListSearchAttributesResponse'SystemAttributesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ListSearchAttributesResponse'SystemAttributesEntry
entry
                                   value
                                     = FoldLike
  IndexedValueType
  ListSearchAttributesResponse'SystemAttributesEntry
  ListSearchAttributesResponse'SystemAttributesEntry
  IndexedValueType
  IndexedValueType
-> ListSearchAttributesResponse'SystemAttributesEntry
-> IndexedValueType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ListSearchAttributesResponse'SystemAttributesEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"systemAttributes")
                                        (\ !Map Text IndexedValueType
t -> Text
-> IndexedValueType
-> Map Text IndexedValueType
-> Map Text IndexedValueType
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key IndexedValueType
value Map Text IndexedValueType
t) x))
                        Word64
26
                          -> do !(entry :: ListSearchAttributesResponse'StorageSchemaEntry) <- Parser ListSearchAttributesResponse'StorageSchemaEntry
-> String -> Parser ListSearchAttributesResponse'StorageSchemaEntry
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
"storage_schema"
                                (let
                                   key = FoldLike
  Text
  ListSearchAttributesResponse'StorageSchemaEntry
  ListSearchAttributesResponse'StorageSchemaEntry
  Text
  Text
-> ListSearchAttributesResponse'StorageSchemaEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ListSearchAttributesResponse'StorageSchemaEntry
entry
                                   value
                                     = FoldLike
  Text
  ListSearchAttributesResponse'StorageSchemaEntry
  ListSearchAttributesResponse'StorageSchemaEntry
  Text
  Text
-> ListSearchAttributesResponse'StorageSchemaEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ListSearchAttributesResponse'StorageSchemaEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"storageSchema")
                                        (\ !Map Text Text
t -> Text -> Text -> Map Text Text -> Map Text Text
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Text
value Map Text Text
t) x))
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ListSearchAttributesResponse
-> String -> Parser ListSearchAttributesResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ListSearchAttributesResponse -> Parser ListSearchAttributesResponse
loop ListSearchAttributesResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ListSearchAttributesResponse"
  buildMessage :: ListSearchAttributesResponse -> Builder
buildMessage
    = \ ListSearchAttributesResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                (((Text, IndexedValueType) -> Builder)
-> [(Text, IndexedValueType)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                   (\ (Text, IndexedValueType)
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                           ((ByteString -> Builder)
-> (ListSearchAttributesResponse'CustomAttributesEntry
    -> ByteString)
-> ListSearchAttributesResponse'CustomAttributesEntry
-> 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))
                              ListSearchAttributesResponse'CustomAttributesEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              (Setter
  ListSearchAttributesResponse'CustomAttributesEntry
  ListSearchAttributesResponse'CustomAttributesEntry
  Text
  Text
-> Text
-> ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, IndexedValueType) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, IndexedValueType)
_v)
                                 (Setter
  ListSearchAttributesResponse'CustomAttributesEntry
  ListSearchAttributesResponse'CustomAttributesEntry
  IndexedValueType
  IndexedValueType
-> IndexedValueType
-> ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ((Text, IndexedValueType) -> IndexedValueType
forall a b. (a, b) -> b
Prelude.snd (Text, IndexedValueType)
_v)
                                    (ListSearchAttributesResponse'CustomAttributesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                       ListSearchAttributesResponse'CustomAttributesEntry)))))
                   (Map Text IndexedValueType -> [(Text, IndexedValueType)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                      (FoldLike
  (Map Text IndexedValueType)
  ListSearchAttributesResponse
  ListSearchAttributesResponse
  (Map Text IndexedValueType)
  (Map Text IndexedValueType)
-> ListSearchAttributesResponse -> Map Text IndexedValueType
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 @"customAttributes") ListSearchAttributesResponse
_x))))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                   (((Text, IndexedValueType) -> Builder)
-> [(Text, IndexedValueType)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                      (\ (Text, IndexedValueType)
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                              ((ByteString -> Builder)
-> (ListSearchAttributesResponse'SystemAttributesEntry
    -> ByteString)
-> ListSearchAttributesResponse'SystemAttributesEntry
-> 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))
                                 ListSearchAttributesResponse'SystemAttributesEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                 (Setter
  ListSearchAttributesResponse'SystemAttributesEntry
  ListSearchAttributesResponse'SystemAttributesEntry
  Text
  Text
-> Text
-> ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, IndexedValueType) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, IndexedValueType)
_v)
                                    (Setter
  ListSearchAttributesResponse'SystemAttributesEntry
  ListSearchAttributesResponse'SystemAttributesEntry
  IndexedValueType
  IndexedValueType
-> IndexedValueType
-> ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ((Text, IndexedValueType) -> IndexedValueType
forall a b. (a, b) -> b
Prelude.snd (Text, IndexedValueType)
_v)
                                       (ListSearchAttributesResponse'SystemAttributesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                          ListSearchAttributesResponse'SystemAttributesEntry)))))
                      (Map Text IndexedValueType -> [(Text, IndexedValueType)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                         (FoldLike
  (Map Text IndexedValueType)
  ListSearchAttributesResponse
  ListSearchAttributesResponse
  (Map Text IndexedValueType)
  (Map Text IndexedValueType)
-> ListSearchAttributesResponse -> Map Text IndexedValueType
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 @"systemAttributes") ListSearchAttributesResponse
_x))))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                      (((Text, Text) -> Builder) -> [(Text, Text)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                         (\ (Text, Text)
_v
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                                 ((ByteString -> Builder)
-> (ListSearchAttributesResponse'StorageSchemaEntry -> ByteString)
-> ListSearchAttributesResponse'StorageSchemaEntry
-> 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))
                                    ListSearchAttributesResponse'StorageSchemaEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                    (Setter
  ListSearchAttributesResponse'StorageSchemaEntry
  ListSearchAttributesResponse'StorageSchemaEntry
  Text
  Text
-> Text
-> ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, Text) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Text)
_v)
                                       (Setter
  ListSearchAttributesResponse'StorageSchemaEntry
  ListSearchAttributesResponse'StorageSchemaEntry
  Text
  Text
-> Text
-> ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ((Text, Text) -> Text
forall a b. (a, b) -> b
Prelude.snd (Text, Text)
_v)
                                          (ListSearchAttributesResponse'StorageSchemaEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                             ListSearchAttributesResponse'StorageSchemaEntry)))))
                         (Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                            (FoldLike
  (Map Text Text)
  ListSearchAttributesResponse
  ListSearchAttributesResponse
  (Map Text Text)
  (Map Text Text)
-> ListSearchAttributesResponse -> Map Text Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                               (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"storageSchema") ListSearchAttributesResponse
_x))))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  ListSearchAttributesResponse
  ListSearchAttributesResponse
  FieldSet
  FieldSet
-> ListSearchAttributesResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ListSearchAttributesResponse
  ListSearchAttributesResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ListSearchAttributesResponse FieldSet
Data.ProtoLens.unknownFields ListSearchAttributesResponse
_x))))
instance Control.DeepSeq.NFData ListSearchAttributesResponse where
  rnf :: ListSearchAttributesResponse -> ()
rnf
    = \ ListSearchAttributesResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ListSearchAttributesResponse -> FieldSet
_ListSearchAttributesResponse'_unknownFields ListSearchAttributesResponse
x__)
             (Map Text IndexedValueType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ListSearchAttributesResponse -> Map Text IndexedValueType
_ListSearchAttributesResponse'customAttributes ListSearchAttributesResponse
x__)
                (Map Text IndexedValueType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ListSearchAttributesResponse -> Map Text IndexedValueType
_ListSearchAttributesResponse'systemAttributes ListSearchAttributesResponse
x__)
                   (Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (ListSearchAttributesResponse -> Map Text Text
_ListSearchAttributesResponse'storageSchema ListSearchAttributesResponse
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.key' @:: Lens' ListSearchAttributesResponse'CustomAttributesEntry Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.value' @:: Lens' ListSearchAttributesResponse'CustomAttributesEntry Proto.Temporal.Api.Enums.V1.Common.IndexedValueType@ -}
data ListSearchAttributesResponse'CustomAttributesEntry
  = ListSearchAttributesResponse'CustomAttributesEntry'_constructor {ListSearchAttributesResponse'CustomAttributesEntry -> Text
_ListSearchAttributesResponse'CustomAttributesEntry'key :: !Data.Text.Text,
                                                                     ListSearchAttributesResponse'CustomAttributesEntry
-> IndexedValueType
_ListSearchAttributesResponse'CustomAttributesEntry'value :: !Proto.Temporal.Api.Enums.V1.Common.IndexedValueType,
                                                                     ListSearchAttributesResponse'CustomAttributesEntry -> FieldSet
_ListSearchAttributesResponse'CustomAttributesEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
(ListSearchAttributesResponse'CustomAttributesEntry
 -> ListSearchAttributesResponse'CustomAttributesEntry -> Bool)
-> (ListSearchAttributesResponse'CustomAttributesEntry
    -> ListSearchAttributesResponse'CustomAttributesEntry -> Bool)
-> Eq ListSearchAttributesResponse'CustomAttributesEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
== :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
$c/= :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
/= :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
Prelude.Eq, Eq ListSearchAttributesResponse'CustomAttributesEntry
Eq ListSearchAttributesResponse'CustomAttributesEntry =>
(ListSearchAttributesResponse'CustomAttributesEntry
 -> ListSearchAttributesResponse'CustomAttributesEntry -> Ordering)
-> (ListSearchAttributesResponse'CustomAttributesEntry
    -> ListSearchAttributesResponse'CustomAttributesEntry -> Bool)
-> (ListSearchAttributesResponse'CustomAttributesEntry
    -> ListSearchAttributesResponse'CustomAttributesEntry -> Bool)
-> (ListSearchAttributesResponse'CustomAttributesEntry
    -> ListSearchAttributesResponse'CustomAttributesEntry -> Bool)
-> (ListSearchAttributesResponse'CustomAttributesEntry
    -> ListSearchAttributesResponse'CustomAttributesEntry -> Bool)
-> (ListSearchAttributesResponse'CustomAttributesEntry
    -> ListSearchAttributesResponse'CustomAttributesEntry
    -> ListSearchAttributesResponse'CustomAttributesEntry)
-> (ListSearchAttributesResponse'CustomAttributesEntry
    -> ListSearchAttributesResponse'CustomAttributesEntry
    -> ListSearchAttributesResponse'CustomAttributesEntry)
-> Ord ListSearchAttributesResponse'CustomAttributesEntry
ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Ordering
ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry
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 :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Ordering
compare :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Ordering
$c< :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
< :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
$c<= :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
<= :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
$c> :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
> :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
$c>= :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
>= :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry -> Bool
$cmax :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry
max :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry
$cmin :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry
min :: ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry
-> ListSearchAttributesResponse'CustomAttributesEntry
Prelude.Ord)
instance Prelude.Show ListSearchAttributesResponse'CustomAttributesEntry where
  showsPrec :: Int -> ListSearchAttributesResponse'CustomAttributesEntry -> ShowS
showsPrec Int
_ ListSearchAttributesResponse'CustomAttributesEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ListSearchAttributesResponse'CustomAttributesEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ListSearchAttributesResponse'CustomAttributesEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ListSearchAttributesResponse'CustomAttributesEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> ListSearchAttributesResponse'CustomAttributesEntry
-> f ListSearchAttributesResponse'CustomAttributesEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> ListSearchAttributesResponse'CustomAttributesEntry
 -> f ListSearchAttributesResponse'CustomAttributesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ListSearchAttributesResponse'CustomAttributesEntry
-> f ListSearchAttributesResponse'CustomAttributesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListSearchAttributesResponse'CustomAttributesEntry -> Text)
-> (ListSearchAttributesResponse'CustomAttributesEntry
    -> Text -> ListSearchAttributesResponse'CustomAttributesEntry)
-> Lens' ListSearchAttributesResponse'CustomAttributesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListSearchAttributesResponse'CustomAttributesEntry -> Text
_ListSearchAttributesResponse'CustomAttributesEntry'key
           (\ ListSearchAttributesResponse'CustomAttributesEntry
x__ Text
y__
              -> ListSearchAttributesResponse'CustomAttributesEntry
x__
                   {_ListSearchAttributesResponse'CustomAttributesEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ListSearchAttributesResponse'CustomAttributesEntry "value" Proto.Temporal.Api.Enums.V1.Common.IndexedValueType where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (IndexedValueType -> f IndexedValueType)
-> ListSearchAttributesResponse'CustomAttributesEntry
-> f ListSearchAttributesResponse'CustomAttributesEntry
fieldOf Proxy# "value"
_
    = ((IndexedValueType -> f IndexedValueType)
 -> ListSearchAttributesResponse'CustomAttributesEntry
 -> f ListSearchAttributesResponse'CustomAttributesEntry)
-> ((IndexedValueType -> f IndexedValueType)
    -> IndexedValueType -> f IndexedValueType)
-> (IndexedValueType -> f IndexedValueType)
-> ListSearchAttributesResponse'CustomAttributesEntry
-> f ListSearchAttributesResponse'CustomAttributesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListSearchAttributesResponse'CustomAttributesEntry
 -> IndexedValueType)
-> (ListSearchAttributesResponse'CustomAttributesEntry
    -> IndexedValueType
    -> ListSearchAttributesResponse'CustomAttributesEntry)
-> Lens'
     ListSearchAttributesResponse'CustomAttributesEntry IndexedValueType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListSearchAttributesResponse'CustomAttributesEntry
-> IndexedValueType
_ListSearchAttributesResponse'CustomAttributesEntry'value
           (\ ListSearchAttributesResponse'CustomAttributesEntry
x__ IndexedValueType
y__
              -> ListSearchAttributesResponse'CustomAttributesEntry
x__
                   {_ListSearchAttributesResponse'CustomAttributesEntry'value = y__}))
        (IndexedValueType -> f IndexedValueType)
-> IndexedValueType -> f IndexedValueType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ListSearchAttributesResponse'CustomAttributesEntry where
  messageName :: Proxy ListSearchAttributesResponse'CustomAttributesEntry -> Text
messageName Proxy ListSearchAttributesResponse'CustomAttributesEntry
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.ListSearchAttributesResponse.CustomAttributesEntry"
  packedMessageDescriptor :: Proxy ListSearchAttributesResponse'CustomAttributesEntry
-> ByteString
packedMessageDescriptor Proxy ListSearchAttributesResponse'CustomAttributesEntry
_
    = ByteString
"\n\
      \\NAKCustomAttributesEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2=\n\
      \\ENQvalue\CAN\STX \SOH(\SO2'.temporal.api.enums.v1.IndexedValueTypeR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy ListSearchAttributesResponse'CustomAttributesEntry
-> ByteString
packedFileDescriptor Proxy ListSearchAttributesResponse'CustomAttributesEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map
  Tag
  (FieldDescriptor
     ListSearchAttributesResponse'CustomAttributesEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor ListSearchAttributesResponse'CustomAttributesEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor
     ListSearchAttributesResponse'CustomAttributesEntry Text
-> FieldDescriptor
     ListSearchAttributesResponse'CustomAttributesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' ListSearchAttributesResponse'CustomAttributesEntry Text
-> FieldAccessor
     ListSearchAttributesResponse'CustomAttributesEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor ListSearchAttributesResponse'CustomAttributesEntry
        value__field_descriptor :: FieldDescriptor ListSearchAttributesResponse'CustomAttributesEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor IndexedValueType
-> FieldAccessor
     ListSearchAttributesResponse'CustomAttributesEntry IndexedValueType
-> FieldDescriptor
     ListSearchAttributesResponse'CustomAttributesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (ScalarField IndexedValueType
-> FieldTypeDescriptor IndexedValueType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField IndexedValueType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Common.IndexedValueType)
              (WireDefault IndexedValueType
-> Lens'
     ListSearchAttributesResponse'CustomAttributesEntry IndexedValueType
-> FieldAccessor
     ListSearchAttributesResponse'CustomAttributesEntry IndexedValueType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault IndexedValueType
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor ListSearchAttributesResponse'CustomAttributesEntry
      in
        [(Tag,
  FieldDescriptor
    ListSearchAttributesResponse'CustomAttributesEntry)]
-> Map
     Tag
     (FieldDescriptor
        ListSearchAttributesResponse'CustomAttributesEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ListSearchAttributesResponse'CustomAttributesEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ListSearchAttributesResponse'CustomAttributesEntry
value__field_descriptor)]
  unknownFields :: Lens' ListSearchAttributesResponse'CustomAttributesEntry FieldSet
unknownFields
    = (ListSearchAttributesResponse'CustomAttributesEntry -> FieldSet)
-> (ListSearchAttributesResponse'CustomAttributesEntry
    -> FieldSet -> ListSearchAttributesResponse'CustomAttributesEntry)
-> Lens'
     ListSearchAttributesResponse'CustomAttributesEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ListSearchAttributesResponse'CustomAttributesEntry -> FieldSet
_ListSearchAttributesResponse'CustomAttributesEntry'_unknownFields
        (\ ListSearchAttributesResponse'CustomAttributesEntry
x__ FieldSet
y__
           -> ListSearchAttributesResponse'CustomAttributesEntry
x__
                {_ListSearchAttributesResponse'CustomAttributesEntry'_unknownFields = y__})
  defMessage :: ListSearchAttributesResponse'CustomAttributesEntry
defMessage
    = ListSearchAttributesResponse'CustomAttributesEntry'_constructor
        {_ListSearchAttributesResponse'CustomAttributesEntry'key :: Text
_ListSearchAttributesResponse'CustomAttributesEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListSearchAttributesResponse'CustomAttributesEntry'value :: IndexedValueType
_ListSearchAttributesResponse'CustomAttributesEntry'value = IndexedValueType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListSearchAttributesResponse'CustomAttributesEntry'_unknownFields :: FieldSet
_ListSearchAttributesResponse'CustomAttributesEntry'_unknownFields = []}
  parseMessage :: Parser ListSearchAttributesResponse'CustomAttributesEntry
parseMessage
    = let
        loop ::
          ListSearchAttributesResponse'CustomAttributesEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser ListSearchAttributesResponse'CustomAttributesEntry
        loop :: ListSearchAttributesResponse'CustomAttributesEntry
-> Parser ListSearchAttributesResponse'CustomAttributesEntry
loop ListSearchAttributesResponse'CustomAttributesEntry
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
16
                          -> do y <- Parser IndexedValueType -> String -> Parser IndexedValueType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> IndexedValueType) -> Parser Int -> Parser IndexedValueType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> IndexedValueType
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
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ListSearchAttributesResponse'CustomAttributesEntry
-> String
-> Parser ListSearchAttributesResponse'CustomAttributesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ListSearchAttributesResponse'CustomAttributesEntry
-> Parser ListSearchAttributesResponse'CustomAttributesEntry
loop ListSearchAttributesResponse'CustomAttributesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CustomAttributesEntry"
  buildMessage :: ListSearchAttributesResponse'CustomAttributesEntry -> Builder
buildMessage
    = \ ListSearchAttributesResponse'CustomAttributesEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  ListSearchAttributesResponse'CustomAttributesEntry
  ListSearchAttributesResponse'CustomAttributesEntry
  Text
  Text
-> ListSearchAttributesResponse'CustomAttributesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ListSearchAttributesResponse'CustomAttributesEntry
_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 :: IndexedValueType
_v = FoldLike
  IndexedValueType
  ListSearchAttributesResponse'CustomAttributesEntry
  ListSearchAttributesResponse'CustomAttributesEntry
  IndexedValueType
  IndexedValueType
-> ListSearchAttributesResponse'CustomAttributesEntry
-> IndexedValueType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ListSearchAttributesResponse'CustomAttributesEntry
_x
                 in
                   if IndexedValueType -> IndexedValueType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) IndexedValueType
_v IndexedValueType
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)
-> (IndexedValueType -> Int) -> IndexedValueType -> 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)
                            IndexedValueType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum IndexedValueType
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  ListSearchAttributesResponse'CustomAttributesEntry
  ListSearchAttributesResponse'CustomAttributesEntry
  FieldSet
  FieldSet
-> ListSearchAttributesResponse'CustomAttributesEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ListSearchAttributesResponse'CustomAttributesEntry
  ListSearchAttributesResponse'CustomAttributesEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ListSearchAttributesResponse'CustomAttributesEntry FieldSet
Data.ProtoLens.unknownFields ListSearchAttributesResponse'CustomAttributesEntry
_x)))
instance Control.DeepSeq.NFData ListSearchAttributesResponse'CustomAttributesEntry where
  rnf :: ListSearchAttributesResponse'CustomAttributesEntry -> ()
rnf
    = \ ListSearchAttributesResponse'CustomAttributesEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ListSearchAttributesResponse'CustomAttributesEntry -> FieldSet
_ListSearchAttributesResponse'CustomAttributesEntry'_unknownFields
                ListSearchAttributesResponse'CustomAttributesEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ListSearchAttributesResponse'CustomAttributesEntry -> Text
_ListSearchAttributesResponse'CustomAttributesEntry'key ListSearchAttributesResponse'CustomAttributesEntry
x__)
                (IndexedValueType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ListSearchAttributesResponse'CustomAttributesEntry
-> IndexedValueType
_ListSearchAttributesResponse'CustomAttributesEntry'value ListSearchAttributesResponse'CustomAttributesEntry
x__)
                   ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.key' @:: Lens' ListSearchAttributesResponse'StorageSchemaEntry Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.value' @:: Lens' ListSearchAttributesResponse'StorageSchemaEntry Data.Text.Text@ -}
data ListSearchAttributesResponse'StorageSchemaEntry
  = ListSearchAttributesResponse'StorageSchemaEntry'_constructor {ListSearchAttributesResponse'StorageSchemaEntry -> Text
_ListSearchAttributesResponse'StorageSchemaEntry'key :: !Data.Text.Text,
                                                                  ListSearchAttributesResponse'StorageSchemaEntry -> Text
_ListSearchAttributesResponse'StorageSchemaEntry'value :: !Data.Text.Text,
                                                                  ListSearchAttributesResponse'StorageSchemaEntry -> FieldSet
_ListSearchAttributesResponse'StorageSchemaEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
(ListSearchAttributesResponse'StorageSchemaEntry
 -> ListSearchAttributesResponse'StorageSchemaEntry -> Bool)
-> (ListSearchAttributesResponse'StorageSchemaEntry
    -> ListSearchAttributesResponse'StorageSchemaEntry -> Bool)
-> Eq ListSearchAttributesResponse'StorageSchemaEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
== :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
$c/= :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
/= :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
Prelude.Eq, Eq ListSearchAttributesResponse'StorageSchemaEntry
Eq ListSearchAttributesResponse'StorageSchemaEntry =>
(ListSearchAttributesResponse'StorageSchemaEntry
 -> ListSearchAttributesResponse'StorageSchemaEntry -> Ordering)
-> (ListSearchAttributesResponse'StorageSchemaEntry
    -> ListSearchAttributesResponse'StorageSchemaEntry -> Bool)
-> (ListSearchAttributesResponse'StorageSchemaEntry
    -> ListSearchAttributesResponse'StorageSchemaEntry -> Bool)
-> (ListSearchAttributesResponse'StorageSchemaEntry
    -> ListSearchAttributesResponse'StorageSchemaEntry -> Bool)
-> (ListSearchAttributesResponse'StorageSchemaEntry
    -> ListSearchAttributesResponse'StorageSchemaEntry -> Bool)
-> (ListSearchAttributesResponse'StorageSchemaEntry
    -> ListSearchAttributesResponse'StorageSchemaEntry
    -> ListSearchAttributesResponse'StorageSchemaEntry)
-> (ListSearchAttributesResponse'StorageSchemaEntry
    -> ListSearchAttributesResponse'StorageSchemaEntry
    -> ListSearchAttributesResponse'StorageSchemaEntry)
-> Ord ListSearchAttributesResponse'StorageSchemaEntry
ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Ordering
ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry
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 :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Ordering
compare :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Ordering
$c< :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
< :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
$c<= :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
<= :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
$c> :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
> :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
$c>= :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
>= :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry -> Bool
$cmax :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry
max :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry
$cmin :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry
min :: ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry
-> ListSearchAttributesResponse'StorageSchemaEntry
Prelude.Ord)
instance Prelude.Show ListSearchAttributesResponse'StorageSchemaEntry where
  showsPrec :: Int -> ListSearchAttributesResponse'StorageSchemaEntry -> ShowS
showsPrec Int
_ ListSearchAttributesResponse'StorageSchemaEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ListSearchAttributesResponse'StorageSchemaEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ListSearchAttributesResponse'StorageSchemaEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ListSearchAttributesResponse'StorageSchemaEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> ListSearchAttributesResponse'StorageSchemaEntry
-> f ListSearchAttributesResponse'StorageSchemaEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> ListSearchAttributesResponse'StorageSchemaEntry
 -> f ListSearchAttributesResponse'StorageSchemaEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ListSearchAttributesResponse'StorageSchemaEntry
-> f ListSearchAttributesResponse'StorageSchemaEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListSearchAttributesResponse'StorageSchemaEntry -> Text)
-> (ListSearchAttributesResponse'StorageSchemaEntry
    -> Text -> ListSearchAttributesResponse'StorageSchemaEntry)
-> Lens' ListSearchAttributesResponse'StorageSchemaEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListSearchAttributesResponse'StorageSchemaEntry -> Text
_ListSearchAttributesResponse'StorageSchemaEntry'key
           (\ ListSearchAttributesResponse'StorageSchemaEntry
x__ Text
y__
              -> ListSearchAttributesResponse'StorageSchemaEntry
x__
                   {_ListSearchAttributesResponse'StorageSchemaEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ListSearchAttributesResponse'StorageSchemaEntry "value" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Text -> f Text)
-> ListSearchAttributesResponse'StorageSchemaEntry
-> f ListSearchAttributesResponse'StorageSchemaEntry
fieldOf Proxy# "value"
_
    = ((Text -> f Text)
 -> ListSearchAttributesResponse'StorageSchemaEntry
 -> f ListSearchAttributesResponse'StorageSchemaEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ListSearchAttributesResponse'StorageSchemaEntry
-> f ListSearchAttributesResponse'StorageSchemaEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListSearchAttributesResponse'StorageSchemaEntry -> Text)
-> (ListSearchAttributesResponse'StorageSchemaEntry
    -> Text -> ListSearchAttributesResponse'StorageSchemaEntry)
-> Lens' ListSearchAttributesResponse'StorageSchemaEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListSearchAttributesResponse'StorageSchemaEntry -> Text
_ListSearchAttributesResponse'StorageSchemaEntry'value
           (\ ListSearchAttributesResponse'StorageSchemaEntry
x__ Text
y__
              -> ListSearchAttributesResponse'StorageSchemaEntry
x__
                   {_ListSearchAttributesResponse'StorageSchemaEntry'value = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ListSearchAttributesResponse'StorageSchemaEntry where
  messageName :: Proxy ListSearchAttributesResponse'StorageSchemaEntry -> Text
messageName Proxy ListSearchAttributesResponse'StorageSchemaEntry
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.ListSearchAttributesResponse.StorageSchemaEntry"
  packedMessageDescriptor :: Proxy ListSearchAttributesResponse'StorageSchemaEntry -> ByteString
packedMessageDescriptor Proxy ListSearchAttributesResponse'StorageSchemaEntry
_
    = ByteString
"\n\
      \\DC2StorageSchemaEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy ListSearchAttributesResponse'StorageSchemaEntry -> ByteString
packedFileDescriptor Proxy ListSearchAttributesResponse'StorageSchemaEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map
  Tag
  (FieldDescriptor ListSearchAttributesResponse'StorageSchemaEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor ListSearchAttributesResponse'StorageSchemaEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor
     ListSearchAttributesResponse'StorageSchemaEntry Text
-> FieldDescriptor ListSearchAttributesResponse'StorageSchemaEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' ListSearchAttributesResponse'StorageSchemaEntry Text
-> FieldAccessor
     ListSearchAttributesResponse'StorageSchemaEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor ListSearchAttributesResponse'StorageSchemaEntry
        value__field_descriptor :: FieldDescriptor ListSearchAttributesResponse'StorageSchemaEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor
     ListSearchAttributesResponse'StorageSchemaEntry Text
-> FieldDescriptor ListSearchAttributesResponse'StorageSchemaEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' ListSearchAttributesResponse'StorageSchemaEntry Text
-> FieldAccessor
     ListSearchAttributesResponse'StorageSchemaEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor ListSearchAttributesResponse'StorageSchemaEntry
      in
        [(Tag,
  FieldDescriptor ListSearchAttributesResponse'StorageSchemaEntry)]
-> Map
     Tag
     (FieldDescriptor ListSearchAttributesResponse'StorageSchemaEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ListSearchAttributesResponse'StorageSchemaEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ListSearchAttributesResponse'StorageSchemaEntry
value__field_descriptor)]
  unknownFields :: Lens' ListSearchAttributesResponse'StorageSchemaEntry FieldSet
unknownFields
    = (ListSearchAttributesResponse'StorageSchemaEntry -> FieldSet)
-> (ListSearchAttributesResponse'StorageSchemaEntry
    -> FieldSet -> ListSearchAttributesResponse'StorageSchemaEntry)
-> Lens' ListSearchAttributesResponse'StorageSchemaEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ListSearchAttributesResponse'StorageSchemaEntry -> FieldSet
_ListSearchAttributesResponse'StorageSchemaEntry'_unknownFields
        (\ ListSearchAttributesResponse'StorageSchemaEntry
x__ FieldSet
y__
           -> ListSearchAttributesResponse'StorageSchemaEntry
x__
                {_ListSearchAttributesResponse'StorageSchemaEntry'_unknownFields = y__})
  defMessage :: ListSearchAttributesResponse'StorageSchemaEntry
defMessage
    = ListSearchAttributesResponse'StorageSchemaEntry'_constructor
        {_ListSearchAttributesResponse'StorageSchemaEntry'key :: Text
_ListSearchAttributesResponse'StorageSchemaEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListSearchAttributesResponse'StorageSchemaEntry'value :: Text
_ListSearchAttributesResponse'StorageSchemaEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListSearchAttributesResponse'StorageSchemaEntry'_unknownFields :: FieldSet
_ListSearchAttributesResponse'StorageSchemaEntry'_unknownFields = []}
  parseMessage :: Parser ListSearchAttributesResponse'StorageSchemaEntry
parseMessage
    = let
        loop ::
          ListSearchAttributesResponse'StorageSchemaEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser ListSearchAttributesResponse'StorageSchemaEntry
        loop :: ListSearchAttributesResponse'StorageSchemaEntry
-> Parser ListSearchAttributesResponse'StorageSchemaEntry
loop ListSearchAttributesResponse'StorageSchemaEntry
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ListSearchAttributesResponse'StorageSchemaEntry
-> String -> Parser ListSearchAttributesResponse'StorageSchemaEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ListSearchAttributesResponse'StorageSchemaEntry
-> Parser ListSearchAttributesResponse'StorageSchemaEntry
loop ListSearchAttributesResponse'StorageSchemaEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"StorageSchemaEntry"
  buildMessage :: ListSearchAttributesResponse'StorageSchemaEntry -> Builder
buildMessage
    = \ ListSearchAttributesResponse'StorageSchemaEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  ListSearchAttributesResponse'StorageSchemaEntry
  ListSearchAttributesResponse'StorageSchemaEntry
  Text
  Text
-> ListSearchAttributesResponse'StorageSchemaEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ListSearchAttributesResponse'StorageSchemaEntry
_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
  ListSearchAttributesResponse'StorageSchemaEntry
  ListSearchAttributesResponse'StorageSchemaEntry
  Text
  Text
-> ListSearchAttributesResponse'StorageSchemaEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ListSearchAttributesResponse'StorageSchemaEntry
_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
  ListSearchAttributesResponse'StorageSchemaEntry
  ListSearchAttributesResponse'StorageSchemaEntry
  FieldSet
  FieldSet
-> ListSearchAttributesResponse'StorageSchemaEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ListSearchAttributesResponse'StorageSchemaEntry
  ListSearchAttributesResponse'StorageSchemaEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ListSearchAttributesResponse'StorageSchemaEntry FieldSet
Data.ProtoLens.unknownFields ListSearchAttributesResponse'StorageSchemaEntry
_x)))
instance Control.DeepSeq.NFData ListSearchAttributesResponse'StorageSchemaEntry where
  rnf :: ListSearchAttributesResponse'StorageSchemaEntry -> ()
rnf
    = \ ListSearchAttributesResponse'StorageSchemaEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ListSearchAttributesResponse'StorageSchemaEntry -> FieldSet
_ListSearchAttributesResponse'StorageSchemaEntry'_unknownFields
                ListSearchAttributesResponse'StorageSchemaEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ListSearchAttributesResponse'StorageSchemaEntry -> Text
_ListSearchAttributesResponse'StorageSchemaEntry'key ListSearchAttributesResponse'StorageSchemaEntry
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ListSearchAttributesResponse'StorageSchemaEntry -> Text
_ListSearchAttributesResponse'StorageSchemaEntry'value ListSearchAttributesResponse'StorageSchemaEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.key' @:: Lens' ListSearchAttributesResponse'SystemAttributesEntry Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.value' @:: Lens' ListSearchAttributesResponse'SystemAttributesEntry Proto.Temporal.Api.Enums.V1.Common.IndexedValueType@ -}
data ListSearchAttributesResponse'SystemAttributesEntry
  = ListSearchAttributesResponse'SystemAttributesEntry'_constructor {ListSearchAttributesResponse'SystemAttributesEntry -> Text
_ListSearchAttributesResponse'SystemAttributesEntry'key :: !Data.Text.Text,
                                                                     ListSearchAttributesResponse'SystemAttributesEntry
-> IndexedValueType
_ListSearchAttributesResponse'SystemAttributesEntry'value :: !Proto.Temporal.Api.Enums.V1.Common.IndexedValueType,
                                                                     ListSearchAttributesResponse'SystemAttributesEntry -> FieldSet
_ListSearchAttributesResponse'SystemAttributesEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
(ListSearchAttributesResponse'SystemAttributesEntry
 -> ListSearchAttributesResponse'SystemAttributesEntry -> Bool)
-> (ListSearchAttributesResponse'SystemAttributesEntry
    -> ListSearchAttributesResponse'SystemAttributesEntry -> Bool)
-> Eq ListSearchAttributesResponse'SystemAttributesEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
== :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
$c/= :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
/= :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
Prelude.Eq, Eq ListSearchAttributesResponse'SystemAttributesEntry
Eq ListSearchAttributesResponse'SystemAttributesEntry =>
(ListSearchAttributesResponse'SystemAttributesEntry
 -> ListSearchAttributesResponse'SystemAttributesEntry -> Ordering)
-> (ListSearchAttributesResponse'SystemAttributesEntry
    -> ListSearchAttributesResponse'SystemAttributesEntry -> Bool)
-> (ListSearchAttributesResponse'SystemAttributesEntry
    -> ListSearchAttributesResponse'SystemAttributesEntry -> Bool)
-> (ListSearchAttributesResponse'SystemAttributesEntry
    -> ListSearchAttributesResponse'SystemAttributesEntry -> Bool)
-> (ListSearchAttributesResponse'SystemAttributesEntry
    -> ListSearchAttributesResponse'SystemAttributesEntry -> Bool)
-> (ListSearchAttributesResponse'SystemAttributesEntry
    -> ListSearchAttributesResponse'SystemAttributesEntry
    -> ListSearchAttributesResponse'SystemAttributesEntry)
-> (ListSearchAttributesResponse'SystemAttributesEntry
    -> ListSearchAttributesResponse'SystemAttributesEntry
    -> ListSearchAttributesResponse'SystemAttributesEntry)
-> Ord ListSearchAttributesResponse'SystemAttributesEntry
ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Ordering
ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry
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 :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Ordering
compare :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Ordering
$c< :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
< :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
$c<= :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
<= :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
$c> :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
> :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
$c>= :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
>= :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry -> Bool
$cmax :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry
max :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry
$cmin :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry
min :: ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry
-> ListSearchAttributesResponse'SystemAttributesEntry
Prelude.Ord)
instance Prelude.Show ListSearchAttributesResponse'SystemAttributesEntry where
  showsPrec :: Int -> ListSearchAttributesResponse'SystemAttributesEntry -> ShowS
showsPrec Int
_ ListSearchAttributesResponse'SystemAttributesEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ListSearchAttributesResponse'SystemAttributesEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ListSearchAttributesResponse'SystemAttributesEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ListSearchAttributesResponse'SystemAttributesEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> ListSearchAttributesResponse'SystemAttributesEntry
-> f ListSearchAttributesResponse'SystemAttributesEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> ListSearchAttributesResponse'SystemAttributesEntry
 -> f ListSearchAttributesResponse'SystemAttributesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ListSearchAttributesResponse'SystemAttributesEntry
-> f ListSearchAttributesResponse'SystemAttributesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListSearchAttributesResponse'SystemAttributesEntry -> Text)
-> (ListSearchAttributesResponse'SystemAttributesEntry
    -> Text -> ListSearchAttributesResponse'SystemAttributesEntry)
-> Lens' ListSearchAttributesResponse'SystemAttributesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListSearchAttributesResponse'SystemAttributesEntry -> Text
_ListSearchAttributesResponse'SystemAttributesEntry'key
           (\ ListSearchAttributesResponse'SystemAttributesEntry
x__ Text
y__
              -> ListSearchAttributesResponse'SystemAttributesEntry
x__
                   {_ListSearchAttributesResponse'SystemAttributesEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ListSearchAttributesResponse'SystemAttributesEntry "value" Proto.Temporal.Api.Enums.V1.Common.IndexedValueType where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (IndexedValueType -> f IndexedValueType)
-> ListSearchAttributesResponse'SystemAttributesEntry
-> f ListSearchAttributesResponse'SystemAttributesEntry
fieldOf Proxy# "value"
_
    = ((IndexedValueType -> f IndexedValueType)
 -> ListSearchAttributesResponse'SystemAttributesEntry
 -> f ListSearchAttributesResponse'SystemAttributesEntry)
-> ((IndexedValueType -> f IndexedValueType)
    -> IndexedValueType -> f IndexedValueType)
-> (IndexedValueType -> f IndexedValueType)
-> ListSearchAttributesResponse'SystemAttributesEntry
-> f ListSearchAttributesResponse'SystemAttributesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListSearchAttributesResponse'SystemAttributesEntry
 -> IndexedValueType)
-> (ListSearchAttributesResponse'SystemAttributesEntry
    -> IndexedValueType
    -> ListSearchAttributesResponse'SystemAttributesEntry)
-> Lens'
     ListSearchAttributesResponse'SystemAttributesEntry IndexedValueType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListSearchAttributesResponse'SystemAttributesEntry
-> IndexedValueType
_ListSearchAttributesResponse'SystemAttributesEntry'value
           (\ ListSearchAttributesResponse'SystemAttributesEntry
x__ IndexedValueType
y__
              -> ListSearchAttributesResponse'SystemAttributesEntry
x__
                   {_ListSearchAttributesResponse'SystemAttributesEntry'value = y__}))
        (IndexedValueType -> f IndexedValueType)
-> IndexedValueType -> f IndexedValueType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ListSearchAttributesResponse'SystemAttributesEntry where
  messageName :: Proxy ListSearchAttributesResponse'SystemAttributesEntry -> Text
messageName Proxy ListSearchAttributesResponse'SystemAttributesEntry
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.ListSearchAttributesResponse.SystemAttributesEntry"
  packedMessageDescriptor :: Proxy ListSearchAttributesResponse'SystemAttributesEntry
-> ByteString
packedMessageDescriptor Proxy ListSearchAttributesResponse'SystemAttributesEntry
_
    = ByteString
"\n\
      \\NAKSystemAttributesEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2=\n\
      \\ENQvalue\CAN\STX \SOH(\SO2'.temporal.api.enums.v1.IndexedValueTypeR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy ListSearchAttributesResponse'SystemAttributesEntry
-> ByteString
packedFileDescriptor Proxy ListSearchAttributesResponse'SystemAttributesEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map
  Tag
  (FieldDescriptor
     ListSearchAttributesResponse'SystemAttributesEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor ListSearchAttributesResponse'SystemAttributesEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor
     ListSearchAttributesResponse'SystemAttributesEntry Text
-> FieldDescriptor
     ListSearchAttributesResponse'SystemAttributesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' ListSearchAttributesResponse'SystemAttributesEntry Text
-> FieldAccessor
     ListSearchAttributesResponse'SystemAttributesEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor ListSearchAttributesResponse'SystemAttributesEntry
        value__field_descriptor :: FieldDescriptor ListSearchAttributesResponse'SystemAttributesEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor IndexedValueType
-> FieldAccessor
     ListSearchAttributesResponse'SystemAttributesEntry IndexedValueType
-> FieldDescriptor
     ListSearchAttributesResponse'SystemAttributesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (ScalarField IndexedValueType
-> FieldTypeDescriptor IndexedValueType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField IndexedValueType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Common.IndexedValueType)
              (WireDefault IndexedValueType
-> Lens'
     ListSearchAttributesResponse'SystemAttributesEntry IndexedValueType
-> FieldAccessor
     ListSearchAttributesResponse'SystemAttributesEntry IndexedValueType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault IndexedValueType
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor ListSearchAttributesResponse'SystemAttributesEntry
      in
        [(Tag,
  FieldDescriptor
    ListSearchAttributesResponse'SystemAttributesEntry)]
-> Map
     Tag
     (FieldDescriptor
        ListSearchAttributesResponse'SystemAttributesEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ListSearchAttributesResponse'SystemAttributesEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ListSearchAttributesResponse'SystemAttributesEntry
value__field_descriptor)]
  unknownFields :: Lens' ListSearchAttributesResponse'SystemAttributesEntry FieldSet
unknownFields
    = (ListSearchAttributesResponse'SystemAttributesEntry -> FieldSet)
-> (ListSearchAttributesResponse'SystemAttributesEntry
    -> FieldSet -> ListSearchAttributesResponse'SystemAttributesEntry)
-> Lens'
     ListSearchAttributesResponse'SystemAttributesEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ListSearchAttributesResponse'SystemAttributesEntry -> FieldSet
_ListSearchAttributesResponse'SystemAttributesEntry'_unknownFields
        (\ ListSearchAttributesResponse'SystemAttributesEntry
x__ FieldSet
y__
           -> ListSearchAttributesResponse'SystemAttributesEntry
x__
                {_ListSearchAttributesResponse'SystemAttributesEntry'_unknownFields = y__})
  defMessage :: ListSearchAttributesResponse'SystemAttributesEntry
defMessage
    = ListSearchAttributesResponse'SystemAttributesEntry'_constructor
        {_ListSearchAttributesResponse'SystemAttributesEntry'key :: Text
_ListSearchAttributesResponse'SystemAttributesEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListSearchAttributesResponse'SystemAttributesEntry'value :: IndexedValueType
_ListSearchAttributesResponse'SystemAttributesEntry'value = IndexedValueType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ListSearchAttributesResponse'SystemAttributesEntry'_unknownFields :: FieldSet
_ListSearchAttributesResponse'SystemAttributesEntry'_unknownFields = []}
  parseMessage :: Parser ListSearchAttributesResponse'SystemAttributesEntry
parseMessage
    = let
        loop ::
          ListSearchAttributesResponse'SystemAttributesEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser ListSearchAttributesResponse'SystemAttributesEntry
        loop :: ListSearchAttributesResponse'SystemAttributesEntry
-> Parser ListSearchAttributesResponse'SystemAttributesEntry
loop ListSearchAttributesResponse'SystemAttributesEntry
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
16
                          -> do y <- Parser IndexedValueType -> String -> Parser IndexedValueType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> IndexedValueType) -> Parser Int -> Parser IndexedValueType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> IndexedValueType
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
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ListSearchAttributesResponse'SystemAttributesEntry
-> String
-> Parser ListSearchAttributesResponse'SystemAttributesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ListSearchAttributesResponse'SystemAttributesEntry
-> Parser ListSearchAttributesResponse'SystemAttributesEntry
loop ListSearchAttributesResponse'SystemAttributesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"SystemAttributesEntry"
  buildMessage :: ListSearchAttributesResponse'SystemAttributesEntry -> Builder
buildMessage
    = \ ListSearchAttributesResponse'SystemAttributesEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  ListSearchAttributesResponse'SystemAttributesEntry
  ListSearchAttributesResponse'SystemAttributesEntry
  Text
  Text
-> ListSearchAttributesResponse'SystemAttributesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ListSearchAttributesResponse'SystemAttributesEntry
_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 :: IndexedValueType
_v = FoldLike
  IndexedValueType
  ListSearchAttributesResponse'SystemAttributesEntry
  ListSearchAttributesResponse'SystemAttributesEntry
  IndexedValueType
  IndexedValueType
-> ListSearchAttributesResponse'SystemAttributesEntry
-> IndexedValueType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ListSearchAttributesResponse'SystemAttributesEntry
_x
                 in
                   if IndexedValueType -> IndexedValueType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) IndexedValueType
_v IndexedValueType
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)
-> (IndexedValueType -> Int) -> IndexedValueType -> 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)
                            IndexedValueType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum IndexedValueType
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  ListSearchAttributesResponse'SystemAttributesEntry
  ListSearchAttributesResponse'SystemAttributesEntry
  FieldSet
  FieldSet
-> ListSearchAttributesResponse'SystemAttributesEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ListSearchAttributesResponse'SystemAttributesEntry
  ListSearchAttributesResponse'SystemAttributesEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ListSearchAttributesResponse'SystemAttributesEntry FieldSet
Data.ProtoLens.unknownFields ListSearchAttributesResponse'SystemAttributesEntry
_x)))
instance Control.DeepSeq.NFData ListSearchAttributesResponse'SystemAttributesEntry where
  rnf :: ListSearchAttributesResponse'SystemAttributesEntry -> ()
rnf
    = \ ListSearchAttributesResponse'SystemAttributesEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ListSearchAttributesResponse'SystemAttributesEntry -> FieldSet
_ListSearchAttributesResponse'SystemAttributesEntry'_unknownFields
                ListSearchAttributesResponse'SystemAttributesEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ListSearchAttributesResponse'SystemAttributesEntry -> Text
_ListSearchAttributesResponse'SystemAttributesEntry'key ListSearchAttributesResponse'SystemAttributesEntry
x__)
                (IndexedValueType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ListSearchAttributesResponse'SystemAttributesEntry
-> IndexedValueType
_ListSearchAttributesResponse'SystemAttributesEntry'value ListSearchAttributesResponse'SystemAttributesEntry
x__)
                   ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.clusterName' @:: Lens' RemoveRemoteClusterRequest Data.Text.Text@ -}
data RemoveRemoteClusterRequest
  = RemoveRemoteClusterRequest'_constructor {RemoveRemoteClusterRequest -> Text
_RemoveRemoteClusterRequest'clusterName :: !Data.Text.Text,
                                             RemoveRemoteClusterRequest -> FieldSet
_RemoveRemoteClusterRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
(RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool)
-> (RemoveRemoteClusterRequest
    -> RemoveRemoteClusterRequest -> Bool)
-> Eq RemoveRemoteClusterRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
== :: RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
$c/= :: RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
/= :: RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
Prelude.Eq, Eq RemoveRemoteClusterRequest
Eq RemoveRemoteClusterRequest =>
(RemoveRemoteClusterRequest
 -> RemoveRemoteClusterRequest -> Ordering)
-> (RemoveRemoteClusterRequest
    -> RemoveRemoteClusterRequest -> Bool)
-> (RemoveRemoteClusterRequest
    -> RemoveRemoteClusterRequest -> Bool)
-> (RemoveRemoteClusterRequest
    -> RemoveRemoteClusterRequest -> Bool)
-> (RemoveRemoteClusterRequest
    -> RemoveRemoteClusterRequest -> Bool)
-> (RemoveRemoteClusterRequest
    -> RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest)
-> (RemoveRemoteClusterRequest
    -> RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest)
-> Ord RemoveRemoteClusterRequest
RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
RemoveRemoteClusterRequest
-> RemoveRemoteClusterRequest -> Ordering
RemoveRemoteClusterRequest
-> RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest
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 :: RemoveRemoteClusterRequest
-> RemoveRemoteClusterRequest -> Ordering
compare :: RemoveRemoteClusterRequest
-> RemoveRemoteClusterRequest -> Ordering
$c< :: RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
< :: RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
$c<= :: RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
<= :: RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
$c> :: RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
> :: RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
$c>= :: RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
>= :: RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest -> Bool
$cmax :: RemoveRemoteClusterRequest
-> RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest
max :: RemoveRemoteClusterRequest
-> RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest
$cmin :: RemoveRemoteClusterRequest
-> RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest
min :: RemoveRemoteClusterRequest
-> RemoveRemoteClusterRequest -> RemoveRemoteClusterRequest
Prelude.Ord)
instance Prelude.Show RemoveRemoteClusterRequest where
  showsPrec :: Int -> RemoveRemoteClusterRequest -> ShowS
showsPrec Int
_ RemoveRemoteClusterRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (RemoveRemoteClusterRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RemoveRemoteClusterRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RemoveRemoteClusterRequest "clusterName" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "clusterName"
-> (Text -> f Text)
-> RemoveRemoteClusterRequest
-> f RemoveRemoteClusterRequest
fieldOf Proxy# "clusterName"
_
    = ((Text -> f Text)
 -> RemoveRemoteClusterRequest -> f RemoveRemoteClusterRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> RemoveRemoteClusterRequest
-> f RemoveRemoteClusterRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RemoveRemoteClusterRequest -> Text)
-> (RemoveRemoteClusterRequest
    -> Text -> RemoveRemoteClusterRequest)
-> Lens
     RemoveRemoteClusterRequest RemoveRemoteClusterRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RemoveRemoteClusterRequest -> Text
_RemoveRemoteClusterRequest'clusterName
           (\ RemoveRemoteClusterRequest
x__ Text
y__ -> RemoveRemoteClusterRequest
x__ {_RemoveRemoteClusterRequest'clusterName = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RemoveRemoteClusterRequest where
  messageName :: Proxy RemoveRemoteClusterRequest -> Text
messageName Proxy RemoveRemoteClusterRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.RemoveRemoteClusterRequest"
  packedMessageDescriptor :: Proxy RemoveRemoteClusterRequest -> ByteString
packedMessageDescriptor Proxy RemoveRemoteClusterRequest
_
    = ByteString
"\n\
      \\SUBRemoveRemoteClusterRequest\DC2!\n\
      \\fcluster_name\CAN\SOH \SOH(\tR\vclusterName"
  packedFileDescriptor :: Proxy RemoveRemoteClusterRequest -> ByteString
packedFileDescriptor Proxy RemoveRemoteClusterRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor RemoveRemoteClusterRequest)
fieldsByTag
    = let
        clusterName__field_descriptor :: FieldDescriptor RemoveRemoteClusterRequest
clusterName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor RemoveRemoteClusterRequest Text
-> FieldDescriptor RemoveRemoteClusterRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cluster_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
     RemoveRemoteClusterRequest RemoveRemoteClusterRequest Text Text
-> FieldAccessor RemoveRemoteClusterRequest 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 @"clusterName")) ::
              Data.ProtoLens.FieldDescriptor RemoveRemoteClusterRequest
      in
        [(Tag, FieldDescriptor RemoveRemoteClusterRequest)]
-> Map Tag (FieldDescriptor RemoveRemoteClusterRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RemoveRemoteClusterRequest
clusterName__field_descriptor)]
  unknownFields :: Lens' RemoveRemoteClusterRequest FieldSet
unknownFields
    = (RemoveRemoteClusterRequest -> FieldSet)
-> (RemoveRemoteClusterRequest
    -> FieldSet -> RemoveRemoteClusterRequest)
-> Lens' RemoveRemoteClusterRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        RemoveRemoteClusterRequest -> FieldSet
_RemoveRemoteClusterRequest'_unknownFields
        (\ RemoveRemoteClusterRequest
x__ FieldSet
y__
           -> RemoveRemoteClusterRequest
x__ {_RemoveRemoteClusterRequest'_unknownFields = y__})
  defMessage :: RemoveRemoteClusterRequest
defMessage
    = RemoveRemoteClusterRequest'_constructor
        {_RemoveRemoteClusterRequest'clusterName :: Text
_RemoveRemoteClusterRequest'clusterName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RemoveRemoteClusterRequest'_unknownFields :: FieldSet
_RemoveRemoteClusterRequest'_unknownFields = []}
  parseMessage :: Parser RemoveRemoteClusterRequest
parseMessage
    = let
        loop ::
          RemoveRemoteClusterRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser RemoveRemoteClusterRequest
        loop :: RemoveRemoteClusterRequest -> Parser RemoveRemoteClusterRequest
loop RemoveRemoteClusterRequest
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
"cluster_name"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"clusterName") 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 RemoveRemoteClusterRequest
-> String -> Parser RemoveRemoteClusterRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do RemoveRemoteClusterRequest -> Parser RemoveRemoteClusterRequest
loop RemoveRemoteClusterRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"RemoveRemoteClusterRequest"
  buildMessage :: RemoveRemoteClusterRequest -> Builder
buildMessage
    = \ RemoveRemoteClusterRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text
  RemoveRemoteClusterRequest
  RemoveRemoteClusterRequest
  Text
  Text
-> RemoveRemoteClusterRequest -> 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 @"clusterName") RemoveRemoteClusterRequest
_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
  RemoveRemoteClusterRequest
  RemoveRemoteClusterRequest
  FieldSet
  FieldSet
-> RemoveRemoteClusterRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  RemoveRemoteClusterRequest
  RemoveRemoteClusterRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RemoveRemoteClusterRequest FieldSet
Data.ProtoLens.unknownFields RemoveRemoteClusterRequest
_x))
instance Control.DeepSeq.NFData RemoveRemoteClusterRequest where
  rnf :: RemoveRemoteClusterRequest -> ()
rnf
    = \ RemoveRemoteClusterRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (RemoveRemoteClusterRequest -> FieldSet
_RemoveRemoteClusterRequest'_unknownFields RemoveRemoteClusterRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (RemoveRemoteClusterRequest -> Text
_RemoveRemoteClusterRequest'clusterName RemoveRemoteClusterRequest
x__) ())
{- | Fields :
      -}
data RemoveRemoteClusterResponse
  = RemoveRemoteClusterResponse'_constructor {RemoveRemoteClusterResponse -> FieldSet
_RemoveRemoteClusterResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
(RemoveRemoteClusterResponse
 -> RemoveRemoteClusterResponse -> Bool)
-> (RemoveRemoteClusterResponse
    -> RemoveRemoteClusterResponse -> Bool)
-> Eq RemoveRemoteClusterResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
== :: RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
$c/= :: RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
/= :: RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
Prelude.Eq, Eq RemoveRemoteClusterResponse
Eq RemoveRemoteClusterResponse =>
(RemoveRemoteClusterResponse
 -> RemoveRemoteClusterResponse -> Ordering)
-> (RemoveRemoteClusterResponse
    -> RemoveRemoteClusterResponse -> Bool)
-> (RemoveRemoteClusterResponse
    -> RemoveRemoteClusterResponse -> Bool)
-> (RemoveRemoteClusterResponse
    -> RemoveRemoteClusterResponse -> Bool)
-> (RemoveRemoteClusterResponse
    -> RemoveRemoteClusterResponse -> Bool)
-> (RemoveRemoteClusterResponse
    -> RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse)
-> (RemoveRemoteClusterResponse
    -> RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse)
-> Ord RemoveRemoteClusterResponse
RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
RemoveRemoteClusterResponse
-> RemoveRemoteClusterResponse -> Ordering
RemoveRemoteClusterResponse
-> RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse
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 :: RemoveRemoteClusterResponse
-> RemoveRemoteClusterResponse -> Ordering
compare :: RemoveRemoteClusterResponse
-> RemoveRemoteClusterResponse -> Ordering
$c< :: RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
< :: RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
$c<= :: RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
<= :: RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
$c> :: RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
> :: RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
$c>= :: RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
>= :: RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse -> Bool
$cmax :: RemoveRemoteClusterResponse
-> RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse
max :: RemoveRemoteClusterResponse
-> RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse
$cmin :: RemoveRemoteClusterResponse
-> RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse
min :: RemoveRemoteClusterResponse
-> RemoveRemoteClusterResponse -> RemoveRemoteClusterResponse
Prelude.Ord)
instance Prelude.Show RemoveRemoteClusterResponse where
  showsPrec :: Int -> RemoveRemoteClusterResponse -> ShowS
showsPrec Int
_ RemoveRemoteClusterResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (RemoveRemoteClusterResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RemoveRemoteClusterResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message RemoveRemoteClusterResponse where
  messageName :: Proxy RemoveRemoteClusterResponse -> Text
messageName Proxy RemoveRemoteClusterResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.RemoveRemoteClusterResponse"
  packedMessageDescriptor :: Proxy RemoveRemoteClusterResponse -> ByteString
packedMessageDescriptor Proxy RemoveRemoteClusterResponse
_
    = ByteString
"\n\
      \\ESCRemoveRemoteClusterResponse"
  packedFileDescriptor :: Proxy RemoveRemoteClusterResponse -> ByteString
packedFileDescriptor Proxy RemoveRemoteClusterResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor RemoveRemoteClusterResponse)
fieldsByTag = let in [(Tag, FieldDescriptor RemoveRemoteClusterResponse)]
-> Map Tag (FieldDescriptor RemoveRemoteClusterResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' RemoveRemoteClusterResponse FieldSet
unknownFields
    = (RemoveRemoteClusterResponse -> FieldSet)
-> (RemoveRemoteClusterResponse
    -> FieldSet -> RemoveRemoteClusterResponse)
-> Lens' RemoveRemoteClusterResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        RemoveRemoteClusterResponse -> FieldSet
_RemoveRemoteClusterResponse'_unknownFields
        (\ RemoveRemoteClusterResponse
x__ FieldSet
y__
           -> RemoveRemoteClusterResponse
x__ {_RemoveRemoteClusterResponse'_unknownFields = y__})
  defMessage :: RemoveRemoteClusterResponse
defMessage
    = RemoveRemoteClusterResponse'_constructor
        {_RemoveRemoteClusterResponse'_unknownFields :: FieldSet
_RemoveRemoteClusterResponse'_unknownFields = []}
  parseMessage :: Parser RemoveRemoteClusterResponse
parseMessage
    = let
        loop ::
          RemoveRemoteClusterResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser RemoveRemoteClusterResponse
        loop :: RemoveRemoteClusterResponse -> Parser RemoveRemoteClusterResponse
loop RemoveRemoteClusterResponse
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 RemoveRemoteClusterResponse
-> String -> Parser RemoveRemoteClusterResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do RemoveRemoteClusterResponse -> Parser RemoveRemoteClusterResponse
loop RemoveRemoteClusterResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"RemoveRemoteClusterResponse"
  buildMessage :: RemoveRemoteClusterResponse -> Builder
buildMessage
    = \ RemoveRemoteClusterResponse
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  RemoveRemoteClusterResponse
  RemoveRemoteClusterResponse
  FieldSet
  FieldSet
-> RemoveRemoteClusterResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  RemoveRemoteClusterResponse
  RemoveRemoteClusterResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RemoveRemoteClusterResponse FieldSet
Data.ProtoLens.unknownFields RemoveRemoteClusterResponse
_x)
instance Control.DeepSeq.NFData RemoveRemoteClusterResponse where
  rnf :: RemoveRemoteClusterResponse -> ()
rnf
    = \ RemoveRemoteClusterResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (RemoveRemoteClusterResponse -> FieldSet
_RemoveRemoteClusterResponse'_unknownFields RemoveRemoteClusterResponse
x__) ()
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.searchAttributes' @:: Lens' RemoveSearchAttributesRequest [Data.Text.Text]@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.vec'searchAttributes' @:: Lens' RemoveSearchAttributesRequest (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.namespace' @:: Lens' RemoveSearchAttributesRequest Data.Text.Text@ -}
data RemoveSearchAttributesRequest
  = RemoveSearchAttributesRequest'_constructor {RemoveSearchAttributesRequest -> Vector Text
_RemoveSearchAttributesRequest'searchAttributes :: !(Data.Vector.Vector Data.Text.Text),
                                                RemoveSearchAttributesRequest -> Text
_RemoveSearchAttributesRequest'namespace :: !Data.Text.Text,
                                                RemoveSearchAttributesRequest -> FieldSet
_RemoveSearchAttributesRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
(RemoveSearchAttributesRequest
 -> RemoveSearchAttributesRequest -> Bool)
-> (RemoveSearchAttributesRequest
    -> RemoveSearchAttributesRequest -> Bool)
-> Eq RemoveSearchAttributesRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
== :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
$c/= :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
/= :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
Prelude.Eq, Eq RemoveSearchAttributesRequest
Eq RemoveSearchAttributesRequest =>
(RemoveSearchAttributesRequest
 -> RemoveSearchAttributesRequest -> Ordering)
-> (RemoveSearchAttributesRequest
    -> RemoveSearchAttributesRequest -> Bool)
-> (RemoveSearchAttributesRequest
    -> RemoveSearchAttributesRequest -> Bool)
-> (RemoveSearchAttributesRequest
    -> RemoveSearchAttributesRequest -> Bool)
-> (RemoveSearchAttributesRequest
    -> RemoveSearchAttributesRequest -> Bool)
-> (RemoveSearchAttributesRequest
    -> RemoveSearchAttributesRequest -> RemoveSearchAttributesRequest)
-> (RemoveSearchAttributesRequest
    -> RemoveSearchAttributesRequest -> RemoveSearchAttributesRequest)
-> Ord RemoveSearchAttributesRequest
RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Ordering
RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> RemoveSearchAttributesRequest
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 :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Ordering
compare :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Ordering
$c< :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
< :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
$c<= :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
<= :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
$c> :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
> :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
$c>= :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
>= :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> Bool
$cmax :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> RemoveSearchAttributesRequest
max :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> RemoveSearchAttributesRequest
$cmin :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> RemoveSearchAttributesRequest
min :: RemoveSearchAttributesRequest
-> RemoveSearchAttributesRequest -> RemoveSearchAttributesRequest
Prelude.Ord)
instance Prelude.Show RemoveSearchAttributesRequest where
  showsPrec :: Int -> RemoveSearchAttributesRequest -> ShowS
showsPrec Int
_ RemoveSearchAttributesRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (RemoveSearchAttributesRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RemoveSearchAttributesRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RemoveSearchAttributesRequest "searchAttributes" [Data.Text.Text] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "searchAttributes"
-> ([Text] -> f [Text])
-> RemoveSearchAttributesRequest
-> f RemoveSearchAttributesRequest
fieldOf Proxy# "searchAttributes"
_
    = ((Vector Text -> f (Vector Text))
 -> RemoveSearchAttributesRequest
 -> f RemoveSearchAttributesRequest)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> RemoveSearchAttributesRequest
-> f RemoveSearchAttributesRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RemoveSearchAttributesRequest -> Vector Text)
-> (RemoveSearchAttributesRequest
    -> Vector Text -> RemoveSearchAttributesRequest)
-> Lens
     RemoveSearchAttributesRequest
     RemoveSearchAttributesRequest
     (Vector Text)
     (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RemoveSearchAttributesRequest -> Vector Text
_RemoveSearchAttributesRequest'searchAttributes
           (\ RemoveSearchAttributesRequest
x__ Vector Text
y__
              -> RemoveSearchAttributesRequest
x__ {_RemoveSearchAttributesRequest'searchAttributes = y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField RemoveSearchAttributesRequest "vec'searchAttributes" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'searchAttributes"
-> (Vector Text -> f (Vector Text))
-> RemoveSearchAttributesRequest
-> f RemoveSearchAttributesRequest
fieldOf Proxy# "vec'searchAttributes"
_
    = ((Vector Text -> f (Vector Text))
 -> RemoveSearchAttributesRequest
 -> f RemoveSearchAttributesRequest)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> RemoveSearchAttributesRequest
-> f RemoveSearchAttributesRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RemoveSearchAttributesRequest -> Vector Text)
-> (RemoveSearchAttributesRequest
    -> Vector Text -> RemoveSearchAttributesRequest)
-> Lens
     RemoveSearchAttributesRequest
     RemoveSearchAttributesRequest
     (Vector Text)
     (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RemoveSearchAttributesRequest -> Vector Text
_RemoveSearchAttributesRequest'searchAttributes
           (\ RemoveSearchAttributesRequest
x__ Vector Text
y__
              -> RemoveSearchAttributesRequest
x__ {_RemoveSearchAttributesRequest'searchAttributes = y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RemoveSearchAttributesRequest "namespace" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespace"
-> (Text -> f Text)
-> RemoveSearchAttributesRequest
-> f RemoveSearchAttributesRequest
fieldOf Proxy# "namespace"
_
    = ((Text -> f Text)
 -> RemoveSearchAttributesRequest
 -> f RemoveSearchAttributesRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> RemoveSearchAttributesRequest
-> f RemoveSearchAttributesRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RemoveSearchAttributesRequest -> Text)
-> (RemoveSearchAttributesRequest
    -> Text -> RemoveSearchAttributesRequest)
-> Lens
     RemoveSearchAttributesRequest
     RemoveSearchAttributesRequest
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RemoveSearchAttributesRequest -> Text
_RemoveSearchAttributesRequest'namespace
           (\ RemoveSearchAttributesRequest
x__ Text
y__
              -> RemoveSearchAttributesRequest
x__ {_RemoveSearchAttributesRequest'namespace = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RemoveSearchAttributesRequest where
  messageName :: Proxy RemoveSearchAttributesRequest -> Text
messageName Proxy RemoveSearchAttributesRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.RemoveSearchAttributesRequest"
  packedMessageDescriptor :: Proxy RemoveSearchAttributesRequest -> ByteString
packedMessageDescriptor Proxy RemoveSearchAttributesRequest
_
    = ByteString
"\n\
      \\GSRemoveSearchAttributesRequest\DC2+\n\
      \\DC1search_attributes\CAN\SOH \ETX(\tR\DLEsearchAttributes\DC2\FS\n\
      \\tnamespace\CAN\STX \SOH(\tR\tnamespace"
  packedFileDescriptor :: Proxy RemoveSearchAttributesRequest -> ByteString
packedFileDescriptor Proxy RemoveSearchAttributesRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor RemoveSearchAttributesRequest)
fieldsByTag
    = let
        searchAttributes__field_descriptor :: FieldDescriptor RemoveSearchAttributesRequest
searchAttributes__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor RemoveSearchAttributesRequest Text
-> FieldDescriptor RemoveSearchAttributesRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"search_attributes"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' RemoveSearchAttributesRequest [Text]
-> FieldAccessor RemoveSearchAttributesRequest Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"searchAttributes")) ::
              Data.ProtoLens.FieldDescriptor RemoveSearchAttributesRequest
        namespace__field_descriptor :: FieldDescriptor RemoveSearchAttributesRequest
namespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor RemoveSearchAttributesRequest Text
-> FieldDescriptor RemoveSearchAttributesRequest
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
     RemoveSearchAttributesRequest
     RemoveSearchAttributesRequest
     Text
     Text
-> FieldAccessor RemoveSearchAttributesRequest 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 RemoveSearchAttributesRequest
      in
        [(Tag, FieldDescriptor RemoveSearchAttributesRequest)]
-> Map Tag (FieldDescriptor RemoveSearchAttributesRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RemoveSearchAttributesRequest
searchAttributes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor RemoveSearchAttributesRequest
namespace__field_descriptor)]
  unknownFields :: Lens' RemoveSearchAttributesRequest FieldSet
unknownFields
    = (RemoveSearchAttributesRequest -> FieldSet)
-> (RemoveSearchAttributesRequest
    -> FieldSet -> RemoveSearchAttributesRequest)
-> Lens' RemoveSearchAttributesRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        RemoveSearchAttributesRequest -> FieldSet
_RemoveSearchAttributesRequest'_unknownFields
        (\ RemoveSearchAttributesRequest
x__ FieldSet
y__
           -> RemoveSearchAttributesRequest
x__ {_RemoveSearchAttributesRequest'_unknownFields = y__})
  defMessage :: RemoveSearchAttributesRequest
defMessage
    = RemoveSearchAttributesRequest'_constructor
        {_RemoveSearchAttributesRequest'searchAttributes :: Vector Text
_RemoveSearchAttributesRequest'searchAttributes = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _RemoveSearchAttributesRequest'namespace :: Text
_RemoveSearchAttributesRequest'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RemoveSearchAttributesRequest'_unknownFields :: FieldSet
_RemoveSearchAttributesRequest'_unknownFields = []}
  parseMessage :: Parser RemoveSearchAttributesRequest
parseMessage
    = let
        loop ::
          RemoveSearchAttributesRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Bytes.Parser RemoveSearchAttributesRequest
        loop :: RemoveSearchAttributesRequest
-> Growing Vector RealWorld Text
-> Parser RemoveSearchAttributesRequest
loop RemoveSearchAttributesRequest
x Growing Vector RealWorld Text
mutable'searchAttributes
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'searchAttributes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                   (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                      mutable'searchAttributes)
                      (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'searchAttributes")
                              frozen'searchAttributes 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
"search_attributes"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append
                                          mutable'searchAttributes y)
                                loop x v
                        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
"namespace"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"namespace") y x)
                                  mutable'searchAttributes
                        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'searchAttributes
      in
        Parser RemoveSearchAttributesRequest
-> String -> Parser RemoveSearchAttributesRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'searchAttributes <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                            IO (Growing Vector RealWorld Text)
IO (Growing Vector (PrimState IO) Text)
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'searchAttributes)
          String
"RemoveSearchAttributesRequest"
  buildMessage :: RemoveSearchAttributesRequest -> Builder
buildMessage
    = \ RemoveSearchAttributesRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ Text
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
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))
                (FoldLike
  (Vector Text)
  RemoveSearchAttributesRequest
  RemoveSearchAttributesRequest
  (Vector Text)
  (Vector Text)
-> RemoveSearchAttributesRequest -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'searchAttributes") RemoveSearchAttributesRequest
_x))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike
  Text
  RemoveSearchAttributesRequest
  RemoveSearchAttributesRequest
  Text
  Text
-> RemoveSearchAttributesRequest -> 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") RemoveSearchAttributesRequest
_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
  RemoveSearchAttributesRequest
  RemoveSearchAttributesRequest
  FieldSet
  FieldSet
-> RemoveSearchAttributesRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  RemoveSearchAttributesRequest
  RemoveSearchAttributesRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RemoveSearchAttributesRequest FieldSet
Data.ProtoLens.unknownFields RemoveSearchAttributesRequest
_x)))
instance Control.DeepSeq.NFData RemoveSearchAttributesRequest where
  rnf :: RemoveSearchAttributesRequest -> ()
rnf
    = \ RemoveSearchAttributesRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (RemoveSearchAttributesRequest -> FieldSet
_RemoveSearchAttributesRequest'_unknownFields RemoveSearchAttributesRequest
x__)
             (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (RemoveSearchAttributesRequest -> Vector Text
_RemoveSearchAttributesRequest'searchAttributes RemoveSearchAttributesRequest
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (RemoveSearchAttributesRequest -> Text
_RemoveSearchAttributesRequest'namespace RemoveSearchAttributesRequest
x__) ()))
{- | Fields :
      -}
data RemoveSearchAttributesResponse
  = RemoveSearchAttributesResponse'_constructor {RemoveSearchAttributesResponse -> FieldSet
_RemoveSearchAttributesResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
(RemoveSearchAttributesResponse
 -> RemoveSearchAttributesResponse -> Bool)
-> (RemoveSearchAttributesResponse
    -> RemoveSearchAttributesResponse -> Bool)
-> Eq RemoveSearchAttributesResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
== :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
$c/= :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
/= :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
Prelude.Eq, Eq RemoveSearchAttributesResponse
Eq RemoveSearchAttributesResponse =>
(RemoveSearchAttributesResponse
 -> RemoveSearchAttributesResponse -> Ordering)
-> (RemoveSearchAttributesResponse
    -> RemoveSearchAttributesResponse -> Bool)
-> (RemoveSearchAttributesResponse
    -> RemoveSearchAttributesResponse -> Bool)
-> (RemoveSearchAttributesResponse
    -> RemoveSearchAttributesResponse -> Bool)
-> (RemoveSearchAttributesResponse
    -> RemoveSearchAttributesResponse -> Bool)
-> (RemoveSearchAttributesResponse
    -> RemoveSearchAttributesResponse
    -> RemoveSearchAttributesResponse)
-> (RemoveSearchAttributesResponse
    -> RemoveSearchAttributesResponse
    -> RemoveSearchAttributesResponse)
-> Ord RemoveSearchAttributesResponse
RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Ordering
RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> RemoveSearchAttributesResponse
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 :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Ordering
compare :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Ordering
$c< :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
< :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
$c<= :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
<= :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
$c> :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
> :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
$c>= :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
>= :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> Bool
$cmax :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> RemoveSearchAttributesResponse
max :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> RemoveSearchAttributesResponse
$cmin :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> RemoveSearchAttributesResponse
min :: RemoveSearchAttributesResponse
-> RemoveSearchAttributesResponse -> RemoveSearchAttributesResponse
Prelude.Ord)
instance Prelude.Show RemoveSearchAttributesResponse where
  showsPrec :: Int -> RemoveSearchAttributesResponse -> ShowS
showsPrec Int
_ RemoveSearchAttributesResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (RemoveSearchAttributesResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RemoveSearchAttributesResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message RemoveSearchAttributesResponse where
  messageName :: Proxy RemoveSearchAttributesResponse -> Text
messageName Proxy RemoveSearchAttributesResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.RemoveSearchAttributesResponse"
  packedMessageDescriptor :: Proxy RemoveSearchAttributesResponse -> ByteString
packedMessageDescriptor Proxy RemoveSearchAttributesResponse
_
    = ByteString
"\n\
      \\RSRemoveSearchAttributesResponse"
  packedFileDescriptor :: Proxy RemoveSearchAttributesResponse -> ByteString
packedFileDescriptor Proxy RemoveSearchAttributesResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor RemoveSearchAttributesResponse)
fieldsByTag = let in [(Tag, FieldDescriptor RemoveSearchAttributesResponse)]
-> Map Tag (FieldDescriptor RemoveSearchAttributesResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' RemoveSearchAttributesResponse FieldSet
unknownFields
    = (RemoveSearchAttributesResponse -> FieldSet)
-> (RemoveSearchAttributesResponse
    -> FieldSet -> RemoveSearchAttributesResponse)
-> Lens' RemoveSearchAttributesResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        RemoveSearchAttributesResponse -> FieldSet
_RemoveSearchAttributesResponse'_unknownFields
        (\ RemoveSearchAttributesResponse
x__ FieldSet
y__
           -> RemoveSearchAttributesResponse
x__ {_RemoveSearchAttributesResponse'_unknownFields = y__})
  defMessage :: RemoveSearchAttributesResponse
defMessage
    = RemoveSearchAttributesResponse'_constructor
        {_RemoveSearchAttributesResponse'_unknownFields :: FieldSet
_RemoveSearchAttributesResponse'_unknownFields = []}
  parseMessage :: Parser RemoveSearchAttributesResponse
parseMessage
    = let
        loop ::
          RemoveSearchAttributesResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser RemoveSearchAttributesResponse
        loop :: RemoveSearchAttributesResponse
-> Parser RemoveSearchAttributesResponse
loop RemoveSearchAttributesResponse
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 RemoveSearchAttributesResponse
-> String -> Parser RemoveSearchAttributesResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do RemoveSearchAttributesResponse
-> Parser RemoveSearchAttributesResponse
loop RemoveSearchAttributesResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"RemoveSearchAttributesResponse"
  buildMessage :: RemoveSearchAttributesResponse -> Builder
buildMessage
    = \ RemoveSearchAttributesResponse
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  RemoveSearchAttributesResponse
  RemoveSearchAttributesResponse
  FieldSet
  FieldSet
-> RemoveSearchAttributesResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  RemoveSearchAttributesResponse
  RemoveSearchAttributesResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RemoveSearchAttributesResponse FieldSet
Data.ProtoLens.unknownFields RemoveSearchAttributesResponse
_x)
instance Control.DeepSeq.NFData RemoveSearchAttributesResponse where
  rnf :: RemoveSearchAttributesResponse -> ()
rnf
    = \ RemoveSearchAttributesResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (RemoveSearchAttributesResponse -> FieldSet
_RemoveSearchAttributesResponse'_unknownFields RemoveSearchAttributesResponse
x__) ()
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.id' @:: Lens' UpdateNexusEndpointRequest Data.Text.Text@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.version' @:: Lens' UpdateNexusEndpointRequest Data.Int.Int64@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.spec' @:: Lens' UpdateNexusEndpointRequest Proto.Temporal.Api.Nexus.V1.Message.EndpointSpec@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.maybe'spec' @:: Lens' UpdateNexusEndpointRequest (Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.EndpointSpec)@ -}
data UpdateNexusEndpointRequest
  = UpdateNexusEndpointRequest'_constructor {UpdateNexusEndpointRequest -> Text
_UpdateNexusEndpointRequest'id :: !Data.Text.Text,
                                             UpdateNexusEndpointRequest -> Int64
_UpdateNexusEndpointRequest'version :: !Data.Int.Int64,
                                             UpdateNexusEndpointRequest -> Maybe EndpointSpec
_UpdateNexusEndpointRequest'spec :: !(Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.EndpointSpec),
                                             UpdateNexusEndpointRequest -> FieldSet
_UpdateNexusEndpointRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
(UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool)
-> (UpdateNexusEndpointRequest
    -> UpdateNexusEndpointRequest -> Bool)
-> Eq UpdateNexusEndpointRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
== :: UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
$c/= :: UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
/= :: UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
Prelude.Eq, Eq UpdateNexusEndpointRequest
Eq UpdateNexusEndpointRequest =>
(UpdateNexusEndpointRequest
 -> UpdateNexusEndpointRequest -> Ordering)
-> (UpdateNexusEndpointRequest
    -> UpdateNexusEndpointRequest -> Bool)
-> (UpdateNexusEndpointRequest
    -> UpdateNexusEndpointRequest -> Bool)
-> (UpdateNexusEndpointRequest
    -> UpdateNexusEndpointRequest -> Bool)
-> (UpdateNexusEndpointRequest
    -> UpdateNexusEndpointRequest -> Bool)
-> (UpdateNexusEndpointRequest
    -> UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest)
-> (UpdateNexusEndpointRequest
    -> UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest)
-> Ord UpdateNexusEndpointRequest
UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
UpdateNexusEndpointRequest
-> UpdateNexusEndpointRequest -> Ordering
UpdateNexusEndpointRequest
-> UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest
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 :: UpdateNexusEndpointRequest
-> UpdateNexusEndpointRequest -> Ordering
compare :: UpdateNexusEndpointRequest
-> UpdateNexusEndpointRequest -> Ordering
$c< :: UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
< :: UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
$c<= :: UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
<= :: UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
$c> :: UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
> :: UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
$c>= :: UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
>= :: UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest -> Bool
$cmax :: UpdateNexusEndpointRequest
-> UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest
max :: UpdateNexusEndpointRequest
-> UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest
$cmin :: UpdateNexusEndpointRequest
-> UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest
min :: UpdateNexusEndpointRequest
-> UpdateNexusEndpointRequest -> UpdateNexusEndpointRequest
Prelude.Ord)
instance Prelude.Show UpdateNexusEndpointRequest where
  showsPrec :: Int -> UpdateNexusEndpointRequest -> ShowS
showsPrec Int
_ UpdateNexusEndpointRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (UpdateNexusEndpointRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UpdateNexusEndpointRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField UpdateNexusEndpointRequest "id" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Text -> f Text)
-> UpdateNexusEndpointRequest
-> f UpdateNexusEndpointRequest
fieldOf Proxy# "id"
_
    = ((Text -> f Text)
 -> UpdateNexusEndpointRequest -> f UpdateNexusEndpointRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> UpdateNexusEndpointRequest
-> f UpdateNexusEndpointRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateNexusEndpointRequest -> Text)
-> (UpdateNexusEndpointRequest
    -> Text -> UpdateNexusEndpointRequest)
-> Lens
     UpdateNexusEndpointRequest UpdateNexusEndpointRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateNexusEndpointRequest -> Text
_UpdateNexusEndpointRequest'id
           (\ UpdateNexusEndpointRequest
x__ Text
y__ -> UpdateNexusEndpointRequest
x__ {_UpdateNexusEndpointRequest'id = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UpdateNexusEndpointRequest "version" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "version"
-> (Int64 -> f Int64)
-> UpdateNexusEndpointRequest
-> f UpdateNexusEndpointRequest
fieldOf Proxy# "version"
_
    = ((Int64 -> f Int64)
 -> UpdateNexusEndpointRequest -> f UpdateNexusEndpointRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> UpdateNexusEndpointRequest
-> f UpdateNexusEndpointRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateNexusEndpointRequest -> Int64)
-> (UpdateNexusEndpointRequest
    -> Int64 -> UpdateNexusEndpointRequest)
-> Lens
     UpdateNexusEndpointRequest UpdateNexusEndpointRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateNexusEndpointRequest -> Int64
_UpdateNexusEndpointRequest'version
           (\ UpdateNexusEndpointRequest
x__ Int64
y__ -> UpdateNexusEndpointRequest
x__ {_UpdateNexusEndpointRequest'version = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UpdateNexusEndpointRequest "spec" Proto.Temporal.Api.Nexus.V1.Message.EndpointSpec where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "spec"
-> (EndpointSpec -> f EndpointSpec)
-> UpdateNexusEndpointRequest
-> f UpdateNexusEndpointRequest
fieldOf Proxy# "spec"
_
    = ((Maybe EndpointSpec -> f (Maybe EndpointSpec))
 -> UpdateNexusEndpointRequest -> f UpdateNexusEndpointRequest)
-> ((EndpointSpec -> f EndpointSpec)
    -> Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> (EndpointSpec -> f EndpointSpec)
-> UpdateNexusEndpointRequest
-> f UpdateNexusEndpointRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateNexusEndpointRequest -> Maybe EndpointSpec)
-> (UpdateNexusEndpointRequest
    -> Maybe EndpointSpec -> UpdateNexusEndpointRequest)
-> Lens
     UpdateNexusEndpointRequest
     UpdateNexusEndpointRequest
     (Maybe EndpointSpec)
     (Maybe EndpointSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateNexusEndpointRequest -> Maybe EndpointSpec
_UpdateNexusEndpointRequest'spec
           (\ UpdateNexusEndpointRequest
x__ Maybe EndpointSpec
y__ -> UpdateNexusEndpointRequest
x__ {_UpdateNexusEndpointRequest'spec = y__}))
        (EndpointSpec -> Lens' (Maybe EndpointSpec) EndpointSpec
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens EndpointSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField UpdateNexusEndpointRequest "maybe'spec" (Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.EndpointSpec) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'spec"
-> (Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> UpdateNexusEndpointRequest
-> f UpdateNexusEndpointRequest
fieldOf Proxy# "maybe'spec"
_
    = ((Maybe EndpointSpec -> f (Maybe EndpointSpec))
 -> UpdateNexusEndpointRequest -> f UpdateNexusEndpointRequest)
-> ((Maybe EndpointSpec -> f (Maybe EndpointSpec))
    -> Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> (Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> UpdateNexusEndpointRequest
-> f UpdateNexusEndpointRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateNexusEndpointRequest -> Maybe EndpointSpec)
-> (UpdateNexusEndpointRequest
    -> Maybe EndpointSpec -> UpdateNexusEndpointRequest)
-> Lens
     UpdateNexusEndpointRequest
     UpdateNexusEndpointRequest
     (Maybe EndpointSpec)
     (Maybe EndpointSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateNexusEndpointRequest -> Maybe EndpointSpec
_UpdateNexusEndpointRequest'spec
           (\ UpdateNexusEndpointRequest
x__ Maybe EndpointSpec
y__ -> UpdateNexusEndpointRequest
x__ {_UpdateNexusEndpointRequest'spec = y__}))
        (Maybe EndpointSpec -> f (Maybe EndpointSpec))
-> Maybe EndpointSpec -> f (Maybe EndpointSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UpdateNexusEndpointRequest where
  messageName :: Proxy UpdateNexusEndpointRequest -> Text
messageName Proxy UpdateNexusEndpointRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.UpdateNexusEndpointRequest"
  packedMessageDescriptor :: Proxy UpdateNexusEndpointRequest -> ByteString
packedMessageDescriptor Proxy UpdateNexusEndpointRequest
_
    = ByteString
"\n\
      \\SUBUpdateNexusEndpointRequest\DC2\SO\n\
      \\STXid\CAN\SOH \SOH(\tR\STXid\DC2\CAN\n\
      \\aversion\CAN\STX \SOH(\ETXR\aversion\DC27\n\
      \\EOTspec\CAN\ETX \SOH(\v2#.temporal.api.nexus.v1.EndpointSpecR\EOTspec"
  packedFileDescriptor :: Proxy UpdateNexusEndpointRequest -> ByteString
packedFileDescriptor Proxy UpdateNexusEndpointRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor UpdateNexusEndpointRequest)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor UpdateNexusEndpointRequest
id__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor UpdateNexusEndpointRequest Text
-> FieldDescriptor UpdateNexusEndpointRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"id"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     UpdateNexusEndpointRequest UpdateNexusEndpointRequest Text Text
-> FieldAccessor UpdateNexusEndpointRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id")) ::
              Data.ProtoLens.FieldDescriptor UpdateNexusEndpointRequest
        version__field_descriptor :: FieldDescriptor UpdateNexusEndpointRequest
version__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor UpdateNexusEndpointRequest Int64
-> FieldDescriptor UpdateNexusEndpointRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"version"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens
     UpdateNexusEndpointRequest UpdateNexusEndpointRequest Int64 Int64
-> FieldAccessor UpdateNexusEndpointRequest Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"version")) ::
              Data.ProtoLens.FieldDescriptor UpdateNexusEndpointRequest
        spec__field_descriptor :: FieldDescriptor UpdateNexusEndpointRequest
spec__field_descriptor
          = String
-> FieldTypeDescriptor EndpointSpec
-> FieldAccessor UpdateNexusEndpointRequest EndpointSpec
-> FieldDescriptor UpdateNexusEndpointRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"spec"
              (MessageOrGroup -> FieldTypeDescriptor EndpointSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Nexus.V1.Message.EndpointSpec)
              (Lens
  UpdateNexusEndpointRequest
  UpdateNexusEndpointRequest
  (Maybe EndpointSpec)
  (Maybe EndpointSpec)
-> FieldAccessor UpdateNexusEndpointRequest EndpointSpec
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'spec")) ::
              Data.ProtoLens.FieldDescriptor UpdateNexusEndpointRequest
      in
        [(Tag, FieldDescriptor UpdateNexusEndpointRequest)]
-> Map Tag (FieldDescriptor UpdateNexusEndpointRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor UpdateNexusEndpointRequest
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor UpdateNexusEndpointRequest
version__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor UpdateNexusEndpointRequest
spec__field_descriptor)]
  unknownFields :: Lens' UpdateNexusEndpointRequest FieldSet
unknownFields
    = (UpdateNexusEndpointRequest -> FieldSet)
-> (UpdateNexusEndpointRequest
    -> FieldSet -> UpdateNexusEndpointRequest)
-> Lens' UpdateNexusEndpointRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UpdateNexusEndpointRequest -> FieldSet
_UpdateNexusEndpointRequest'_unknownFields
        (\ UpdateNexusEndpointRequest
x__ FieldSet
y__
           -> UpdateNexusEndpointRequest
x__ {_UpdateNexusEndpointRequest'_unknownFields = y__})
  defMessage :: UpdateNexusEndpointRequest
defMessage
    = UpdateNexusEndpointRequest'_constructor
        {_UpdateNexusEndpointRequest'id :: Text
_UpdateNexusEndpointRequest'id = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _UpdateNexusEndpointRequest'version :: Int64
_UpdateNexusEndpointRequest'version = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _UpdateNexusEndpointRequest'spec :: Maybe EndpointSpec
_UpdateNexusEndpointRequest'spec = Maybe EndpointSpec
forall a. Maybe a
Prelude.Nothing,
         _UpdateNexusEndpointRequest'_unknownFields :: FieldSet
_UpdateNexusEndpointRequest'_unknownFields = []}
  parseMessage :: Parser UpdateNexusEndpointRequest
parseMessage
    = let
        loop ::
          UpdateNexusEndpointRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser UpdateNexusEndpointRequest
        loop :: UpdateNexusEndpointRequest -> Parser UpdateNexusEndpointRequest
loop UpdateNexusEndpointRequest
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
"id"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x)
                        Word64
16
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"version"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"version") y x)
                        Word64
26
                          -> do y <- Parser EndpointSpec -> String -> Parser EndpointSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"spec"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"spec") y x)
                        Word64
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 UpdateNexusEndpointRequest
-> String -> Parser UpdateNexusEndpointRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do UpdateNexusEndpointRequest -> Parser UpdateNexusEndpointRequest
loop UpdateNexusEndpointRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"UpdateNexusEndpointRequest"
  buildMessage :: UpdateNexusEndpointRequest -> Builder
buildMessage
    = \ UpdateNexusEndpointRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  UpdateNexusEndpointRequest
  UpdateNexusEndpointRequest
  Text
  Text
-> UpdateNexusEndpointRequest -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id") UpdateNexusEndpointRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v = FoldLike
  Int64
  UpdateNexusEndpointRequest
  UpdateNexusEndpointRequest
  Int64
  Int64
-> UpdateNexusEndpointRequest -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"version") UpdateNexusEndpointRequest
_x
                 in
                   if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe EndpointSpec)
  UpdateNexusEndpointRequest
  UpdateNexusEndpointRequest
  (Maybe EndpointSpec)
  (Maybe EndpointSpec)
-> UpdateNexusEndpointRequest -> Maybe EndpointSpec
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'spec") UpdateNexusEndpointRequest
_x
                    of
                      Maybe EndpointSpec
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just EndpointSpec
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (EndpointSpec -> ByteString) -> EndpointSpec -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                EndpointSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage EndpointSpec
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  UpdateNexusEndpointRequest
  UpdateNexusEndpointRequest
  FieldSet
  FieldSet
-> UpdateNexusEndpointRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  UpdateNexusEndpointRequest
  UpdateNexusEndpointRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UpdateNexusEndpointRequest FieldSet
Data.ProtoLens.unknownFields UpdateNexusEndpointRequest
_x))))
instance Control.DeepSeq.NFData UpdateNexusEndpointRequest where
  rnf :: UpdateNexusEndpointRequest -> ()
rnf
    = \ UpdateNexusEndpointRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UpdateNexusEndpointRequest -> FieldSet
_UpdateNexusEndpointRequest'_unknownFields UpdateNexusEndpointRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (UpdateNexusEndpointRequest -> Text
_UpdateNexusEndpointRequest'id UpdateNexusEndpointRequest
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (UpdateNexusEndpointRequest -> Int64
_UpdateNexusEndpointRequest'version UpdateNexusEndpointRequest
x__)
                   (Maybe EndpointSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (UpdateNexusEndpointRequest -> Maybe EndpointSpec
_UpdateNexusEndpointRequest'spec UpdateNexusEndpointRequest
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.endpoint' @:: Lens' UpdateNexusEndpointResponse Proto.Temporal.Api.Nexus.V1.Message.Endpoint@
         * 'Proto.Temporal.Api.Operatorservice.V1.RequestResponse_Fields.maybe'endpoint' @:: Lens' UpdateNexusEndpointResponse (Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.Endpoint)@ -}
data UpdateNexusEndpointResponse
  = UpdateNexusEndpointResponse'_constructor {UpdateNexusEndpointResponse -> Maybe Endpoint
_UpdateNexusEndpointResponse'endpoint :: !(Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.Endpoint),
                                              UpdateNexusEndpointResponse -> FieldSet
_UpdateNexusEndpointResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
(UpdateNexusEndpointResponse
 -> UpdateNexusEndpointResponse -> Bool)
-> (UpdateNexusEndpointResponse
    -> UpdateNexusEndpointResponse -> Bool)
-> Eq UpdateNexusEndpointResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
== :: UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
$c/= :: UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
/= :: UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
Prelude.Eq, Eq UpdateNexusEndpointResponse
Eq UpdateNexusEndpointResponse =>
(UpdateNexusEndpointResponse
 -> UpdateNexusEndpointResponse -> Ordering)
-> (UpdateNexusEndpointResponse
    -> UpdateNexusEndpointResponse -> Bool)
-> (UpdateNexusEndpointResponse
    -> UpdateNexusEndpointResponse -> Bool)
-> (UpdateNexusEndpointResponse
    -> UpdateNexusEndpointResponse -> Bool)
-> (UpdateNexusEndpointResponse
    -> UpdateNexusEndpointResponse -> Bool)
-> (UpdateNexusEndpointResponse
    -> UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse)
-> (UpdateNexusEndpointResponse
    -> UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse)
-> Ord UpdateNexusEndpointResponse
UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
UpdateNexusEndpointResponse
-> UpdateNexusEndpointResponse -> Ordering
UpdateNexusEndpointResponse
-> UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse
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 :: UpdateNexusEndpointResponse
-> UpdateNexusEndpointResponse -> Ordering
compare :: UpdateNexusEndpointResponse
-> UpdateNexusEndpointResponse -> Ordering
$c< :: UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
< :: UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
$c<= :: UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
<= :: UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
$c> :: UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
> :: UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
$c>= :: UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
>= :: UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse -> Bool
$cmax :: UpdateNexusEndpointResponse
-> UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse
max :: UpdateNexusEndpointResponse
-> UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse
$cmin :: UpdateNexusEndpointResponse
-> UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse
min :: UpdateNexusEndpointResponse
-> UpdateNexusEndpointResponse -> UpdateNexusEndpointResponse
Prelude.Ord)
instance Prelude.Show UpdateNexusEndpointResponse where
  showsPrec :: Int -> UpdateNexusEndpointResponse -> ShowS
showsPrec Int
_ UpdateNexusEndpointResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (UpdateNexusEndpointResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UpdateNexusEndpointResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField UpdateNexusEndpointResponse "endpoint" Proto.Temporal.Api.Nexus.V1.Message.Endpoint where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "endpoint"
-> (Endpoint -> f Endpoint)
-> UpdateNexusEndpointResponse
-> f UpdateNexusEndpointResponse
fieldOf Proxy# "endpoint"
_
    = ((Maybe Endpoint -> f (Maybe Endpoint))
 -> UpdateNexusEndpointResponse -> f UpdateNexusEndpointResponse)
-> ((Endpoint -> f Endpoint)
    -> Maybe Endpoint -> f (Maybe Endpoint))
-> (Endpoint -> f Endpoint)
-> UpdateNexusEndpointResponse
-> f UpdateNexusEndpointResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateNexusEndpointResponse -> Maybe Endpoint)
-> (UpdateNexusEndpointResponse
    -> Maybe Endpoint -> UpdateNexusEndpointResponse)
-> Lens
     UpdateNexusEndpointResponse
     UpdateNexusEndpointResponse
     (Maybe Endpoint)
     (Maybe Endpoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateNexusEndpointResponse -> Maybe Endpoint
_UpdateNexusEndpointResponse'endpoint
           (\ UpdateNexusEndpointResponse
x__ Maybe Endpoint
y__ -> UpdateNexusEndpointResponse
x__ {_UpdateNexusEndpointResponse'endpoint = y__}))
        (Endpoint -> Lens' (Maybe Endpoint) Endpoint
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Endpoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField UpdateNexusEndpointResponse "maybe'endpoint" (Prelude.Maybe Proto.Temporal.Api.Nexus.V1.Message.Endpoint) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'endpoint"
-> (Maybe Endpoint -> f (Maybe Endpoint))
-> UpdateNexusEndpointResponse
-> f UpdateNexusEndpointResponse
fieldOf Proxy# "maybe'endpoint"
_
    = ((Maybe Endpoint -> f (Maybe Endpoint))
 -> UpdateNexusEndpointResponse -> f UpdateNexusEndpointResponse)
-> ((Maybe Endpoint -> f (Maybe Endpoint))
    -> Maybe Endpoint -> f (Maybe Endpoint))
-> (Maybe Endpoint -> f (Maybe Endpoint))
-> UpdateNexusEndpointResponse
-> f UpdateNexusEndpointResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateNexusEndpointResponse -> Maybe Endpoint)
-> (UpdateNexusEndpointResponse
    -> Maybe Endpoint -> UpdateNexusEndpointResponse)
-> Lens
     UpdateNexusEndpointResponse
     UpdateNexusEndpointResponse
     (Maybe Endpoint)
     (Maybe Endpoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateNexusEndpointResponse -> Maybe Endpoint
_UpdateNexusEndpointResponse'endpoint
           (\ UpdateNexusEndpointResponse
x__ Maybe Endpoint
y__ -> UpdateNexusEndpointResponse
x__ {_UpdateNexusEndpointResponse'endpoint = y__}))
        (Maybe Endpoint -> f (Maybe Endpoint))
-> Maybe Endpoint -> f (Maybe Endpoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UpdateNexusEndpointResponse where
  messageName :: Proxy UpdateNexusEndpointResponse -> Text
messageName Proxy UpdateNexusEndpointResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.operatorservice.v1.UpdateNexusEndpointResponse"
  packedMessageDescriptor :: Proxy UpdateNexusEndpointResponse -> ByteString
packedMessageDescriptor Proxy UpdateNexusEndpointResponse
_
    = ByteString
"\n\
      \\ESCUpdateNexusEndpointResponse\DC2;\n\
      \\bendpoint\CAN\SOH \SOH(\v2\US.temporal.api.nexus.v1.EndpointR\bendpoint"
  packedFileDescriptor :: Proxy UpdateNexusEndpointResponse -> ByteString
packedFileDescriptor Proxy UpdateNexusEndpointResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor UpdateNexusEndpointResponse)
fieldsByTag
    = let
        endpoint__field_descriptor :: FieldDescriptor UpdateNexusEndpointResponse
endpoint__field_descriptor
          = String
-> FieldTypeDescriptor Endpoint
-> FieldAccessor UpdateNexusEndpointResponse Endpoint
-> FieldDescriptor UpdateNexusEndpointResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"endpoint"
              (MessageOrGroup -> FieldTypeDescriptor Endpoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Nexus.V1.Message.Endpoint)
              (Lens
  UpdateNexusEndpointResponse
  UpdateNexusEndpointResponse
  (Maybe Endpoint)
  (Maybe Endpoint)
-> FieldAccessor UpdateNexusEndpointResponse Endpoint
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'endpoint")) ::
              Data.ProtoLens.FieldDescriptor UpdateNexusEndpointResponse
      in
        [(Tag, FieldDescriptor UpdateNexusEndpointResponse)]
-> Map Tag (FieldDescriptor UpdateNexusEndpointResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor UpdateNexusEndpointResponse
endpoint__field_descriptor)]
  unknownFields :: Lens' UpdateNexusEndpointResponse FieldSet
unknownFields
    = (UpdateNexusEndpointResponse -> FieldSet)
-> (UpdateNexusEndpointResponse
    -> FieldSet -> UpdateNexusEndpointResponse)
-> Lens' UpdateNexusEndpointResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UpdateNexusEndpointResponse -> FieldSet
_UpdateNexusEndpointResponse'_unknownFields
        (\ UpdateNexusEndpointResponse
x__ FieldSet
y__
           -> UpdateNexusEndpointResponse
x__ {_UpdateNexusEndpointResponse'_unknownFields = y__})
  defMessage :: UpdateNexusEndpointResponse
defMessage
    = UpdateNexusEndpointResponse'_constructor
        {_UpdateNexusEndpointResponse'endpoint :: Maybe Endpoint
_UpdateNexusEndpointResponse'endpoint = Maybe Endpoint
forall a. Maybe a
Prelude.Nothing,
         _UpdateNexusEndpointResponse'_unknownFields :: FieldSet
_UpdateNexusEndpointResponse'_unknownFields = []}
  parseMessage :: Parser UpdateNexusEndpointResponse
parseMessage
    = let
        loop ::
          UpdateNexusEndpointResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser UpdateNexusEndpointResponse
        loop :: UpdateNexusEndpointResponse -> Parser UpdateNexusEndpointResponse
loop UpdateNexusEndpointResponse
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 Endpoint -> String -> Parser Endpoint
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
"endpoint"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"endpoint") 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 UpdateNexusEndpointResponse
-> String -> Parser UpdateNexusEndpointResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do UpdateNexusEndpointResponse -> Parser UpdateNexusEndpointResponse
loop UpdateNexusEndpointResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"UpdateNexusEndpointResponse"
  buildMessage :: UpdateNexusEndpointResponse -> Builder
buildMessage
    = \ UpdateNexusEndpointResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Endpoint)
  UpdateNexusEndpointResponse
  UpdateNexusEndpointResponse
  (Maybe Endpoint)
  (Maybe Endpoint)
-> UpdateNexusEndpointResponse -> Maybe Endpoint
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'endpoint") UpdateNexusEndpointResponse
_x
              of
                Maybe Endpoint
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Endpoint
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Endpoint -> ByteString) -> Endpoint -> 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))
                          Endpoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Endpoint
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  UpdateNexusEndpointResponse
  UpdateNexusEndpointResponse
  FieldSet
  FieldSet
-> UpdateNexusEndpointResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  UpdateNexusEndpointResponse
  UpdateNexusEndpointResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UpdateNexusEndpointResponse FieldSet
Data.ProtoLens.unknownFields UpdateNexusEndpointResponse
_x))
instance Control.DeepSeq.NFData UpdateNexusEndpointResponse where
  rnf :: UpdateNexusEndpointResponse -> ()
rnf
    = \ UpdateNexusEndpointResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UpdateNexusEndpointResponse -> FieldSet
_UpdateNexusEndpointResponse'_unknownFields UpdateNexusEndpointResponse
x__)
             (Maybe Endpoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (UpdateNexusEndpointResponse -> Maybe Endpoint
_UpdateNexusEndpointResponse'endpoint UpdateNexusEndpointResponse
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \6temporal/api/operatorservice/v1/request_response.proto\DC2\UStemporal.api.operatorservice.v1\SUB\"temporal/api/enums/v1/common.proto\SUB#temporal/api/nexus/v1/message.proto\SUB\RSgoogle/protobuf/duration.proto\"\168\STX\n\
    \\SUBAddSearchAttributesRequest\DC2~\n\
    \\DC1search_attributes\CAN\SOH \ETX(\v2Q.temporal.api.operatorservice.v1.AddSearchAttributesRequest.SearchAttributesEntryR\DLEsearchAttributes\DC2\FS\n\
    \\tnamespace\CAN\STX \SOH(\tR\tnamespace\SUBl\n\
    \\NAKSearchAttributesEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2=\n\
    \\ENQvalue\CAN\STX \SOH(\SO2'.temporal.api.enums.v1.IndexedValueTypeR\ENQvalue:\STX8\SOH\"\GS\n\
    \\ESCAddSearchAttributesResponse\"j\n\
    \\GSRemoveSearchAttributesRequest\DC2+\n\
    \\DC1search_attributes\CAN\SOH \ETX(\tR\DLEsearchAttributes\DC2\FS\n\
    \\tnamespace\CAN\STX \SOH(\tR\tnamespace\" \n\
    \\RSRemoveSearchAttributesResponse\";\n\
    \\ESCListSearchAttributesRequest\DC2\FS\n\
    \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\"\187\ENQ\n\
    \\FSListSearchAttributesResponse\DC2\128\SOH\n\
    \\DC1custom_attributes\CAN\SOH \ETX(\v2S.temporal.api.operatorservice.v1.ListSearchAttributesResponse.CustomAttributesEntryR\DLEcustomAttributes\DC2\128\SOH\n\
    \\DC1system_attributes\CAN\STX \ETX(\v2S.temporal.api.operatorservice.v1.ListSearchAttributesResponse.SystemAttributesEntryR\DLEsystemAttributes\DC2w\n\
    \\SOstorage_schema\CAN\ETX \ETX(\v2P.temporal.api.operatorservice.v1.ListSearchAttributesResponse.StorageSchemaEntryR\rstorageSchema\SUBl\n\
    \\NAKCustomAttributesEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2=\n\
    \\ENQvalue\CAN\STX \SOH(\SO2'.temporal.api.enums.v1.IndexedValueTypeR\ENQvalue:\STX8\SOH\SUBl\n\
    \\NAKSystemAttributesEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2=\n\
    \\ENQvalue\CAN\STX \SOH(\SO2'.temporal.api.enums.v1.IndexedValueTypeR\ENQvalue:\STX8\SOH\SUB@\n\
    \\DC2StorageSchemaEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\"\170\SOH\n\
    \\SYNDeleteNamespaceRequest\DC2\FS\n\
    \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2!\n\
    \\fnamespace_id\CAN\STX \SOH(\tR\vnamespaceId\DC2O\n\
    \\SYNnamespace_delete_delay\CAN\ETX \SOH(\v2\EM.google.protobuf.DurationR\DC4namespaceDeleteDelay\"F\n\
    \\ETBDeleteNamespaceResponse\DC2+\n\
    \\DC1deleted_namespace\CAN\SOH \SOH(\tR\DLEdeletedNamespace\"\201\SOH\n\
    \\USAddOrUpdateRemoteClusterRequest\DC2)\n\
    \\DLEfrontend_address\CAN\SOH \SOH(\tR\SIfrontendAddress\DC2G\n\
    \ enable_remote_cluster_connection\CAN\STX \SOH(\bR\GSenableRemoteClusterConnection\DC22\n\
    \\NAKfrontend_http_address\CAN\ETX \SOH(\tR\DC3frontendHttpAddress\"\"\n\
    \ AddOrUpdateRemoteClusterResponse\"?\n\
    \\SUBRemoveRemoteClusterRequest\DC2!\n\
    \\fcluster_name\CAN\SOH \SOH(\tR\vclusterName\"\GS\n\
    \\ESCRemoveRemoteClusterResponse\"Z\n\
    \\DC3ListClustersRequest\DC2\ESC\n\
    \\tpage_size\CAN\SOH \SOH(\ENQR\bpageSize\DC2&\n\
    \\SInext_page_token\CAN\STX \SOH(\fR\rnextPageToken\"\140\SOH\n\
    \\DC4ListClustersResponse\DC2L\n\
    \\bclusters\CAN\SOH \ETX(\v20.temporal.api.operatorservice.v1.ClusterMetadataR\bclusters\DC2&\n\
    \\SInext_page_token\CAN\EOT \SOH(\fR\rnextPageToken\"\174\STX\n\
    \\SIClusterMetadata\DC2!\n\
    \\fcluster_name\CAN\SOH \SOH(\tR\vclusterName\DC2\GS\n\
    \\n\
    \cluster_id\CAN\STX \SOH(\tR\tclusterId\DC2\CAN\n\
    \\aaddress\CAN\ETX \SOH(\tR\aaddress\DC2!\n\
    \\fhttp_address\CAN\a \SOH(\tR\vhttpAddress\DC28\n\
    \\CANinitial_failover_version\CAN\EOT \SOH(\ETXR\SYNinitialFailoverVersion\DC2.\n\
    \\DC3history_shard_count\CAN\ENQ \SOH(\ENQR\DC1historyShardCount\DC22\n\
    \\NAKis_connection_enabled\CAN\ACK \SOH(\bR\DC3isConnectionEnabled\")\n\
    \\ETBGetNexusEndpointRequest\DC2\SO\n\
    \\STXid\CAN\SOH \SOH(\tR\STXid\"W\n\
    \\CANGetNexusEndpointResponse\DC2;\n\
    \\bendpoint\CAN\SOH \SOH(\v2\US.temporal.api.nexus.v1.EndpointR\bendpoint\"U\n\
    \\SUBCreateNexusEndpointRequest\DC27\n\
    \\EOTspec\CAN\SOH \SOH(\v2#.temporal.api.nexus.v1.EndpointSpecR\EOTspec\"Z\n\
    \\ESCCreateNexusEndpointResponse\DC2;\n\
    \\bendpoint\CAN\SOH \SOH(\v2\US.temporal.api.nexus.v1.EndpointR\bendpoint\"\DEL\n\
    \\SUBUpdateNexusEndpointRequest\DC2\SO\n\
    \\STXid\CAN\SOH \SOH(\tR\STXid\DC2\CAN\n\
    \\aversion\CAN\STX \SOH(\ETXR\aversion\DC27\n\
    \\EOTspec\CAN\ETX \SOH(\v2#.temporal.api.nexus.v1.EndpointSpecR\EOTspec\"Z\n\
    \\ESCUpdateNexusEndpointResponse\DC2;\n\
    \\bendpoint\CAN\SOH \SOH(\v2\US.temporal.api.nexus.v1.EndpointR\bendpoint\"F\n\
    \\SUBDeleteNexusEndpointRequest\DC2\SO\n\
    \\STXid\CAN\SOH \SOH(\tR\STXid\DC2\CAN\n\
    \\aversion\CAN\STX \SOH(\ETXR\aversion\"\GS\n\
    \\ESCDeleteNexusEndpointResponse\"t\n\
    \\EMListNexusEndpointsRequest\DC2\ESC\n\
    \\tpage_size\CAN\SOH \SOH(\ENQR\bpageSize\DC2&\n\
    \\SInext_page_token\CAN\STX \SOH(\fR\rnextPageToken\DC2\DC2\n\
    \\EOTname\CAN\ETX \SOH(\tR\EOTname\"\131\SOH\n\
    \\SUBListNexusEndpointsResponse\DC2&\n\
    \\SInext_page_token\CAN\SOH \SOH(\fR\rnextPageToken\DC2=\n\
    \\tendpoints\CAN\STX \ETX(\v2\US.temporal.api.nexus.v1.EndpointR\tendpointsB\190\SOH\n\
    \\"io.temporal.api.operatorservice.v1B\DC4RequestResponseProtoP\SOHZ5go.temporal.io/api/operatorservice/v1;operatorservice\170\STX!Temporalio.Api.OperatorService.V1\234\STX$Temporalio::Api::OperatorService::V1J\202\&4\n\
    \\a\DC2\ENQ\SYN\NUL\192\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\
    \\b\n\
    \\SOH\STX\DC2\ETX\CAN\NUL(\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SUB\NULL\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\SUB\NULL\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ESC\NUL;\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\ESC\NUL;\n\
    \\b\n\
    \\SOH\b\DC2\ETX\FS\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\FS\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\GS\NUL5\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\GS\NUL5\n\
    \\b\n\
    \\SOH\b\DC2\ETX\RS\NUL=\n\
    \\t\n\
    \\STX\b-\DC2\ETX\RS\NUL=\n\
    \\b\n\
    \\SOH\b\DC2\ETX\US\NUL>\n\
    \\t\n\
    \\STX\b%\DC2\ETX\US\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#\NUL(\n\
    \&\n\
    \\STX\EOT\NUL\DC2\EOT'\NUL+\SOH2\SUB (-- Search Attribute --)\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX'\b\"\n\
    \N\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX)\EOTN\SUBA Mapping between search attribute name and its IndexedValueType.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX)\EOT7\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX)8I\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX)LM\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX*\EOT\EM\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\DC4\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX*\ETB\CAN\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT-\NUL.\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX-\b#\n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOT0\NUL4\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX0\b%\n\
    \0\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX2\EOT*\SUB# Search attribute names to delete.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\EOT\DC2\ETX2\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX2\r\DC3\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX2\DC4%\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX2()\n\
    \\v\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETX3\EOT\EM\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX3\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX3\v\DC4\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX3\ETB\CAN\n\
    \\n\
    \\n\
    \\STX\EOT\ETX\DC2\EOT6\NUL7\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX6\b&\n\
    \\n\
    \\n\
    \\STX\EOT\EOT\DC2\EOT9\NUL;\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\EOT\SOH\DC2\ETX9\b#\n\
    \\v\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\ETX:\EOT\EM\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETX:\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX:\v\DC4\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX:\ETB\CAN\n\
    \\n\
    \\n\
    \\STX\EOT\ENQ\DC2\EOT=\NULD\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETX=\b$\n\
    \f\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\ETX?\EOTN\SUBY Mapping between custom (user-registered) search attribute name to its IndexedValueType.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETX?\EOT7\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX?8I\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX?LM\n\
    \a\n\
    \\EOT\EOT\ENQ\STX\SOH\DC2\ETXA\EOTN\SUBT Mapping between system (predefined) search attribute name to its IndexedValueType.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETXA\EOT7\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETXA8I\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETXALM\n\
    \U\n\
    \\EOT\EOT\ENQ\STX\STX\DC2\ETXC\EOT+\SUBH Mapping from the attribute name to the visibility storage native type.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\ACK\DC2\ETXC\EOT\ETB\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETXC\CAN&\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETXC)*\n\
    \\n\
    \\n\
    \\STX\EOT\ACK\DC2\EOTF\NULM\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETXF\b\RS\n\
    \]\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETXH\EOT\EM\SUBP Only one of namespace or namespace_id must be specified to identify namespace.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETXH\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXH\v\DC4\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXH\ETB\CAN\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\SOH\DC2\ETXI\EOT\FS\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETXI\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETXI\v\ETB\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETXI\SUB\ESC\n\
    \\194\SOH\n\
    \\EOT\EOT\ACK\STX\STX\DC2\ETXL\EOT8\SUB\180\SOH If provided, the deletion of namespace info will be delayed for the given duration (0 means no delay).\n\
    \ If not provided, the default delay configured in the cluster will be used.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ACK\DC2\ETXL\EOT\FS\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETXL\GS3\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETXL67\n\
    \\n\
    \\n\
    \\STX\EOT\a\DC2\EOTO\NULR\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\a\SOH\DC2\ETXO\b\US\n\
    \S\n\
    \\EOT\EOT\a\STX\NUL\DC2\ETXQ\EOT!\SUBF Temporary namespace name that is used during reclaim resources step.\n\
    \\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\FS\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXQ\US \n\
    \\n\
    \\n\
    \\STX\EOT\b\DC2\EOTT\NUL\\\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\b\SOH\DC2\ETXT\b'\n\
    \o\n\
    \\EOT\EOT\b\STX\NUL\DC2\ETXV\EOT \SUBb Frontend Address is a cross cluster accessible address for gRPC traffic. This field is required.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ENQ\DC2\ETXV\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXV\v\ESC\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXV\RS\US\n\
    \E\n\
    \\EOT\EOT\b\STX\SOH\DC2\ETXX\EOT.\SUB8 Flag to enable / disable the cross cluster connection.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ENQ\DC2\ETXX\EOT\b\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXX\t)\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXX,-\n\
    \\189\SOH\n\
    \\EOT\EOT\b\STX\STX\DC2\ETX[\EOT%\SUB\175\SOH Frontend HTTP Address is a cross cluster accessible address for HTTP traffic. This field is optional. If not provided\n\
    \  on update, the existing HTTP address will be removed.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\ENQ\DC2\ETX[\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\SOH\DC2\ETX[\v \n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\ETX\DC2\ETX[#$\n\
    \\n\
    \\n\
    \\STX\EOT\t\DC2\EOT^\NUL_\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\t\SOH\DC2\ETX^\b(\n\
    \\n\
    \\n\
    \\STX\EOT\n\
    \\DC2\EOTa\NULd\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\n\
    \\SOH\DC2\ETXa\b\"\n\
    \1\n\
    \\EOT\EOT\n\
    \\STX\NUL\DC2\ETXc\EOT\FS\SUB$ Remote cluster name to be removed.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ENQ\DC2\ETXc\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\SOH\DC2\ETXc\v\ETB\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ETX\DC2\ETXc\SUB\ESC\n\
    \\n\
    \\n\
    \\STX\EOT\v\DC2\EOTf\NULg\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\v\SOH\DC2\ETXf\b#\n\
    \\n\
    \\n\
    \\STX\EOT\f\DC2\EOTi\NULl\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\f\SOH\DC2\ETXi\b\ESC\n\
    \\v\n\
    \\EOT\EOT\f\STX\NUL\DC2\ETXj\EOT\CAN\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\ENQ\DC2\ETXj\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXj\n\
    \\DC3\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXj\SYN\ETB\n\
    \\v\n\
    \\EOT\EOT\f\STX\SOH\DC2\ETXk\EOT\RS\n\
    \\f\n\
    \\ENQ\EOT\f\STX\SOH\ENQ\DC2\ETXk\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\f\STX\SOH\SOH\DC2\ETXk\n\
    \\EM\n\
    \\f\n\
    \\ENQ\EOT\f\STX\SOH\ETX\DC2\ETXk\FS\GS\n\
    \\n\
    \\n\
    \\STX\EOT\r\DC2\EOTn\NULr\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\r\SOH\DC2\ETXn\b\FS\n\
    \.\n\
    \\EOT\EOT\r\STX\NUL\DC2\ETXp\EOT*\SUB! List of all cluster information\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\EOT\DC2\ETXp\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\ACK\DC2\ETXp\r\FS\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\SOH\DC2\ETXp\GS%\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\ETX\DC2\ETXp()\n\
    \\v\n\
    \\EOT\EOT\r\STX\SOH\DC2\ETXq\EOT\RS\n\
    \\f\n\
    \\ENQ\EOT\r\STX\SOH\ENQ\DC2\ETXq\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\r\STX\SOH\SOH\DC2\ETXq\n\
    \\EM\n\
    \\f\n\
    \\ENQ\EOT\r\STX\SOH\ETX\DC2\ETXq\FS\GS\n\
    \\v\n\
    \\STX\EOT\SO\DC2\ENQt\NUL\131\SOH\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SO\SOH\DC2\ETXt\b\ETB\n\
    \(\n\
    \\EOT\EOT\SO\STX\NUL\DC2\ETXv\EOT\FS\SUB\ESC Name of the cluster name.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\ENQ\DC2\ETXv\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXv\v\ETB\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXv\SUB\ESC\n\
    \!\n\
    \\EOT\EOT\SO\STX\SOH\DC2\ETXx\EOT\SUB\SUB\DC4 Id of the cluster.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\SOH\ENQ\DC2\ETXx\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\SOH\SOH\DC2\ETXx\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\SOH\ETX\DC2\ETXx\CAN\EM\n\
    \\FS\n\
    \\EOT\EOT\SO\STX\STX\DC2\ETXz\EOT\ETB\SUB\SI gRPC address.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\STX\ENQ\DC2\ETXz\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\STX\SOH\DC2\ETXz\v\DC2\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\STX\ETX\DC2\ETXz\NAK\SYN\n\
    \+\n\
    \\EOT\EOT\SO\STX\ETX\DC2\ETX|\EOT\FS\SUB\RS HTTP address, if one exists.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\ETX\ENQ\DC2\ETX|\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\ETX\SOH\DC2\ETX|\v\ETB\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\ETX\ETX\DC2\ETX|\SUB\ESC\n\
    \G\n\
    \\EOT\EOT\SO\STX\EOT\DC2\ETX~\EOT'\SUB: A unique failover version across all connected clusters.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\EOT\ENQ\DC2\ETX~\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\EOT\SOH\DC2\ETX~\n\
    \\"\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\EOT\ETX\DC2\ETX~%&\n\
    \-\n\
    \\EOT\EOT\SO\STX\ENQ\DC2\EOT\128\SOH\EOT\"\SUB\US History service shard number.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SO\STX\ENQ\ENQ\DC2\EOT\128\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\SO\STX\ENQ\SOH\DC2\EOT\128\SOH\n\
    \\GS\n\
    \\r\n\
    \\ENQ\EOT\SO\STX\ENQ\ETX\DC2\EOT\128\SOH !\n\
    \=\n\
    \\EOT\EOT\SO\STX\ACK\DC2\EOT\130\SOH\EOT#\SUB/ A flag to indicate if a connection is active.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SO\STX\ACK\ENQ\DC2\EOT\130\SOH\EOT\b\n\
    \\r\n\
    \\ENQ\EOT\SO\STX\ACK\SOH\DC2\EOT\130\SOH\t\RS\n\
    \\r\n\
    \\ENQ\EOT\SO\STX\ACK\ETX\DC2\EOT\130\SOH!\"\n\
    \\f\n\
    \\STX\EOT\SI\DC2\ACK\133\SOH\NUL\136\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\SI\SOH\DC2\EOT\133\SOH\b\US\n\
    \4\n\
    \\EOT\EOT\SI\STX\NUL\DC2\EOT\135\SOH\EOT\DC2\SUB& Server-generated unique endpoint ID.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\NUL\ENQ\DC2\EOT\135\SOH\EOT\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\NUL\SOH\DC2\EOT\135\SOH\v\r\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\NUL\ETX\DC2\EOT\135\SOH\DLE\DC1\n\
    \\f\n\
    \\STX\EOT\DLE\DC2\ACK\138\SOH\NUL\140\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\DLE\SOH\DC2\EOT\138\SOH\b \n\
    \\f\n\
    \\EOT\EOT\DLE\STX\NUL\DC2\EOT\139\SOH\EOT0\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\ACK\DC2\EOT\139\SOH\EOT\"\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\139\SOH#+\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\139\SOH./\n\
    \\f\n\
    \\STX\EOT\DC1\DC2\ACK\142\SOH\NUL\145\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\DC1\SOH\DC2\EOT\142\SOH\b\"\n\
    \.\n\
    \\EOT\EOT\DC1\STX\NUL\DC2\EOT\144\SOH\EOT0\SUB  Endpoint definition to create.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\NUL\ACK\DC2\EOT\144\SOH\EOT&\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\144\SOH'+\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\144\SOH./\n\
    \\f\n\
    \\STX\EOT\DC2\DC2\ACK\147\SOH\NUL\150\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\DC2\SOH\DC2\EOT\147\SOH\b#\n\
    \]\n\
    \\EOT\EOT\DC2\STX\NUL\DC2\EOT\149\SOH\EOT0\SUBO Data post acceptance. Can be used to issue additional updates to this record.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\NUL\ACK\DC2\EOT\149\SOH\EOT\"\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\NUL\SOH\DC2\EOT\149\SOH#+\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\NUL\ETX\DC2\EOT\149\SOH./\n\
    \\f\n\
    \\STX\EOT\DC3\DC2\ACK\152\SOH\NUL\159\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\DC3\SOH\DC2\EOT\152\SOH\b\"\n\
    \4\n\
    \\EOT\EOT\DC3\STX\NUL\DC2\EOT\154\SOH\EOT\DC2\SUB& Server-generated unique endpoint ID.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\ENQ\DC2\EOT\154\SOH\EOT\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\SOH\DC2\EOT\154\SOH\v\r\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\ETX\DC2\EOT\154\SOH\DLE\DC1\n\
    \K\n\
    \\EOT\EOT\DC3\STX\SOH\DC2\EOT\156\SOH\EOT\SYN\SUB= Data version for this endpoint. Must match current version.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\SOH\ENQ\DC2\EOT\156\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\SOH\SOH\DC2\EOT\156\SOH\n\
    \\DC1\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\SOH\ETX\DC2\EOT\156\SOH\DC4\NAK\n\
    \\f\n\
    \\EOT\EOT\DC3\STX\STX\DC2\EOT\158\SOH\EOT0\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\STX\ACK\DC2\EOT\158\SOH\EOT&\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\STX\SOH\DC2\EOT\158\SOH'+\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\STX\ETX\DC2\EOT\158\SOH./\n\
    \\f\n\
    \\STX\EOT\DC4\DC2\ACK\161\SOH\NUL\164\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\DC4\SOH\DC2\EOT\161\SOH\b#\n\
    \]\n\
    \\EOT\EOT\DC4\STX\NUL\DC2\EOT\163\SOH\EOT0\SUBO Data post acceptance. Can be used to issue additional updates to this record.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\NUL\ACK\DC2\EOT\163\SOH\EOT\"\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\NUL\SOH\DC2\EOT\163\SOH#+\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\NUL\ETX\DC2\EOT\163\SOH./\n\
    \\f\n\
    \\STX\EOT\NAK\DC2\ACK\166\SOH\NUL\171\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\NAK\SOH\DC2\EOT\166\SOH\b\"\n\
    \4\n\
    \\EOT\EOT\NAK\STX\NUL\DC2\EOT\168\SOH\EOT\DC2\SUB& Server-generated unique endpoint ID.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\ENQ\DC2\EOT\168\SOH\EOT\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\SOH\DC2\EOT\168\SOH\v\r\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\ETX\DC2\EOT\168\SOH\DLE\DC1\n\
    \K\n\
    \\EOT\EOT\NAK\STX\SOH\DC2\EOT\170\SOH\EOT\SYN\SUB= Data version for this endpoint. Must match current version.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\SOH\ENQ\DC2\EOT\170\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\SOH\SOH\DC2\EOT\170\SOH\n\
    \\DC1\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\SOH\ETX\DC2\EOT\170\SOH\DC4\NAK\n\
    \\f\n\
    \\STX\EOT\SYN\DC2\ACK\173\SOH\NUL\174\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\SYN\SOH\DC2\EOT\173\SOH\b#\n\
    \\f\n\
    \\STX\EOT\ETB\DC2\ACK\176\SOH\NUL\186\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\ETB\SOH\DC2\EOT\176\SOH\b!\n\
    \\f\n\
    \\EOT\EOT\ETB\STX\NUL\DC2\EOT\177\SOH\EOT\CAN\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\NUL\ENQ\DC2\EOT\177\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\NUL\SOH\DC2\EOT\177\SOH\n\
    \\DC3\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\NUL\ETX\DC2\EOT\177\SOH\SYN\ETB\n\
    \\159\STX\n\
    \\EOT\EOT\ETB\STX\SOH\DC2\EOT\181\SOH\EOT\RS\SUB\144\STX To get the next page, pass in `ListNexusEndpointsResponse.next_page_token` from the previous page's\n\
    \ response, the token will be empty if there's no other page.\n\
    \ Note: the last page may be empty if the total number of endpoints registered is a multiple of the page size.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\SOH\ENQ\DC2\EOT\181\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\SOH\SOH\DC2\EOT\181\SOH\n\
    \\EM\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\SOH\ETX\DC2\EOT\181\SOH\FS\GS\n\
    \\244\SOH\n\
    \\EOT\EOT\ETB\STX\STX\DC2\EOT\185\SOH\EOT\DC4\SUB\229\SOH Name of the incoming endpoint to filter on - optional. Specifying this will result in zero or one results.\n\
    \ (-- api-linter: core::203::field-behavior-required=disabled\n\
    \     aip.dev/not-precedent: Not following linter rules. --)\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\STX\ENQ\DC2\EOT\185\SOH\EOT\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\STX\SOH\DC2\EOT\185\SOH\v\SI\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\STX\ETX\DC2\EOT\185\SOH\DC2\DC3\n\
    \\f\n\
    \\STX\EOT\CAN\DC2\ACK\188\SOH\NUL\192\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\CAN\SOH\DC2\EOT\188\SOH\b\"\n\
    \0\n\
    \\EOT\EOT\CAN\STX\NUL\DC2\EOT\190\SOH\EOT\RS\SUB\" Token for getting the next page.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\NUL\ENQ\DC2\EOT\190\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\NUL\SOH\DC2\EOT\190\SOH\n\
    \\EM\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\NUL\ETX\DC2\EOT\190\SOH\FS\GS\n\
    \\f\n\
    \\EOT\EOT\CAN\STX\SOH\DC2\EOT\191\SOH\EOT:\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\SOH\EOT\DC2\EOT\191\SOH\EOT\f\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\SOH\ACK\DC2\EOT\191\SOH\r+\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\SOH\SOH\DC2\EOT\191\SOH,5\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\SOH\ETX\DC2\EOT\191\SOH89b\ACKproto3"