{- This file was auto-generated from temporal/api/namespace/v1/message.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Temporal.Api.Namespace.V1.Message (
        BadBinaries(), BadBinaries'BinariesEntry(), BadBinaryInfo(),
        NamespaceConfig(),
        NamespaceConfig'CustomSearchAttributeAliasesEntry(),
        NamespaceFilter(), NamespaceInfo(), NamespaceInfo'Capabilities(),
        NamespaceInfo'DataEntry(), UpdateNamespaceInfo(),
        UpdateNamespaceInfo'DataEntry()
    ) 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.Google.Protobuf.Timestamp
import qualified Proto.Temporal.Api.Enums.V1.Namespace
{- | Fields :
     
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.binaries' @:: Lens' BadBinaries (Data.Map.Map Data.Text.Text BadBinaryInfo)@ -}
data BadBinaries
  = BadBinaries'_constructor {BadBinaries -> Map Text BadBinaryInfo
_BadBinaries'binaries :: !(Data.Map.Map Data.Text.Text BadBinaryInfo),
                              BadBinaries -> FieldSet
_BadBinaries'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BadBinaries -> BadBinaries -> Bool
(BadBinaries -> BadBinaries -> Bool)
-> (BadBinaries -> BadBinaries -> Bool) -> Eq BadBinaries
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BadBinaries -> BadBinaries -> Bool
== :: BadBinaries -> BadBinaries -> Bool
$c/= :: BadBinaries -> BadBinaries -> Bool
/= :: BadBinaries -> BadBinaries -> Bool
Prelude.Eq, Eq BadBinaries
Eq BadBinaries =>
(BadBinaries -> BadBinaries -> Ordering)
-> (BadBinaries -> BadBinaries -> Bool)
-> (BadBinaries -> BadBinaries -> Bool)
-> (BadBinaries -> BadBinaries -> Bool)
-> (BadBinaries -> BadBinaries -> Bool)
-> (BadBinaries -> BadBinaries -> BadBinaries)
-> (BadBinaries -> BadBinaries -> BadBinaries)
-> Ord BadBinaries
BadBinaries -> BadBinaries -> Bool
BadBinaries -> BadBinaries -> Ordering
BadBinaries -> BadBinaries -> BadBinaries
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 :: BadBinaries -> BadBinaries -> Ordering
compare :: BadBinaries -> BadBinaries -> Ordering
$c< :: BadBinaries -> BadBinaries -> Bool
< :: BadBinaries -> BadBinaries -> Bool
$c<= :: BadBinaries -> BadBinaries -> Bool
<= :: BadBinaries -> BadBinaries -> Bool
$c> :: BadBinaries -> BadBinaries -> Bool
> :: BadBinaries -> BadBinaries -> Bool
$c>= :: BadBinaries -> BadBinaries -> Bool
>= :: BadBinaries -> BadBinaries -> Bool
$cmax :: BadBinaries -> BadBinaries -> BadBinaries
max :: BadBinaries -> BadBinaries -> BadBinaries
$cmin :: BadBinaries -> BadBinaries -> BadBinaries
min :: BadBinaries -> BadBinaries -> BadBinaries
Prelude.Ord)
instance Prelude.Show BadBinaries where
  showsPrec :: Int -> BadBinaries -> ShowS
showsPrec Int
_ BadBinaries
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (BadBinaries -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BadBinaries
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField BadBinaries "binaries" (Data.Map.Map Data.Text.Text BadBinaryInfo) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "binaries"
-> (Map Text BadBinaryInfo -> f (Map Text BadBinaryInfo))
-> BadBinaries
-> f BadBinaries
fieldOf Proxy# "binaries"
_
    = ((Map Text BadBinaryInfo -> f (Map Text BadBinaryInfo))
 -> BadBinaries -> f BadBinaries)
-> ((Map Text BadBinaryInfo -> f (Map Text BadBinaryInfo))
    -> Map Text BadBinaryInfo -> f (Map Text BadBinaryInfo))
-> (Map Text BadBinaryInfo -> f (Map Text BadBinaryInfo))
-> BadBinaries
-> f BadBinaries
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BadBinaries -> Map Text BadBinaryInfo)
-> (BadBinaries -> Map Text BadBinaryInfo -> BadBinaries)
-> Lens
     BadBinaries
     BadBinaries
     (Map Text BadBinaryInfo)
     (Map Text BadBinaryInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BadBinaries -> Map Text BadBinaryInfo
_BadBinaries'binaries
           (\ BadBinaries
x__ Map Text BadBinaryInfo
y__ -> BadBinaries
x__ {_BadBinaries'binaries = y__}))
        (Map Text BadBinaryInfo -> f (Map Text BadBinaryInfo))
-> Map Text BadBinaryInfo -> f (Map Text BadBinaryInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BadBinaries where
  messageName :: Proxy BadBinaries -> Text
messageName Proxy BadBinaries
_
    = String -> Text
Data.Text.pack String
"temporal.api.namespace.v1.BadBinaries"
  packedMessageDescriptor :: Proxy BadBinaries -> ByteString
packedMessageDescriptor Proxy BadBinaries
_
    = ByteString
"\n\
      \\vBadBinaries\DC2P\n\
      \\bbinaries\CAN\SOH \ETX(\v24.temporal.api.namespace.v1.BadBinaries.BinariesEntryR\bbinaries\SUBe\n\
      \\rBinariesEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2>\n\
      \\ENQvalue\CAN\STX \SOH(\v2(.temporal.api.namespace.v1.BadBinaryInfoR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy BadBinaries -> ByteString
packedFileDescriptor Proxy BadBinaries
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BadBinaries)
fieldsByTag
    = let
        binaries__field_descriptor :: FieldDescriptor BadBinaries
binaries__field_descriptor
          = String
-> FieldTypeDescriptor BadBinaries'BinariesEntry
-> FieldAccessor BadBinaries BadBinaries'BinariesEntry
-> FieldDescriptor BadBinaries
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"binaries"
              (MessageOrGroup -> FieldTypeDescriptor BadBinaries'BinariesEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BadBinaries'BinariesEntry)
              (Lens' BadBinaries'BinariesEntry Text
-> Lens' BadBinaries'BinariesEntry BadBinaryInfo
-> Lens
     BadBinaries
     BadBinaries
     (Map Text BadBinaryInfo)
     (Map Text BadBinaryInfo)
-> FieldAccessor BadBinaries BadBinaries'BinariesEntry
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 @"binaries")) ::
              Data.ProtoLens.FieldDescriptor BadBinaries
      in
        [(Tag, FieldDescriptor BadBinaries)]
-> Map Tag (FieldDescriptor BadBinaries)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor BadBinaries
binaries__field_descriptor)]
  unknownFields :: Lens' BadBinaries FieldSet
unknownFields
    = (BadBinaries -> FieldSet)
-> (BadBinaries -> FieldSet -> BadBinaries)
-> Lens' BadBinaries FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BadBinaries -> FieldSet
_BadBinaries'_unknownFields
        (\ BadBinaries
x__ FieldSet
y__ -> BadBinaries
x__ {_BadBinaries'_unknownFields = y__})
  defMessage :: BadBinaries
defMessage
    = BadBinaries'_constructor
        {_BadBinaries'binaries :: Map Text BadBinaryInfo
_BadBinaries'binaries = Map Text BadBinaryInfo
forall k a. Map k a
Data.Map.empty,
         _BadBinaries'_unknownFields :: FieldSet
_BadBinaries'_unknownFields = []}
  parseMessage :: Parser BadBinaries
parseMessage
    = let
        loop ::
          BadBinaries -> Data.ProtoLens.Encoding.Bytes.Parser BadBinaries
        loop :: BadBinaries -> Parser BadBinaries
loop BadBinaries
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 :: BadBinaries'BinariesEntry) <- Parser BadBinaries'BinariesEntry
-> String -> Parser BadBinaries'BinariesEntry
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
"binaries"
                                (let
                                   key = FoldLike
  Text BadBinaries'BinariesEntry BadBinaries'BinariesEntry Text Text
-> BadBinaries'BinariesEntry -> 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") BadBinaries'BinariesEntry
entry
                                   value
                                     = FoldLike
  BadBinaryInfo
  BadBinaries'BinariesEntry
  BadBinaries'BinariesEntry
  BadBinaryInfo
  BadBinaryInfo
-> BadBinaries'BinariesEntry -> BadBinaryInfo
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") BadBinaries'BinariesEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"binaries")
                                        (\ !Map Text BadBinaryInfo
t -> Text
-> BadBinaryInfo
-> Map Text BadBinaryInfo
-> Map Text BadBinaryInfo
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key BadBinaryInfo
value Map Text BadBinaryInfo
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 BadBinaries -> String -> Parser BadBinaries
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do BadBinaries -> Parser BadBinaries
loop BadBinaries
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"BadBinaries"
  buildMessage :: BadBinaries -> Builder
buildMessage
    = \ BadBinaries
_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, BadBinaryInfo) -> Builder)
-> [(Text, BadBinaryInfo)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                   (\ (Text, BadBinaryInfo)
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                           ((ByteString -> Builder)
-> (BadBinaries'BinariesEntry -> ByteString)
-> BadBinaries'BinariesEntry
-> 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))
                              BadBinaries'BinariesEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              (Setter
  BadBinaries'BinariesEntry BadBinaries'BinariesEntry Text Text
-> Text -> BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry
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, BadBinaryInfo) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, BadBinaryInfo)
_v)
                                 (Setter
  BadBinaries'BinariesEntry
  BadBinaries'BinariesEntry
  BadBinaryInfo
  BadBinaryInfo
-> BadBinaryInfo
-> BadBinaries'BinariesEntry
-> BadBinaries'BinariesEntry
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, BadBinaryInfo) -> BadBinaryInfo
forall a b. (a, b) -> b
Prelude.snd (Text, BadBinaryInfo)
_v)
                                    (BadBinaries'BinariesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: BadBinaries'BinariesEntry)))))
                   (Map Text BadBinaryInfo -> [(Text, BadBinaryInfo)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                      (FoldLike
  (Map Text BadBinaryInfo)
  BadBinaries
  BadBinaries
  (Map Text BadBinaryInfo)
  (Map Text BadBinaryInfo)
-> BadBinaries -> Map Text BadBinaryInfo
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 @"binaries") BadBinaries
_x))))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet BadBinaries BadBinaries FieldSet FieldSet
-> BadBinaries -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet BadBinaries BadBinaries FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BadBinaries FieldSet
Data.ProtoLens.unknownFields BadBinaries
_x))
instance Control.DeepSeq.NFData BadBinaries where
  rnf :: BadBinaries -> ()
rnf
    = \ BadBinaries
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BadBinaries -> FieldSet
_BadBinaries'_unknownFields BadBinaries
x__)
             (Map Text BadBinaryInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (BadBinaries -> Map Text BadBinaryInfo
_BadBinaries'binaries BadBinaries
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.key' @:: Lens' BadBinaries'BinariesEntry Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.value' @:: Lens' BadBinaries'BinariesEntry BadBinaryInfo@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.maybe'value' @:: Lens' BadBinaries'BinariesEntry (Prelude.Maybe BadBinaryInfo)@ -}
data BadBinaries'BinariesEntry
  = BadBinaries'BinariesEntry'_constructor {BadBinaries'BinariesEntry -> Text
_BadBinaries'BinariesEntry'key :: !Data.Text.Text,
                                            BadBinaries'BinariesEntry -> Maybe BadBinaryInfo
_BadBinaries'BinariesEntry'value :: !(Prelude.Maybe BadBinaryInfo),
                                            BadBinaries'BinariesEntry -> FieldSet
_BadBinaries'BinariesEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
(BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool)
-> (BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool)
-> Eq BadBinaries'BinariesEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
== :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
$c/= :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
/= :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
Prelude.Eq, Eq BadBinaries'BinariesEntry
Eq BadBinaries'BinariesEntry =>
(BadBinaries'BinariesEntry
 -> BadBinaries'BinariesEntry -> Ordering)
-> (BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool)
-> (BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool)
-> (BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool)
-> (BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool)
-> (BadBinaries'BinariesEntry
    -> BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry)
-> (BadBinaries'BinariesEntry
    -> BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry)
-> Ord BadBinaries'BinariesEntry
BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Ordering
BadBinaries'BinariesEntry
-> BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry
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 :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Ordering
compare :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Ordering
$c< :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
< :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
$c<= :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
<= :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
$c> :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
> :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
$c>= :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
>= :: BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry -> Bool
$cmax :: BadBinaries'BinariesEntry
-> BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry
max :: BadBinaries'BinariesEntry
-> BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry
$cmin :: BadBinaries'BinariesEntry
-> BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry
min :: BadBinaries'BinariesEntry
-> BadBinaries'BinariesEntry -> BadBinaries'BinariesEntry
Prelude.Ord)
instance Prelude.Show BadBinaries'BinariesEntry where
  showsPrec :: Int -> BadBinaries'BinariesEntry -> ShowS
showsPrec Int
_ BadBinaries'BinariesEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (BadBinaries'BinariesEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BadBinaries'BinariesEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField BadBinaries'BinariesEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> BadBinaries'BinariesEntry
-> f BadBinaries'BinariesEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> BadBinaries'BinariesEntry -> f BadBinaries'BinariesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BadBinaries'BinariesEntry
-> f BadBinaries'BinariesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BadBinaries'BinariesEntry -> Text)
-> (BadBinaries'BinariesEntry -> Text -> BadBinaries'BinariesEntry)
-> Lens' BadBinaries'BinariesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BadBinaries'BinariesEntry -> Text
_BadBinaries'BinariesEntry'key
           (\ BadBinaries'BinariesEntry
x__ Text
y__ -> BadBinaries'BinariesEntry
x__ {_BadBinaries'BinariesEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BadBinaries'BinariesEntry "value" BadBinaryInfo where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (BadBinaryInfo -> f BadBinaryInfo)
-> BadBinaries'BinariesEntry
-> f BadBinaries'BinariesEntry
fieldOf Proxy# "value"
_
    = ((Maybe BadBinaryInfo -> f (Maybe BadBinaryInfo))
 -> BadBinaries'BinariesEntry -> f BadBinaries'BinariesEntry)
-> ((BadBinaryInfo -> f BadBinaryInfo)
    -> Maybe BadBinaryInfo -> f (Maybe BadBinaryInfo))
-> (BadBinaryInfo -> f BadBinaryInfo)
-> BadBinaries'BinariesEntry
-> f BadBinaries'BinariesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BadBinaries'BinariesEntry -> Maybe BadBinaryInfo)
-> (BadBinaries'BinariesEntry
    -> Maybe BadBinaryInfo -> BadBinaries'BinariesEntry)
-> Lens
     BadBinaries'BinariesEntry
     BadBinaries'BinariesEntry
     (Maybe BadBinaryInfo)
     (Maybe BadBinaryInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BadBinaries'BinariesEntry -> Maybe BadBinaryInfo
_BadBinaries'BinariesEntry'value
           (\ BadBinaries'BinariesEntry
x__ Maybe BadBinaryInfo
y__ -> BadBinaries'BinariesEntry
x__ {_BadBinaries'BinariesEntry'value = y__}))
        (BadBinaryInfo -> Lens' (Maybe BadBinaryInfo) BadBinaryInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens BadBinaryInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField BadBinaries'BinariesEntry "maybe'value" (Prelude.Maybe BadBinaryInfo) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'value"
-> (Maybe BadBinaryInfo -> f (Maybe BadBinaryInfo))
-> BadBinaries'BinariesEntry
-> f BadBinaries'BinariesEntry
fieldOf Proxy# "maybe'value"
_
    = ((Maybe BadBinaryInfo -> f (Maybe BadBinaryInfo))
 -> BadBinaries'BinariesEntry -> f BadBinaries'BinariesEntry)
-> ((Maybe BadBinaryInfo -> f (Maybe BadBinaryInfo))
    -> Maybe BadBinaryInfo -> f (Maybe BadBinaryInfo))
-> (Maybe BadBinaryInfo -> f (Maybe BadBinaryInfo))
-> BadBinaries'BinariesEntry
-> f BadBinaries'BinariesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BadBinaries'BinariesEntry -> Maybe BadBinaryInfo)
-> (BadBinaries'BinariesEntry
    -> Maybe BadBinaryInfo -> BadBinaries'BinariesEntry)
-> Lens
     BadBinaries'BinariesEntry
     BadBinaries'BinariesEntry
     (Maybe BadBinaryInfo)
     (Maybe BadBinaryInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BadBinaries'BinariesEntry -> Maybe BadBinaryInfo
_BadBinaries'BinariesEntry'value
           (\ BadBinaries'BinariesEntry
x__ Maybe BadBinaryInfo
y__ -> BadBinaries'BinariesEntry
x__ {_BadBinaries'BinariesEntry'value = y__}))
        (Maybe BadBinaryInfo -> f (Maybe BadBinaryInfo))
-> Maybe BadBinaryInfo -> f (Maybe BadBinaryInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BadBinaries'BinariesEntry where
  messageName :: Proxy BadBinaries'BinariesEntry -> Text
messageName Proxy BadBinaries'BinariesEntry
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.namespace.v1.BadBinaries.BinariesEntry"
  packedMessageDescriptor :: Proxy BadBinaries'BinariesEntry -> ByteString
packedMessageDescriptor Proxy BadBinaries'BinariesEntry
_
    = ByteString
"\n\
      \\rBinariesEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2>\n\
      \\ENQvalue\CAN\STX \SOH(\v2(.temporal.api.namespace.v1.BadBinaryInfoR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy BadBinaries'BinariesEntry -> ByteString
packedFileDescriptor Proxy BadBinaries'BinariesEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BadBinaries'BinariesEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor BadBinaries'BinariesEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BadBinaries'BinariesEntry Text
-> FieldDescriptor BadBinaries'BinariesEntry
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' BadBinaries'BinariesEntry Text
-> FieldAccessor BadBinaries'BinariesEntry 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 BadBinaries'BinariesEntry
        value__field_descriptor :: FieldDescriptor BadBinaries'BinariesEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor BadBinaryInfo
-> FieldAccessor BadBinaries'BinariesEntry BadBinaryInfo
-> FieldDescriptor BadBinaries'BinariesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (MessageOrGroup -> FieldTypeDescriptor BadBinaryInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BadBinaryInfo)
              (Lens
  BadBinaries'BinariesEntry
  BadBinaries'BinariesEntry
  (Maybe BadBinaryInfo)
  (Maybe BadBinaryInfo)
-> FieldAccessor BadBinaries'BinariesEntry BadBinaryInfo
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'value")) ::
              Data.ProtoLens.FieldDescriptor BadBinaries'BinariesEntry
      in
        [(Tag, FieldDescriptor BadBinaries'BinariesEntry)]
-> Map Tag (FieldDescriptor BadBinaries'BinariesEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor BadBinaries'BinariesEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor BadBinaries'BinariesEntry
value__field_descriptor)]
  unknownFields :: Lens' BadBinaries'BinariesEntry FieldSet
unknownFields
    = (BadBinaries'BinariesEntry -> FieldSet)
-> (BadBinaries'BinariesEntry
    -> FieldSet -> BadBinaries'BinariesEntry)
-> Lens' BadBinaries'BinariesEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BadBinaries'BinariesEntry -> FieldSet
_BadBinaries'BinariesEntry'_unknownFields
        (\ BadBinaries'BinariesEntry
x__ FieldSet
y__
           -> BadBinaries'BinariesEntry
x__ {_BadBinaries'BinariesEntry'_unknownFields = y__})
  defMessage :: BadBinaries'BinariesEntry
defMessage
    = BadBinaries'BinariesEntry'_constructor
        {_BadBinaries'BinariesEntry'key :: Text
_BadBinaries'BinariesEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BadBinaries'BinariesEntry'value :: Maybe BadBinaryInfo
_BadBinaries'BinariesEntry'value = Maybe BadBinaryInfo
forall a. Maybe a
Prelude.Nothing,
         _BadBinaries'BinariesEntry'_unknownFields :: FieldSet
_BadBinaries'BinariesEntry'_unknownFields = []}
  parseMessage :: Parser BadBinaries'BinariesEntry
parseMessage
    = let
        loop ::
          BadBinaries'BinariesEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser BadBinaries'BinariesEntry
        loop :: BadBinaries'BinariesEntry -> Parser BadBinaries'BinariesEntry
loop BadBinaries'BinariesEntry
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 BadBinaryInfo -> String -> Parser BadBinaryInfo
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
"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 BadBinaries'BinariesEntry
-> String -> Parser BadBinaries'BinariesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do BadBinaries'BinariesEntry -> Parser BadBinaries'BinariesEntry
loop BadBinaries'BinariesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"BinariesEntry"
  buildMessage :: BadBinaries'BinariesEntry -> Builder
buildMessage
    = \ BadBinaries'BinariesEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text BadBinaries'BinariesEntry BadBinaries'BinariesEntry Text Text
-> BadBinaries'BinariesEntry -> 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") BadBinaries'BinariesEntry
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe BadBinaryInfo)
  BadBinaries'BinariesEntry
  BadBinaries'BinariesEntry
  (Maybe BadBinaryInfo)
  (Maybe BadBinaryInfo)
-> BadBinaries'BinariesEntry -> Maybe BadBinaryInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value") BadBinaries'BinariesEntry
_x
                 of
                   Maybe BadBinaryInfo
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just BadBinaryInfo
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (BadBinaryInfo -> ByteString) -> BadBinaryInfo -> 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))
                             BadBinaryInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage BadBinaryInfo
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  BadBinaries'BinariesEntry
  BadBinaries'BinariesEntry
  FieldSet
  FieldSet
-> BadBinaries'BinariesEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  BadBinaries'BinariesEntry
  BadBinaries'BinariesEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BadBinaries'BinariesEntry FieldSet
Data.ProtoLens.unknownFields BadBinaries'BinariesEntry
_x)))
instance Control.DeepSeq.NFData BadBinaries'BinariesEntry where
  rnf :: BadBinaries'BinariesEntry -> ()
rnf
    = \ BadBinaries'BinariesEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BadBinaries'BinariesEntry -> FieldSet
_BadBinaries'BinariesEntry'_unknownFields BadBinaries'BinariesEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (BadBinaries'BinariesEntry -> Text
_BadBinaries'BinariesEntry'key BadBinaries'BinariesEntry
x__)
                (Maybe BadBinaryInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (BadBinaries'BinariesEntry -> Maybe BadBinaryInfo
_BadBinaries'BinariesEntry'value BadBinaries'BinariesEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.reason' @:: Lens' BadBinaryInfo Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.operator' @:: Lens' BadBinaryInfo Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.createTime' @:: Lens' BadBinaryInfo Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.maybe'createTime' @:: Lens' BadBinaryInfo (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@ -}
data BadBinaryInfo
  = BadBinaryInfo'_constructor {BadBinaryInfo -> Text
_BadBinaryInfo'reason :: !Data.Text.Text,
                                BadBinaryInfo -> Text
_BadBinaryInfo'operator :: !Data.Text.Text,
                                BadBinaryInfo -> Maybe Timestamp
_BadBinaryInfo'createTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                                BadBinaryInfo -> FieldSet
_BadBinaryInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BadBinaryInfo -> BadBinaryInfo -> Bool
(BadBinaryInfo -> BadBinaryInfo -> Bool)
-> (BadBinaryInfo -> BadBinaryInfo -> Bool) -> Eq BadBinaryInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BadBinaryInfo -> BadBinaryInfo -> Bool
== :: BadBinaryInfo -> BadBinaryInfo -> Bool
$c/= :: BadBinaryInfo -> BadBinaryInfo -> Bool
/= :: BadBinaryInfo -> BadBinaryInfo -> Bool
Prelude.Eq, Eq BadBinaryInfo
Eq BadBinaryInfo =>
(BadBinaryInfo -> BadBinaryInfo -> Ordering)
-> (BadBinaryInfo -> BadBinaryInfo -> Bool)
-> (BadBinaryInfo -> BadBinaryInfo -> Bool)
-> (BadBinaryInfo -> BadBinaryInfo -> Bool)
-> (BadBinaryInfo -> BadBinaryInfo -> Bool)
-> (BadBinaryInfo -> BadBinaryInfo -> BadBinaryInfo)
-> (BadBinaryInfo -> BadBinaryInfo -> BadBinaryInfo)
-> Ord BadBinaryInfo
BadBinaryInfo -> BadBinaryInfo -> Bool
BadBinaryInfo -> BadBinaryInfo -> Ordering
BadBinaryInfo -> BadBinaryInfo -> BadBinaryInfo
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 :: BadBinaryInfo -> BadBinaryInfo -> Ordering
compare :: BadBinaryInfo -> BadBinaryInfo -> Ordering
$c< :: BadBinaryInfo -> BadBinaryInfo -> Bool
< :: BadBinaryInfo -> BadBinaryInfo -> Bool
$c<= :: BadBinaryInfo -> BadBinaryInfo -> Bool
<= :: BadBinaryInfo -> BadBinaryInfo -> Bool
$c> :: BadBinaryInfo -> BadBinaryInfo -> Bool
> :: BadBinaryInfo -> BadBinaryInfo -> Bool
$c>= :: BadBinaryInfo -> BadBinaryInfo -> Bool
>= :: BadBinaryInfo -> BadBinaryInfo -> Bool
$cmax :: BadBinaryInfo -> BadBinaryInfo -> BadBinaryInfo
max :: BadBinaryInfo -> BadBinaryInfo -> BadBinaryInfo
$cmin :: BadBinaryInfo -> BadBinaryInfo -> BadBinaryInfo
min :: BadBinaryInfo -> BadBinaryInfo -> BadBinaryInfo
Prelude.Ord)
instance Prelude.Show BadBinaryInfo where
  showsPrec :: Int -> BadBinaryInfo -> ShowS
showsPrec Int
_ BadBinaryInfo
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (BadBinaryInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BadBinaryInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField BadBinaryInfo "reason" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "reason"
-> (Text -> f Text) -> BadBinaryInfo -> f BadBinaryInfo
fieldOf Proxy# "reason"
_
    = ((Text -> f Text) -> BadBinaryInfo -> f BadBinaryInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BadBinaryInfo
-> f BadBinaryInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BadBinaryInfo -> Text)
-> (BadBinaryInfo -> Text -> BadBinaryInfo)
-> Lens BadBinaryInfo BadBinaryInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BadBinaryInfo -> Text
_BadBinaryInfo'reason
           (\ BadBinaryInfo
x__ Text
y__ -> BadBinaryInfo
x__ {_BadBinaryInfo'reason = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BadBinaryInfo "operator" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "operator"
-> (Text -> f Text) -> BadBinaryInfo -> f BadBinaryInfo
fieldOf Proxy# "operator"
_
    = ((Text -> f Text) -> BadBinaryInfo -> f BadBinaryInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BadBinaryInfo
-> f BadBinaryInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BadBinaryInfo -> Text)
-> (BadBinaryInfo -> Text -> BadBinaryInfo)
-> Lens BadBinaryInfo BadBinaryInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BadBinaryInfo -> Text
_BadBinaryInfo'operator
           (\ BadBinaryInfo
x__ Text
y__ -> BadBinaryInfo
x__ {_BadBinaryInfo'operator = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BadBinaryInfo "createTime" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "createTime"
-> (Timestamp -> f Timestamp) -> BadBinaryInfo -> f BadBinaryInfo
fieldOf Proxy# "createTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> BadBinaryInfo -> f BadBinaryInfo)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> BadBinaryInfo
-> f BadBinaryInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BadBinaryInfo -> Maybe Timestamp)
-> (BadBinaryInfo -> Maybe Timestamp -> BadBinaryInfo)
-> Lens
     BadBinaryInfo BadBinaryInfo (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BadBinaryInfo -> Maybe Timestamp
_BadBinaryInfo'createTime
           (\ BadBinaryInfo
x__ Maybe Timestamp
y__ -> BadBinaryInfo
x__ {_BadBinaryInfo'createTime = y__}))
        (Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField BadBinaryInfo "maybe'createTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'createTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> BadBinaryInfo
-> f BadBinaryInfo
fieldOf Proxy# "maybe'createTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> BadBinaryInfo -> f BadBinaryInfo)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> BadBinaryInfo
-> f BadBinaryInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BadBinaryInfo -> Maybe Timestamp)
-> (BadBinaryInfo -> Maybe Timestamp -> BadBinaryInfo)
-> Lens
     BadBinaryInfo BadBinaryInfo (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BadBinaryInfo -> Maybe Timestamp
_BadBinaryInfo'createTime
           (\ BadBinaryInfo
x__ Maybe Timestamp
y__ -> BadBinaryInfo
x__ {_BadBinaryInfo'createTime = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BadBinaryInfo where
  messageName :: Proxy BadBinaryInfo -> Text
messageName Proxy BadBinaryInfo
_
    = String -> Text
Data.Text.pack String
"temporal.api.namespace.v1.BadBinaryInfo"
  packedMessageDescriptor :: Proxy BadBinaryInfo -> ByteString
packedMessageDescriptor Proxy BadBinaryInfo
_
    = ByteString
"\n\
      \\rBadBinaryInfo\DC2\SYN\n\
      \\ACKreason\CAN\SOH \SOH(\tR\ACKreason\DC2\SUB\n\
      \\boperator\CAN\STX \SOH(\tR\boperator\DC2;\n\
      \\vcreate_time\CAN\ETX \SOH(\v2\SUB.google.protobuf.TimestampR\n\
      \createTime"
  packedFileDescriptor :: Proxy BadBinaryInfo -> ByteString
packedFileDescriptor Proxy BadBinaryInfo
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BadBinaryInfo)
fieldsByTag
    = let
        reason__field_descriptor :: FieldDescriptor BadBinaryInfo
reason__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BadBinaryInfo Text
-> FieldDescriptor BadBinaryInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"reason"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BadBinaryInfo BadBinaryInfo Text Text
-> FieldAccessor BadBinaryInfo Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reason")) ::
              Data.ProtoLens.FieldDescriptor BadBinaryInfo
        operator__field_descriptor :: FieldDescriptor BadBinaryInfo
operator__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BadBinaryInfo Text
-> FieldDescriptor BadBinaryInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"operator"
              (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 BadBinaryInfo BadBinaryInfo Text Text
-> FieldAccessor BadBinaryInfo 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 @"operator")) ::
              Data.ProtoLens.FieldDescriptor BadBinaryInfo
        createTime__field_descriptor :: FieldDescriptor BadBinaryInfo
createTime__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor BadBinaryInfo Timestamp
-> FieldDescriptor BadBinaryInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"create_time"
              (MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
              (Lens
  BadBinaryInfo BadBinaryInfo (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor BadBinaryInfo Timestamp
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'createTime")) ::
              Data.ProtoLens.FieldDescriptor BadBinaryInfo
      in
        [(Tag, FieldDescriptor BadBinaryInfo)]
-> Map Tag (FieldDescriptor BadBinaryInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor BadBinaryInfo
reason__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor BadBinaryInfo
operator__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor BadBinaryInfo
createTime__field_descriptor)]
  unknownFields :: Lens' BadBinaryInfo FieldSet
unknownFields
    = (BadBinaryInfo -> FieldSet)
-> (BadBinaryInfo -> FieldSet -> BadBinaryInfo)
-> Lens' BadBinaryInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BadBinaryInfo -> FieldSet
_BadBinaryInfo'_unknownFields
        (\ BadBinaryInfo
x__ FieldSet
y__ -> BadBinaryInfo
x__ {_BadBinaryInfo'_unknownFields = y__})
  defMessage :: BadBinaryInfo
defMessage
    = BadBinaryInfo'_constructor
        {_BadBinaryInfo'reason :: Text
_BadBinaryInfo'reason = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BadBinaryInfo'operator :: Text
_BadBinaryInfo'operator = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BadBinaryInfo'createTime :: Maybe Timestamp
_BadBinaryInfo'createTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _BadBinaryInfo'_unknownFields :: FieldSet
_BadBinaryInfo'_unknownFields = []}
  parseMessage :: Parser BadBinaryInfo
parseMessage
    = let
        loop ::
          BadBinaryInfo -> Data.ProtoLens.Encoding.Bytes.Parser BadBinaryInfo
        loop :: BadBinaryInfo -> Parser BadBinaryInfo
loop BadBinaryInfo
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"reason"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"reason") y x)
                        Word64
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
"operator"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"operator") y x)
                        Word64
26
                          -> do y <- Parser Timestamp -> String -> Parser Timestamp
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"create_time"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"createTime") 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 BadBinaryInfo -> String -> Parser BadBinaryInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do BadBinaryInfo -> Parser BadBinaryInfo
loop BadBinaryInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"BadBinaryInfo"
  buildMessage :: BadBinaryInfo -> Builder
buildMessage
    = \ BadBinaryInfo
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text BadBinaryInfo BadBinaryInfo Text Text
-> BadBinaryInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reason") BadBinaryInfo
_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 BadBinaryInfo BadBinaryInfo Text Text
-> BadBinaryInfo -> 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 @"operator") BadBinaryInfo
_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 Timestamp)
  BadBinaryInfo
  BadBinaryInfo
  (Maybe Timestamp)
  (Maybe Timestamp)
-> BadBinaryInfo -> Maybe Timestamp
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'createTime") BadBinaryInfo
_x
                    of
                      Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just Timestamp
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet BadBinaryInfo BadBinaryInfo FieldSet FieldSet
-> BadBinaryInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet BadBinaryInfo BadBinaryInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BadBinaryInfo FieldSet
Data.ProtoLens.unknownFields BadBinaryInfo
_x))))
instance Control.DeepSeq.NFData BadBinaryInfo where
  rnf :: BadBinaryInfo -> ()
rnf
    = \ BadBinaryInfo
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BadBinaryInfo -> FieldSet
_BadBinaryInfo'_unknownFields BadBinaryInfo
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (BadBinaryInfo -> Text
_BadBinaryInfo'reason BadBinaryInfo
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (BadBinaryInfo -> Text
_BadBinaryInfo'operator BadBinaryInfo
x__)
                   (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (BadBinaryInfo -> Maybe Timestamp
_BadBinaryInfo'createTime BadBinaryInfo
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.workflowExecutionRetentionTtl' @:: Lens' NamespaceConfig Proto.Google.Protobuf.Duration.Duration@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.maybe'workflowExecutionRetentionTtl' @:: Lens' NamespaceConfig (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration)@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.badBinaries' @:: Lens' NamespaceConfig BadBinaries@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.maybe'badBinaries' @:: Lens' NamespaceConfig (Prelude.Maybe BadBinaries)@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.historyArchivalState' @:: Lens' NamespaceConfig Proto.Temporal.Api.Enums.V1.Namespace.ArchivalState@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.historyArchivalUri' @:: Lens' NamespaceConfig Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.visibilityArchivalState' @:: Lens' NamespaceConfig Proto.Temporal.Api.Enums.V1.Namespace.ArchivalState@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.visibilityArchivalUri' @:: Lens' NamespaceConfig Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.customSearchAttributeAliases' @:: Lens' NamespaceConfig (Data.Map.Map Data.Text.Text Data.Text.Text)@ -}
data NamespaceConfig
  = NamespaceConfig'_constructor {NamespaceConfig -> Maybe Duration
_NamespaceConfig'workflowExecutionRetentionTtl :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
                                  NamespaceConfig -> Maybe BadBinaries
_NamespaceConfig'badBinaries :: !(Prelude.Maybe BadBinaries),
                                  NamespaceConfig -> ArchivalState
_NamespaceConfig'historyArchivalState :: !Proto.Temporal.Api.Enums.V1.Namespace.ArchivalState,
                                  NamespaceConfig -> Text
_NamespaceConfig'historyArchivalUri :: !Data.Text.Text,
                                  NamespaceConfig -> ArchivalState
_NamespaceConfig'visibilityArchivalState :: !Proto.Temporal.Api.Enums.V1.Namespace.ArchivalState,
                                  NamespaceConfig -> Text
_NamespaceConfig'visibilityArchivalUri :: !Data.Text.Text,
                                  NamespaceConfig -> Map Text Text
_NamespaceConfig'customSearchAttributeAliases :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
                                  NamespaceConfig -> FieldSet
_NamespaceConfig'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NamespaceConfig -> NamespaceConfig -> Bool
(NamespaceConfig -> NamespaceConfig -> Bool)
-> (NamespaceConfig -> NamespaceConfig -> Bool)
-> Eq NamespaceConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceConfig -> NamespaceConfig -> Bool
== :: NamespaceConfig -> NamespaceConfig -> Bool
$c/= :: NamespaceConfig -> NamespaceConfig -> Bool
/= :: NamespaceConfig -> NamespaceConfig -> Bool
Prelude.Eq, Eq NamespaceConfig
Eq NamespaceConfig =>
(NamespaceConfig -> NamespaceConfig -> Ordering)
-> (NamespaceConfig -> NamespaceConfig -> Bool)
-> (NamespaceConfig -> NamespaceConfig -> Bool)
-> (NamespaceConfig -> NamespaceConfig -> Bool)
-> (NamespaceConfig -> NamespaceConfig -> Bool)
-> (NamespaceConfig -> NamespaceConfig -> NamespaceConfig)
-> (NamespaceConfig -> NamespaceConfig -> NamespaceConfig)
-> Ord NamespaceConfig
NamespaceConfig -> NamespaceConfig -> Bool
NamespaceConfig -> NamespaceConfig -> Ordering
NamespaceConfig -> NamespaceConfig -> NamespaceConfig
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 :: NamespaceConfig -> NamespaceConfig -> Ordering
compare :: NamespaceConfig -> NamespaceConfig -> Ordering
$c< :: NamespaceConfig -> NamespaceConfig -> Bool
< :: NamespaceConfig -> NamespaceConfig -> Bool
$c<= :: NamespaceConfig -> NamespaceConfig -> Bool
<= :: NamespaceConfig -> NamespaceConfig -> Bool
$c> :: NamespaceConfig -> NamespaceConfig -> Bool
> :: NamespaceConfig -> NamespaceConfig -> Bool
$c>= :: NamespaceConfig -> NamespaceConfig -> Bool
>= :: NamespaceConfig -> NamespaceConfig -> Bool
$cmax :: NamespaceConfig -> NamespaceConfig -> NamespaceConfig
max :: NamespaceConfig -> NamespaceConfig -> NamespaceConfig
$cmin :: NamespaceConfig -> NamespaceConfig -> NamespaceConfig
min :: NamespaceConfig -> NamespaceConfig -> NamespaceConfig
Prelude.Ord)
instance Prelude.Show NamespaceConfig where
  showsPrec :: Int -> NamespaceConfig -> ShowS
showsPrec Int
_ NamespaceConfig
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NamespaceConfig -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NamespaceConfig
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NamespaceConfig "workflowExecutionRetentionTtl" Proto.Google.Protobuf.Duration.Duration where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowExecutionRetentionTtl"
-> (Duration -> f Duration) -> NamespaceConfig -> f NamespaceConfig
fieldOf Proxy# "workflowExecutionRetentionTtl"
_
    = ((Maybe Duration -> f (Maybe Duration))
 -> NamespaceConfig -> f NamespaceConfig)
-> ((Duration -> f Duration)
    -> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> NamespaceConfig
-> f NamespaceConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceConfig -> Maybe Duration)
-> (NamespaceConfig -> Maybe Duration -> NamespaceConfig)
-> Lens
     NamespaceConfig NamespaceConfig (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceConfig -> Maybe Duration
_NamespaceConfig'workflowExecutionRetentionTtl
           (\ NamespaceConfig
x__ Maybe Duration
y__
              -> NamespaceConfig
x__ {_NamespaceConfig'workflowExecutionRetentionTtl = 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 NamespaceConfig "maybe'workflowExecutionRetentionTtl" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowExecutionRetentionTtl"
-> (Maybe Duration -> f (Maybe Duration))
-> NamespaceConfig
-> f NamespaceConfig
fieldOf Proxy# "maybe'workflowExecutionRetentionTtl"
_
    = ((Maybe Duration -> f (Maybe Duration))
 -> NamespaceConfig -> f NamespaceConfig)
-> ((Maybe Duration -> f (Maybe Duration))
    -> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> NamespaceConfig
-> f NamespaceConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceConfig -> Maybe Duration)
-> (NamespaceConfig -> Maybe Duration -> NamespaceConfig)
-> Lens
     NamespaceConfig NamespaceConfig (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceConfig -> Maybe Duration
_NamespaceConfig'workflowExecutionRetentionTtl
           (\ NamespaceConfig
x__ Maybe Duration
y__
              -> NamespaceConfig
x__ {_NamespaceConfig'workflowExecutionRetentionTtl = y__}))
        (Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceConfig "badBinaries" BadBinaries where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "badBinaries"
-> (BadBinaries -> f BadBinaries)
-> NamespaceConfig
-> f NamespaceConfig
fieldOf Proxy# "badBinaries"
_
    = ((Maybe BadBinaries -> f (Maybe BadBinaries))
 -> NamespaceConfig -> f NamespaceConfig)
-> ((BadBinaries -> f BadBinaries)
    -> Maybe BadBinaries -> f (Maybe BadBinaries))
-> (BadBinaries -> f BadBinaries)
-> NamespaceConfig
-> f NamespaceConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceConfig -> Maybe BadBinaries)
-> (NamespaceConfig -> Maybe BadBinaries -> NamespaceConfig)
-> Lens
     NamespaceConfig
     NamespaceConfig
     (Maybe BadBinaries)
     (Maybe BadBinaries)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceConfig -> Maybe BadBinaries
_NamespaceConfig'badBinaries
           (\ NamespaceConfig
x__ Maybe BadBinaries
y__ -> NamespaceConfig
x__ {_NamespaceConfig'badBinaries = y__}))
        (BadBinaries -> Lens' (Maybe BadBinaries) BadBinaries
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens BadBinaries
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField NamespaceConfig "maybe'badBinaries" (Prelude.Maybe BadBinaries) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'badBinaries"
-> (Maybe BadBinaries -> f (Maybe BadBinaries))
-> NamespaceConfig
-> f NamespaceConfig
fieldOf Proxy# "maybe'badBinaries"
_
    = ((Maybe BadBinaries -> f (Maybe BadBinaries))
 -> NamespaceConfig -> f NamespaceConfig)
-> ((Maybe BadBinaries -> f (Maybe BadBinaries))
    -> Maybe BadBinaries -> f (Maybe BadBinaries))
-> (Maybe BadBinaries -> f (Maybe BadBinaries))
-> NamespaceConfig
-> f NamespaceConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceConfig -> Maybe BadBinaries)
-> (NamespaceConfig -> Maybe BadBinaries -> NamespaceConfig)
-> Lens
     NamespaceConfig
     NamespaceConfig
     (Maybe BadBinaries)
     (Maybe BadBinaries)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceConfig -> Maybe BadBinaries
_NamespaceConfig'badBinaries
           (\ NamespaceConfig
x__ Maybe BadBinaries
y__ -> NamespaceConfig
x__ {_NamespaceConfig'badBinaries = y__}))
        (Maybe BadBinaries -> f (Maybe BadBinaries))
-> Maybe BadBinaries -> f (Maybe BadBinaries)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceConfig "historyArchivalState" Proto.Temporal.Api.Enums.V1.Namespace.ArchivalState where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "historyArchivalState"
-> (ArchivalState -> f ArchivalState)
-> NamespaceConfig
-> f NamespaceConfig
fieldOf Proxy# "historyArchivalState"
_
    = ((ArchivalState -> f ArchivalState)
 -> NamespaceConfig -> f NamespaceConfig)
-> ((ArchivalState -> f ArchivalState)
    -> ArchivalState -> f ArchivalState)
-> (ArchivalState -> f ArchivalState)
-> NamespaceConfig
-> f NamespaceConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceConfig -> ArchivalState)
-> (NamespaceConfig -> ArchivalState -> NamespaceConfig)
-> Lens NamespaceConfig NamespaceConfig ArchivalState ArchivalState
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceConfig -> ArchivalState
_NamespaceConfig'historyArchivalState
           (\ NamespaceConfig
x__ ArchivalState
y__ -> NamespaceConfig
x__ {_NamespaceConfig'historyArchivalState = y__}))
        (ArchivalState -> f ArchivalState)
-> ArchivalState -> f ArchivalState
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceConfig "historyArchivalUri" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "historyArchivalUri"
-> (Text -> f Text) -> NamespaceConfig -> f NamespaceConfig
fieldOf Proxy# "historyArchivalUri"
_
    = ((Text -> f Text) -> NamespaceConfig -> f NamespaceConfig)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceConfig
-> f NamespaceConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceConfig -> Text)
-> (NamespaceConfig -> Text -> NamespaceConfig)
-> Lens NamespaceConfig NamespaceConfig Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceConfig -> Text
_NamespaceConfig'historyArchivalUri
           (\ NamespaceConfig
x__ Text
y__ -> NamespaceConfig
x__ {_NamespaceConfig'historyArchivalUri = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceConfig "visibilityArchivalState" Proto.Temporal.Api.Enums.V1.Namespace.ArchivalState where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "visibilityArchivalState"
-> (ArchivalState -> f ArchivalState)
-> NamespaceConfig
-> f NamespaceConfig
fieldOf Proxy# "visibilityArchivalState"
_
    = ((ArchivalState -> f ArchivalState)
 -> NamespaceConfig -> f NamespaceConfig)
-> ((ArchivalState -> f ArchivalState)
    -> ArchivalState -> f ArchivalState)
-> (ArchivalState -> f ArchivalState)
-> NamespaceConfig
-> f NamespaceConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceConfig -> ArchivalState)
-> (NamespaceConfig -> ArchivalState -> NamespaceConfig)
-> Lens NamespaceConfig NamespaceConfig ArchivalState ArchivalState
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceConfig -> ArchivalState
_NamespaceConfig'visibilityArchivalState
           (\ NamespaceConfig
x__ ArchivalState
y__
              -> NamespaceConfig
x__ {_NamespaceConfig'visibilityArchivalState = y__}))
        (ArchivalState -> f ArchivalState)
-> ArchivalState -> f ArchivalState
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceConfig "visibilityArchivalUri" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "visibilityArchivalUri"
-> (Text -> f Text) -> NamespaceConfig -> f NamespaceConfig
fieldOf Proxy# "visibilityArchivalUri"
_
    = ((Text -> f Text) -> NamespaceConfig -> f NamespaceConfig)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceConfig
-> f NamespaceConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceConfig -> Text)
-> (NamespaceConfig -> Text -> NamespaceConfig)
-> Lens NamespaceConfig NamespaceConfig Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceConfig -> Text
_NamespaceConfig'visibilityArchivalUri
           (\ NamespaceConfig
x__ Text
y__ -> NamespaceConfig
x__ {_NamespaceConfig'visibilityArchivalUri = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceConfig "customSearchAttributeAliases" (Data.Map.Map Data.Text.Text Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "customSearchAttributeAliases"
-> (Map Text Text -> f (Map Text Text))
-> NamespaceConfig
-> f NamespaceConfig
fieldOf Proxy# "customSearchAttributeAliases"
_
    = ((Map Text Text -> f (Map Text Text))
 -> NamespaceConfig -> f NamespaceConfig)
-> ((Map Text Text -> f (Map Text Text))
    -> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> NamespaceConfig
-> f NamespaceConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceConfig -> Map Text Text)
-> (NamespaceConfig -> Map Text Text -> NamespaceConfig)
-> Lens
     NamespaceConfig NamespaceConfig (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
           NamespaceConfig -> Map Text Text
_NamespaceConfig'customSearchAttributeAliases
           (\ NamespaceConfig
x__ Map Text Text
y__
              -> NamespaceConfig
x__ {_NamespaceConfig'customSearchAttributeAliases = 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 NamespaceConfig where
  messageName :: Proxy NamespaceConfig -> Text
messageName Proxy NamespaceConfig
_
    = String -> Text
Data.Text.pack String
"temporal.api.namespace.v1.NamespaceConfig"
  packedMessageDescriptor :: Proxy NamespaceConfig -> ByteString
packedMessageDescriptor Proxy NamespaceConfig
_
    = ByteString
"\n\
      \\SINamespaceConfig\DC2b\n\
      \ workflow_execution_retention_ttl\CAN\SOH \SOH(\v2\EM.google.protobuf.DurationR\GSworkflowExecutionRetentionTtl\DC2I\n\
      \\fbad_binaries\CAN\STX \SOH(\v2&.temporal.api.namespace.v1.BadBinariesR\vbadBinaries\DC2Z\n\
      \\SYNhistory_archival_state\CAN\ETX \SOH(\SO2$.temporal.api.enums.v1.ArchivalStateR\DC4historyArchivalState\DC20\n\
      \\DC4history_archival_uri\CAN\EOT \SOH(\tR\DC2historyArchivalUri\DC2`\n\
      \\EMvisibility_archival_state\CAN\ENQ \SOH(\SO2$.temporal.api.enums.v1.ArchivalStateR\ETBvisibilityArchivalState\DC26\n\
      \\ETBvisibility_archival_uri\CAN\ACK \SOH(\tR\NAKvisibilityArchivalUri\DC2\147\SOH\n\
      \\UScustom_search_attribute_aliases\CAN\a \ETX(\v2L.temporal.api.namespace.v1.NamespaceConfig.CustomSearchAttributeAliasesEntryR\FScustomSearchAttributeAliases\SUBO\n\
      \!CustomSearchAttributeAliasesEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy NamespaceConfig -> ByteString
packedFileDescriptor Proxy NamespaceConfig
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NamespaceConfig)
fieldsByTag
    = let
        workflowExecutionRetentionTtl__field_descriptor :: FieldDescriptor NamespaceConfig
workflowExecutionRetentionTtl__field_descriptor
          = String
-> FieldTypeDescriptor Duration
-> FieldAccessor NamespaceConfig Duration
-> FieldDescriptor NamespaceConfig
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"workflow_execution_retention_ttl"
              (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
  NamespaceConfig NamespaceConfig (Maybe Duration) (Maybe Duration)
-> FieldAccessor NamespaceConfig 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'workflowExecutionRetentionTtl")) ::
              Data.ProtoLens.FieldDescriptor NamespaceConfig
        badBinaries__field_descriptor :: FieldDescriptor NamespaceConfig
badBinaries__field_descriptor
          = String
-> FieldTypeDescriptor BadBinaries
-> FieldAccessor NamespaceConfig BadBinaries
-> FieldDescriptor NamespaceConfig
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"bad_binaries"
              (MessageOrGroup -> FieldTypeDescriptor BadBinaries
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BadBinaries)
              (Lens
  NamespaceConfig
  NamespaceConfig
  (Maybe BadBinaries)
  (Maybe BadBinaries)
-> FieldAccessor NamespaceConfig BadBinaries
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'badBinaries")) ::
              Data.ProtoLens.FieldDescriptor NamespaceConfig
        historyArchivalState__field_descriptor :: FieldDescriptor NamespaceConfig
historyArchivalState__field_descriptor
          = String
-> FieldTypeDescriptor ArchivalState
-> FieldAccessor NamespaceConfig ArchivalState
-> FieldDescriptor NamespaceConfig
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"history_archival_state"
              (ScalarField ArchivalState -> FieldTypeDescriptor ArchivalState
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ArchivalState
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Namespace.ArchivalState)
              (WireDefault ArchivalState
-> Lens NamespaceConfig NamespaceConfig ArchivalState ArchivalState
-> FieldAccessor NamespaceConfig ArchivalState
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ArchivalState
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 @"historyArchivalState")) ::
              Data.ProtoLens.FieldDescriptor NamespaceConfig
        historyArchivalUri__field_descriptor :: FieldDescriptor NamespaceConfig
historyArchivalUri__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceConfig Text
-> FieldDescriptor NamespaceConfig
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"history_archival_uri"
              (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 NamespaceConfig NamespaceConfig Text Text
-> FieldAccessor NamespaceConfig 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 @"historyArchivalUri")) ::
              Data.ProtoLens.FieldDescriptor NamespaceConfig
        visibilityArchivalState__field_descriptor :: FieldDescriptor NamespaceConfig
visibilityArchivalState__field_descriptor
          = String
-> FieldTypeDescriptor ArchivalState
-> FieldAccessor NamespaceConfig ArchivalState
-> FieldDescriptor NamespaceConfig
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"visibility_archival_state"
              (ScalarField ArchivalState -> FieldTypeDescriptor ArchivalState
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ArchivalState
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Namespace.ArchivalState)
              (WireDefault ArchivalState
-> Lens NamespaceConfig NamespaceConfig ArchivalState ArchivalState
-> FieldAccessor NamespaceConfig ArchivalState
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ArchivalState
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 @"visibilityArchivalState")) ::
              Data.ProtoLens.FieldDescriptor NamespaceConfig
        visibilityArchivalUri__field_descriptor :: FieldDescriptor NamespaceConfig
visibilityArchivalUri__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceConfig Text
-> FieldDescriptor NamespaceConfig
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"visibility_archival_uri"
              (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 NamespaceConfig NamespaceConfig Text Text
-> FieldAccessor NamespaceConfig 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 @"visibilityArchivalUri")) ::
              Data.ProtoLens.FieldDescriptor NamespaceConfig
        customSearchAttributeAliases__field_descriptor :: FieldDescriptor NamespaceConfig
customSearchAttributeAliases__field_descriptor
          = String
-> FieldTypeDescriptor
     NamespaceConfig'CustomSearchAttributeAliasesEntry
-> FieldAccessor
     NamespaceConfig NamespaceConfig'CustomSearchAttributeAliasesEntry
-> FieldDescriptor NamespaceConfig
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"custom_search_attribute_aliases"
              (MessageOrGroup
-> FieldTypeDescriptor
     NamespaceConfig'CustomSearchAttributeAliasesEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NamespaceConfig'CustomSearchAttributeAliasesEntry)
              (Lens' NamespaceConfig'CustomSearchAttributeAliasesEntry Text
-> Lens' NamespaceConfig'CustomSearchAttributeAliasesEntry Text
-> Lens
     NamespaceConfig NamespaceConfig (Map Text Text) (Map Text Text)
-> FieldAccessor
     NamespaceConfig NamespaceConfig'CustomSearchAttributeAliasesEntry
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 @"customSearchAttributeAliases")) ::
              Data.ProtoLens.FieldDescriptor NamespaceConfig
      in
        [(Tag, FieldDescriptor NamespaceConfig)]
-> Map Tag (FieldDescriptor NamespaceConfig)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, 
            FieldDescriptor NamespaceConfig
workflowExecutionRetentionTtl__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NamespaceConfig
badBinaries__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor NamespaceConfig
historyArchivalState__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor NamespaceConfig
historyArchivalUri__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor NamespaceConfig
visibilityArchivalState__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor NamespaceConfig
visibilityArchivalUri__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, 
            FieldDescriptor NamespaceConfig
customSearchAttributeAliases__field_descriptor)]
  unknownFields :: Lens' NamespaceConfig FieldSet
unknownFields
    = (NamespaceConfig -> FieldSet)
-> (NamespaceConfig -> FieldSet -> NamespaceConfig)
-> Lens' NamespaceConfig FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NamespaceConfig -> FieldSet
_NamespaceConfig'_unknownFields
        (\ NamespaceConfig
x__ FieldSet
y__ -> NamespaceConfig
x__ {_NamespaceConfig'_unknownFields = y__})
  defMessage :: NamespaceConfig
defMessage
    = NamespaceConfig'_constructor
        {_NamespaceConfig'workflowExecutionRetentionTtl :: Maybe Duration
_NamespaceConfig'workflowExecutionRetentionTtl = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
         _NamespaceConfig'badBinaries :: Maybe BadBinaries
_NamespaceConfig'badBinaries = Maybe BadBinaries
forall a. Maybe a
Prelude.Nothing,
         _NamespaceConfig'historyArchivalState :: ArchivalState
_NamespaceConfig'historyArchivalState = ArchivalState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceConfig'historyArchivalUri :: Text
_NamespaceConfig'historyArchivalUri = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceConfig'visibilityArchivalState :: ArchivalState
_NamespaceConfig'visibilityArchivalState = ArchivalState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceConfig'visibilityArchivalUri :: Text
_NamespaceConfig'visibilityArchivalUri = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceConfig'customSearchAttributeAliases :: Map Text Text
_NamespaceConfig'customSearchAttributeAliases = Map Text Text
forall k a. Map k a
Data.Map.empty,
         _NamespaceConfig'_unknownFields :: FieldSet
_NamespaceConfig'_unknownFields = []}
  parseMessage :: Parser NamespaceConfig
parseMessage
    = let
        loop ::
          NamespaceConfig
          -> Data.ProtoLens.Encoding.Bytes.Parser NamespaceConfig
        loop :: NamespaceConfig -> Parser NamespaceConfig
loop NamespaceConfig
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 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
"workflow_execution_retention_ttl"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"workflowExecutionRetentionTtl") y
                                     x)
                        Word64
18
                          -> do y <- Parser BadBinaries -> String -> Parser BadBinaries
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
"bad_binaries"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"badBinaries") y x)
                        Word64
24
                          -> do y <- Parser ArchivalState -> String -> Parser ArchivalState
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> ArchivalState) -> Parser Int -> Parser ArchivalState
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> ArchivalState
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
"history_archival_state"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"historyArchivalState") y x)
                        Word64
34
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"history_archival_uri"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"historyArchivalUri") y x)
                        Word64
40
                          -> do y <- Parser ArchivalState -> String -> Parser ArchivalState
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> ArchivalState) -> Parser Int -> Parser ArchivalState
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> ArchivalState
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
"visibility_archival_state"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"visibilityArchivalState") y x)
                        Word64
50
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"visibility_archival_uri"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"visibilityArchivalUri") y x)
                        Word64
58
                          -> do !(entry :: NamespaceConfig'CustomSearchAttributeAliasesEntry) <- Parser NamespaceConfig'CustomSearchAttributeAliasesEntry
-> String
-> Parser NamespaceConfig'CustomSearchAttributeAliasesEntry
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_search_attribute_aliases"
                                (let
                                   key = FoldLike
  Text
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  Text
  Text
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> 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") NamespaceConfig'CustomSearchAttributeAliasesEntry
entry
                                   value
                                     = FoldLike
  Text
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  Text
  Text
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> 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") NamespaceConfig'CustomSearchAttributeAliasesEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"customSearchAttributeAliases")
                                        (\ !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 NamespaceConfig -> String -> Parser NamespaceConfig
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NamespaceConfig -> Parser NamespaceConfig
loop NamespaceConfig
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"NamespaceConfig"
  buildMessage :: NamespaceConfig -> Builder
buildMessage
    = \ NamespaceConfig
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Duration)
  NamespaceConfig
  NamespaceConfig
  (Maybe Duration)
  (Maybe Duration)
-> NamespaceConfig -> 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'workflowExecutionRetentionTtl")
                    NamespaceConfig
_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
10)
                       ((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))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe BadBinaries)
  NamespaceConfig
  NamespaceConfig
  (Maybe BadBinaries)
  (Maybe BadBinaries)
-> NamespaceConfig -> Maybe BadBinaries
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'badBinaries") NamespaceConfig
_x
                 of
                   Maybe BadBinaries
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just BadBinaries
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (BadBinaries -> ByteString) -> BadBinaries -> 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))
                             BadBinaries -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage BadBinaries
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: ArchivalState
_v
                        = FoldLike
  ArchivalState
  NamespaceConfig
  NamespaceConfig
  ArchivalState
  ArchivalState
-> NamespaceConfig -> ArchivalState
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 @"historyArchivalState") NamespaceConfig
_x
                    in
                      if ArchivalState -> ArchivalState -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ArchivalState
_v ArchivalState
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
24)
                            ((Int -> Builder)
-> (ArchivalState -> Int) -> ArchivalState -> 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)
                               ArchivalState -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum ArchivalState
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: Text
_v
                           = FoldLike Text NamespaceConfig NamespaceConfig Text Text
-> NamespaceConfig -> 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 @"historyArchivalUri") NamespaceConfig
_x
                       in
                         if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                             Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         else
                             Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                               ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  (\ ByteString
bs
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                             (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                          (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                  Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: ArchivalState
_v
                              = FoldLike
  ArchivalState
  NamespaceConfig
  NamespaceConfig
  ArchivalState
  ArchivalState
-> NamespaceConfig -> ArchivalState
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 @"visibilityArchivalState") NamespaceConfig
_x
                          in
                            if ArchivalState -> ArchivalState -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ArchivalState
_v ArchivalState
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)
                                  ((Int -> Builder)
-> (ArchivalState -> Int) -> ArchivalState -> 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)
                                     ArchivalState -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum ArchivalState
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: Text
_v
                                 = FoldLike Text NamespaceConfig NamespaceConfig Text Text
-> NamespaceConfig -> 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 @"visibilityArchivalUri") NamespaceConfig
_x
                             in
                               if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                   Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               else
                                   Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                                     ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                        (\ ByteString
bs
                                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                      (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                        Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                            (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
58)
                                             ((ByteString -> Builder)
-> (NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> ByteString)
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
-> 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))
                                                NamespaceConfig'CustomSearchAttributeAliasesEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                (Setter
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  Text
  Text
-> Text
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
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
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  Text
  Text
-> Text
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
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)
                                                      (NamespaceConfig'CustomSearchAttributeAliasesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                                         NamespaceConfig'CustomSearchAttributeAliasesEntry)))))
                                     (Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                                        (FoldLike
  (Map Text Text)
  NamespaceConfig
  NamespaceConfig
  (Map Text Text)
  (Map Text Text)
-> NamespaceConfig -> 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
                                              @"customSearchAttributeAliases")
                                           NamespaceConfig
_x))))
                               (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                  (FoldLike FieldSet NamespaceConfig NamespaceConfig FieldSet FieldSet
-> NamespaceConfig -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet NamespaceConfig NamespaceConfig FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NamespaceConfig FieldSet
Data.ProtoLens.unknownFields NamespaceConfig
_x))))))))
instance Control.DeepSeq.NFData NamespaceConfig where
  rnf :: NamespaceConfig -> ()
rnf
    = \ NamespaceConfig
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NamespaceConfig -> FieldSet
_NamespaceConfig'_unknownFields NamespaceConfig
x__)
             (Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NamespaceConfig -> Maybe Duration
_NamespaceConfig'workflowExecutionRetentionTtl NamespaceConfig
x__)
                (Maybe BadBinaries -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (NamespaceConfig -> Maybe BadBinaries
_NamespaceConfig'badBinaries NamespaceConfig
x__)
                   (ArchivalState -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (NamespaceConfig -> ArchivalState
_NamespaceConfig'historyArchivalState NamespaceConfig
x__)
                      (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (NamespaceConfig -> Text
_NamespaceConfig'historyArchivalUri NamespaceConfig
x__)
                         (ArchivalState -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (NamespaceConfig -> ArchivalState
_NamespaceConfig'visibilityArchivalState NamespaceConfig
x__)
                            (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (NamespaceConfig -> Text
_NamespaceConfig'visibilityArchivalUri NamespaceConfig
x__)
                               (Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (NamespaceConfig -> Map Text Text
_NamespaceConfig'customSearchAttributeAliases NamespaceConfig
x__) ())))))))
{- | Fields :
     
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.key' @:: Lens' NamespaceConfig'CustomSearchAttributeAliasesEntry Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.value' @:: Lens' NamespaceConfig'CustomSearchAttributeAliasesEntry Data.Text.Text@ -}
data NamespaceConfig'CustomSearchAttributeAliasesEntry
  = NamespaceConfig'CustomSearchAttributeAliasesEntry'_constructor {NamespaceConfig'CustomSearchAttributeAliasesEntry -> Text
_NamespaceConfig'CustomSearchAttributeAliasesEntry'key :: !Data.Text.Text,
                                                                    NamespaceConfig'CustomSearchAttributeAliasesEntry -> Text
_NamespaceConfig'CustomSearchAttributeAliasesEntry'value :: !Data.Text.Text,
                                                                    NamespaceConfig'CustomSearchAttributeAliasesEntry -> FieldSet
_NamespaceConfig'CustomSearchAttributeAliasesEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
(NamespaceConfig'CustomSearchAttributeAliasesEntry
 -> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool)
-> (NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool)
-> Eq NamespaceConfig'CustomSearchAttributeAliasesEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
== :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
$c/= :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
/= :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
Prelude.Eq, Eq NamespaceConfig'CustomSearchAttributeAliasesEntry
Eq NamespaceConfig'CustomSearchAttributeAliasesEntry =>
(NamespaceConfig'CustomSearchAttributeAliasesEntry
 -> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Ordering)
-> (NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool)
-> (NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool)
-> (NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool)
-> (NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool)
-> (NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> NamespaceConfig'CustomSearchAttributeAliasesEntry)
-> (NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> NamespaceConfig'CustomSearchAttributeAliasesEntry)
-> Ord NamespaceConfig'CustomSearchAttributeAliasesEntry
NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Ordering
NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
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 :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Ordering
compare :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Ordering
$c< :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
< :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
$c<= :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
<= :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
$c> :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
> :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
$c>= :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
>= :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> Bool
$cmax :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
max :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
$cmin :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
min :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
Prelude.Ord)
instance Prelude.Show NamespaceConfig'CustomSearchAttributeAliasesEntry where
  showsPrec :: Int -> NamespaceConfig'CustomSearchAttributeAliasesEntry -> ShowS
showsPrec Int
_ NamespaceConfig'CustomSearchAttributeAliasesEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NamespaceConfig'CustomSearchAttributeAliasesEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NamespaceConfig'CustomSearchAttributeAliasesEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NamespaceConfig'CustomSearchAttributeAliasesEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
-> f NamespaceConfig'CustomSearchAttributeAliasesEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> NamespaceConfig'CustomSearchAttributeAliasesEntry
 -> f NamespaceConfig'CustomSearchAttributeAliasesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
-> f NamespaceConfig'CustomSearchAttributeAliasesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceConfig'CustomSearchAttributeAliasesEntry -> Text)
-> (NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> Text -> NamespaceConfig'CustomSearchAttributeAliasesEntry)
-> Lens' NamespaceConfig'CustomSearchAttributeAliasesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceConfig'CustomSearchAttributeAliasesEntry -> Text
_NamespaceConfig'CustomSearchAttributeAliasesEntry'key
           (\ NamespaceConfig'CustomSearchAttributeAliasesEntry
x__ Text
y__
              -> NamespaceConfig'CustomSearchAttributeAliasesEntry
x__
                   {_NamespaceConfig'CustomSearchAttributeAliasesEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceConfig'CustomSearchAttributeAliasesEntry "value" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Text -> f Text)
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
-> f NamespaceConfig'CustomSearchAttributeAliasesEntry
fieldOf Proxy# "value"
_
    = ((Text -> f Text)
 -> NamespaceConfig'CustomSearchAttributeAliasesEntry
 -> f NamespaceConfig'CustomSearchAttributeAliasesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceConfig'CustomSearchAttributeAliasesEntry
-> f NamespaceConfig'CustomSearchAttributeAliasesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceConfig'CustomSearchAttributeAliasesEntry -> Text)
-> (NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> Text -> NamespaceConfig'CustomSearchAttributeAliasesEntry)
-> Lens' NamespaceConfig'CustomSearchAttributeAliasesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceConfig'CustomSearchAttributeAliasesEntry -> Text
_NamespaceConfig'CustomSearchAttributeAliasesEntry'value
           (\ NamespaceConfig'CustomSearchAttributeAliasesEntry
x__ Text
y__
              -> NamespaceConfig'CustomSearchAttributeAliasesEntry
x__
                   {_NamespaceConfig'CustomSearchAttributeAliasesEntry'value = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NamespaceConfig'CustomSearchAttributeAliasesEntry where
  messageName :: Proxy NamespaceConfig'CustomSearchAttributeAliasesEntry -> Text
messageName Proxy NamespaceConfig'CustomSearchAttributeAliasesEntry
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.namespace.v1.NamespaceConfig.CustomSearchAttributeAliasesEntry"
  packedMessageDescriptor :: Proxy NamespaceConfig'CustomSearchAttributeAliasesEntry
-> ByteString
packedMessageDescriptor Proxy NamespaceConfig'CustomSearchAttributeAliasesEntry
_
    = ByteString
"\n\
      \!CustomSearchAttributeAliasesEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy NamespaceConfig'CustomSearchAttributeAliasesEntry
-> ByteString
packedFileDescriptor Proxy NamespaceConfig'CustomSearchAttributeAliasesEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map
  Tag
  (FieldDescriptor NamespaceConfig'CustomSearchAttributeAliasesEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor NamespaceConfig'CustomSearchAttributeAliasesEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor
     NamespaceConfig'CustomSearchAttributeAliasesEntry Text
-> FieldDescriptor
     NamespaceConfig'CustomSearchAttributeAliasesEntry
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' NamespaceConfig'CustomSearchAttributeAliasesEntry Text
-> FieldAccessor
     NamespaceConfig'CustomSearchAttributeAliasesEntry 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 NamespaceConfig'CustomSearchAttributeAliasesEntry
        value__field_descriptor :: FieldDescriptor NamespaceConfig'CustomSearchAttributeAliasesEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor
     NamespaceConfig'CustomSearchAttributeAliasesEntry Text
-> FieldDescriptor
     NamespaceConfig'CustomSearchAttributeAliasesEntry
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' NamespaceConfig'CustomSearchAttributeAliasesEntry Text
-> FieldAccessor
     NamespaceConfig'CustomSearchAttributeAliasesEntry 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 NamespaceConfig'CustomSearchAttributeAliasesEntry
      in
        [(Tag,
  FieldDescriptor NamespaceConfig'CustomSearchAttributeAliasesEntry)]
-> Map
     Tag
     (FieldDescriptor NamespaceConfig'CustomSearchAttributeAliasesEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NamespaceConfig'CustomSearchAttributeAliasesEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NamespaceConfig'CustomSearchAttributeAliasesEntry
value__field_descriptor)]
  unknownFields :: Lens' NamespaceConfig'CustomSearchAttributeAliasesEntry FieldSet
unknownFields
    = (NamespaceConfig'CustomSearchAttributeAliasesEntry -> FieldSet)
-> (NamespaceConfig'CustomSearchAttributeAliasesEntry
    -> FieldSet -> NamespaceConfig'CustomSearchAttributeAliasesEntry)
-> Lens' NamespaceConfig'CustomSearchAttributeAliasesEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NamespaceConfig'CustomSearchAttributeAliasesEntry -> FieldSet
_NamespaceConfig'CustomSearchAttributeAliasesEntry'_unknownFields
        (\ NamespaceConfig'CustomSearchAttributeAliasesEntry
x__ FieldSet
y__
           -> NamespaceConfig'CustomSearchAttributeAliasesEntry
x__
                {_NamespaceConfig'CustomSearchAttributeAliasesEntry'_unknownFields = y__})
  defMessage :: NamespaceConfig'CustomSearchAttributeAliasesEntry
defMessage
    = NamespaceConfig'CustomSearchAttributeAliasesEntry'_constructor
        {_NamespaceConfig'CustomSearchAttributeAliasesEntry'key :: Text
_NamespaceConfig'CustomSearchAttributeAliasesEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceConfig'CustomSearchAttributeAliasesEntry'value :: Text
_NamespaceConfig'CustomSearchAttributeAliasesEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceConfig'CustomSearchAttributeAliasesEntry'_unknownFields :: FieldSet
_NamespaceConfig'CustomSearchAttributeAliasesEntry'_unknownFields = []}
  parseMessage :: Parser NamespaceConfig'CustomSearchAttributeAliasesEntry
parseMessage
    = let
        loop ::
          NamespaceConfig'CustomSearchAttributeAliasesEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser NamespaceConfig'CustomSearchAttributeAliasesEntry
        loop :: NamespaceConfig'CustomSearchAttributeAliasesEntry
-> Parser NamespaceConfig'CustomSearchAttributeAliasesEntry
loop NamespaceConfig'CustomSearchAttributeAliasesEntry
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 NamespaceConfig'CustomSearchAttributeAliasesEntry
-> String
-> Parser NamespaceConfig'CustomSearchAttributeAliasesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NamespaceConfig'CustomSearchAttributeAliasesEntry
-> Parser NamespaceConfig'CustomSearchAttributeAliasesEntry
loop NamespaceConfig'CustomSearchAttributeAliasesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"CustomSearchAttributeAliasesEntry"
  buildMessage :: NamespaceConfig'CustomSearchAttributeAliasesEntry -> Builder
buildMessage
    = \ NamespaceConfig'CustomSearchAttributeAliasesEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  Text
  Text
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> 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") NamespaceConfig'CustomSearchAttributeAliasesEntry
_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
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  Text
  Text
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> 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") NamespaceConfig'CustomSearchAttributeAliasesEntry
_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
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  FieldSet
  FieldSet
-> NamespaceConfig'CustomSearchAttributeAliasesEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  NamespaceConfig'CustomSearchAttributeAliasesEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NamespaceConfig'CustomSearchAttributeAliasesEntry FieldSet
Data.ProtoLens.unknownFields NamespaceConfig'CustomSearchAttributeAliasesEntry
_x)))
instance Control.DeepSeq.NFData NamespaceConfig'CustomSearchAttributeAliasesEntry where
  rnf :: NamespaceConfig'CustomSearchAttributeAliasesEntry -> ()
rnf
    = \ NamespaceConfig'CustomSearchAttributeAliasesEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NamespaceConfig'CustomSearchAttributeAliasesEntry -> FieldSet
_NamespaceConfig'CustomSearchAttributeAliasesEntry'_unknownFields
                NamespaceConfig'CustomSearchAttributeAliasesEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NamespaceConfig'CustomSearchAttributeAliasesEntry -> Text
_NamespaceConfig'CustomSearchAttributeAliasesEntry'key NamespaceConfig'CustomSearchAttributeAliasesEntry
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (NamespaceConfig'CustomSearchAttributeAliasesEntry -> Text
_NamespaceConfig'CustomSearchAttributeAliasesEntry'value NamespaceConfig'CustomSearchAttributeAliasesEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.includeDeleted' @:: Lens' NamespaceFilter Prelude.Bool@ -}
data NamespaceFilter
  = NamespaceFilter'_constructor {NamespaceFilter -> Bool
_NamespaceFilter'includeDeleted :: !Prelude.Bool,
                                  NamespaceFilter -> FieldSet
_NamespaceFilter'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NamespaceFilter -> NamespaceFilter -> Bool
(NamespaceFilter -> NamespaceFilter -> Bool)
-> (NamespaceFilter -> NamespaceFilter -> Bool)
-> Eq NamespaceFilter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceFilter -> NamespaceFilter -> Bool
== :: NamespaceFilter -> NamespaceFilter -> Bool
$c/= :: NamespaceFilter -> NamespaceFilter -> Bool
/= :: NamespaceFilter -> NamespaceFilter -> Bool
Prelude.Eq, Eq NamespaceFilter
Eq NamespaceFilter =>
(NamespaceFilter -> NamespaceFilter -> Ordering)
-> (NamespaceFilter -> NamespaceFilter -> Bool)
-> (NamespaceFilter -> NamespaceFilter -> Bool)
-> (NamespaceFilter -> NamespaceFilter -> Bool)
-> (NamespaceFilter -> NamespaceFilter -> Bool)
-> (NamespaceFilter -> NamespaceFilter -> NamespaceFilter)
-> (NamespaceFilter -> NamespaceFilter -> NamespaceFilter)
-> Ord NamespaceFilter
NamespaceFilter -> NamespaceFilter -> Bool
NamespaceFilter -> NamespaceFilter -> Ordering
NamespaceFilter -> NamespaceFilter -> NamespaceFilter
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 :: NamespaceFilter -> NamespaceFilter -> Ordering
compare :: NamespaceFilter -> NamespaceFilter -> Ordering
$c< :: NamespaceFilter -> NamespaceFilter -> Bool
< :: NamespaceFilter -> NamespaceFilter -> Bool
$c<= :: NamespaceFilter -> NamespaceFilter -> Bool
<= :: NamespaceFilter -> NamespaceFilter -> Bool
$c> :: NamespaceFilter -> NamespaceFilter -> Bool
> :: NamespaceFilter -> NamespaceFilter -> Bool
$c>= :: NamespaceFilter -> NamespaceFilter -> Bool
>= :: NamespaceFilter -> NamespaceFilter -> Bool
$cmax :: NamespaceFilter -> NamespaceFilter -> NamespaceFilter
max :: NamespaceFilter -> NamespaceFilter -> NamespaceFilter
$cmin :: NamespaceFilter -> NamespaceFilter -> NamespaceFilter
min :: NamespaceFilter -> NamespaceFilter -> NamespaceFilter
Prelude.Ord)
instance Prelude.Show NamespaceFilter where
  showsPrec :: Int -> NamespaceFilter -> ShowS
showsPrec Int
_ NamespaceFilter
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NamespaceFilter -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NamespaceFilter
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NamespaceFilter "includeDeleted" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "includeDeleted"
-> (Bool -> f Bool) -> NamespaceFilter -> f NamespaceFilter
fieldOf Proxy# "includeDeleted"
_
    = ((Bool -> f Bool) -> NamespaceFilter -> f NamespaceFilter)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> NamespaceFilter
-> f NamespaceFilter
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceFilter -> Bool)
-> (NamespaceFilter -> Bool -> NamespaceFilter)
-> Lens NamespaceFilter NamespaceFilter Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceFilter -> Bool
_NamespaceFilter'includeDeleted
           (\ NamespaceFilter
x__ Bool
y__ -> NamespaceFilter
x__ {_NamespaceFilter'includeDeleted = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NamespaceFilter where
  messageName :: Proxy NamespaceFilter -> Text
messageName Proxy NamespaceFilter
_
    = String -> Text
Data.Text.pack String
"temporal.api.namespace.v1.NamespaceFilter"
  packedMessageDescriptor :: Proxy NamespaceFilter -> ByteString
packedMessageDescriptor Proxy NamespaceFilter
_
    = ByteString
"\n\
      \\SINamespaceFilter\DC2'\n\
      \\SIinclude_deleted\CAN\SOH \SOH(\bR\SOincludeDeleted"
  packedFileDescriptor :: Proxy NamespaceFilter -> ByteString
packedFileDescriptor Proxy NamespaceFilter
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NamespaceFilter)
fieldsByTag
    = let
        includeDeleted__field_descriptor :: FieldDescriptor NamespaceFilter
includeDeleted__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor NamespaceFilter Bool
-> FieldDescriptor NamespaceFilter
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"include_deleted"
              (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 NamespaceFilter NamespaceFilter Bool Bool
-> FieldAccessor NamespaceFilter 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 @"includeDeleted")) ::
              Data.ProtoLens.FieldDescriptor NamespaceFilter
      in
        [(Tag, FieldDescriptor NamespaceFilter)]
-> Map Tag (FieldDescriptor NamespaceFilter)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NamespaceFilter
includeDeleted__field_descriptor)]
  unknownFields :: Lens' NamespaceFilter FieldSet
unknownFields
    = (NamespaceFilter -> FieldSet)
-> (NamespaceFilter -> FieldSet -> NamespaceFilter)
-> Lens' NamespaceFilter FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NamespaceFilter -> FieldSet
_NamespaceFilter'_unknownFields
        (\ NamespaceFilter
x__ FieldSet
y__ -> NamespaceFilter
x__ {_NamespaceFilter'_unknownFields = y__})
  defMessage :: NamespaceFilter
defMessage
    = NamespaceFilter'_constructor
        {_NamespaceFilter'includeDeleted :: Bool
_NamespaceFilter'includeDeleted = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceFilter'_unknownFields :: FieldSet
_NamespaceFilter'_unknownFields = []}
  parseMessage :: Parser NamespaceFilter
parseMessage
    = let
        loop ::
          NamespaceFilter
          -> Data.ProtoLens.Encoding.Bytes.Parser NamespaceFilter
        loop :: NamespaceFilter -> Parser NamespaceFilter
loop NamespaceFilter
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 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
"include_deleted"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"includeDeleted") 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 NamespaceFilter -> String -> Parser NamespaceFilter
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NamespaceFilter -> Parser NamespaceFilter
loop NamespaceFilter
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"NamespaceFilter"
  buildMessage :: NamespaceFilter -> Builder
buildMessage
    = \ NamespaceFilter
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Bool
_v
                  = FoldLike Bool NamespaceFilter NamespaceFilter Bool Bool
-> NamespaceFilter -> 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 @"includeDeleted") NamespaceFilter
_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
8)
                      ((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 NamespaceFilter NamespaceFilter FieldSet FieldSet
-> NamespaceFilter -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet NamespaceFilter NamespaceFilter FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NamespaceFilter FieldSet
Data.ProtoLens.unknownFields NamespaceFilter
_x))
instance Control.DeepSeq.NFData NamespaceFilter where
  rnf :: NamespaceFilter -> ()
rnf
    = \ NamespaceFilter
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NamespaceFilter -> FieldSet
_NamespaceFilter'_unknownFields NamespaceFilter
x__)
             (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (NamespaceFilter -> Bool
_NamespaceFilter'includeDeleted NamespaceFilter
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.name' @:: Lens' NamespaceInfo Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.state' @:: Lens' NamespaceInfo Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.description' @:: Lens' NamespaceInfo Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.ownerEmail' @:: Lens' NamespaceInfo Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.data'' @:: Lens' NamespaceInfo (Data.Map.Map Data.Text.Text Data.Text.Text)@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.id' @:: Lens' NamespaceInfo Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.capabilities' @:: Lens' NamespaceInfo NamespaceInfo'Capabilities@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.maybe'capabilities' @:: Lens' NamespaceInfo (Prelude.Maybe NamespaceInfo'Capabilities)@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.supportsSchedules' @:: Lens' NamespaceInfo Prelude.Bool@ -}
data NamespaceInfo
  = NamespaceInfo'_constructor {NamespaceInfo -> Text
_NamespaceInfo'name :: !Data.Text.Text,
                                NamespaceInfo -> NamespaceState
_NamespaceInfo'state :: !Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState,
                                NamespaceInfo -> Text
_NamespaceInfo'description :: !Data.Text.Text,
                                NamespaceInfo -> Text
_NamespaceInfo'ownerEmail :: !Data.Text.Text,
                                NamespaceInfo -> Map Text Text
_NamespaceInfo'data' :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
                                NamespaceInfo -> Text
_NamespaceInfo'id :: !Data.Text.Text,
                                NamespaceInfo -> Maybe NamespaceInfo'Capabilities
_NamespaceInfo'capabilities :: !(Prelude.Maybe NamespaceInfo'Capabilities),
                                NamespaceInfo -> Bool
_NamespaceInfo'supportsSchedules :: !Prelude.Bool,
                                NamespaceInfo -> FieldSet
_NamespaceInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NamespaceInfo -> NamespaceInfo -> Bool
(NamespaceInfo -> NamespaceInfo -> Bool)
-> (NamespaceInfo -> NamespaceInfo -> Bool) -> Eq NamespaceInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceInfo -> NamespaceInfo -> Bool
== :: NamespaceInfo -> NamespaceInfo -> Bool
$c/= :: NamespaceInfo -> NamespaceInfo -> Bool
/= :: NamespaceInfo -> NamespaceInfo -> Bool
Prelude.Eq, Eq NamespaceInfo
Eq NamespaceInfo =>
(NamespaceInfo -> NamespaceInfo -> Ordering)
-> (NamespaceInfo -> NamespaceInfo -> Bool)
-> (NamespaceInfo -> NamespaceInfo -> Bool)
-> (NamespaceInfo -> NamespaceInfo -> Bool)
-> (NamespaceInfo -> NamespaceInfo -> Bool)
-> (NamespaceInfo -> NamespaceInfo -> NamespaceInfo)
-> (NamespaceInfo -> NamespaceInfo -> NamespaceInfo)
-> Ord NamespaceInfo
NamespaceInfo -> NamespaceInfo -> Bool
NamespaceInfo -> NamespaceInfo -> Ordering
NamespaceInfo -> NamespaceInfo -> NamespaceInfo
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 :: NamespaceInfo -> NamespaceInfo -> Ordering
compare :: NamespaceInfo -> NamespaceInfo -> Ordering
$c< :: NamespaceInfo -> NamespaceInfo -> Bool
< :: NamespaceInfo -> NamespaceInfo -> Bool
$c<= :: NamespaceInfo -> NamespaceInfo -> Bool
<= :: NamespaceInfo -> NamespaceInfo -> Bool
$c> :: NamespaceInfo -> NamespaceInfo -> Bool
> :: NamespaceInfo -> NamespaceInfo -> Bool
$c>= :: NamespaceInfo -> NamespaceInfo -> Bool
>= :: NamespaceInfo -> NamespaceInfo -> Bool
$cmax :: NamespaceInfo -> NamespaceInfo -> NamespaceInfo
max :: NamespaceInfo -> NamespaceInfo -> NamespaceInfo
$cmin :: NamespaceInfo -> NamespaceInfo -> NamespaceInfo
min :: NamespaceInfo -> NamespaceInfo -> NamespaceInfo
Prelude.Ord)
instance Prelude.Show NamespaceInfo where
  showsPrec :: Int -> NamespaceInfo -> ShowS
showsPrec Int
_ NamespaceInfo
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NamespaceInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NamespaceInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NamespaceInfo "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name"
-> (Text -> f Text) -> NamespaceInfo -> f NamespaceInfo
fieldOf Proxy# "name"
_
    = ((Text -> f Text) -> NamespaceInfo -> f NamespaceInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceInfo
-> f NamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo -> Text)
-> (NamespaceInfo -> Text -> NamespaceInfo)
-> Lens NamespaceInfo NamespaceInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo -> Text
_NamespaceInfo'name (\ NamespaceInfo
x__ Text
y__ -> NamespaceInfo
x__ {_NamespaceInfo'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceInfo "state" Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "state"
-> (NamespaceState -> f NamespaceState)
-> NamespaceInfo
-> f NamespaceInfo
fieldOf Proxy# "state"
_
    = ((NamespaceState -> f NamespaceState)
 -> NamespaceInfo -> f NamespaceInfo)
-> ((NamespaceState -> f NamespaceState)
    -> NamespaceState -> f NamespaceState)
-> (NamespaceState -> f NamespaceState)
-> NamespaceInfo
-> f NamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo -> NamespaceState)
-> (NamespaceInfo -> NamespaceState -> NamespaceInfo)
-> Lens NamespaceInfo NamespaceInfo NamespaceState NamespaceState
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo -> NamespaceState
_NamespaceInfo'state
           (\ NamespaceInfo
x__ NamespaceState
y__ -> NamespaceInfo
x__ {_NamespaceInfo'state = y__}))
        (NamespaceState -> f NamespaceState)
-> NamespaceState -> f NamespaceState
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceInfo "description" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "description"
-> (Text -> f Text) -> NamespaceInfo -> f NamespaceInfo
fieldOf Proxy# "description"
_
    = ((Text -> f Text) -> NamespaceInfo -> f NamespaceInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceInfo
-> f NamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo -> Text)
-> (NamespaceInfo -> Text -> NamespaceInfo)
-> Lens NamespaceInfo NamespaceInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo -> Text
_NamespaceInfo'description
           (\ NamespaceInfo
x__ Text
y__ -> NamespaceInfo
x__ {_NamespaceInfo'description = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceInfo "ownerEmail" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ownerEmail"
-> (Text -> f Text) -> NamespaceInfo -> f NamespaceInfo
fieldOf Proxy# "ownerEmail"
_
    = ((Text -> f Text) -> NamespaceInfo -> f NamespaceInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceInfo
-> f NamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo -> Text)
-> (NamespaceInfo -> Text -> NamespaceInfo)
-> Lens NamespaceInfo NamespaceInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo -> Text
_NamespaceInfo'ownerEmail
           (\ NamespaceInfo
x__ Text
y__ -> NamespaceInfo
x__ {_NamespaceInfo'ownerEmail = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceInfo "data'" (Data.Map.Map Data.Text.Text Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "data'"
-> (Map Text Text -> f (Map Text Text))
-> NamespaceInfo
-> f NamespaceInfo
fieldOf Proxy# "data'"
_
    = ((Map Text Text -> f (Map Text Text))
 -> NamespaceInfo -> f NamespaceInfo)
-> ((Map Text Text -> f (Map Text Text))
    -> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> NamespaceInfo
-> f NamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo -> Map Text Text)
-> (NamespaceInfo -> Map Text Text -> NamespaceInfo)
-> Lens NamespaceInfo NamespaceInfo (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
           NamespaceInfo -> Map Text Text
_NamespaceInfo'data'
           (\ NamespaceInfo
x__ Map Text Text
y__ -> NamespaceInfo
x__ {_NamespaceInfo'data' = y__}))
        (Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceInfo "id" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id" -> (Text -> f Text) -> NamespaceInfo -> f NamespaceInfo
fieldOf Proxy# "id"
_
    = ((Text -> f Text) -> NamespaceInfo -> f NamespaceInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceInfo
-> f NamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo -> Text)
-> (NamespaceInfo -> Text -> NamespaceInfo)
-> Lens NamespaceInfo NamespaceInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo -> Text
_NamespaceInfo'id (\ NamespaceInfo
x__ Text
y__ -> NamespaceInfo
x__ {_NamespaceInfo'id = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceInfo "capabilities" NamespaceInfo'Capabilities where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "capabilities"
-> (NamespaceInfo'Capabilities -> f NamespaceInfo'Capabilities)
-> NamespaceInfo
-> f NamespaceInfo
fieldOf Proxy# "capabilities"
_
    = ((Maybe NamespaceInfo'Capabilities
  -> f (Maybe NamespaceInfo'Capabilities))
 -> NamespaceInfo -> f NamespaceInfo)
-> ((NamespaceInfo'Capabilities -> f NamespaceInfo'Capabilities)
    -> Maybe NamespaceInfo'Capabilities
    -> f (Maybe NamespaceInfo'Capabilities))
-> (NamespaceInfo'Capabilities -> f NamespaceInfo'Capabilities)
-> NamespaceInfo
-> f NamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo -> Maybe NamespaceInfo'Capabilities)
-> (NamespaceInfo
    -> Maybe NamespaceInfo'Capabilities -> NamespaceInfo)
-> Lens
     NamespaceInfo
     NamespaceInfo
     (Maybe NamespaceInfo'Capabilities)
     (Maybe NamespaceInfo'Capabilities)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo -> Maybe NamespaceInfo'Capabilities
_NamespaceInfo'capabilities
           (\ NamespaceInfo
x__ Maybe NamespaceInfo'Capabilities
y__ -> NamespaceInfo
x__ {_NamespaceInfo'capabilities = y__}))
        (NamespaceInfo'Capabilities
-> Lens'
     (Maybe NamespaceInfo'Capabilities) NamespaceInfo'Capabilities
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens NamespaceInfo'Capabilities
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField NamespaceInfo "maybe'capabilities" (Prelude.Maybe NamespaceInfo'Capabilities) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'capabilities"
-> (Maybe NamespaceInfo'Capabilities
    -> f (Maybe NamespaceInfo'Capabilities))
-> NamespaceInfo
-> f NamespaceInfo
fieldOf Proxy# "maybe'capabilities"
_
    = ((Maybe NamespaceInfo'Capabilities
  -> f (Maybe NamespaceInfo'Capabilities))
 -> NamespaceInfo -> f NamespaceInfo)
-> ((Maybe NamespaceInfo'Capabilities
     -> f (Maybe NamespaceInfo'Capabilities))
    -> Maybe NamespaceInfo'Capabilities
    -> f (Maybe NamespaceInfo'Capabilities))
-> (Maybe NamespaceInfo'Capabilities
    -> f (Maybe NamespaceInfo'Capabilities))
-> NamespaceInfo
-> f NamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo -> Maybe NamespaceInfo'Capabilities)
-> (NamespaceInfo
    -> Maybe NamespaceInfo'Capabilities -> NamespaceInfo)
-> Lens
     NamespaceInfo
     NamespaceInfo
     (Maybe NamespaceInfo'Capabilities)
     (Maybe NamespaceInfo'Capabilities)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo -> Maybe NamespaceInfo'Capabilities
_NamespaceInfo'capabilities
           (\ NamespaceInfo
x__ Maybe NamespaceInfo'Capabilities
y__ -> NamespaceInfo
x__ {_NamespaceInfo'capabilities = y__}))
        (Maybe NamespaceInfo'Capabilities
 -> f (Maybe NamespaceInfo'Capabilities))
-> Maybe NamespaceInfo'Capabilities
-> f (Maybe NamespaceInfo'Capabilities)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceInfo "supportsSchedules" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "supportsSchedules"
-> (Bool -> f Bool) -> NamespaceInfo -> f NamespaceInfo
fieldOf Proxy# "supportsSchedules"
_
    = ((Bool -> f Bool) -> NamespaceInfo -> f NamespaceInfo)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> NamespaceInfo
-> f NamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo -> Bool)
-> (NamespaceInfo -> Bool -> NamespaceInfo)
-> Lens NamespaceInfo NamespaceInfo Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo -> Bool
_NamespaceInfo'supportsSchedules
           (\ NamespaceInfo
x__ Bool
y__ -> NamespaceInfo
x__ {_NamespaceInfo'supportsSchedules = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NamespaceInfo where
  messageName :: Proxy NamespaceInfo -> Text
messageName Proxy NamespaceInfo
_
    = String -> Text
Data.Text.pack String
"temporal.api.namespace.v1.NamespaceInfo"
  packedMessageDescriptor :: Proxy NamespaceInfo -> ByteString
packedMessageDescriptor Proxy NamespaceInfo
_
    = ByteString
"\n\
      \\rNamespaceInfo\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2;\n\
      \\ENQstate\CAN\STX \SOH(\SO2%.temporal.api.enums.v1.NamespaceStateR\ENQstate\DC2 \n\
      \\vdescription\CAN\ETX \SOH(\tR\vdescription\DC2\US\n\
      \\vowner_email\CAN\EOT \SOH(\tR\n\
      \ownerEmail\DC2F\n\
      \\EOTdata\CAN\ENQ \ETX(\v22.temporal.api.namespace.v1.NamespaceInfo.DataEntryR\EOTdata\DC2\SO\n\
      \\STXid\CAN\ACK \SOH(\tR\STXid\DC2Y\n\
      \\fcapabilities\CAN\a \SOH(\v25.temporal.api.namespace.v1.NamespaceInfo.CapabilitiesR\fcapabilities\DC2-\n\
      \\DC2supports_schedules\CANd \SOH(\bR\DC1supportsSchedules\SUB7\n\
      \\tDataEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\SUB\132\SOH\n\
      \\fCapabilities\DC20\n\
      \\DC4eager_workflow_start\CAN\SOH \SOH(\bR\DC2eagerWorkflowStart\DC2\US\n\
      \\vsync_update\CAN\STX \SOH(\bR\n\
      \syncUpdate\DC2!\n\
      \\fasync_update\CAN\ETX \SOH(\bR\vasyncUpdate"
  packedFileDescriptor :: Proxy NamespaceInfo -> ByteString
packedFileDescriptor Proxy NamespaceInfo
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NamespaceInfo)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor NamespaceInfo
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceInfo Text
-> FieldDescriptor NamespaceInfo
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 NamespaceInfo NamespaceInfo Text Text
-> FieldAccessor NamespaceInfo 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 NamespaceInfo
        state__field_descriptor :: FieldDescriptor NamespaceInfo
state__field_descriptor
          = String
-> FieldTypeDescriptor NamespaceState
-> FieldAccessor NamespaceInfo NamespaceState
-> FieldDescriptor NamespaceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"state"
              (ScalarField NamespaceState -> FieldTypeDescriptor NamespaceState
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField NamespaceState
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState)
              (WireDefault NamespaceState
-> Lens NamespaceInfo NamespaceInfo NamespaceState NamespaceState
-> FieldAccessor NamespaceInfo NamespaceState
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault NamespaceState
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"state")) ::
              Data.ProtoLens.FieldDescriptor NamespaceInfo
        description__field_descriptor :: FieldDescriptor NamespaceInfo
description__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceInfo Text
-> FieldDescriptor NamespaceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"description"
              (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 NamespaceInfo NamespaceInfo Text Text
-> FieldAccessor NamespaceInfo 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 @"description")) ::
              Data.ProtoLens.FieldDescriptor NamespaceInfo
        ownerEmail__field_descriptor :: FieldDescriptor NamespaceInfo
ownerEmail__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceInfo Text
-> FieldDescriptor NamespaceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"owner_email"
              (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 NamespaceInfo NamespaceInfo Text Text
-> FieldAccessor NamespaceInfo 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 @"ownerEmail")) ::
              Data.ProtoLens.FieldDescriptor NamespaceInfo
        data'__field_descriptor :: FieldDescriptor NamespaceInfo
data'__field_descriptor
          = String
-> FieldTypeDescriptor NamespaceInfo'DataEntry
-> FieldAccessor NamespaceInfo NamespaceInfo'DataEntry
-> FieldDescriptor NamespaceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"data"
              (MessageOrGroup -> FieldTypeDescriptor NamespaceInfo'DataEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NamespaceInfo'DataEntry)
              (Lens' NamespaceInfo'DataEntry Text
-> Lens' NamespaceInfo'DataEntry Text
-> Lens NamespaceInfo NamespaceInfo (Map Text Text) (Map Text Text)
-> FieldAccessor NamespaceInfo NamespaceInfo'DataEntry
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 @"data'")) ::
              Data.ProtoLens.FieldDescriptor NamespaceInfo
        id__field_descriptor :: FieldDescriptor NamespaceInfo
id__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceInfo Text
-> FieldDescriptor NamespaceInfo
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 NamespaceInfo NamespaceInfo Text Text
-> FieldAccessor NamespaceInfo 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 NamespaceInfo
        capabilities__field_descriptor :: FieldDescriptor NamespaceInfo
capabilities__field_descriptor
          = String
-> FieldTypeDescriptor NamespaceInfo'Capabilities
-> FieldAccessor NamespaceInfo NamespaceInfo'Capabilities
-> FieldDescriptor NamespaceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"capabilities"
              (MessageOrGroup -> FieldTypeDescriptor NamespaceInfo'Capabilities
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NamespaceInfo'Capabilities)
              (Lens
  NamespaceInfo
  NamespaceInfo
  (Maybe NamespaceInfo'Capabilities)
  (Maybe NamespaceInfo'Capabilities)
-> FieldAccessor NamespaceInfo NamespaceInfo'Capabilities
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'capabilities")) ::
              Data.ProtoLens.FieldDescriptor NamespaceInfo
        supportsSchedules__field_descriptor :: FieldDescriptor NamespaceInfo
supportsSchedules__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor NamespaceInfo Bool
-> FieldDescriptor NamespaceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"supports_schedules"
              (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 NamespaceInfo NamespaceInfo Bool Bool
-> FieldAccessor NamespaceInfo 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 @"supportsSchedules")) ::
              Data.ProtoLens.FieldDescriptor NamespaceInfo
      in
        [(Tag, FieldDescriptor NamespaceInfo)]
-> Map Tag (FieldDescriptor NamespaceInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NamespaceInfo
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NamespaceInfo
state__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor NamespaceInfo
description__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor NamespaceInfo
ownerEmail__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor NamespaceInfo
data'__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor NamespaceInfo
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor NamespaceInfo
capabilities__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
100, FieldDescriptor NamespaceInfo
supportsSchedules__field_descriptor)]
  unknownFields :: Lens' NamespaceInfo FieldSet
unknownFields
    = (NamespaceInfo -> FieldSet)
-> (NamespaceInfo -> FieldSet -> NamespaceInfo)
-> Lens' NamespaceInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NamespaceInfo -> FieldSet
_NamespaceInfo'_unknownFields
        (\ NamespaceInfo
x__ FieldSet
y__ -> NamespaceInfo
x__ {_NamespaceInfo'_unknownFields = y__})
  defMessage :: NamespaceInfo
defMessage
    = NamespaceInfo'_constructor
        {_NamespaceInfo'name :: Text
_NamespaceInfo'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInfo'state :: NamespaceState
_NamespaceInfo'state = NamespaceState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInfo'description :: Text
_NamespaceInfo'description = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInfo'ownerEmail :: Text
_NamespaceInfo'ownerEmail = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInfo'data' :: Map Text Text
_NamespaceInfo'data' = Map Text Text
forall k a. Map k a
Data.Map.empty,
         _NamespaceInfo'id :: Text
_NamespaceInfo'id = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInfo'capabilities :: Maybe NamespaceInfo'Capabilities
_NamespaceInfo'capabilities = Maybe NamespaceInfo'Capabilities
forall a. Maybe a
Prelude.Nothing,
         _NamespaceInfo'supportsSchedules :: Bool
_NamespaceInfo'supportsSchedules = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInfo'_unknownFields :: FieldSet
_NamespaceInfo'_unknownFields = []}
  parseMessage :: Parser NamespaceInfo
parseMessage
    = let
        loop ::
          NamespaceInfo -> Data.ProtoLens.Encoding.Bytes.Parser NamespaceInfo
        loop :: NamespaceInfo -> Parser NamespaceInfo
loop NamespaceInfo
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                        Word64
16
                          -> do y <- Parser NamespaceState -> String -> Parser NamespaceState
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> NamespaceState) -> Parser Int -> Parser NamespaceState
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> NamespaceState
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"state"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"state") y x)
                        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
"description"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"description") y x)
                        Word64
34
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"owner_email"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"ownerEmail") y x)
                        Word64
42
                          -> do !(entry :: NamespaceInfo'DataEntry) <- Parser NamespaceInfo'DataEntry
-> String -> Parser NamespaceInfo'DataEntry
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
"data"
                                (let
                                   key = FoldLike
  Text NamespaceInfo'DataEntry NamespaceInfo'DataEntry Text Text
-> NamespaceInfo'DataEntry -> 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") NamespaceInfo'DataEntry
entry
                                   value
                                     = FoldLike
  Text NamespaceInfo'DataEntry NamespaceInfo'DataEntry Text Text
-> NamespaceInfo'DataEntry -> 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") NamespaceInfo'DataEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"data'")
                                        (\ !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
50
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"id"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x)
                        Word64
58
                          -> do y <- Parser NamespaceInfo'Capabilities
-> String -> Parser NamespaceInfo'Capabilities
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
"capabilities"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"capabilities") y x)
                        Word64
800
                          -> 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
"supports_schedules"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"supportsSchedules") 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 NamespaceInfo -> String -> Parser NamespaceInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NamespaceInfo -> Parser NamespaceInfo
loop NamespaceInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"NamespaceInfo"
  buildMessage :: NamespaceInfo -> Builder
buildMessage
    = \ NamespaceInfo
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text NamespaceInfo NamespaceInfo Text Text
-> NamespaceInfo -> 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") NamespaceInfo
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: NamespaceState
_v = FoldLike
  NamespaceState
  NamespaceInfo
  NamespaceInfo
  NamespaceState
  NamespaceState
-> NamespaceInfo -> NamespaceState
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"state") NamespaceInfo
_x
                 in
                   if NamespaceState -> NamespaceState -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) NamespaceState
_v NamespaceState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         ((Int -> Builder)
-> (NamespaceState -> Int) -> NamespaceState -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                            NamespaceState -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum NamespaceState
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Text
_v
                        = FoldLike Text NamespaceInfo NamespaceInfo Text Text
-> NamespaceInfo -> 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 @"description") NamespaceInfo
_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 NamespaceInfo NamespaceInfo Text Text
-> NamespaceInfo -> 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 @"ownerEmail") NamespaceInfo
_x
                       in
                         if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                             Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         else
                             Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                               ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  (\ ByteString
bs
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                             (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                          (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                  Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         ([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
42)
                                       ((ByteString -> Builder)
-> (NamespaceInfo'DataEntry -> ByteString)
-> NamespaceInfo'DataEntry
-> 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))
                                          NamespaceInfo'DataEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                          (Setter NamespaceInfo'DataEntry NamespaceInfo'DataEntry Text Text
-> Text -> NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry
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 NamespaceInfo'DataEntry NamespaceInfo'DataEntry Text Text
-> Text -> NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry
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)
                                                (NamespaceInfo'DataEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                                   NamespaceInfo'DataEntry)))))
                               (Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                                  (FoldLike
  (Map Text Text)
  NamespaceInfo
  NamespaceInfo
  (Map Text Text)
  (Map Text Text)
-> NamespaceInfo -> 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 @"data'") NamespaceInfo
_x))))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let _v :: Text
_v = FoldLike Text NamespaceInfo NamespaceInfo Text Text
-> NamespaceInfo -> 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") NamespaceInfo
_x
                             in
                               if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                   Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               else
                                   Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                                     ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                        (\ ByteString
bs
                                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                      (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                        Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (case
                                    FoldLike
  (Maybe NamespaceInfo'Capabilities)
  NamespaceInfo
  NamespaceInfo
  (Maybe NamespaceInfo'Capabilities)
  (Maybe NamespaceInfo'Capabilities)
-> NamespaceInfo -> Maybe NamespaceInfo'Capabilities
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'capabilities") NamespaceInfo
_x
                                of
                                  Maybe NamespaceInfo'Capabilities
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  (Prelude.Just NamespaceInfo'Capabilities
_v)
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                                         ((ByteString -> Builder)
-> (NamespaceInfo'Capabilities -> ByteString)
-> NamespaceInfo'Capabilities
-> 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))
                                            NamespaceInfo'Capabilities -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage NamespaceInfo'Capabilities
_v))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (let
                                     _v :: Bool
_v
                                       = FoldLike Bool NamespaceInfo NamespaceInfo Bool Bool
-> NamespaceInfo -> 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 @"supportsSchedules") NamespaceInfo
_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
800)
                                           ((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 NamespaceInfo NamespaceInfo FieldSet FieldSet
-> NamespaceInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet NamespaceInfo NamespaceInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NamespaceInfo FieldSet
Data.ProtoLens.unknownFields NamespaceInfo
_x)))))))))
instance Control.DeepSeq.NFData NamespaceInfo where
  rnf :: NamespaceInfo -> ()
rnf
    = \ NamespaceInfo
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NamespaceInfo -> FieldSet
_NamespaceInfo'_unknownFields NamespaceInfo
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NamespaceInfo -> Text
_NamespaceInfo'name NamespaceInfo
x__)
                (NamespaceState -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (NamespaceInfo -> NamespaceState
_NamespaceInfo'state NamespaceInfo
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (NamespaceInfo -> Text
_NamespaceInfo'description NamespaceInfo
x__)
                      (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (NamespaceInfo -> Text
_NamespaceInfo'ownerEmail NamespaceInfo
x__)
                         (Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (NamespaceInfo -> Map Text Text
_NamespaceInfo'data' NamespaceInfo
x__)
                            (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (NamespaceInfo -> Text
_NamespaceInfo'id NamespaceInfo
x__)
                               (Maybe NamespaceInfo'Capabilities -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (NamespaceInfo -> Maybe NamespaceInfo'Capabilities
_NamespaceInfo'capabilities NamespaceInfo
x__)
                                  (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (NamespaceInfo -> Bool
_NamespaceInfo'supportsSchedules NamespaceInfo
x__) ()))))))))
{- | Fields :
     
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.eagerWorkflowStart' @:: Lens' NamespaceInfo'Capabilities Prelude.Bool@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.syncUpdate' @:: Lens' NamespaceInfo'Capabilities Prelude.Bool@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.asyncUpdate' @:: Lens' NamespaceInfo'Capabilities Prelude.Bool@ -}
data NamespaceInfo'Capabilities
  = NamespaceInfo'Capabilities'_constructor {NamespaceInfo'Capabilities -> Bool
_NamespaceInfo'Capabilities'eagerWorkflowStart :: !Prelude.Bool,
                                             NamespaceInfo'Capabilities -> Bool
_NamespaceInfo'Capabilities'syncUpdate :: !Prelude.Bool,
                                             NamespaceInfo'Capabilities -> Bool
_NamespaceInfo'Capabilities'asyncUpdate :: !Prelude.Bool,
                                             NamespaceInfo'Capabilities -> FieldSet
_NamespaceInfo'Capabilities'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
(NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool)
-> (NamespaceInfo'Capabilities
    -> NamespaceInfo'Capabilities -> Bool)
-> Eq NamespaceInfo'Capabilities
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
== :: NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
$c/= :: NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
/= :: NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
Prelude.Eq, Eq NamespaceInfo'Capabilities
Eq NamespaceInfo'Capabilities =>
(NamespaceInfo'Capabilities
 -> NamespaceInfo'Capabilities -> Ordering)
-> (NamespaceInfo'Capabilities
    -> NamespaceInfo'Capabilities -> Bool)
-> (NamespaceInfo'Capabilities
    -> NamespaceInfo'Capabilities -> Bool)
-> (NamespaceInfo'Capabilities
    -> NamespaceInfo'Capabilities -> Bool)
-> (NamespaceInfo'Capabilities
    -> NamespaceInfo'Capabilities -> Bool)
-> (NamespaceInfo'Capabilities
    -> NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities)
-> (NamespaceInfo'Capabilities
    -> NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities)
-> Ord NamespaceInfo'Capabilities
NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
NamespaceInfo'Capabilities
-> NamespaceInfo'Capabilities -> Ordering
NamespaceInfo'Capabilities
-> NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities
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 :: NamespaceInfo'Capabilities
-> NamespaceInfo'Capabilities -> Ordering
compare :: NamespaceInfo'Capabilities
-> NamespaceInfo'Capabilities -> Ordering
$c< :: NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
< :: NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
$c<= :: NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
<= :: NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
$c> :: NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
> :: NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
$c>= :: NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
>= :: NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities -> Bool
$cmax :: NamespaceInfo'Capabilities
-> NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities
max :: NamespaceInfo'Capabilities
-> NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities
$cmin :: NamespaceInfo'Capabilities
-> NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities
min :: NamespaceInfo'Capabilities
-> NamespaceInfo'Capabilities -> NamespaceInfo'Capabilities
Prelude.Ord)
instance Prelude.Show NamespaceInfo'Capabilities where
  showsPrec :: Int -> NamespaceInfo'Capabilities -> ShowS
showsPrec Int
_ NamespaceInfo'Capabilities
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NamespaceInfo'Capabilities -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NamespaceInfo'Capabilities
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NamespaceInfo'Capabilities "eagerWorkflowStart" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "eagerWorkflowStart"
-> (Bool -> f Bool)
-> NamespaceInfo'Capabilities
-> f NamespaceInfo'Capabilities
fieldOf Proxy# "eagerWorkflowStart"
_
    = ((Bool -> f Bool)
 -> NamespaceInfo'Capabilities -> f NamespaceInfo'Capabilities)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> NamespaceInfo'Capabilities
-> f NamespaceInfo'Capabilities
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo'Capabilities -> Bool)
-> (NamespaceInfo'Capabilities
    -> Bool -> NamespaceInfo'Capabilities)
-> Lens
     NamespaceInfo'Capabilities NamespaceInfo'Capabilities Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo'Capabilities -> Bool
_NamespaceInfo'Capabilities'eagerWorkflowStart
           (\ NamespaceInfo'Capabilities
x__ Bool
y__
              -> NamespaceInfo'Capabilities
x__ {_NamespaceInfo'Capabilities'eagerWorkflowStart = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceInfo'Capabilities "syncUpdate" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "syncUpdate"
-> (Bool -> f Bool)
-> NamespaceInfo'Capabilities
-> f NamespaceInfo'Capabilities
fieldOf Proxy# "syncUpdate"
_
    = ((Bool -> f Bool)
 -> NamespaceInfo'Capabilities -> f NamespaceInfo'Capabilities)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> NamespaceInfo'Capabilities
-> f NamespaceInfo'Capabilities
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo'Capabilities -> Bool)
-> (NamespaceInfo'Capabilities
    -> Bool -> NamespaceInfo'Capabilities)
-> Lens
     NamespaceInfo'Capabilities NamespaceInfo'Capabilities Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo'Capabilities -> Bool
_NamespaceInfo'Capabilities'syncUpdate
           (\ NamespaceInfo'Capabilities
x__ Bool
y__ -> NamespaceInfo'Capabilities
x__ {_NamespaceInfo'Capabilities'syncUpdate = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceInfo'Capabilities "asyncUpdate" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "asyncUpdate"
-> (Bool -> f Bool)
-> NamespaceInfo'Capabilities
-> f NamespaceInfo'Capabilities
fieldOf Proxy# "asyncUpdate"
_
    = ((Bool -> f Bool)
 -> NamespaceInfo'Capabilities -> f NamespaceInfo'Capabilities)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> NamespaceInfo'Capabilities
-> f NamespaceInfo'Capabilities
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo'Capabilities -> Bool)
-> (NamespaceInfo'Capabilities
    -> Bool -> NamespaceInfo'Capabilities)
-> Lens
     NamespaceInfo'Capabilities NamespaceInfo'Capabilities Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo'Capabilities -> Bool
_NamespaceInfo'Capabilities'asyncUpdate
           (\ NamespaceInfo'Capabilities
x__ Bool
y__ -> NamespaceInfo'Capabilities
x__ {_NamespaceInfo'Capabilities'asyncUpdate = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NamespaceInfo'Capabilities where
  messageName :: Proxy NamespaceInfo'Capabilities -> Text
messageName Proxy NamespaceInfo'Capabilities
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.namespace.v1.NamespaceInfo.Capabilities"
  packedMessageDescriptor :: Proxy NamespaceInfo'Capabilities -> ByteString
packedMessageDescriptor Proxy NamespaceInfo'Capabilities
_
    = ByteString
"\n\
      \\fCapabilities\DC20\n\
      \\DC4eager_workflow_start\CAN\SOH \SOH(\bR\DC2eagerWorkflowStart\DC2\US\n\
      \\vsync_update\CAN\STX \SOH(\bR\n\
      \syncUpdate\DC2!\n\
      \\fasync_update\CAN\ETX \SOH(\bR\vasyncUpdate"
  packedFileDescriptor :: Proxy NamespaceInfo'Capabilities -> ByteString
packedFileDescriptor Proxy NamespaceInfo'Capabilities
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NamespaceInfo'Capabilities)
fieldsByTag
    = let
        eagerWorkflowStart__field_descriptor :: FieldDescriptor NamespaceInfo'Capabilities
eagerWorkflowStart__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor NamespaceInfo'Capabilities Bool
-> FieldDescriptor NamespaceInfo'Capabilities
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"eager_workflow_start"
              (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
     NamespaceInfo'Capabilities NamespaceInfo'Capabilities Bool Bool
-> FieldAccessor NamespaceInfo'Capabilities 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 @"eagerWorkflowStart")) ::
              Data.ProtoLens.FieldDescriptor NamespaceInfo'Capabilities
        syncUpdate__field_descriptor :: FieldDescriptor NamespaceInfo'Capabilities
syncUpdate__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor NamespaceInfo'Capabilities Bool
-> FieldDescriptor NamespaceInfo'Capabilities
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"sync_update"
              (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
     NamespaceInfo'Capabilities NamespaceInfo'Capabilities Bool Bool
-> FieldAccessor NamespaceInfo'Capabilities 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 @"syncUpdate")) ::
              Data.ProtoLens.FieldDescriptor NamespaceInfo'Capabilities
        asyncUpdate__field_descriptor :: FieldDescriptor NamespaceInfo'Capabilities
asyncUpdate__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor NamespaceInfo'Capabilities Bool
-> FieldDescriptor NamespaceInfo'Capabilities
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"async_update"
              (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
     NamespaceInfo'Capabilities NamespaceInfo'Capabilities Bool Bool
-> FieldAccessor NamespaceInfo'Capabilities 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 @"asyncUpdate")) ::
              Data.ProtoLens.FieldDescriptor NamespaceInfo'Capabilities
      in
        [(Tag, FieldDescriptor NamespaceInfo'Capabilities)]
-> Map Tag (FieldDescriptor NamespaceInfo'Capabilities)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NamespaceInfo'Capabilities
eagerWorkflowStart__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NamespaceInfo'Capabilities
syncUpdate__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor NamespaceInfo'Capabilities
asyncUpdate__field_descriptor)]
  unknownFields :: Lens' NamespaceInfo'Capabilities FieldSet
unknownFields
    = (NamespaceInfo'Capabilities -> FieldSet)
-> (NamespaceInfo'Capabilities
    -> FieldSet -> NamespaceInfo'Capabilities)
-> Lens' NamespaceInfo'Capabilities FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NamespaceInfo'Capabilities -> FieldSet
_NamespaceInfo'Capabilities'_unknownFields
        (\ NamespaceInfo'Capabilities
x__ FieldSet
y__
           -> NamespaceInfo'Capabilities
x__ {_NamespaceInfo'Capabilities'_unknownFields = y__})
  defMessage :: NamespaceInfo'Capabilities
defMessage
    = NamespaceInfo'Capabilities'_constructor
        {_NamespaceInfo'Capabilities'eagerWorkflowStart :: Bool
_NamespaceInfo'Capabilities'eagerWorkflowStart = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInfo'Capabilities'syncUpdate :: Bool
_NamespaceInfo'Capabilities'syncUpdate = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInfo'Capabilities'asyncUpdate :: Bool
_NamespaceInfo'Capabilities'asyncUpdate = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInfo'Capabilities'_unknownFields :: FieldSet
_NamespaceInfo'Capabilities'_unknownFields = []}
  parseMessage :: Parser NamespaceInfo'Capabilities
parseMessage
    = let
        loop ::
          NamespaceInfo'Capabilities
          -> Data.ProtoLens.Encoding.Bytes.Parser NamespaceInfo'Capabilities
        loop :: NamespaceInfo'Capabilities -> Parser NamespaceInfo'Capabilities
loop NamespaceInfo'Capabilities
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 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
"eager_workflow_start"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"eagerWorkflowStart") 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
"sync_update"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"syncUpdate") y x)
                        Word64
24
                          -> 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
"async_update"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"asyncUpdate") 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 NamespaceInfo'Capabilities
-> String -> Parser NamespaceInfo'Capabilities
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NamespaceInfo'Capabilities -> Parser NamespaceInfo'Capabilities
loop NamespaceInfo'Capabilities
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Capabilities"
  buildMessage :: NamespaceInfo'Capabilities -> Builder
buildMessage
    = \ NamespaceInfo'Capabilities
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Bool
_v
                  = FoldLike
  Bool
  NamespaceInfo'Capabilities
  NamespaceInfo'Capabilities
  Bool
  Bool
-> NamespaceInfo'Capabilities -> 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 @"eagerWorkflowStart") NamespaceInfo'Capabilities
_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
8)
                      ((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 :: Bool
_v
                     = FoldLike
  Bool
  NamespaceInfo'Capabilities
  NamespaceInfo'Capabilities
  Bool
  Bool
-> NamespaceInfo'Capabilities -> 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 @"syncUpdate") NamespaceInfo'Capabilities
_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 :: Bool
_v
                        = FoldLike
  Bool
  NamespaceInfo'Capabilities
  NamespaceInfo'Capabilities
  Bool
  Bool
-> NamespaceInfo'Capabilities -> 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 @"asyncUpdate") NamespaceInfo'Capabilities
_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
24)
                            ((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
  NamespaceInfo'Capabilities
  NamespaceInfo'Capabilities
  FieldSet
  FieldSet
-> NamespaceInfo'Capabilities -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  NamespaceInfo'Capabilities
  NamespaceInfo'Capabilities
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NamespaceInfo'Capabilities FieldSet
Data.ProtoLens.unknownFields NamespaceInfo'Capabilities
_x))))
instance Control.DeepSeq.NFData NamespaceInfo'Capabilities where
  rnf :: NamespaceInfo'Capabilities -> ()
rnf
    = \ NamespaceInfo'Capabilities
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NamespaceInfo'Capabilities -> FieldSet
_NamespaceInfo'Capabilities'_unknownFields NamespaceInfo'Capabilities
x__)
             (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NamespaceInfo'Capabilities -> Bool
_NamespaceInfo'Capabilities'eagerWorkflowStart NamespaceInfo'Capabilities
x__)
                (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (NamespaceInfo'Capabilities -> Bool
_NamespaceInfo'Capabilities'syncUpdate NamespaceInfo'Capabilities
x__)
                   (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (NamespaceInfo'Capabilities -> Bool
_NamespaceInfo'Capabilities'asyncUpdate NamespaceInfo'Capabilities
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.key' @:: Lens' NamespaceInfo'DataEntry Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.value' @:: Lens' NamespaceInfo'DataEntry Data.Text.Text@ -}
data NamespaceInfo'DataEntry
  = NamespaceInfo'DataEntry'_constructor {NamespaceInfo'DataEntry -> Text
_NamespaceInfo'DataEntry'key :: !Data.Text.Text,
                                          NamespaceInfo'DataEntry -> Text
_NamespaceInfo'DataEntry'value :: !Data.Text.Text,
                                          NamespaceInfo'DataEntry -> FieldSet
_NamespaceInfo'DataEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
(NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool)
-> (NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool)
-> Eq NamespaceInfo'DataEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
== :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
$c/= :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
/= :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
Prelude.Eq, Eq NamespaceInfo'DataEntry
Eq NamespaceInfo'DataEntry =>
(NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Ordering)
-> (NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool)
-> (NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool)
-> (NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool)
-> (NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool)
-> (NamespaceInfo'DataEntry
    -> NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry)
-> (NamespaceInfo'DataEntry
    -> NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry)
-> Ord NamespaceInfo'DataEntry
NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Ordering
NamespaceInfo'DataEntry
-> NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry
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 :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Ordering
compare :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Ordering
$c< :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
< :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
$c<= :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
<= :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
$c> :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
> :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
$c>= :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
>= :: NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry -> Bool
$cmax :: NamespaceInfo'DataEntry
-> NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry
max :: NamespaceInfo'DataEntry
-> NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry
$cmin :: NamespaceInfo'DataEntry
-> NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry
min :: NamespaceInfo'DataEntry
-> NamespaceInfo'DataEntry -> NamespaceInfo'DataEntry
Prelude.Ord)
instance Prelude.Show NamespaceInfo'DataEntry where
  showsPrec :: Int -> NamespaceInfo'DataEntry -> ShowS
showsPrec Int
_ NamespaceInfo'DataEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NamespaceInfo'DataEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NamespaceInfo'DataEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NamespaceInfo'DataEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> NamespaceInfo'DataEntry
-> f NamespaceInfo'DataEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> NamespaceInfo'DataEntry -> f NamespaceInfo'DataEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceInfo'DataEntry
-> f NamespaceInfo'DataEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo'DataEntry -> Text)
-> (NamespaceInfo'DataEntry -> Text -> NamespaceInfo'DataEntry)
-> Lens' NamespaceInfo'DataEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo'DataEntry -> Text
_NamespaceInfo'DataEntry'key
           (\ NamespaceInfo'DataEntry
x__ Text
y__ -> NamespaceInfo'DataEntry
x__ {_NamespaceInfo'DataEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceInfo'DataEntry "value" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Text -> f Text)
-> NamespaceInfo'DataEntry
-> f NamespaceInfo'DataEntry
fieldOf Proxy# "value"
_
    = ((Text -> f Text)
 -> NamespaceInfo'DataEntry -> f NamespaceInfo'DataEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceInfo'DataEntry
-> f NamespaceInfo'DataEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceInfo'DataEntry -> Text)
-> (NamespaceInfo'DataEntry -> Text -> NamespaceInfo'DataEntry)
-> Lens' NamespaceInfo'DataEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceInfo'DataEntry -> Text
_NamespaceInfo'DataEntry'value
           (\ NamespaceInfo'DataEntry
x__ Text
y__ -> NamespaceInfo'DataEntry
x__ {_NamespaceInfo'DataEntry'value = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NamespaceInfo'DataEntry where
  messageName :: Proxy NamespaceInfo'DataEntry -> Text
messageName Proxy NamespaceInfo'DataEntry
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.namespace.v1.NamespaceInfo.DataEntry"
  packedMessageDescriptor :: Proxy NamespaceInfo'DataEntry -> ByteString
packedMessageDescriptor Proxy NamespaceInfo'DataEntry
_
    = ByteString
"\n\
      \\tDataEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy NamespaceInfo'DataEntry -> ByteString
packedFileDescriptor Proxy NamespaceInfo'DataEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NamespaceInfo'DataEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor NamespaceInfo'DataEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceInfo'DataEntry Text
-> FieldDescriptor NamespaceInfo'DataEntry
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' NamespaceInfo'DataEntry Text
-> FieldAccessor NamespaceInfo'DataEntry 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 NamespaceInfo'DataEntry
        value__field_descriptor :: FieldDescriptor NamespaceInfo'DataEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceInfo'DataEntry Text
-> FieldDescriptor NamespaceInfo'DataEntry
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' NamespaceInfo'DataEntry Text
-> FieldAccessor NamespaceInfo'DataEntry 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 NamespaceInfo'DataEntry
      in
        [(Tag, FieldDescriptor NamespaceInfo'DataEntry)]
-> Map Tag (FieldDescriptor NamespaceInfo'DataEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NamespaceInfo'DataEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NamespaceInfo'DataEntry
value__field_descriptor)]
  unknownFields :: Lens' NamespaceInfo'DataEntry FieldSet
unknownFields
    = (NamespaceInfo'DataEntry -> FieldSet)
-> (NamespaceInfo'DataEntry -> FieldSet -> NamespaceInfo'DataEntry)
-> Lens' NamespaceInfo'DataEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NamespaceInfo'DataEntry -> FieldSet
_NamespaceInfo'DataEntry'_unknownFields
        (\ NamespaceInfo'DataEntry
x__ FieldSet
y__ -> NamespaceInfo'DataEntry
x__ {_NamespaceInfo'DataEntry'_unknownFields = y__})
  defMessage :: NamespaceInfo'DataEntry
defMessage
    = NamespaceInfo'DataEntry'_constructor
        {_NamespaceInfo'DataEntry'key :: Text
_NamespaceInfo'DataEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInfo'DataEntry'value :: Text
_NamespaceInfo'DataEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceInfo'DataEntry'_unknownFields :: FieldSet
_NamespaceInfo'DataEntry'_unknownFields = []}
  parseMessage :: Parser NamespaceInfo'DataEntry
parseMessage
    = let
        loop ::
          NamespaceInfo'DataEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser NamespaceInfo'DataEntry
        loop :: NamespaceInfo'DataEntry -> Parser NamespaceInfo'DataEntry
loop NamespaceInfo'DataEntry
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 NamespaceInfo'DataEntry
-> String -> Parser NamespaceInfo'DataEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NamespaceInfo'DataEntry -> Parser NamespaceInfo'DataEntry
loop NamespaceInfo'DataEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DataEntry"
  buildMessage :: NamespaceInfo'DataEntry -> Builder
buildMessage
    = \ NamespaceInfo'DataEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text NamespaceInfo'DataEntry NamespaceInfo'DataEntry Text Text
-> NamespaceInfo'DataEntry -> 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") NamespaceInfo'DataEntry
_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 NamespaceInfo'DataEntry NamespaceInfo'DataEntry Text Text
-> NamespaceInfo'DataEntry -> 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") NamespaceInfo'DataEntry
_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
  NamespaceInfo'DataEntry
  NamespaceInfo'DataEntry
  FieldSet
  FieldSet
-> NamespaceInfo'DataEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  NamespaceInfo'DataEntry
  NamespaceInfo'DataEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NamespaceInfo'DataEntry FieldSet
Data.ProtoLens.unknownFields NamespaceInfo'DataEntry
_x)))
instance Control.DeepSeq.NFData NamespaceInfo'DataEntry where
  rnf :: NamespaceInfo'DataEntry -> ()
rnf
    = \ NamespaceInfo'DataEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NamespaceInfo'DataEntry -> FieldSet
_NamespaceInfo'DataEntry'_unknownFields NamespaceInfo'DataEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NamespaceInfo'DataEntry -> Text
_NamespaceInfo'DataEntry'key NamespaceInfo'DataEntry
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (NamespaceInfo'DataEntry -> Text
_NamespaceInfo'DataEntry'value NamespaceInfo'DataEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.description' @:: Lens' UpdateNamespaceInfo Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.ownerEmail' @:: Lens' UpdateNamespaceInfo Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.data'' @:: Lens' UpdateNamespaceInfo (Data.Map.Map Data.Text.Text Data.Text.Text)@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.state' @:: Lens' UpdateNamespaceInfo Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState@ -}
data UpdateNamespaceInfo
  = UpdateNamespaceInfo'_constructor {UpdateNamespaceInfo -> Text
_UpdateNamespaceInfo'description :: !Data.Text.Text,
                                      UpdateNamespaceInfo -> Text
_UpdateNamespaceInfo'ownerEmail :: !Data.Text.Text,
                                      UpdateNamespaceInfo -> Map Text Text
_UpdateNamespaceInfo'data' :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
                                      UpdateNamespaceInfo -> NamespaceState
_UpdateNamespaceInfo'state :: !Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState,
                                      UpdateNamespaceInfo -> FieldSet
_UpdateNamespaceInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
(UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool)
-> (UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool)
-> Eq UpdateNamespaceInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
== :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
$c/= :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
/= :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
Prelude.Eq, Eq UpdateNamespaceInfo
Eq UpdateNamespaceInfo =>
(UpdateNamespaceInfo -> UpdateNamespaceInfo -> Ordering)
-> (UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool)
-> (UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool)
-> (UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool)
-> (UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool)
-> (UpdateNamespaceInfo
    -> UpdateNamespaceInfo -> UpdateNamespaceInfo)
-> (UpdateNamespaceInfo
    -> UpdateNamespaceInfo -> UpdateNamespaceInfo)
-> Ord UpdateNamespaceInfo
UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
UpdateNamespaceInfo -> UpdateNamespaceInfo -> Ordering
UpdateNamespaceInfo -> UpdateNamespaceInfo -> UpdateNamespaceInfo
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 :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Ordering
compare :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Ordering
$c< :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
< :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
$c<= :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
<= :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
$c> :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
> :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
$c>= :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
>= :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> Bool
$cmax :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> UpdateNamespaceInfo
max :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> UpdateNamespaceInfo
$cmin :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> UpdateNamespaceInfo
min :: UpdateNamespaceInfo -> UpdateNamespaceInfo -> UpdateNamespaceInfo
Prelude.Ord)
instance Prelude.Show UpdateNamespaceInfo where
  showsPrec :: Int -> UpdateNamespaceInfo -> ShowS
showsPrec Int
_ UpdateNamespaceInfo
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (UpdateNamespaceInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UpdateNamespaceInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField UpdateNamespaceInfo "description" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "description"
-> (Text -> f Text) -> UpdateNamespaceInfo -> f UpdateNamespaceInfo
fieldOf Proxy# "description"
_
    = ((Text -> f Text) -> UpdateNamespaceInfo -> f UpdateNamespaceInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> UpdateNamespaceInfo
-> f UpdateNamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateNamespaceInfo -> Text)
-> (UpdateNamespaceInfo -> Text -> UpdateNamespaceInfo)
-> Lens UpdateNamespaceInfo UpdateNamespaceInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateNamespaceInfo -> Text
_UpdateNamespaceInfo'description
           (\ UpdateNamespaceInfo
x__ Text
y__ -> UpdateNamespaceInfo
x__ {_UpdateNamespaceInfo'description = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UpdateNamespaceInfo "ownerEmail" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ownerEmail"
-> (Text -> f Text) -> UpdateNamespaceInfo -> f UpdateNamespaceInfo
fieldOf Proxy# "ownerEmail"
_
    = ((Text -> f Text) -> UpdateNamespaceInfo -> f UpdateNamespaceInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> UpdateNamespaceInfo
-> f UpdateNamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateNamespaceInfo -> Text)
-> (UpdateNamespaceInfo -> Text -> UpdateNamespaceInfo)
-> Lens UpdateNamespaceInfo UpdateNamespaceInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateNamespaceInfo -> Text
_UpdateNamespaceInfo'ownerEmail
           (\ UpdateNamespaceInfo
x__ Text
y__ -> UpdateNamespaceInfo
x__ {_UpdateNamespaceInfo'ownerEmail = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UpdateNamespaceInfo "data'" (Data.Map.Map Data.Text.Text Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "data'"
-> (Map Text Text -> f (Map Text Text))
-> UpdateNamespaceInfo
-> f UpdateNamespaceInfo
fieldOf Proxy# "data'"
_
    = ((Map Text Text -> f (Map Text Text))
 -> UpdateNamespaceInfo -> f UpdateNamespaceInfo)
-> ((Map Text Text -> f (Map Text Text))
    -> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> UpdateNamespaceInfo
-> f UpdateNamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateNamespaceInfo -> Map Text Text)
-> (UpdateNamespaceInfo -> Map Text Text -> UpdateNamespaceInfo)
-> Lens
     UpdateNamespaceInfo
     UpdateNamespaceInfo
     (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
           UpdateNamespaceInfo -> Map Text Text
_UpdateNamespaceInfo'data'
           (\ UpdateNamespaceInfo
x__ Map Text Text
y__ -> UpdateNamespaceInfo
x__ {_UpdateNamespaceInfo'data' = y__}))
        (Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UpdateNamespaceInfo "state" Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "state"
-> (NamespaceState -> f NamespaceState)
-> UpdateNamespaceInfo
-> f UpdateNamespaceInfo
fieldOf Proxy# "state"
_
    = ((NamespaceState -> f NamespaceState)
 -> UpdateNamespaceInfo -> f UpdateNamespaceInfo)
-> ((NamespaceState -> f NamespaceState)
    -> NamespaceState -> f NamespaceState)
-> (NamespaceState -> f NamespaceState)
-> UpdateNamespaceInfo
-> f UpdateNamespaceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateNamespaceInfo -> NamespaceState)
-> (UpdateNamespaceInfo -> NamespaceState -> UpdateNamespaceInfo)
-> Lens
     UpdateNamespaceInfo
     UpdateNamespaceInfo
     NamespaceState
     NamespaceState
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateNamespaceInfo -> NamespaceState
_UpdateNamespaceInfo'state
           (\ UpdateNamespaceInfo
x__ NamespaceState
y__ -> UpdateNamespaceInfo
x__ {_UpdateNamespaceInfo'state = y__}))
        (NamespaceState -> f NamespaceState)
-> NamespaceState -> f NamespaceState
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UpdateNamespaceInfo where
  messageName :: Proxy UpdateNamespaceInfo -> Text
messageName Proxy UpdateNamespaceInfo
_
    = String -> Text
Data.Text.pack String
"temporal.api.namespace.v1.UpdateNamespaceInfo"
  packedMessageDescriptor :: Proxy UpdateNamespaceInfo -> ByteString
packedMessageDescriptor Proxy UpdateNamespaceInfo
_
    = ByteString
"\n\
      \\DC3UpdateNamespaceInfo\DC2 \n\
      \\vdescription\CAN\SOH \SOH(\tR\vdescription\DC2\US\n\
      \\vowner_email\CAN\STX \SOH(\tR\n\
      \ownerEmail\DC2L\n\
      \\EOTdata\CAN\ETX \ETX(\v28.temporal.api.namespace.v1.UpdateNamespaceInfo.DataEntryR\EOTdata\DC2;\n\
      \\ENQstate\CAN\EOT \SOH(\SO2%.temporal.api.enums.v1.NamespaceStateR\ENQstate\SUB7\n\
      \\tDataEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy UpdateNamespaceInfo -> ByteString
packedFileDescriptor Proxy UpdateNamespaceInfo
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor UpdateNamespaceInfo)
fieldsByTag
    = let
        description__field_descriptor :: FieldDescriptor UpdateNamespaceInfo
description__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor UpdateNamespaceInfo Text
-> FieldDescriptor UpdateNamespaceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"description"
              (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 UpdateNamespaceInfo UpdateNamespaceInfo Text Text
-> FieldAccessor UpdateNamespaceInfo 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 @"description")) ::
              Data.ProtoLens.FieldDescriptor UpdateNamespaceInfo
        ownerEmail__field_descriptor :: FieldDescriptor UpdateNamespaceInfo
ownerEmail__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor UpdateNamespaceInfo Text
-> FieldDescriptor UpdateNamespaceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"owner_email"
              (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 UpdateNamespaceInfo UpdateNamespaceInfo Text Text
-> FieldAccessor UpdateNamespaceInfo 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 @"ownerEmail")) ::
              Data.ProtoLens.FieldDescriptor UpdateNamespaceInfo
        data'__field_descriptor :: FieldDescriptor UpdateNamespaceInfo
data'__field_descriptor
          = String
-> FieldTypeDescriptor UpdateNamespaceInfo'DataEntry
-> FieldAccessor UpdateNamespaceInfo UpdateNamespaceInfo'DataEntry
-> FieldDescriptor UpdateNamespaceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"data"
              (MessageOrGroup -> FieldTypeDescriptor UpdateNamespaceInfo'DataEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UpdateNamespaceInfo'DataEntry)
              (Lens' UpdateNamespaceInfo'DataEntry Text
-> Lens' UpdateNamespaceInfo'DataEntry Text
-> Lens
     UpdateNamespaceInfo
     UpdateNamespaceInfo
     (Map Text Text)
     (Map Text Text)
-> FieldAccessor UpdateNamespaceInfo UpdateNamespaceInfo'DataEntry
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 @"data'")) ::
              Data.ProtoLens.FieldDescriptor UpdateNamespaceInfo
        state__field_descriptor :: FieldDescriptor UpdateNamespaceInfo
state__field_descriptor
          = String
-> FieldTypeDescriptor NamespaceState
-> FieldAccessor UpdateNamespaceInfo NamespaceState
-> FieldDescriptor UpdateNamespaceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"state"
              (ScalarField NamespaceState -> FieldTypeDescriptor NamespaceState
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField NamespaceState
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Namespace.NamespaceState)
              (WireDefault NamespaceState
-> Lens
     UpdateNamespaceInfo
     UpdateNamespaceInfo
     NamespaceState
     NamespaceState
-> FieldAccessor UpdateNamespaceInfo NamespaceState
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault NamespaceState
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"state")) ::
              Data.ProtoLens.FieldDescriptor UpdateNamespaceInfo
      in
        [(Tag, FieldDescriptor UpdateNamespaceInfo)]
-> Map Tag (FieldDescriptor UpdateNamespaceInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor UpdateNamespaceInfo
description__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor UpdateNamespaceInfo
ownerEmail__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor UpdateNamespaceInfo
data'__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor UpdateNamespaceInfo
state__field_descriptor)]
  unknownFields :: Lens' UpdateNamespaceInfo FieldSet
unknownFields
    = (UpdateNamespaceInfo -> FieldSet)
-> (UpdateNamespaceInfo -> FieldSet -> UpdateNamespaceInfo)
-> Lens' UpdateNamespaceInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UpdateNamespaceInfo -> FieldSet
_UpdateNamespaceInfo'_unknownFields
        (\ UpdateNamespaceInfo
x__ FieldSet
y__ -> UpdateNamespaceInfo
x__ {_UpdateNamespaceInfo'_unknownFields = y__})
  defMessage :: UpdateNamespaceInfo
defMessage
    = UpdateNamespaceInfo'_constructor
        {_UpdateNamespaceInfo'description :: Text
_UpdateNamespaceInfo'description = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _UpdateNamespaceInfo'ownerEmail :: Text
_UpdateNamespaceInfo'ownerEmail = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _UpdateNamespaceInfo'data' :: Map Text Text
_UpdateNamespaceInfo'data' = Map Text Text
forall k a. Map k a
Data.Map.empty,
         _UpdateNamespaceInfo'state :: NamespaceState
_UpdateNamespaceInfo'state = NamespaceState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _UpdateNamespaceInfo'_unknownFields :: FieldSet
_UpdateNamespaceInfo'_unknownFields = []}
  parseMessage :: Parser UpdateNamespaceInfo
parseMessage
    = let
        loop ::
          UpdateNamespaceInfo
          -> Data.ProtoLens.Encoding.Bytes.Parser UpdateNamespaceInfo
        loop :: UpdateNamespaceInfo -> Parser UpdateNamespaceInfo
loop UpdateNamespaceInfo
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
"description"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"description") 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
"owner_email"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"ownerEmail") y x)
                        Word64
26
                          -> do !(entry :: UpdateNamespaceInfo'DataEntry) <- Parser UpdateNamespaceInfo'DataEntry
-> String -> Parser UpdateNamespaceInfo'DataEntry
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
"data"
                                (let
                                   key = FoldLike
  Text
  UpdateNamespaceInfo'DataEntry
  UpdateNamespaceInfo'DataEntry
  Text
  Text
-> UpdateNamespaceInfo'DataEntry -> 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") UpdateNamespaceInfo'DataEntry
entry
                                   value
                                     = FoldLike
  Text
  UpdateNamespaceInfo'DataEntry
  UpdateNamespaceInfo'DataEntry
  Text
  Text
-> UpdateNamespaceInfo'DataEntry -> 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") UpdateNamespaceInfo'DataEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"data'")
                                        (\ !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
32
                          -> do y <- Parser NamespaceState -> String -> Parser NamespaceState
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> NamespaceState) -> Parser Int -> Parser NamespaceState
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> NamespaceState
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"state"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"state") y x)
                        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 UpdateNamespaceInfo -> String -> Parser UpdateNamespaceInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do UpdateNamespaceInfo -> Parser UpdateNamespaceInfo
loop UpdateNamespaceInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"UpdateNamespaceInfo"
  buildMessage :: UpdateNamespaceInfo -> Builder
buildMessage
    = \ UpdateNamespaceInfo
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike Text UpdateNamespaceInfo UpdateNamespaceInfo Text Text
-> UpdateNamespaceInfo -> 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 @"description") UpdateNamespaceInfo
_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 UpdateNamespaceInfo UpdateNamespaceInfo Text Text
-> UpdateNamespaceInfo -> 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 @"ownerEmail") UpdateNamespaceInfo
_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.<>)
                   ([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)
-> (UpdateNamespaceInfo'DataEntry -> ByteString)
-> UpdateNamespaceInfo'DataEntry
-> 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))
                                    UpdateNamespaceInfo'DataEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                    (Setter
  UpdateNamespaceInfo'DataEntry
  UpdateNamespaceInfo'DataEntry
  Text
  Text
-> Text
-> UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry
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
  UpdateNamespaceInfo'DataEntry
  UpdateNamespaceInfo'DataEntry
  Text
  Text
-> Text
-> UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry
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)
                                          (UpdateNamespaceInfo'DataEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                             UpdateNamespaceInfo'DataEntry)))))
                         (Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                            (FoldLike
  (Map Text Text)
  UpdateNamespaceInfo
  UpdateNamespaceInfo
  (Map Text Text)
  (Map Text Text)
-> UpdateNamespaceInfo -> 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 @"data'") UpdateNamespaceInfo
_x))))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: NamespaceState
_v = FoldLike
  NamespaceState
  UpdateNamespaceInfo
  UpdateNamespaceInfo
  NamespaceState
  NamespaceState
-> UpdateNamespaceInfo -> NamespaceState
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"state") UpdateNamespaceInfo
_x
                       in
                         if NamespaceState -> NamespaceState -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) NamespaceState
_v NamespaceState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                             Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         else
                             Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
32)
                               ((Int -> Builder)
-> (NamespaceState -> Int) -> NamespaceState -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                     Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                  NamespaceState -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum NamespaceState
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike
  FieldSet UpdateNamespaceInfo UpdateNamespaceInfo FieldSet FieldSet
-> UpdateNamespaceInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet UpdateNamespaceInfo UpdateNamespaceInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UpdateNamespaceInfo FieldSet
Data.ProtoLens.unknownFields UpdateNamespaceInfo
_x)))))
instance Control.DeepSeq.NFData UpdateNamespaceInfo where
  rnf :: UpdateNamespaceInfo -> ()
rnf
    = \ UpdateNamespaceInfo
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UpdateNamespaceInfo -> FieldSet
_UpdateNamespaceInfo'_unknownFields UpdateNamespaceInfo
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (UpdateNamespaceInfo -> Text
_UpdateNamespaceInfo'description UpdateNamespaceInfo
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (UpdateNamespaceInfo -> Text
_UpdateNamespaceInfo'ownerEmail UpdateNamespaceInfo
x__)
                   (Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (UpdateNamespaceInfo -> Map Text Text
_UpdateNamespaceInfo'data' UpdateNamespaceInfo
x__)
                      (NamespaceState -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (UpdateNamespaceInfo -> NamespaceState
_UpdateNamespaceInfo'state UpdateNamespaceInfo
x__) ()))))
{- | Fields :
     
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.key' @:: Lens' UpdateNamespaceInfo'DataEntry Data.Text.Text@
         * 'Proto.Temporal.Api.Namespace.V1.Message_Fields.value' @:: Lens' UpdateNamespaceInfo'DataEntry Data.Text.Text@ -}
data UpdateNamespaceInfo'DataEntry
  = UpdateNamespaceInfo'DataEntry'_constructor {UpdateNamespaceInfo'DataEntry -> Text
_UpdateNamespaceInfo'DataEntry'key :: !Data.Text.Text,
                                                UpdateNamespaceInfo'DataEntry -> Text
_UpdateNamespaceInfo'DataEntry'value :: !Data.Text.Text,
                                                UpdateNamespaceInfo'DataEntry -> FieldSet
_UpdateNamespaceInfo'DataEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
(UpdateNamespaceInfo'DataEntry
 -> UpdateNamespaceInfo'DataEntry -> Bool)
-> (UpdateNamespaceInfo'DataEntry
    -> UpdateNamespaceInfo'DataEntry -> Bool)
-> Eq UpdateNamespaceInfo'DataEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
== :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
$c/= :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
/= :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
Prelude.Eq, Eq UpdateNamespaceInfo'DataEntry
Eq UpdateNamespaceInfo'DataEntry =>
(UpdateNamespaceInfo'DataEntry
 -> UpdateNamespaceInfo'DataEntry -> Ordering)
-> (UpdateNamespaceInfo'DataEntry
    -> UpdateNamespaceInfo'DataEntry -> Bool)
-> (UpdateNamespaceInfo'DataEntry
    -> UpdateNamespaceInfo'DataEntry -> Bool)
-> (UpdateNamespaceInfo'DataEntry
    -> UpdateNamespaceInfo'DataEntry -> Bool)
-> (UpdateNamespaceInfo'DataEntry
    -> UpdateNamespaceInfo'DataEntry -> Bool)
-> (UpdateNamespaceInfo'DataEntry
    -> UpdateNamespaceInfo'DataEntry -> UpdateNamespaceInfo'DataEntry)
-> (UpdateNamespaceInfo'DataEntry
    -> UpdateNamespaceInfo'DataEntry -> UpdateNamespaceInfo'DataEntry)
-> Ord UpdateNamespaceInfo'DataEntry
UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Ordering
UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> UpdateNamespaceInfo'DataEntry
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 :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Ordering
compare :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Ordering
$c< :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
< :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
$c<= :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
<= :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
$c> :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
> :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
$c>= :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
>= :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> Bool
$cmax :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> UpdateNamespaceInfo'DataEntry
max :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> UpdateNamespaceInfo'DataEntry
$cmin :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> UpdateNamespaceInfo'DataEntry
min :: UpdateNamespaceInfo'DataEntry
-> UpdateNamespaceInfo'DataEntry -> UpdateNamespaceInfo'DataEntry
Prelude.Ord)
instance Prelude.Show UpdateNamespaceInfo'DataEntry where
  showsPrec :: Int -> UpdateNamespaceInfo'DataEntry -> ShowS
showsPrec Int
_ UpdateNamespaceInfo'DataEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (UpdateNamespaceInfo'DataEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UpdateNamespaceInfo'DataEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField UpdateNamespaceInfo'DataEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> UpdateNamespaceInfo'DataEntry
-> f UpdateNamespaceInfo'DataEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> UpdateNamespaceInfo'DataEntry
 -> f UpdateNamespaceInfo'DataEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> UpdateNamespaceInfo'DataEntry
-> f UpdateNamespaceInfo'DataEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateNamespaceInfo'DataEntry -> Text)
-> (UpdateNamespaceInfo'DataEntry
    -> Text -> UpdateNamespaceInfo'DataEntry)
-> Lens' UpdateNamespaceInfo'DataEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateNamespaceInfo'DataEntry -> Text
_UpdateNamespaceInfo'DataEntry'key
           (\ UpdateNamespaceInfo'DataEntry
x__ Text
y__ -> UpdateNamespaceInfo'DataEntry
x__ {_UpdateNamespaceInfo'DataEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UpdateNamespaceInfo'DataEntry "value" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Text -> f Text)
-> UpdateNamespaceInfo'DataEntry
-> f UpdateNamespaceInfo'DataEntry
fieldOf Proxy# "value"
_
    = ((Text -> f Text)
 -> UpdateNamespaceInfo'DataEntry
 -> f UpdateNamespaceInfo'DataEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> UpdateNamespaceInfo'DataEntry
-> f UpdateNamespaceInfo'DataEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UpdateNamespaceInfo'DataEntry -> Text)
-> (UpdateNamespaceInfo'DataEntry
    -> Text -> UpdateNamespaceInfo'DataEntry)
-> Lens' UpdateNamespaceInfo'DataEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UpdateNamespaceInfo'DataEntry -> Text
_UpdateNamespaceInfo'DataEntry'value
           (\ UpdateNamespaceInfo'DataEntry
x__ Text
y__ -> UpdateNamespaceInfo'DataEntry
x__ {_UpdateNamespaceInfo'DataEntry'value = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UpdateNamespaceInfo'DataEntry where
  messageName :: Proxy UpdateNamespaceInfo'DataEntry -> Text
messageName Proxy UpdateNamespaceInfo'DataEntry
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.namespace.v1.UpdateNamespaceInfo.DataEntry"
  packedMessageDescriptor :: Proxy UpdateNamespaceInfo'DataEntry -> ByteString
packedMessageDescriptor Proxy UpdateNamespaceInfo'DataEntry
_
    = ByteString
"\n\
      \\tDataEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy UpdateNamespaceInfo'DataEntry -> ByteString
packedFileDescriptor Proxy UpdateNamespaceInfo'DataEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor UpdateNamespaceInfo'DataEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor UpdateNamespaceInfo'DataEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor UpdateNamespaceInfo'DataEntry Text
-> FieldDescriptor UpdateNamespaceInfo'DataEntry
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' UpdateNamespaceInfo'DataEntry Text
-> FieldAccessor UpdateNamespaceInfo'DataEntry 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 UpdateNamespaceInfo'DataEntry
        value__field_descriptor :: FieldDescriptor UpdateNamespaceInfo'DataEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor UpdateNamespaceInfo'DataEntry Text
-> FieldDescriptor UpdateNamespaceInfo'DataEntry
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' UpdateNamespaceInfo'DataEntry Text
-> FieldAccessor UpdateNamespaceInfo'DataEntry 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 UpdateNamespaceInfo'DataEntry
      in
        [(Tag, FieldDescriptor UpdateNamespaceInfo'DataEntry)]
-> Map Tag (FieldDescriptor UpdateNamespaceInfo'DataEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor UpdateNamespaceInfo'DataEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor UpdateNamespaceInfo'DataEntry
value__field_descriptor)]
  unknownFields :: Lens' UpdateNamespaceInfo'DataEntry FieldSet
unknownFields
    = (UpdateNamespaceInfo'DataEntry -> FieldSet)
-> (UpdateNamespaceInfo'DataEntry
    -> FieldSet -> UpdateNamespaceInfo'DataEntry)
-> Lens' UpdateNamespaceInfo'DataEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UpdateNamespaceInfo'DataEntry -> FieldSet
_UpdateNamespaceInfo'DataEntry'_unknownFields
        (\ UpdateNamespaceInfo'DataEntry
x__ FieldSet
y__
           -> UpdateNamespaceInfo'DataEntry
x__ {_UpdateNamespaceInfo'DataEntry'_unknownFields = y__})
  defMessage :: UpdateNamespaceInfo'DataEntry
defMessage
    = UpdateNamespaceInfo'DataEntry'_constructor
        {_UpdateNamespaceInfo'DataEntry'key :: Text
_UpdateNamespaceInfo'DataEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _UpdateNamespaceInfo'DataEntry'value :: Text
_UpdateNamespaceInfo'DataEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _UpdateNamespaceInfo'DataEntry'_unknownFields :: FieldSet
_UpdateNamespaceInfo'DataEntry'_unknownFields = []}
  parseMessage :: Parser UpdateNamespaceInfo'DataEntry
parseMessage
    = let
        loop ::
          UpdateNamespaceInfo'DataEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser UpdateNamespaceInfo'DataEntry
        loop :: UpdateNamespaceInfo'DataEntry
-> Parser UpdateNamespaceInfo'DataEntry
loop UpdateNamespaceInfo'DataEntry
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 UpdateNamespaceInfo'DataEntry
-> String -> Parser UpdateNamespaceInfo'DataEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do UpdateNamespaceInfo'DataEntry
-> Parser UpdateNamespaceInfo'DataEntry
loop UpdateNamespaceInfo'DataEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DataEntry"
  buildMessage :: UpdateNamespaceInfo'DataEntry -> Builder
buildMessage
    = \ UpdateNamespaceInfo'DataEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  UpdateNamespaceInfo'DataEntry
  UpdateNamespaceInfo'DataEntry
  Text
  Text
-> UpdateNamespaceInfo'DataEntry -> 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") UpdateNamespaceInfo'DataEntry
_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
  UpdateNamespaceInfo'DataEntry
  UpdateNamespaceInfo'DataEntry
  Text
  Text
-> UpdateNamespaceInfo'DataEntry -> 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") UpdateNamespaceInfo'DataEntry
_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
  UpdateNamespaceInfo'DataEntry
  UpdateNamespaceInfo'DataEntry
  FieldSet
  FieldSet
-> UpdateNamespaceInfo'DataEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  UpdateNamespaceInfo'DataEntry
  UpdateNamespaceInfo'DataEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UpdateNamespaceInfo'DataEntry FieldSet
Data.ProtoLens.unknownFields UpdateNamespaceInfo'DataEntry
_x)))
instance Control.DeepSeq.NFData UpdateNamespaceInfo'DataEntry where
  rnf :: UpdateNamespaceInfo'DataEntry -> ()
rnf
    = \ UpdateNamespaceInfo'DataEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UpdateNamespaceInfo'DataEntry -> FieldSet
_UpdateNamespaceInfo'DataEntry'_unknownFields UpdateNamespaceInfo'DataEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (UpdateNamespaceInfo'DataEntry -> Text
_UpdateNamespaceInfo'DataEntry'key UpdateNamespaceInfo'DataEntry
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (UpdateNamespaceInfo'DataEntry -> Text
_UpdateNamespaceInfo'DataEntry'value UpdateNamespaceInfo'DataEntry
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \'temporal/api/namespace/v1/message.proto\DC2\EMtemporal.api.namespace.v1\SUB\RSgoogle/protobuf/duration.proto\SUB\USgoogle/protobuf/timestamp.proto\SUB%temporal/api/enums/v1/namespace.proto\"\197\EOT\n\
    \\rNamespaceInfo\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2;\n\
    \\ENQstate\CAN\STX \SOH(\SO2%.temporal.api.enums.v1.NamespaceStateR\ENQstate\DC2 \n\
    \\vdescription\CAN\ETX \SOH(\tR\vdescription\DC2\US\n\
    \\vowner_email\CAN\EOT \SOH(\tR\n\
    \ownerEmail\DC2F\n\
    \\EOTdata\CAN\ENQ \ETX(\v22.temporal.api.namespace.v1.NamespaceInfo.DataEntryR\EOTdata\DC2\SO\n\
    \\STXid\CAN\ACK \SOH(\tR\STXid\DC2Y\n\
    \\fcapabilities\CAN\a \SOH(\v25.temporal.api.namespace.v1.NamespaceInfo.CapabilitiesR\fcapabilities\DC2-\n\
    \\DC2supports_schedules\CANd \SOH(\bR\DC1supportsSchedules\SUB7\n\
    \\tDataEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\SUB\132\SOH\n\
    \\fCapabilities\DC20\n\
    \\DC4eager_workflow_start\CAN\SOH \SOH(\bR\DC2eagerWorkflowStart\DC2\US\n\
    \\vsync_update\CAN\STX \SOH(\bR\n\
    \syncUpdate\DC2!\n\
    \\fasync_update\CAN\ETX \SOH(\bR\vasyncUpdate\"\207\ENQ\n\
    \\SINamespaceConfig\DC2b\n\
    \ workflow_execution_retention_ttl\CAN\SOH \SOH(\v2\EM.google.protobuf.DurationR\GSworkflowExecutionRetentionTtl\DC2I\n\
    \\fbad_binaries\CAN\STX \SOH(\v2&.temporal.api.namespace.v1.BadBinariesR\vbadBinaries\DC2Z\n\
    \\SYNhistory_archival_state\CAN\ETX \SOH(\SO2$.temporal.api.enums.v1.ArchivalStateR\DC4historyArchivalState\DC20\n\
    \\DC4history_archival_uri\CAN\EOT \SOH(\tR\DC2historyArchivalUri\DC2`\n\
    \\EMvisibility_archival_state\CAN\ENQ \SOH(\SO2$.temporal.api.enums.v1.ArchivalStateR\ETBvisibilityArchivalState\DC26\n\
    \\ETBvisibility_archival_uri\CAN\ACK \SOH(\tR\NAKvisibilityArchivalUri\DC2\147\SOH\n\
    \\UScustom_search_attribute_aliases\CAN\a \ETX(\v2L.temporal.api.namespace.v1.NamespaceConfig.CustomSearchAttributeAliasesEntryR\FScustomSearchAttributeAliases\SUBO\n\
    \!CustomSearchAttributeAliasesEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\"\198\SOH\n\
    \\vBadBinaries\DC2P\n\
    \\bbinaries\CAN\SOH \ETX(\v24.temporal.api.namespace.v1.BadBinaries.BinariesEntryR\bbinaries\SUBe\n\
    \\rBinariesEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2>\n\
    \\ENQvalue\CAN\STX \SOH(\v2(.temporal.api.namespace.v1.BadBinaryInfoR\ENQvalue:\STX8\SOH\"\128\SOH\n\
    \\rBadBinaryInfo\DC2\SYN\n\
    \\ACKreason\CAN\SOH \SOH(\tR\ACKreason\DC2\SUB\n\
    \\boperator\CAN\STX \SOH(\tR\boperator\DC2;\n\
    \\vcreate_time\CAN\ETX \SOH(\v2\SUB.google.protobuf.TimestampR\n\
    \createTime\"\156\STX\n\
    \\DC3UpdateNamespaceInfo\DC2 \n\
    \\vdescription\CAN\SOH \SOH(\tR\vdescription\DC2\US\n\
    \\vowner_email\CAN\STX \SOH(\tR\n\
    \ownerEmail\DC2L\n\
    \\EOTdata\CAN\ETX \ETX(\v28.temporal.api.namespace.v1.UpdateNamespaceInfo.DataEntryR\EOTdata\DC2;\n\
    \\ENQstate\CAN\EOT \SOH(\SO2%.temporal.api.enums.v1.NamespaceStateR\ENQstate\SUB7\n\
    \\tDataEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\":\n\
    \\SINamespaceFilter\DC2'\n\
    \\SIinclude_deleted\CAN\SOH \SOH(\bR\SOincludeDeletedB\152\SOH\n\
    \\FSio.temporal.api.namespace.v1B\fMessageProtoP\SOHZ)go.temporal.io/api/namespace/v1;namespace\170\STX\ESCTemporalio.Api.Namespace.V1\234\STX\RSTemporalio::Api::Namespace::V1J\146\"\n\
    \\ACK\DC2\EOT\SYN\NULl\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\NUL@\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\SUB\NUL@\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ESC\NUL5\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\ESC\NUL5\n\
    \\b\n\
    \\SOH\b\DC2\ETX\FS\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\FS\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\GS\NUL-\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\GS\NUL-\n\
    \\b\n\
    \\SOH\b\DC2\ETX\RS\NUL7\n\
    \\t\n\
    \\STX\b-\DC2\ETX\RS\NUL7\n\
    \\b\n\
    \\SOH\b\DC2\ETX\US\NUL8\n\
    \\t\n\
    \\STX\b%\DC2\ETX\US\NUL8\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\
    \\n\
    \\STX\EOT\NUL\DC2\EOT'\NUL?\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX'\b\NAK\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX(\EOT\DC4\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX(\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX(\v\SI\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX(\DC2\DC3\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX)\EOT3\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX)\EOT(\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX)).\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX)12\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX*\EOT\ESC\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX*\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX*\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX*\EM\SUB\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\ETX\DC2\ETX+\EOT\ESC\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX+\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX+\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX+\EM\SUB\n\
    \:\n\
    \\EOT\EOT\NUL\STX\EOT\DC2\ETX-\EOT!\SUB- A key-value map for any customized purpose.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ACK\DC2\ETX-\EOT\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX-\CAN\FS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX-\US \n\
    \\v\n\
    \\EOT\EOT\NUL\STX\ENQ\DC2\ETX.\EOT\DC2\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ENQ\DC2\ETX.\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETX.\v\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETX.\DLE\DC1\n\
    \7\n\
    \\EOT\EOT\NUL\STX\ACK\DC2\ETX0\EOT\"\SUB* All capabilities the namespace supports.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ACK\ACK\DC2\ETX0\EOT\DLE\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ACK\SOH\DC2\ETX0\DC1\GS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ACK\ETX\DC2\ETX0 !\n\
    \f\n\
    \\EOT\EOT\NUL\ETX\SOH\DC2\EOT3\EOT:\ENQ\SUBX Namespace capability details. Should contain what features are enabled in a namespace.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\ETX\SOH\SOH\DC2\ETX3\f\CAN\n\
    \E\n\
    \\ACK\EOT\NUL\ETX\SOH\STX\NUL\DC2\ETX5\b&\SUB6 True if the namespace supports eager workflow start.\n\
    \\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\SOH\STX\NUL\ENQ\DC2\ETX5\b\f\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\SOH\STX\NUL\SOH\DC2\ETX5\r!\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\SOH\STX\NUL\ETX\DC2\ETX5$%\n\
    \;\n\
    \\ACK\EOT\NUL\ETX\SOH\STX\SOH\DC2\ETX7\b\GS\SUB, True if the namespace supports sync update\n\
    \\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\SOH\STX\SOH\ENQ\DC2\ETX7\b\f\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\SOH\STX\SOH\SOH\DC2\ETX7\r\CAN\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\SOH\STX\SOH\ETX\DC2\ETX7\ESC\FS\n\
    \<\n\
    \\ACK\EOT\NUL\ETX\SOH\STX\STX\DC2\ETX9\b\RS\SUB- True if the namespace supports async update\n\
    \\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\SOH\STX\STX\ENQ\DC2\ETX9\b\f\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\SOH\STX\STX\SOH\DC2\ETX9\r\EM\n\
    \\SO\n\
    \\a\EOT\NUL\ETX\SOH\STX\STX\ETX\DC2\ETX9\FS\GS\n\
    \\174\SOH\n\
    \\EOT\EOT\NUL\STX\a\DC2\ETX>\EOT\"\SUB\160\SOH Whether scheduled workflows are supported on this namespace. This is only needed\n\
    \ temporarily while the feature is experimental, so we can give it a high tag.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\a\ENQ\DC2\ETX>\EOT\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\a\SOH\DC2\ETX>\t\ESC\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\a\ETX\DC2\ETX>\RS!\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOTA\NULL\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETXA\b\ETB\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETXB\EOTB\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETXB\EOT\FS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETXB\GS=\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETXB@A\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETXC\EOT!\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETXC\EOT\SI\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETXC\DLE\FS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETXC\US \n\
    \e\n\
    \\EOT\EOT\SOH\STX\STX\DC2\ETXE\EOTC\SUBX If unspecified (ARCHIVAL_STATE_UNSPECIFIED) then default server configuration is used.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETXE\EOT'\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETXE(>\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETXEAB\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\ETX\DC2\ETXF\EOT$\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\ENQ\DC2\ETXF\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETXF\v\US\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETXF\"#\n\
    \e\n\
    \\EOT\EOT\SOH\STX\EOT\DC2\ETXH\EOTF\SUBX If unspecified (ARCHIVAL_STATE_UNSPECIFIED) then default server configuration is used.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\EOT\ACK\DC2\ETXH\EOT'\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\EOT\SOH\DC2\ETXH(A\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\EOT\ETX\DC2\ETXHDE\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\ENQ\DC2\ETXI\EOT'\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ENQ\ENQ\DC2\ETXI\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ENQ\SOH\DC2\ETXI\v\"\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ENQ\ETX\DC2\ETXI%&\n\
    \,\n\
    \\EOT\EOT\SOH\STX\ACK\DC2\ETXK\EOT<\SUB\US Map from field name to alias.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ACK\ACK\DC2\ETXK\EOT\ETB\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ACK\SOH\DC2\ETXK\CAN7\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ACK\ETX\DC2\ETXK:;\n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOTN\NULP\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETXN\b\DC3\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETXO\EOT,\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETXO\EOT\RS\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXO\US'\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXO*+\n\
    \\n\
    \\n\
    \\STX\EOT\ETX\DC2\EOTR\NULV\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETXR\b\NAK\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETXS\EOT\SYN\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETXS\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETXS\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETXS\DC4\NAK\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\SOH\DC2\ETXT\EOT\CAN\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETXT\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETXT\v\DC3\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETXT\SYN\ETB\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\STX\DC2\ETXU\EOT.\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\ACK\DC2\ETXU\EOT\GS\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETXU\RS)\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETXU,-\n\
    \\n\
    \\n\
    \\STX\EOT\EOT\DC2\EOTX\NULe\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\EOT\SOH\DC2\ETXX\b\ESC\n\
    \\v\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\ETXY\EOT\ESC\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETXY\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXY\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXY\EM\SUB\n\
    \\v\n\
    \\EOT\EOT\EOT\STX\SOH\DC2\ETXZ\EOT\ESC\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\ETXZ\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETXZ\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETXZ\EM\SUB\n\
    \\150\SOH\n\
    \\EOT\EOT\EOT\STX\STX\DC2\ETX^\EOT!\SUB\136\SOH A key-value map for any customized purpose.\n\
    \ If data already exists on the namespace, \n\
    \ this will merge with the existing key values. \n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\STX\ACK\DC2\ETX^\EOT\ETB\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\STX\SOH\DC2\ETX^\CAN\FS\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\STX\ETX\DC2\ETX^\US \n\
    \\134\STX\n\
    \\EOT\EOT\EOT\STX\ETX\DC2\ETXd\EOT3\SUB\248\SOH New namespace state, server will reject if transition is not allowed.\n\
    \ Allowed transitions are:\n\
    \  Registered -> [ Deleted | Deprecated | Handover ]\n\
    \  Handover -> [ Registered ]\n\
    \ Default is NAMESPACE_STATE_UNSPECIFIED which is do not change state.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\ETX\ACK\DC2\ETXd\EOT(\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\ETX\SOH\DC2\ETXd).\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\ETX\ETX\DC2\ETXd12\n\
    \\n\
    \\n\
    \\STX\EOT\ENQ\DC2\EOTg\NULl\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETXg\b\ETB\n\
    \\155\STX\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\ETXk\EOT\GS\SUB\141\STX By default namespaces in NAMESPACE_STATE_DELETED state are not included.\n\
    \ Setting include_deleted to true will include deleted namespaces.\n\
    \ Note: Namespace is in NAMESPACE_STATE_DELETED state when it was deleted from the system but associated data is not deleted yet.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETXk\EOT\b\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXk\t\CAN\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXk\ESC\FSb\ACKproto3"