{-# 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.Enums.V1.Namespace (
ArchivalState(..), ArchivalState(),
ArchivalState'UnrecognizedValue, NamespaceState(..),
NamespaceState(), NamespaceState'UnrecognizedValue,
ReplicationState(..), ReplicationState(),
ReplicationState'UnrecognizedValue
) 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
newtype ArchivalState'UnrecognizedValue
= ArchivalState'UnrecognizedValue Data.Int.Int32
deriving stock (ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
(ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool)
-> (ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool)
-> Eq ArchivalState'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
== :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
$c/= :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
/= :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
Prelude.Eq, Eq ArchivalState'UnrecognizedValue
Eq ArchivalState'UnrecognizedValue =>
(ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Ordering)
-> (ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool)
-> (ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool)
-> (ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool)
-> (ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool)
-> (ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue)
-> (ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue)
-> Ord ArchivalState'UnrecognizedValue
ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Ordering
ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue
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 :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Ordering
compare :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Ordering
$c< :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
< :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
$c<= :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
<= :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
$c> :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
> :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
$c>= :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
>= :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue -> Bool
$cmax :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue
max :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue
$cmin :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue
min :: ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue
-> ArchivalState'UnrecognizedValue
Prelude.Ord, Int -> ArchivalState'UnrecognizedValue -> ShowS
[ArchivalState'UnrecognizedValue] -> ShowS
ArchivalState'UnrecognizedValue -> String
(Int -> ArchivalState'UnrecognizedValue -> ShowS)
-> (ArchivalState'UnrecognizedValue -> String)
-> ([ArchivalState'UnrecognizedValue] -> ShowS)
-> Show ArchivalState'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ArchivalState'UnrecognizedValue -> ShowS
showsPrec :: Int -> ArchivalState'UnrecognizedValue -> ShowS
$cshow :: ArchivalState'UnrecognizedValue -> String
show :: ArchivalState'UnrecognizedValue -> String
$cshowList :: [ArchivalState'UnrecognizedValue] -> ShowS
showList :: [ArchivalState'UnrecognizedValue] -> ShowS
Prelude.Show)
data ArchivalState
= ARCHIVAL_STATE_UNSPECIFIED |
ARCHIVAL_STATE_DISABLED |
ARCHIVAL_STATE_ENABLED |
ArchivalState'Unrecognized !ArchivalState'UnrecognizedValue
deriving stock (Int -> ArchivalState -> ShowS
[ArchivalState] -> ShowS
ArchivalState -> String
(Int -> ArchivalState -> ShowS)
-> (ArchivalState -> String)
-> ([ArchivalState] -> ShowS)
-> Show ArchivalState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ArchivalState -> ShowS
showsPrec :: Int -> ArchivalState -> ShowS
$cshow :: ArchivalState -> String
show :: ArchivalState -> String
$cshowList :: [ArchivalState] -> ShowS
showList :: [ArchivalState] -> ShowS
Prelude.Show, ArchivalState -> ArchivalState -> Bool
(ArchivalState -> ArchivalState -> Bool)
-> (ArchivalState -> ArchivalState -> Bool) -> Eq ArchivalState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ArchivalState -> ArchivalState -> Bool
== :: ArchivalState -> ArchivalState -> Bool
$c/= :: ArchivalState -> ArchivalState -> Bool
/= :: ArchivalState -> ArchivalState -> Bool
Prelude.Eq, Eq ArchivalState
Eq ArchivalState =>
(ArchivalState -> ArchivalState -> Ordering)
-> (ArchivalState -> ArchivalState -> Bool)
-> (ArchivalState -> ArchivalState -> Bool)
-> (ArchivalState -> ArchivalState -> Bool)
-> (ArchivalState -> ArchivalState -> Bool)
-> (ArchivalState -> ArchivalState -> ArchivalState)
-> (ArchivalState -> ArchivalState -> ArchivalState)
-> Ord ArchivalState
ArchivalState -> ArchivalState -> Bool
ArchivalState -> ArchivalState -> Ordering
ArchivalState -> ArchivalState -> ArchivalState
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 :: ArchivalState -> ArchivalState -> Ordering
compare :: ArchivalState -> ArchivalState -> Ordering
$c< :: ArchivalState -> ArchivalState -> Bool
< :: ArchivalState -> ArchivalState -> Bool
$c<= :: ArchivalState -> ArchivalState -> Bool
<= :: ArchivalState -> ArchivalState -> Bool
$c> :: ArchivalState -> ArchivalState -> Bool
> :: ArchivalState -> ArchivalState -> Bool
$c>= :: ArchivalState -> ArchivalState -> Bool
>= :: ArchivalState -> ArchivalState -> Bool
$cmax :: ArchivalState -> ArchivalState -> ArchivalState
max :: ArchivalState -> ArchivalState -> ArchivalState
$cmin :: ArchivalState -> ArchivalState -> ArchivalState
min :: ArchivalState -> ArchivalState -> ArchivalState
Prelude.Ord)
instance Data.ProtoLens.MessageEnum ArchivalState where
maybeToEnum :: Int -> Maybe ArchivalState
maybeToEnum Int
0 = ArchivalState -> Maybe ArchivalState
forall a. a -> Maybe a
Prelude.Just ArchivalState
ARCHIVAL_STATE_UNSPECIFIED
maybeToEnum Int
1 = ArchivalState -> Maybe ArchivalState
forall a. a -> Maybe a
Prelude.Just ArchivalState
ARCHIVAL_STATE_DISABLED
maybeToEnum Int
2 = ArchivalState -> Maybe ArchivalState
forall a. a -> Maybe a
Prelude.Just ArchivalState
ARCHIVAL_STATE_ENABLED
maybeToEnum Int
k
= ArchivalState -> Maybe ArchivalState
forall a. a -> Maybe a
Prelude.Just
(ArchivalState'UnrecognizedValue -> ArchivalState
ArchivalState'Unrecognized
(Int32 -> ArchivalState'UnrecognizedValue
ArchivalState'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: ArchivalState -> String
showEnum ArchivalState
ARCHIVAL_STATE_UNSPECIFIED = String
"ARCHIVAL_STATE_UNSPECIFIED"
showEnum ArchivalState
ARCHIVAL_STATE_DISABLED = String
"ARCHIVAL_STATE_DISABLED"
showEnum ArchivalState
ARCHIVAL_STATE_ENABLED = String
"ARCHIVAL_STATE_ENABLED"
showEnum
(ArchivalState'Unrecognized (ArchivalState'UnrecognizedValue Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe ArchivalState
readEnum String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"ARCHIVAL_STATE_UNSPECIFIED"
= ArchivalState -> Maybe ArchivalState
forall a. a -> Maybe a
Prelude.Just ArchivalState
ARCHIVAL_STATE_UNSPECIFIED
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"ARCHIVAL_STATE_DISABLED"
= ArchivalState -> Maybe ArchivalState
forall a. a -> Maybe a
Prelude.Just ArchivalState
ARCHIVAL_STATE_DISABLED
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"ARCHIVAL_STATE_ENABLED"
= ArchivalState -> Maybe ArchivalState
forall a. a -> Maybe a
Prelude.Just ArchivalState
ARCHIVAL_STATE_ENABLED
| Bool
Prelude.otherwise
= Maybe Int -> (Int -> Maybe ArchivalState) -> Maybe ArchivalState
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe ArchivalState
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded ArchivalState where
minBound :: ArchivalState
minBound = ArchivalState
ARCHIVAL_STATE_UNSPECIFIED
maxBound :: ArchivalState
maxBound = ArchivalState
ARCHIVAL_STATE_ENABLED
instance Prelude.Enum ArchivalState where
toEnum :: Int -> ArchivalState
toEnum Int
k__
= ArchivalState
-> (ArchivalState -> ArchivalState)
-> Maybe ArchivalState
-> ArchivalState
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> ArchivalState
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"toEnum: unknown value for enum ArchivalState: "
(Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
ArchivalState -> ArchivalState
forall a. a -> a
Prelude.id (Int -> Maybe ArchivalState
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: ArchivalState -> Int
fromEnum ArchivalState
ARCHIVAL_STATE_UNSPECIFIED = Int
0
fromEnum ArchivalState
ARCHIVAL_STATE_DISABLED = Int
1
fromEnum ArchivalState
ARCHIVAL_STATE_ENABLED = Int
2
fromEnum
(ArchivalState'Unrecognized (ArchivalState'UnrecognizedValue Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: ArchivalState -> ArchivalState
succ ArchivalState
ARCHIVAL_STATE_ENABLED
= String -> ArchivalState
forall a. HasCallStack => String -> a
Prelude.error
String
"ArchivalState.succ: bad argument ARCHIVAL_STATE_ENABLED. This value would be out of bounds."
succ ArchivalState
ARCHIVAL_STATE_UNSPECIFIED = ArchivalState
ARCHIVAL_STATE_DISABLED
succ ArchivalState
ARCHIVAL_STATE_DISABLED = ArchivalState
ARCHIVAL_STATE_ENABLED
succ (ArchivalState'Unrecognized ArchivalState'UnrecognizedValue
_)
= String -> ArchivalState
forall a. HasCallStack => String -> a
Prelude.error
String
"ArchivalState.succ: bad argument: unrecognized value"
pred :: ArchivalState -> ArchivalState
pred ArchivalState
ARCHIVAL_STATE_UNSPECIFIED
= String -> ArchivalState
forall a. HasCallStack => String -> a
Prelude.error
String
"ArchivalState.pred: bad argument ARCHIVAL_STATE_UNSPECIFIED. This value would be out of bounds."
pred ArchivalState
ARCHIVAL_STATE_DISABLED = ArchivalState
ARCHIVAL_STATE_UNSPECIFIED
pred ArchivalState
ARCHIVAL_STATE_ENABLED = ArchivalState
ARCHIVAL_STATE_DISABLED
pred (ArchivalState'Unrecognized ArchivalState'UnrecognizedValue
_)
= String -> ArchivalState
forall a. HasCallStack => String -> a
Prelude.error
String
"ArchivalState.pred: bad argument: unrecognized value"
enumFrom :: ArchivalState -> [ArchivalState]
enumFrom = ArchivalState -> [ArchivalState]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: ArchivalState -> ArchivalState -> [ArchivalState]
enumFromTo = ArchivalState -> ArchivalState -> [ArchivalState]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: ArchivalState -> ArchivalState -> [ArchivalState]
enumFromThen = ArchivalState -> ArchivalState -> [ArchivalState]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: ArchivalState -> ArchivalState -> ArchivalState -> [ArchivalState]
enumFromThenTo = ArchivalState -> ArchivalState -> ArchivalState -> [ArchivalState]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault ArchivalState where
fieldDefault :: ArchivalState
fieldDefault = ArchivalState
ARCHIVAL_STATE_UNSPECIFIED
instance Control.DeepSeq.NFData ArchivalState where
rnf :: ArchivalState -> ()
rnf ArchivalState
x__ = ArchivalState -> () -> ()
forall a b. a -> b -> b
Prelude.seq ArchivalState
x__ ()
newtype NamespaceState'UnrecognizedValue
= NamespaceState'UnrecognizedValue Data.Int.Int32
deriving stock (NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
(NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool)
-> (NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool)
-> Eq NamespaceState'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
== :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
$c/= :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
/= :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
Prelude.Eq, Eq NamespaceState'UnrecognizedValue
Eq NamespaceState'UnrecognizedValue =>
(NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Ordering)
-> (NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool)
-> (NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool)
-> (NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool)
-> (NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool)
-> (NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue)
-> (NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue)
-> Ord NamespaceState'UnrecognizedValue
NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Ordering
NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue
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 :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Ordering
compare :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Ordering
$c< :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
< :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
$c<= :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
<= :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
$c> :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
> :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
$c>= :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
>= :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue -> Bool
$cmax :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue
max :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue
$cmin :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue
min :: NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue
-> NamespaceState'UnrecognizedValue
Prelude.Ord, Int -> NamespaceState'UnrecognizedValue -> ShowS
[NamespaceState'UnrecognizedValue] -> ShowS
NamespaceState'UnrecognizedValue -> String
(Int -> NamespaceState'UnrecognizedValue -> ShowS)
-> (NamespaceState'UnrecognizedValue -> String)
-> ([NamespaceState'UnrecognizedValue] -> ShowS)
-> Show NamespaceState'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> NamespaceState'UnrecognizedValue -> ShowS
showsPrec :: Int -> NamespaceState'UnrecognizedValue -> ShowS
$cshow :: NamespaceState'UnrecognizedValue -> String
show :: NamespaceState'UnrecognizedValue -> String
$cshowList :: [NamespaceState'UnrecognizedValue] -> ShowS
showList :: [NamespaceState'UnrecognizedValue] -> ShowS
Prelude.Show)
data NamespaceState
= NAMESPACE_STATE_UNSPECIFIED |
NAMESPACE_STATE_REGISTERED |
NAMESPACE_STATE_DEPRECATED |
NAMESPACE_STATE_DELETED |
NamespaceState'Unrecognized !NamespaceState'UnrecognizedValue
deriving stock (Int -> NamespaceState -> ShowS
[NamespaceState] -> ShowS
NamespaceState -> String
(Int -> NamespaceState -> ShowS)
-> (NamespaceState -> String)
-> ([NamespaceState] -> ShowS)
-> Show NamespaceState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> NamespaceState -> ShowS
showsPrec :: Int -> NamespaceState -> ShowS
$cshow :: NamespaceState -> String
show :: NamespaceState -> String
$cshowList :: [NamespaceState] -> ShowS
showList :: [NamespaceState] -> ShowS
Prelude.Show, NamespaceState -> NamespaceState -> Bool
(NamespaceState -> NamespaceState -> Bool)
-> (NamespaceState -> NamespaceState -> Bool) -> Eq NamespaceState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NamespaceState -> NamespaceState -> Bool
== :: NamespaceState -> NamespaceState -> Bool
$c/= :: NamespaceState -> NamespaceState -> Bool
/= :: NamespaceState -> NamespaceState -> Bool
Prelude.Eq, Eq NamespaceState
Eq NamespaceState =>
(NamespaceState -> NamespaceState -> Ordering)
-> (NamespaceState -> NamespaceState -> Bool)
-> (NamespaceState -> NamespaceState -> Bool)
-> (NamespaceState -> NamespaceState -> Bool)
-> (NamespaceState -> NamespaceState -> Bool)
-> (NamespaceState -> NamespaceState -> NamespaceState)
-> (NamespaceState -> NamespaceState -> NamespaceState)
-> Ord NamespaceState
NamespaceState -> NamespaceState -> Bool
NamespaceState -> NamespaceState -> Ordering
NamespaceState -> NamespaceState -> NamespaceState
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 :: NamespaceState -> NamespaceState -> Ordering
compare :: NamespaceState -> NamespaceState -> Ordering
$c< :: NamespaceState -> NamespaceState -> Bool
< :: NamespaceState -> NamespaceState -> Bool
$c<= :: NamespaceState -> NamespaceState -> Bool
<= :: NamespaceState -> NamespaceState -> Bool
$c> :: NamespaceState -> NamespaceState -> Bool
> :: NamespaceState -> NamespaceState -> Bool
$c>= :: NamespaceState -> NamespaceState -> Bool
>= :: NamespaceState -> NamespaceState -> Bool
$cmax :: NamespaceState -> NamespaceState -> NamespaceState
max :: NamespaceState -> NamespaceState -> NamespaceState
$cmin :: NamespaceState -> NamespaceState -> NamespaceState
min :: NamespaceState -> NamespaceState -> NamespaceState
Prelude.Ord)
instance Data.ProtoLens.MessageEnum NamespaceState where
maybeToEnum :: Int -> Maybe NamespaceState
maybeToEnum Int
0 = NamespaceState -> Maybe NamespaceState
forall a. a -> Maybe a
Prelude.Just NamespaceState
NAMESPACE_STATE_UNSPECIFIED
maybeToEnum Int
1 = NamespaceState -> Maybe NamespaceState
forall a. a -> Maybe a
Prelude.Just NamespaceState
NAMESPACE_STATE_REGISTERED
maybeToEnum Int
2 = NamespaceState -> Maybe NamespaceState
forall a. a -> Maybe a
Prelude.Just NamespaceState
NAMESPACE_STATE_DEPRECATED
maybeToEnum Int
3 = NamespaceState -> Maybe NamespaceState
forall a. a -> Maybe a
Prelude.Just NamespaceState
NAMESPACE_STATE_DELETED
maybeToEnum Int
k
= NamespaceState -> Maybe NamespaceState
forall a. a -> Maybe a
Prelude.Just
(NamespaceState'UnrecognizedValue -> NamespaceState
NamespaceState'Unrecognized
(Int32 -> NamespaceState'UnrecognizedValue
NamespaceState'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: NamespaceState -> String
showEnum NamespaceState
NAMESPACE_STATE_UNSPECIFIED
= String
"NAMESPACE_STATE_UNSPECIFIED"
showEnum NamespaceState
NAMESPACE_STATE_REGISTERED = String
"NAMESPACE_STATE_REGISTERED"
showEnum NamespaceState
NAMESPACE_STATE_DEPRECATED = String
"NAMESPACE_STATE_DEPRECATED"
showEnum NamespaceState
NAMESPACE_STATE_DELETED = String
"NAMESPACE_STATE_DELETED"
showEnum
(NamespaceState'Unrecognized (NamespaceState'UnrecognizedValue Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe NamespaceState
readEnum String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"NAMESPACE_STATE_UNSPECIFIED"
= NamespaceState -> Maybe NamespaceState
forall a. a -> Maybe a
Prelude.Just NamespaceState
NAMESPACE_STATE_UNSPECIFIED
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"NAMESPACE_STATE_REGISTERED"
= NamespaceState -> Maybe NamespaceState
forall a. a -> Maybe a
Prelude.Just NamespaceState
NAMESPACE_STATE_REGISTERED
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"NAMESPACE_STATE_DEPRECATED"
= NamespaceState -> Maybe NamespaceState
forall a. a -> Maybe a
Prelude.Just NamespaceState
NAMESPACE_STATE_DEPRECATED
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"NAMESPACE_STATE_DELETED"
= NamespaceState -> Maybe NamespaceState
forall a. a -> Maybe a
Prelude.Just NamespaceState
NAMESPACE_STATE_DELETED
| Bool
Prelude.otherwise
= Maybe Int -> (Int -> Maybe NamespaceState) -> Maybe NamespaceState
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe NamespaceState
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded NamespaceState where
minBound :: NamespaceState
minBound = NamespaceState
NAMESPACE_STATE_UNSPECIFIED
maxBound :: NamespaceState
maxBound = NamespaceState
NAMESPACE_STATE_DELETED
instance Prelude.Enum NamespaceState where
toEnum :: Int -> NamespaceState
toEnum Int
k__
= NamespaceState
-> (NamespaceState -> NamespaceState)
-> Maybe NamespaceState
-> NamespaceState
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> NamespaceState
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"toEnum: unknown value for enum NamespaceState: "
(Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
NamespaceState -> NamespaceState
forall a. a -> a
Prelude.id (Int -> Maybe NamespaceState
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: NamespaceState -> Int
fromEnum NamespaceState
NAMESPACE_STATE_UNSPECIFIED = Int
0
fromEnum NamespaceState
NAMESPACE_STATE_REGISTERED = Int
1
fromEnum NamespaceState
NAMESPACE_STATE_DEPRECATED = Int
2
fromEnum NamespaceState
NAMESPACE_STATE_DELETED = Int
3
fromEnum
(NamespaceState'Unrecognized (NamespaceState'UnrecognizedValue Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: NamespaceState -> NamespaceState
succ NamespaceState
NAMESPACE_STATE_DELETED
= String -> NamespaceState
forall a. HasCallStack => String -> a
Prelude.error
String
"NamespaceState.succ: bad argument NAMESPACE_STATE_DELETED. This value would be out of bounds."
succ NamespaceState
NAMESPACE_STATE_UNSPECIFIED = NamespaceState
NAMESPACE_STATE_REGISTERED
succ NamespaceState
NAMESPACE_STATE_REGISTERED = NamespaceState
NAMESPACE_STATE_DEPRECATED
succ NamespaceState
NAMESPACE_STATE_DEPRECATED = NamespaceState
NAMESPACE_STATE_DELETED
succ (NamespaceState'Unrecognized NamespaceState'UnrecognizedValue
_)
= String -> NamespaceState
forall a. HasCallStack => String -> a
Prelude.error
String
"NamespaceState.succ: bad argument: unrecognized value"
pred :: NamespaceState -> NamespaceState
pred NamespaceState
NAMESPACE_STATE_UNSPECIFIED
= String -> NamespaceState
forall a. HasCallStack => String -> a
Prelude.error
String
"NamespaceState.pred: bad argument NAMESPACE_STATE_UNSPECIFIED. This value would be out of bounds."
pred NamespaceState
NAMESPACE_STATE_REGISTERED = NamespaceState
NAMESPACE_STATE_UNSPECIFIED
pred NamespaceState
NAMESPACE_STATE_DEPRECATED = NamespaceState
NAMESPACE_STATE_REGISTERED
pred NamespaceState
NAMESPACE_STATE_DELETED = NamespaceState
NAMESPACE_STATE_DEPRECATED
pred (NamespaceState'Unrecognized NamespaceState'UnrecognizedValue
_)
= String -> NamespaceState
forall a. HasCallStack => String -> a
Prelude.error
String
"NamespaceState.pred: bad argument: unrecognized value"
enumFrom :: NamespaceState -> [NamespaceState]
enumFrom = NamespaceState -> [NamespaceState]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: NamespaceState -> NamespaceState -> [NamespaceState]
enumFromTo = NamespaceState -> NamespaceState -> [NamespaceState]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: NamespaceState -> NamespaceState -> [NamespaceState]
enumFromThen = NamespaceState -> NamespaceState -> [NamespaceState]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: NamespaceState
-> NamespaceState -> NamespaceState -> [NamespaceState]
enumFromThenTo = NamespaceState
-> NamespaceState -> NamespaceState -> [NamespaceState]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault NamespaceState where
fieldDefault :: NamespaceState
fieldDefault = NamespaceState
NAMESPACE_STATE_UNSPECIFIED
instance Control.DeepSeq.NFData NamespaceState where
rnf :: NamespaceState -> ()
rnf NamespaceState
x__ = NamespaceState -> () -> ()
forall a b. a -> b -> b
Prelude.seq NamespaceState
x__ ()
newtype ReplicationState'UnrecognizedValue
= ReplicationState'UnrecognizedValue Data.Int.Int32
deriving stock (ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
(ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool)
-> (ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool)
-> Eq ReplicationState'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
== :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
$c/= :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
/= :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
Prelude.Eq, Eq ReplicationState'UnrecognizedValue
Eq ReplicationState'UnrecognizedValue =>
(ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Ordering)
-> (ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool)
-> (ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool)
-> (ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool)
-> (ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool)
-> (ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue)
-> (ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue)
-> Ord ReplicationState'UnrecognizedValue
ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Ordering
ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue
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 :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Ordering
compare :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Ordering
$c< :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
< :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
$c<= :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
<= :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
$c> :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
> :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
$c>= :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
>= :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue -> Bool
$cmax :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue
max :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue
$cmin :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue
min :: ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue
-> ReplicationState'UnrecognizedValue
Prelude.Ord, Int -> ReplicationState'UnrecognizedValue -> ShowS
[ReplicationState'UnrecognizedValue] -> ShowS
ReplicationState'UnrecognizedValue -> String
(Int -> ReplicationState'UnrecognizedValue -> ShowS)
-> (ReplicationState'UnrecognizedValue -> String)
-> ([ReplicationState'UnrecognizedValue] -> ShowS)
-> Show ReplicationState'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ReplicationState'UnrecognizedValue -> ShowS
showsPrec :: Int -> ReplicationState'UnrecognizedValue -> ShowS
$cshow :: ReplicationState'UnrecognizedValue -> String
show :: ReplicationState'UnrecognizedValue -> String
$cshowList :: [ReplicationState'UnrecognizedValue] -> ShowS
showList :: [ReplicationState'UnrecognizedValue] -> ShowS
Prelude.Show)
data ReplicationState
= REPLICATION_STATE_UNSPECIFIED |
REPLICATION_STATE_NORMAL |
REPLICATION_STATE_HANDOVER |
ReplicationState'Unrecognized !ReplicationState'UnrecognizedValue
deriving stock (Int -> ReplicationState -> ShowS
[ReplicationState] -> ShowS
ReplicationState -> String
(Int -> ReplicationState -> ShowS)
-> (ReplicationState -> String)
-> ([ReplicationState] -> ShowS)
-> Show ReplicationState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ReplicationState -> ShowS
showsPrec :: Int -> ReplicationState -> ShowS
$cshow :: ReplicationState -> String
show :: ReplicationState -> String
$cshowList :: [ReplicationState] -> ShowS
showList :: [ReplicationState] -> ShowS
Prelude.Show, ReplicationState -> ReplicationState -> Bool
(ReplicationState -> ReplicationState -> Bool)
-> (ReplicationState -> ReplicationState -> Bool)
-> Eq ReplicationState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReplicationState -> ReplicationState -> Bool
== :: ReplicationState -> ReplicationState -> Bool
$c/= :: ReplicationState -> ReplicationState -> Bool
/= :: ReplicationState -> ReplicationState -> Bool
Prelude.Eq, Eq ReplicationState
Eq ReplicationState =>
(ReplicationState -> ReplicationState -> Ordering)
-> (ReplicationState -> ReplicationState -> Bool)
-> (ReplicationState -> ReplicationState -> Bool)
-> (ReplicationState -> ReplicationState -> Bool)
-> (ReplicationState -> ReplicationState -> Bool)
-> (ReplicationState -> ReplicationState -> ReplicationState)
-> (ReplicationState -> ReplicationState -> ReplicationState)
-> Ord ReplicationState
ReplicationState -> ReplicationState -> Bool
ReplicationState -> ReplicationState -> Ordering
ReplicationState -> ReplicationState -> ReplicationState
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 :: ReplicationState -> ReplicationState -> Ordering
compare :: ReplicationState -> ReplicationState -> Ordering
$c< :: ReplicationState -> ReplicationState -> Bool
< :: ReplicationState -> ReplicationState -> Bool
$c<= :: ReplicationState -> ReplicationState -> Bool
<= :: ReplicationState -> ReplicationState -> Bool
$c> :: ReplicationState -> ReplicationState -> Bool
> :: ReplicationState -> ReplicationState -> Bool
$c>= :: ReplicationState -> ReplicationState -> Bool
>= :: ReplicationState -> ReplicationState -> Bool
$cmax :: ReplicationState -> ReplicationState -> ReplicationState
max :: ReplicationState -> ReplicationState -> ReplicationState
$cmin :: ReplicationState -> ReplicationState -> ReplicationState
min :: ReplicationState -> ReplicationState -> ReplicationState
Prelude.Ord)
instance Data.ProtoLens.MessageEnum ReplicationState where
maybeToEnum :: Int -> Maybe ReplicationState
maybeToEnum Int
0 = ReplicationState -> Maybe ReplicationState
forall a. a -> Maybe a
Prelude.Just ReplicationState
REPLICATION_STATE_UNSPECIFIED
maybeToEnum Int
1 = ReplicationState -> Maybe ReplicationState
forall a. a -> Maybe a
Prelude.Just ReplicationState
REPLICATION_STATE_NORMAL
maybeToEnum Int
2 = ReplicationState -> Maybe ReplicationState
forall a. a -> Maybe a
Prelude.Just ReplicationState
REPLICATION_STATE_HANDOVER
maybeToEnum Int
k
= ReplicationState -> Maybe ReplicationState
forall a. a -> Maybe a
Prelude.Just
(ReplicationState'UnrecognizedValue -> ReplicationState
ReplicationState'Unrecognized
(Int32 -> ReplicationState'UnrecognizedValue
ReplicationState'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: ReplicationState -> String
showEnum ReplicationState
REPLICATION_STATE_UNSPECIFIED
= String
"REPLICATION_STATE_UNSPECIFIED"
showEnum ReplicationState
REPLICATION_STATE_NORMAL = String
"REPLICATION_STATE_NORMAL"
showEnum ReplicationState
REPLICATION_STATE_HANDOVER = String
"REPLICATION_STATE_HANDOVER"
showEnum
(ReplicationState'Unrecognized (ReplicationState'UnrecognizedValue Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe ReplicationState
readEnum String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"REPLICATION_STATE_UNSPECIFIED"
= ReplicationState -> Maybe ReplicationState
forall a. a -> Maybe a
Prelude.Just ReplicationState
REPLICATION_STATE_UNSPECIFIED
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"REPLICATION_STATE_NORMAL"
= ReplicationState -> Maybe ReplicationState
forall a. a -> Maybe a
Prelude.Just ReplicationState
REPLICATION_STATE_NORMAL
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"REPLICATION_STATE_HANDOVER"
= ReplicationState -> Maybe ReplicationState
forall a. a -> Maybe a
Prelude.Just ReplicationState
REPLICATION_STATE_HANDOVER
| Bool
Prelude.otherwise
= Maybe Int
-> (Int -> Maybe ReplicationState) -> Maybe ReplicationState
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe ReplicationState
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded ReplicationState where
minBound :: ReplicationState
minBound = ReplicationState
REPLICATION_STATE_UNSPECIFIED
maxBound :: ReplicationState
maxBound = ReplicationState
REPLICATION_STATE_HANDOVER
instance Prelude.Enum ReplicationState where
toEnum :: Int -> ReplicationState
toEnum Int
k__
= ReplicationState
-> (ReplicationState -> ReplicationState)
-> Maybe ReplicationState
-> ReplicationState
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> ReplicationState
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"toEnum: unknown value for enum ReplicationState: "
(Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
ReplicationState -> ReplicationState
forall a. a -> a
Prelude.id (Int -> Maybe ReplicationState
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: ReplicationState -> Int
fromEnum ReplicationState
REPLICATION_STATE_UNSPECIFIED = Int
0
fromEnum ReplicationState
REPLICATION_STATE_NORMAL = Int
1
fromEnum ReplicationState
REPLICATION_STATE_HANDOVER = Int
2
fromEnum
(ReplicationState'Unrecognized (ReplicationState'UnrecognizedValue Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: ReplicationState -> ReplicationState
succ ReplicationState
REPLICATION_STATE_HANDOVER
= String -> ReplicationState
forall a. HasCallStack => String -> a
Prelude.error
String
"ReplicationState.succ: bad argument REPLICATION_STATE_HANDOVER. This value would be out of bounds."
succ ReplicationState
REPLICATION_STATE_UNSPECIFIED = ReplicationState
REPLICATION_STATE_NORMAL
succ ReplicationState
REPLICATION_STATE_NORMAL = ReplicationState
REPLICATION_STATE_HANDOVER
succ (ReplicationState'Unrecognized ReplicationState'UnrecognizedValue
_)
= String -> ReplicationState
forall a. HasCallStack => String -> a
Prelude.error
String
"ReplicationState.succ: bad argument: unrecognized value"
pred :: ReplicationState -> ReplicationState
pred ReplicationState
REPLICATION_STATE_UNSPECIFIED
= String -> ReplicationState
forall a. HasCallStack => String -> a
Prelude.error
String
"ReplicationState.pred: bad argument REPLICATION_STATE_UNSPECIFIED. This value would be out of bounds."
pred ReplicationState
REPLICATION_STATE_NORMAL = ReplicationState
REPLICATION_STATE_UNSPECIFIED
pred ReplicationState
REPLICATION_STATE_HANDOVER = ReplicationState
REPLICATION_STATE_NORMAL
pred (ReplicationState'Unrecognized ReplicationState'UnrecognizedValue
_)
= String -> ReplicationState
forall a. HasCallStack => String -> a
Prelude.error
String
"ReplicationState.pred: bad argument: unrecognized value"
enumFrom :: ReplicationState -> [ReplicationState]
enumFrom = ReplicationState -> [ReplicationState]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: ReplicationState -> ReplicationState -> [ReplicationState]
enumFromTo = ReplicationState -> ReplicationState -> [ReplicationState]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: ReplicationState -> ReplicationState -> [ReplicationState]
enumFromThen = ReplicationState -> ReplicationState -> [ReplicationState]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: ReplicationState
-> ReplicationState -> ReplicationState -> [ReplicationState]
enumFromThenTo = ReplicationState
-> ReplicationState -> ReplicationState -> [ReplicationState]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault ReplicationState where
fieldDefault :: ReplicationState
fieldDefault = ReplicationState
REPLICATION_STATE_UNSPECIFIED
instance Control.DeepSeq.NFData ReplicationState where
rnf :: ReplicationState -> ()
rnf ReplicationState
x__ = ReplicationState -> () -> ()
forall a b. a -> b -> b
Prelude.seq ReplicationState
x__ ()