{- This file was auto-generated from temporal/api/replication/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.Replication.V1.Message (
        ClusterReplicationConfig(), FailoverStatus(),
        NamespaceReplicationConfig()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.Timestamp
import qualified Proto.Temporal.Api.Enums.V1.Namespace
{- | Fields :
     
         * 'Proto.Temporal.Api.Replication.V1.Message_Fields.clusterName' @:: Lens' ClusterReplicationConfig Data.Text.Text@ -}
data ClusterReplicationConfig
  = ClusterReplicationConfig'_constructor {ClusterReplicationConfig -> Text
_ClusterReplicationConfig'clusterName :: !Data.Text.Text,
                                           ClusterReplicationConfig -> FieldSet
_ClusterReplicationConfig'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
(ClusterReplicationConfig -> ClusterReplicationConfig -> Bool)
-> (ClusterReplicationConfig -> ClusterReplicationConfig -> Bool)
-> Eq ClusterReplicationConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
== :: ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
$c/= :: ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
/= :: ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
Prelude.Eq, Eq ClusterReplicationConfig
Eq ClusterReplicationConfig =>
(ClusterReplicationConfig -> ClusterReplicationConfig -> Ordering)
-> (ClusterReplicationConfig -> ClusterReplicationConfig -> Bool)
-> (ClusterReplicationConfig -> ClusterReplicationConfig -> Bool)
-> (ClusterReplicationConfig -> ClusterReplicationConfig -> Bool)
-> (ClusterReplicationConfig -> ClusterReplicationConfig -> Bool)
-> (ClusterReplicationConfig
    -> ClusterReplicationConfig -> ClusterReplicationConfig)
-> (ClusterReplicationConfig
    -> ClusterReplicationConfig -> ClusterReplicationConfig)
-> Ord ClusterReplicationConfig
ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
ClusterReplicationConfig -> ClusterReplicationConfig -> Ordering
ClusterReplicationConfig
-> ClusterReplicationConfig -> ClusterReplicationConfig
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 :: ClusterReplicationConfig -> ClusterReplicationConfig -> Ordering
compare :: ClusterReplicationConfig -> ClusterReplicationConfig -> Ordering
$c< :: ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
< :: ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
$c<= :: ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
<= :: ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
$c> :: ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
> :: ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
$c>= :: ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
>= :: ClusterReplicationConfig -> ClusterReplicationConfig -> Bool
$cmax :: ClusterReplicationConfig
-> ClusterReplicationConfig -> ClusterReplicationConfig
max :: ClusterReplicationConfig
-> ClusterReplicationConfig -> ClusterReplicationConfig
$cmin :: ClusterReplicationConfig
-> ClusterReplicationConfig -> ClusterReplicationConfig
min :: ClusterReplicationConfig
-> ClusterReplicationConfig -> ClusterReplicationConfig
Prelude.Ord)
instance Prelude.Show ClusterReplicationConfig where
  showsPrec :: Int -> ClusterReplicationConfig -> ShowS
showsPrec Int
_ ClusterReplicationConfig
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ClusterReplicationConfig -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ClusterReplicationConfig
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ClusterReplicationConfig "clusterName" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "clusterName"
-> (Text -> f Text)
-> ClusterReplicationConfig
-> f ClusterReplicationConfig
fieldOf Proxy# "clusterName"
_
    = ((Text -> f Text)
 -> ClusterReplicationConfig -> f ClusterReplicationConfig)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ClusterReplicationConfig
-> f ClusterReplicationConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClusterReplicationConfig -> Text)
-> (ClusterReplicationConfig -> Text -> ClusterReplicationConfig)
-> Lens ClusterReplicationConfig ClusterReplicationConfig Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClusterReplicationConfig -> Text
_ClusterReplicationConfig'clusterName
           (\ ClusterReplicationConfig
x__ Text
y__ -> ClusterReplicationConfig
x__ {_ClusterReplicationConfig'clusterName = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ClusterReplicationConfig where
  messageName :: Proxy ClusterReplicationConfig -> Text
messageName Proxy ClusterReplicationConfig
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.replication.v1.ClusterReplicationConfig"
  packedMessageDescriptor :: Proxy ClusterReplicationConfig -> ByteString
packedMessageDescriptor Proxy ClusterReplicationConfig
_
    = ByteString
"\n\
      \\CANClusterReplicationConfig\DC2!\n\
      \\fcluster_name\CAN\SOH \SOH(\tR\vclusterName"
  packedFileDescriptor :: Proxy ClusterReplicationConfig -> ByteString
packedFileDescriptor Proxy ClusterReplicationConfig
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ClusterReplicationConfig)
fieldsByTag
    = let
        clusterName__field_descriptor :: FieldDescriptor ClusterReplicationConfig
clusterName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ClusterReplicationConfig Text
-> FieldDescriptor ClusterReplicationConfig
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cluster_name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens ClusterReplicationConfig ClusterReplicationConfig Text Text
-> FieldAccessor ClusterReplicationConfig Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"clusterName")) ::
              Data.ProtoLens.FieldDescriptor ClusterReplicationConfig
      in
        [(Tag, FieldDescriptor ClusterReplicationConfig)]
-> Map Tag (FieldDescriptor ClusterReplicationConfig)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ClusterReplicationConfig
clusterName__field_descriptor)]
  unknownFields :: Lens' ClusterReplicationConfig FieldSet
unknownFields
    = (ClusterReplicationConfig -> FieldSet)
-> (ClusterReplicationConfig
    -> FieldSet -> ClusterReplicationConfig)
-> Lens' ClusterReplicationConfig FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ClusterReplicationConfig -> FieldSet
_ClusterReplicationConfig'_unknownFields
        (\ ClusterReplicationConfig
x__ FieldSet
y__ -> ClusterReplicationConfig
x__ {_ClusterReplicationConfig'_unknownFields = y__})
  defMessage :: ClusterReplicationConfig
defMessage
    = ClusterReplicationConfig'_constructor
        {_ClusterReplicationConfig'clusterName :: Text
_ClusterReplicationConfig'clusterName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ClusterReplicationConfig'_unknownFields :: FieldSet
_ClusterReplicationConfig'_unknownFields = []}
  parseMessage :: Parser ClusterReplicationConfig
parseMessage
    = let
        loop ::
          ClusterReplicationConfig
          -> Data.ProtoLens.Encoding.Bytes.Parser ClusterReplicationConfig
        loop :: ClusterReplicationConfig -> Parser ClusterReplicationConfig
loop ClusterReplicationConfig
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"cluster_name"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"clusterName") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ClusterReplicationConfig
-> String -> Parser ClusterReplicationConfig
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ClusterReplicationConfig -> Parser ClusterReplicationConfig
loop ClusterReplicationConfig
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ClusterReplicationConfig"
  buildMessage :: ClusterReplicationConfig -> Builder
buildMessage
    = \ ClusterReplicationConfig
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text ClusterReplicationConfig ClusterReplicationConfig Text Text
-> ClusterReplicationConfig -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"clusterName") ClusterReplicationConfig
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  ClusterReplicationConfig
  ClusterReplicationConfig
  FieldSet
  FieldSet
-> ClusterReplicationConfig -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ClusterReplicationConfig
  ClusterReplicationConfig
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClusterReplicationConfig FieldSet
Data.ProtoLens.unknownFields ClusterReplicationConfig
_x))
instance Control.DeepSeq.NFData ClusterReplicationConfig where
  rnf :: ClusterReplicationConfig -> ()
rnf
    = \ ClusterReplicationConfig
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ClusterReplicationConfig -> FieldSet
_ClusterReplicationConfig'_unknownFields ClusterReplicationConfig
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ClusterReplicationConfig -> Text
_ClusterReplicationConfig'clusterName ClusterReplicationConfig
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Replication.V1.Message_Fields.failoverTime' @:: Lens' FailoverStatus Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Api.Replication.V1.Message_Fields.maybe'failoverTime' @:: Lens' FailoverStatus (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@
         * 'Proto.Temporal.Api.Replication.V1.Message_Fields.failoverVersion' @:: Lens' FailoverStatus Data.Int.Int64@ -}
data FailoverStatus
  = FailoverStatus'_constructor {FailoverStatus -> Maybe Timestamp
_FailoverStatus'failoverTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                                 FailoverStatus -> Int64
_FailoverStatus'failoverVersion :: !Data.Int.Int64,
                                 FailoverStatus -> FieldSet
_FailoverStatus'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (FailoverStatus -> FailoverStatus -> Bool
(FailoverStatus -> FailoverStatus -> Bool)
-> (FailoverStatus -> FailoverStatus -> Bool) -> Eq FailoverStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FailoverStatus -> FailoverStatus -> Bool
== :: FailoverStatus -> FailoverStatus -> Bool
$c/= :: FailoverStatus -> FailoverStatus -> Bool
/= :: FailoverStatus -> FailoverStatus -> Bool
Prelude.Eq, Eq FailoverStatus
Eq FailoverStatus =>
(FailoverStatus -> FailoverStatus -> Ordering)
-> (FailoverStatus -> FailoverStatus -> Bool)
-> (FailoverStatus -> FailoverStatus -> Bool)
-> (FailoverStatus -> FailoverStatus -> Bool)
-> (FailoverStatus -> FailoverStatus -> Bool)
-> (FailoverStatus -> FailoverStatus -> FailoverStatus)
-> (FailoverStatus -> FailoverStatus -> FailoverStatus)
-> Ord FailoverStatus
FailoverStatus -> FailoverStatus -> Bool
FailoverStatus -> FailoverStatus -> Ordering
FailoverStatus -> FailoverStatus -> FailoverStatus
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 :: FailoverStatus -> FailoverStatus -> Ordering
compare :: FailoverStatus -> FailoverStatus -> Ordering
$c< :: FailoverStatus -> FailoverStatus -> Bool
< :: FailoverStatus -> FailoverStatus -> Bool
$c<= :: FailoverStatus -> FailoverStatus -> Bool
<= :: FailoverStatus -> FailoverStatus -> Bool
$c> :: FailoverStatus -> FailoverStatus -> Bool
> :: FailoverStatus -> FailoverStatus -> Bool
$c>= :: FailoverStatus -> FailoverStatus -> Bool
>= :: FailoverStatus -> FailoverStatus -> Bool
$cmax :: FailoverStatus -> FailoverStatus -> FailoverStatus
max :: FailoverStatus -> FailoverStatus -> FailoverStatus
$cmin :: FailoverStatus -> FailoverStatus -> FailoverStatus
min :: FailoverStatus -> FailoverStatus -> FailoverStatus
Prelude.Ord)
instance Prelude.Show FailoverStatus where
  showsPrec :: Int -> FailoverStatus -> ShowS
showsPrec Int
_ FailoverStatus
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (FailoverStatus -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FailoverStatus
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField FailoverStatus "failoverTime" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failoverTime"
-> (Timestamp -> f Timestamp) -> FailoverStatus -> f FailoverStatus
fieldOf Proxy# "failoverTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> FailoverStatus -> f FailoverStatus)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> FailoverStatus
-> f FailoverStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FailoverStatus -> Maybe Timestamp)
-> (FailoverStatus -> Maybe Timestamp -> FailoverStatus)
-> Lens
     FailoverStatus FailoverStatus (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FailoverStatus -> Maybe Timestamp
_FailoverStatus'failoverTime
           (\ FailoverStatus
x__ Maybe Timestamp
y__ -> FailoverStatus
x__ {_FailoverStatus'failoverTime = 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 FailoverStatus "maybe'failoverTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failoverTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> FailoverStatus
-> f FailoverStatus
fieldOf Proxy# "maybe'failoverTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> FailoverStatus -> f FailoverStatus)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> FailoverStatus
-> f FailoverStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FailoverStatus -> Maybe Timestamp)
-> (FailoverStatus -> Maybe Timestamp -> FailoverStatus)
-> Lens
     FailoverStatus FailoverStatus (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FailoverStatus -> Maybe Timestamp
_FailoverStatus'failoverTime
           (\ FailoverStatus
x__ Maybe Timestamp
y__ -> FailoverStatus
x__ {_FailoverStatus'failoverTime = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FailoverStatus "failoverVersion" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failoverVersion"
-> (Int64 -> f Int64) -> FailoverStatus -> f FailoverStatus
fieldOf Proxy# "failoverVersion"
_
    = ((Int64 -> f Int64) -> FailoverStatus -> f FailoverStatus)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> FailoverStatus
-> f FailoverStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FailoverStatus -> Int64)
-> (FailoverStatus -> Int64 -> FailoverStatus)
-> Lens FailoverStatus FailoverStatus Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FailoverStatus -> Int64
_FailoverStatus'failoverVersion
           (\ FailoverStatus
x__ Int64
y__ -> FailoverStatus
x__ {_FailoverStatus'failoverVersion = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FailoverStatus where
  messageName :: Proxy FailoverStatus -> Text
messageName Proxy FailoverStatus
_
    = String -> Text
Data.Text.pack String
"temporal.api.replication.v1.FailoverStatus"
  packedMessageDescriptor :: Proxy FailoverStatus -> ByteString
packedMessageDescriptor Proxy FailoverStatus
_
    = ByteString
"\n\
      \\SOFailoverStatus\DC2?\n\
      \\rfailover_time\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\ffailoverTime\DC2)\n\
      \\DLEfailover_version\CAN\STX \SOH(\ETXR\SIfailoverVersion"
  packedFileDescriptor :: Proxy FailoverStatus -> ByteString
packedFileDescriptor Proxy FailoverStatus
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor FailoverStatus)
fieldsByTag
    = let
        failoverTime__field_descriptor :: FieldDescriptor FailoverStatus
failoverTime__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor FailoverStatus Timestamp
-> FieldDescriptor FailoverStatus
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"failover_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
  FailoverStatus FailoverStatus (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor FailoverStatus 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'failoverTime")) ::
              Data.ProtoLens.FieldDescriptor FailoverStatus
        failoverVersion__field_descriptor :: FieldDescriptor FailoverStatus
failoverVersion__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor FailoverStatus Int64
-> FieldDescriptor FailoverStatus
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"failover_version"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens FailoverStatus FailoverStatus Int64 Int64
-> FieldAccessor FailoverStatus Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"failoverVersion")) ::
              Data.ProtoLens.FieldDescriptor FailoverStatus
      in
        [(Tag, FieldDescriptor FailoverStatus)]
-> Map Tag (FieldDescriptor FailoverStatus)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor FailoverStatus
failoverTime__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor FailoverStatus
failoverVersion__field_descriptor)]
  unknownFields :: Lens' FailoverStatus FieldSet
unknownFields
    = (FailoverStatus -> FieldSet)
-> (FailoverStatus -> FieldSet -> FailoverStatus)
-> Lens' FailoverStatus FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FailoverStatus -> FieldSet
_FailoverStatus'_unknownFields
        (\ FailoverStatus
x__ FieldSet
y__ -> FailoverStatus
x__ {_FailoverStatus'_unknownFields = y__})
  defMessage :: FailoverStatus
defMessage
    = FailoverStatus'_constructor
        {_FailoverStatus'failoverTime :: Maybe Timestamp
_FailoverStatus'failoverTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _FailoverStatus'failoverVersion :: Int64
_FailoverStatus'failoverVersion = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _FailoverStatus'_unknownFields :: FieldSet
_FailoverStatus'_unknownFields = []}
  parseMessage :: Parser FailoverStatus
parseMessage
    = let
        loop ::
          FailoverStatus
          -> Data.ProtoLens.Encoding.Bytes.Parser FailoverStatus
        loop :: FailoverStatus -> Parser FailoverStatus
loop FailoverStatus
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 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
"failover_time"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"failoverTime") y x)
                        Word64
16
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"failover_version"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"failoverVersion") 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 FailoverStatus -> String -> Parser FailoverStatus
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do FailoverStatus -> Parser FailoverStatus
loop FailoverStatus
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"FailoverStatus"
  buildMessage :: FailoverStatus -> Builder
buildMessage
    = \ FailoverStatus
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Timestamp)
  FailoverStatus
  FailoverStatus
  (Maybe Timestamp)
  (Maybe Timestamp)
-> FailoverStatus -> 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'failoverTime") FailoverStatus
_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
10)
                       ((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v
                     = FoldLike Int64 FailoverStatus FailoverStatus Int64 Int64
-> FailoverStatus -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"failoverVersion") FailoverStatus
_x
                 in
                   if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet FailoverStatus FailoverStatus FieldSet FieldSet
-> FailoverStatus -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet FailoverStatus FailoverStatus FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' FailoverStatus FieldSet
Data.ProtoLens.unknownFields FailoverStatus
_x)))
instance Control.DeepSeq.NFData FailoverStatus where
  rnf :: FailoverStatus -> ()
rnf
    = \ FailoverStatus
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FailoverStatus -> FieldSet
_FailoverStatus'_unknownFields FailoverStatus
x__)
             (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FailoverStatus -> Maybe Timestamp
_FailoverStatus'failoverTime FailoverStatus
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (FailoverStatus -> Int64
_FailoverStatus'failoverVersion FailoverStatus
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Replication.V1.Message_Fields.activeClusterName' @:: Lens' NamespaceReplicationConfig Data.Text.Text@
         * 'Proto.Temporal.Api.Replication.V1.Message_Fields.clusters' @:: Lens' NamespaceReplicationConfig [ClusterReplicationConfig]@
         * 'Proto.Temporal.Api.Replication.V1.Message_Fields.vec'clusters' @:: Lens' NamespaceReplicationConfig (Data.Vector.Vector ClusterReplicationConfig)@
         * 'Proto.Temporal.Api.Replication.V1.Message_Fields.state' @:: Lens' NamespaceReplicationConfig Proto.Temporal.Api.Enums.V1.Namespace.ReplicationState@ -}
data NamespaceReplicationConfig
  = NamespaceReplicationConfig'_constructor {NamespaceReplicationConfig -> Text
_NamespaceReplicationConfig'activeClusterName :: !Data.Text.Text,
                                             NamespaceReplicationConfig -> Vector ClusterReplicationConfig
_NamespaceReplicationConfig'clusters :: !(Data.Vector.Vector ClusterReplicationConfig),
                                             NamespaceReplicationConfig -> ReplicationState
_NamespaceReplicationConfig'state :: !Proto.Temporal.Api.Enums.V1.Namespace.ReplicationState,
                                             NamespaceReplicationConfig -> FieldSet
_NamespaceReplicationConfig'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
(NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool)
-> (NamespaceReplicationConfig
    -> NamespaceReplicationConfig -> Bool)
-> Eq NamespaceReplicationConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
== :: NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
$c/= :: NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
/= :: NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
Prelude.Eq, Eq NamespaceReplicationConfig
Eq NamespaceReplicationConfig =>
(NamespaceReplicationConfig
 -> NamespaceReplicationConfig -> Ordering)
-> (NamespaceReplicationConfig
    -> NamespaceReplicationConfig -> Bool)
-> (NamespaceReplicationConfig
    -> NamespaceReplicationConfig -> Bool)
-> (NamespaceReplicationConfig
    -> NamespaceReplicationConfig -> Bool)
-> (NamespaceReplicationConfig
    -> NamespaceReplicationConfig -> Bool)
-> (NamespaceReplicationConfig
    -> NamespaceReplicationConfig -> NamespaceReplicationConfig)
-> (NamespaceReplicationConfig
    -> NamespaceReplicationConfig -> NamespaceReplicationConfig)
-> Ord NamespaceReplicationConfig
NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
NamespaceReplicationConfig
-> NamespaceReplicationConfig -> Ordering
NamespaceReplicationConfig
-> NamespaceReplicationConfig -> NamespaceReplicationConfig
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 :: NamespaceReplicationConfig
-> NamespaceReplicationConfig -> Ordering
compare :: NamespaceReplicationConfig
-> NamespaceReplicationConfig -> Ordering
$c< :: NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
< :: NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
$c<= :: NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
<= :: NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
$c> :: NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
> :: NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
$c>= :: NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
>= :: NamespaceReplicationConfig -> NamespaceReplicationConfig -> Bool
$cmax :: NamespaceReplicationConfig
-> NamespaceReplicationConfig -> NamespaceReplicationConfig
max :: NamespaceReplicationConfig
-> NamespaceReplicationConfig -> NamespaceReplicationConfig
$cmin :: NamespaceReplicationConfig
-> NamespaceReplicationConfig -> NamespaceReplicationConfig
min :: NamespaceReplicationConfig
-> NamespaceReplicationConfig -> NamespaceReplicationConfig
Prelude.Ord)
instance Prelude.Show NamespaceReplicationConfig where
  showsPrec :: Int -> NamespaceReplicationConfig -> ShowS
showsPrec Int
_ NamespaceReplicationConfig
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NamespaceReplicationConfig -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NamespaceReplicationConfig
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NamespaceReplicationConfig "activeClusterName" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "activeClusterName"
-> (Text -> f Text)
-> NamespaceReplicationConfig
-> f NamespaceReplicationConfig
fieldOf Proxy# "activeClusterName"
_
    = ((Text -> f Text)
 -> NamespaceReplicationConfig -> f NamespaceReplicationConfig)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NamespaceReplicationConfig
-> f NamespaceReplicationConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceReplicationConfig -> Text)
-> (NamespaceReplicationConfig
    -> Text -> NamespaceReplicationConfig)
-> Lens
     NamespaceReplicationConfig NamespaceReplicationConfig Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceReplicationConfig -> Text
_NamespaceReplicationConfig'activeClusterName
           (\ NamespaceReplicationConfig
x__ Text
y__
              -> NamespaceReplicationConfig
x__ {_NamespaceReplicationConfig'activeClusterName = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceReplicationConfig "clusters" [ClusterReplicationConfig] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "clusters"
-> ([ClusterReplicationConfig] -> f [ClusterReplicationConfig])
-> NamespaceReplicationConfig
-> f NamespaceReplicationConfig
fieldOf Proxy# "clusters"
_
    = ((Vector ClusterReplicationConfig
  -> f (Vector ClusterReplicationConfig))
 -> NamespaceReplicationConfig -> f NamespaceReplicationConfig)
-> (([ClusterReplicationConfig] -> f [ClusterReplicationConfig])
    -> Vector ClusterReplicationConfig
    -> f (Vector ClusterReplicationConfig))
-> ([ClusterReplicationConfig] -> f [ClusterReplicationConfig])
-> NamespaceReplicationConfig
-> f NamespaceReplicationConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceReplicationConfig -> Vector ClusterReplicationConfig)
-> (NamespaceReplicationConfig
    -> Vector ClusterReplicationConfig -> NamespaceReplicationConfig)
-> Lens
     NamespaceReplicationConfig
     NamespaceReplicationConfig
     (Vector ClusterReplicationConfig)
     (Vector ClusterReplicationConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceReplicationConfig -> Vector ClusterReplicationConfig
_NamespaceReplicationConfig'clusters
           (\ NamespaceReplicationConfig
x__ Vector ClusterReplicationConfig
y__ -> NamespaceReplicationConfig
x__ {_NamespaceReplicationConfig'clusters = y__}))
        ((Vector ClusterReplicationConfig -> [ClusterReplicationConfig])
-> (Vector ClusterReplicationConfig
    -> [ClusterReplicationConfig] -> Vector ClusterReplicationConfig)
-> Lens
     (Vector ClusterReplicationConfig)
     (Vector ClusterReplicationConfig)
     [ClusterReplicationConfig]
     [ClusterReplicationConfig]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ClusterReplicationConfig -> [ClusterReplicationConfig]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector ClusterReplicationConfig
_ [ClusterReplicationConfig]
y__ -> [ClusterReplicationConfig] -> Vector ClusterReplicationConfig
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ClusterReplicationConfig]
y__))
instance Data.ProtoLens.Field.HasField NamespaceReplicationConfig "vec'clusters" (Data.Vector.Vector ClusterReplicationConfig) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'clusters"
-> (Vector ClusterReplicationConfig
    -> f (Vector ClusterReplicationConfig))
-> NamespaceReplicationConfig
-> f NamespaceReplicationConfig
fieldOf Proxy# "vec'clusters"
_
    = ((Vector ClusterReplicationConfig
  -> f (Vector ClusterReplicationConfig))
 -> NamespaceReplicationConfig -> f NamespaceReplicationConfig)
-> ((Vector ClusterReplicationConfig
     -> f (Vector ClusterReplicationConfig))
    -> Vector ClusterReplicationConfig
    -> f (Vector ClusterReplicationConfig))
-> (Vector ClusterReplicationConfig
    -> f (Vector ClusterReplicationConfig))
-> NamespaceReplicationConfig
-> f NamespaceReplicationConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceReplicationConfig -> Vector ClusterReplicationConfig)
-> (NamespaceReplicationConfig
    -> Vector ClusterReplicationConfig -> NamespaceReplicationConfig)
-> Lens
     NamespaceReplicationConfig
     NamespaceReplicationConfig
     (Vector ClusterReplicationConfig)
     (Vector ClusterReplicationConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceReplicationConfig -> Vector ClusterReplicationConfig
_NamespaceReplicationConfig'clusters
           (\ NamespaceReplicationConfig
x__ Vector ClusterReplicationConfig
y__ -> NamespaceReplicationConfig
x__ {_NamespaceReplicationConfig'clusters = y__}))
        (Vector ClusterReplicationConfig
 -> f (Vector ClusterReplicationConfig))
-> Vector ClusterReplicationConfig
-> f (Vector ClusterReplicationConfig)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NamespaceReplicationConfig "state" Proto.Temporal.Api.Enums.V1.Namespace.ReplicationState where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "state"
-> (ReplicationState -> f ReplicationState)
-> NamespaceReplicationConfig
-> f NamespaceReplicationConfig
fieldOf Proxy# "state"
_
    = ((ReplicationState -> f ReplicationState)
 -> NamespaceReplicationConfig -> f NamespaceReplicationConfig)
-> ((ReplicationState -> f ReplicationState)
    -> ReplicationState -> f ReplicationState)
-> (ReplicationState -> f ReplicationState)
-> NamespaceReplicationConfig
-> f NamespaceReplicationConfig
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NamespaceReplicationConfig -> ReplicationState)
-> (NamespaceReplicationConfig
    -> ReplicationState -> NamespaceReplicationConfig)
-> Lens
     NamespaceReplicationConfig
     NamespaceReplicationConfig
     ReplicationState
     ReplicationState
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NamespaceReplicationConfig -> ReplicationState
_NamespaceReplicationConfig'state
           (\ NamespaceReplicationConfig
x__ ReplicationState
y__ -> NamespaceReplicationConfig
x__ {_NamespaceReplicationConfig'state = y__}))
        (ReplicationState -> f ReplicationState)
-> ReplicationState -> f ReplicationState
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NamespaceReplicationConfig where
  messageName :: Proxy NamespaceReplicationConfig -> Text
messageName Proxy NamespaceReplicationConfig
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.replication.v1.NamespaceReplicationConfig"
  packedMessageDescriptor :: Proxy NamespaceReplicationConfig -> ByteString
packedMessageDescriptor Proxy NamespaceReplicationConfig
_
    = ByteString
"\n\
      \\SUBNamespaceReplicationConfig\DC2.\n\
      \\DC3active_cluster_name\CAN\SOH \SOH(\tR\DC1activeClusterName\DC2Q\n\
      \\bclusters\CAN\STX \ETX(\v25.temporal.api.replication.v1.ClusterReplicationConfigR\bclusters\DC2=\n\
      \\ENQstate\CAN\ETX \SOH(\SO2'.temporal.api.enums.v1.ReplicationStateR\ENQstate"
  packedFileDescriptor :: Proxy NamespaceReplicationConfig -> ByteString
packedFileDescriptor Proxy NamespaceReplicationConfig
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NamespaceReplicationConfig)
fieldsByTag
    = let
        activeClusterName__field_descriptor :: FieldDescriptor NamespaceReplicationConfig
activeClusterName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor NamespaceReplicationConfig Text
-> FieldDescriptor NamespaceReplicationConfig
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"active_cluster_name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     NamespaceReplicationConfig NamespaceReplicationConfig Text Text
-> FieldAccessor NamespaceReplicationConfig 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 @"activeClusterName")) ::
              Data.ProtoLens.FieldDescriptor NamespaceReplicationConfig
        clusters__field_descriptor :: FieldDescriptor NamespaceReplicationConfig
clusters__field_descriptor
          = String
-> FieldTypeDescriptor ClusterReplicationConfig
-> FieldAccessor
     NamespaceReplicationConfig ClusterReplicationConfig
-> FieldDescriptor NamespaceReplicationConfig
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"clusters"
              (MessageOrGroup -> FieldTypeDescriptor ClusterReplicationConfig
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ClusterReplicationConfig)
              (Packing
-> Lens' NamespaceReplicationConfig [ClusterReplicationConfig]
-> FieldAccessor
     NamespaceReplicationConfig ClusterReplicationConfig
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"clusters")) ::
              Data.ProtoLens.FieldDescriptor NamespaceReplicationConfig
        state__field_descriptor :: FieldDescriptor NamespaceReplicationConfig
state__field_descriptor
          = String
-> FieldTypeDescriptor ReplicationState
-> FieldAccessor NamespaceReplicationConfig ReplicationState
-> FieldDescriptor NamespaceReplicationConfig
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"state"
              (ScalarField ReplicationState
-> FieldTypeDescriptor ReplicationState
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ReplicationState
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Namespace.ReplicationState)
              (WireDefault ReplicationState
-> Lens
     NamespaceReplicationConfig
     NamespaceReplicationConfig
     ReplicationState
     ReplicationState
-> FieldAccessor NamespaceReplicationConfig ReplicationState
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ReplicationState
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 NamespaceReplicationConfig
      in
        [(Tag, FieldDescriptor NamespaceReplicationConfig)]
-> Map Tag (FieldDescriptor NamespaceReplicationConfig)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NamespaceReplicationConfig
activeClusterName__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NamespaceReplicationConfig
clusters__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor NamespaceReplicationConfig
state__field_descriptor)]
  unknownFields :: Lens' NamespaceReplicationConfig FieldSet
unknownFields
    = (NamespaceReplicationConfig -> FieldSet)
-> (NamespaceReplicationConfig
    -> FieldSet -> NamespaceReplicationConfig)
-> Lens' NamespaceReplicationConfig FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NamespaceReplicationConfig -> FieldSet
_NamespaceReplicationConfig'_unknownFields
        (\ NamespaceReplicationConfig
x__ FieldSet
y__
           -> NamespaceReplicationConfig
x__ {_NamespaceReplicationConfig'_unknownFields = y__})
  defMessage :: NamespaceReplicationConfig
defMessage
    = NamespaceReplicationConfig'_constructor
        {_NamespaceReplicationConfig'activeClusterName :: Text
_NamespaceReplicationConfig'activeClusterName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceReplicationConfig'clusters :: Vector ClusterReplicationConfig
_NamespaceReplicationConfig'clusters = Vector ClusterReplicationConfig
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _NamespaceReplicationConfig'state :: ReplicationState
_NamespaceReplicationConfig'state = ReplicationState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _NamespaceReplicationConfig'_unknownFields :: FieldSet
_NamespaceReplicationConfig'_unknownFields = []}
  parseMessage :: Parser NamespaceReplicationConfig
parseMessage
    = let
        loop ::
          NamespaceReplicationConfig
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ClusterReplicationConfig
             -> Data.ProtoLens.Encoding.Bytes.Parser NamespaceReplicationConfig
        loop :: NamespaceReplicationConfig
-> Growing Vector RealWorld ClusterReplicationConfig
-> Parser NamespaceReplicationConfig
loop NamespaceReplicationConfig
x Growing Vector RealWorld ClusterReplicationConfig
mutable'clusters
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'clusters <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              mutable'clusters)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'clusters") frozen'clusters x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"active_cluster_name"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"activeClusterName") y x)
                                  mutable'clusters
                        Word64
18
                          -> do !y <- Parser ClusterReplicationConfig
-> String -> Parser ClusterReplicationConfig
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"clusters"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'clusters y)
                                loop x v
                        Word64
24
                          -> do y <- Parser ReplicationState -> String -> Parser ReplicationState
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> ReplicationState) -> Parser Int -> Parser ReplicationState
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> ReplicationState
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"state"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"state") y x)
                                  mutable'clusters
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'clusters
      in
        Parser NamespaceReplicationConfig
-> String -> Parser NamespaceReplicationConfig
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'clusters <- IO (Growing Vector RealWorld ClusterReplicationConfig)
-> Parser (Growing Vector RealWorld ClusterReplicationConfig)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    IO (Growing Vector RealWorld ClusterReplicationConfig)
IO (Growing Vector (PrimState IO) ClusterReplicationConfig)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'clusters)
          String
"NamespaceReplicationConfig"
  buildMessage :: NamespaceReplicationConfig -> Builder
buildMessage
    = \ NamespaceReplicationConfig
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text
  NamespaceReplicationConfig
  NamespaceReplicationConfig
  Text
  Text
-> NamespaceReplicationConfig -> 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 @"activeClusterName") NamespaceReplicationConfig
_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.<>)
                ((ClusterReplicationConfig -> Builder)
-> Vector ClusterReplicationConfig -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ ClusterReplicationConfig
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (ClusterReplicationConfig -> ByteString)
-> ClusterReplicationConfig
-> 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))
                              ClusterReplicationConfig -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ClusterReplicationConfig
_v))
                   (FoldLike
  (Vector ClusterReplicationConfig)
  NamespaceReplicationConfig
  NamespaceReplicationConfig
  (Vector ClusterReplicationConfig)
  (Vector ClusterReplicationConfig)
-> NamespaceReplicationConfig -> Vector ClusterReplicationConfig
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'clusters") NamespaceReplicationConfig
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: ReplicationState
_v = FoldLike
  ReplicationState
  NamespaceReplicationConfig
  NamespaceReplicationConfig
  ReplicationState
  ReplicationState
-> NamespaceReplicationConfig -> ReplicationState
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") NamespaceReplicationConfig
_x
                    in
                      if ReplicationState -> ReplicationState -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ReplicationState
_v ReplicationState
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)
-> (ReplicationState -> Int) -> ReplicationState -> 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)
                               ReplicationState -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum ReplicationState
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  NamespaceReplicationConfig
  NamespaceReplicationConfig
  FieldSet
  FieldSet
-> NamespaceReplicationConfig -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  NamespaceReplicationConfig
  NamespaceReplicationConfig
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NamespaceReplicationConfig FieldSet
Data.ProtoLens.unknownFields NamespaceReplicationConfig
_x))))
instance Control.DeepSeq.NFData NamespaceReplicationConfig where
  rnf :: NamespaceReplicationConfig -> ()
rnf
    = \ NamespaceReplicationConfig
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NamespaceReplicationConfig -> FieldSet
_NamespaceReplicationConfig'_unknownFields NamespaceReplicationConfig
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NamespaceReplicationConfig -> Text
_NamespaceReplicationConfig'activeClusterName NamespaceReplicationConfig
x__)
                (Vector ClusterReplicationConfig -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (NamespaceReplicationConfig -> Vector ClusterReplicationConfig
_NamespaceReplicationConfig'clusters NamespaceReplicationConfig
x__)
                   (ReplicationState -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (NamespaceReplicationConfig -> ReplicationState
_NamespaceReplicationConfig'state NamespaceReplicationConfig
x__) ())))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \)temporal/api/replication/v1/message.proto\DC2\ESCtemporal.api.replication.v1\SUB\USgoogle/protobuf/timestamp.proto\SUB%temporal/api/enums/v1/namespace.proto\"=\n\
    \\CANClusterReplicationConfig\DC2!\n\
    \\fcluster_name\CAN\SOH \SOH(\tR\vclusterName\"\222\SOH\n\
    \\SUBNamespaceReplicationConfig\DC2.\n\
    \\DC3active_cluster_name\CAN\SOH \SOH(\tR\DC1activeClusterName\DC2Q\n\
    \\bclusters\CAN\STX \ETX(\v25.temporal.api.replication.v1.ClusterReplicationConfigR\bclusters\DC2=\n\
    \\ENQstate\CAN\ETX \SOH(\SO2'.temporal.api.enums.v1.ReplicationStateR\ENQstate\"|\n\
    \\SOFailoverStatus\DC2?\n\
    \\rfailover_time\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\ffailoverTime\DC2)\n\
    \\DLEfailover_version\CAN\STX \SOH(\ETXR\SIfailoverVersionB\162\SOH\n\
    \\RSio.temporal.api.replication.v1B\fMessageProtoP\SOHZ-go.temporal.io/api/replication/v1;replication\170\STX\GSTemporalio.Api.Replication.V1\234\STX Temporalio::Api::Replication::V1J\192\SO\n\
    \\ACK\DC2\EOT\SYN\NUL4\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\NULD\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\SUB\NULD\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ESC\NUL7\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\ESC\NUL7\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\NUL9\n\
    \\t\n\
    \\STX\b-\DC2\ETX\RS\NUL9\n\
    \\b\n\
    \\SOH\b\DC2\ETX\US\NUL:\n\
    \\t\n\
    \\STX\b%\DC2\ETX\US\NUL:\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX!\NUL)\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX#\NUL/\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT%\NUL'\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX%\b \n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX&\EOT\FS\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\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX&\SUB\ESC\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT)\NUL-\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX)\b\"\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX*\EOT#\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX*\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX*\v\RS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX*!\"\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX+\EOT3\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\EOT\DC2\ETX+\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX+\r%\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX+&.\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX+12\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\STX\DC2\ETX,\EOT5\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX,\EOT*\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX,+0\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX,34\n\
    \G\n\
    \\STX\EOT\STX\DC2\EOT0\NUL4\SOH\SUB; Represents a historical replication status of a Namespace\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX0\b\SYN\n\
    \T\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX2\EOT0\SUBG Timestamp when the Cluster switched to the following failover_version\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX2\EOT\GS\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX2\RS+\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX2./\n\
    \\v\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETX3\EOT\US\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX3\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX3\n\
    \\SUB\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX3\GS\RSb\ACKproto3"